(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 341372, 6581] NotebookOptionsPosition[ 337310, 6446] NotebookOutlinePosition[ 337842, 6467] CellTagsIndexPosition[ 337799, 6464] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"Import", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6150235019374514`*^9, 3.6150235110569253`*^9}, { 3.61502358211339*^9, 3.6150236048154864`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"pseudoP", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "data", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"screening", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "data", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.613453223994238*^9, 3.6134533374219465`*^9}, { 3.613453477687825*^9, 3.6134534999686637`*^9}, {3.6140649990724907`*^9, 3.614065000057211*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"local", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"pseudoP", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{ RowBox[{"screening", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "data", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6134535052034035`*^9, 3.613453638929581*^9}, { 3.6134537110569153`*^9, 3.613453722337944*^9}, {3.613453886050459*^9, 3.613453907095417*^9}, {3.613454008107328*^9, 3.613454025809927*^9}, 3.613454099403303*^9, 3.6134542337188764`*^9, 3.6134549345206623`*^9, 3.6134552485821805`*^9, {3.6134557488752213`*^9, 3.6134557632134275`*^9}, { 3.6140014312559643`*^9, 3.614001432802857*^9}, {3.6140042409720225`*^9, 3.6140042439253435`*^9}, 3.614065016166651*^9, 3.6150236252990284`*^9, { 3.6150237082569246`*^9, 3.6150237230033903`*^9}, 3.6150238183120527`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"maxplot", "=", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"local", ",", "10.0563015`"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plotlocal", "=", RowBox[{"Take", "[", RowBox[{"local", ",", "maxplot"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"plotlocal", ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.613453647606738*^9, 3.613453677843278*^9}, { 3.613453726211701*^9, 3.613453792774056*^9}, {3.613453942918919*^9, 3.6134539537486196`*^9}, {3.6134540477174997`*^9, 3.6134540485911217`*^9}, {3.614001438944688*^9, 3.6140014486336813`*^9}, { 3.6140042516293135`*^9, 3.614004264959705*^9}, {3.6140650212132688`*^9, 3.6140650275457726`*^9}, {3.614497161232888*^9, 3.6144971666417236`*^9}, 3.615023714447318*^9, 3.615023823365642*^9, {3.6183104686158857`*^9, 3.6183104717911453`*^9}, {3.61831083768522*^9, 3.618310838266636*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011111111111111112`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxF2nc8Vu//B3A7MrJnREZJRUqIXIeSlZmVZJRdhFAqsrL33nsnWYnCOYTs FbKSTWSPkPQ7d9/P79x/eTwfr/c55zrXfa5x3DfPvUda5kQEBASniQkIcH8f qFVzOncPyHBF0ia5p3EgrZ9XiPhJ5zALO3l8VIhYw3xalm+h/8oOZh6aFsZ7 M78xSxdqRHVPEoD/t5Xq1eN2vcSYo9cEc6jqyTDba5Rye7dTYFYpkUjeG6DC 7G5HTTe2fAyzT1MciAmgw9z6Jd9F+jgD5isRJoUJ7xgxf/1TN1KkwwyexhhE 45zO1njE5YAFs7VY6yWQxYb5LoGzUZ0GB2a3Z599Nkk4MbdlIXnjMBdmHpmS aRjixrzp+cVhiY8Hc1PTzl9mipOYz5raBqes4Y28DmQaGefFrL2Tl8rcyYd5 Hmo6desjP+a8KwFv5EsEMB8EpV+Iyj+Fr79EWSGVfRrzl2/Ol2fSBDEvivm9 k8s8A0781z+EofGXMrKFMF+P0Sh59+YsZr9k8rNtlecwb2tZZkc3n8dsRtF8 3HhQGPPL97Mtj1xEwJP/rqdqY0VcQngBc4mTjLRKON7jZ2S2orhFMVNNXi0a K8G7ZyX8nsf1i5iN86nje4fxrqauuNljfwn7vAva3vwVpBTDnOCXV+adg7f2 WttMoOxlrD+yS2SZlifwRo5PNR54iuP7+1LRZjWfBGb93bQMvla80xnmVRft JbHzl43oud5lv4I5XHWD173pClYv8bBS9aajFOYnU53OzielMXuQHOO82Y+3 dp/rtR6/q1j/1v0St3orI4N5s+UElfQvGaw/NuUvCLuUAszy1Cr5r8QhzM6q kbsCcRB+/EkStzjv4q35m1wvyUAWuz5rVFZOXC3eBYOWj2VPymEmbdZB4v3l sOMVgoY6mlfxufaBj36m/jXMN641Z2k3XMPaT3z5gl3FuetY+3IPRXYXE/Bm eGxA2H1EHvPNqDcBJk/ksevZBMT0tszLY+e/JZQXP377BmYy16nxjM4bWP0r R4Vs+msK+PEgKytoUK0AuP/L2WrNzqlfUMRyhpnSkvVCvDcnojZt+JWw83kb X3K2ylTC8r1y60ppbmUsPxF493JMujKWn7k859zIo4Jd73/jTwXLMyOcHIUE b2LHH5N9Jnz/7U18/yUXPFAUV8VyxSyiU6OIKpYz674y5biphp0/KrB55Puw Gpb/ik5meG6ljvkoz4WgxD117HxesudMW+Q1sFz3Ik8yaTjedL8LYtlGNbD6 LOLIkkenNLH89JPrZy44aWKfl6+Q7qdLDZpY/Ufuz8+f0WlhnvEgihYy1cKO n+FJaecq08KOryWOO6lNcgvLn3/klzTRw/uEktKxa69vYc9TEksHiRWBNnb+ VYFitm5dvAWp+FeoirWxeinR35PBZDpYLnreImbaGG+iByJWLz7oYPWFC7cN 9Jh1seuLS7NSUTzGO0yK4KpVry7W/k5at3OpInpYPi1w+ypzhB52vl636Ic9 G/g8p9DsjqmOPuZr3katadX6WHs+JL/X5T5xG8spfj0inn51G7ueSKRf9/zy baxexO7ww3k9A6z+SFB/0/t6Ayx/v0Cx5nXuDpaLblgl/E7E+5X0qXuVFIZY fcnn68rlrobAFRuvQaV3lwyxemcXUQllo7uYOYQlxp/23cXaFxJlSayjaITl XyV2FB7DeP8MKKYEEsZYfbtvuFpVmTGWy01ZDUmymGB+EUy8x6trgtUXZli5 usaYYP17uUHBenQAXy/sPWg1zmyK2Vf9+9dlfbyVa+J0U5NMsfvdPJyJ5v+O z3/fLJKr5r2HjS87KV6CFSu8ZcUYzwm/vYe1Z48kkU1hB++4woomMZn7mNkF zC789sX7oCiEqrPnPnb9Roqbec4cZvj5ysGn9Iwl3jtvNZ9Xlpth9aZ78RVq hOb4+UbN4O6mOt7DT0ua7NLMsfr5Yo+UnVV8/r/10QI/Hx8pXNqOssDyHuMF uqx5C6x/DT6l5xlKW2J5y8Hywc8IvI89SXSAFyyx6707QHRSISssv/jpxm04 Ae9YY9Pj7zfx7pMePVxTs8baM2dQQWD72hrLb/sccdwmt8Gv5yvVRIgl3mpm c0Rxn/HuYXc8WXL6Ab5/6O+aUgbhbaicB+ev4G35SeOq/62H+OfD7fZIQfVD 7H5In9bHUvPYYnl8ub9jeQDebubRnL2beF/R/zsvYmyH398Etfb2tdth+Xux ocCfko+w/nXhvnFfseARln+CXpDSUNtjdir6hVy8YY+dT+0WkxmThz12vKbY wErZB3w98v56wPq2PTZ+GWmVpslEHbDjI7JW+Ybs8BZ3lFAzL8L7EzOzeOui A37/shNz5IegI5bTFRXGfbd2xPJwce35okK8JQ7TuC7/dMTa15TowRR7/jHW nxLUO+0dDo/xx+sQyI28w+ddj9Oe1O3jXUzUfD0acsL3h6VnL+TnhI3HE5m9 nI1d+PyhagGhJIsz1t471uRuaSbOWC5y5+D9WCHeebVPAil38HYTsu24IeeC v59Hvzr1w1yw9mjV/ZZ58g2f07j7KfidfYJZUCkEznqB97wPe3dpJ97EHTxq HSeeYnbnypLedMQ7afJ1A+VnvL8o84SrHHfF/ACm7YxzxJtr5KEmZRveIgTX 5INOPsPuPwN9e2B58QzLf2TJCc0N4h3B85CzXvQ5Vq8jT6T3Kew5fvweIx36 uYz3EpvlU33VF6AvPjvk3/rdJmay9OYFllvV3LdEjrlh5zuvffiuxhHvzrO7 vL8H3bB6gslrAbHS7pjVpQ7EbmfhfdGBbOQp5UvseV6df5Qy4vQSuz50RUg/ 4ftL/H7u0vFXI/weoPe/vLeqfTjW0AP0/Gd9Ib5CwmgP7PjXQfw77B34XOBU q+AaiSe+v0uYhh/LeGLnG3EisS9/ireDU8xKcTm+/sLbFm2LVU/s/E8d42jm hbwwL9iTl/Bae2HX8yjkkDyeh8//Vn/yXJrF5yRaR7h8+L2xPNxxjnrO3Buc SV7x/Tcfcphq0uXh85REe22GH/j8+Sojy08hH8yAXS0h6ZEPOPuff7AfH+Wp 8MG3d919zH0PX6+89IgCAa+welPyVdNZ31dYzh67rXnQ9QoI/eeqvXDCRRZf LN/tLFdsNfUFPmkSHv/W8yazj8FFvsD7PxM+j72gvovPT2eoA2J5P8zr4uEz +ZF4fwzWDFGdxFtAK7FzWsQfjGV6uf6rP3nXzdfTH8trStNFTn/xB+P/5XMq RrcG+QPAt/9Mm53s6u0aAC7ndjj+a6+22nPlLrxl6J795OQLBOL/eXroROef Z4FYnn1DdJvkC96NcF0w69kgEFbA/PDf5zn+/sEt3yAQ/p9/6fIJ5E8GgYUi E3OcbRp2oi7IBGNO8JX+1p+Et5zMwnDRfjC4VlJohLPFj72AaoMQIPefif0d lvc/hoDE8i29f58HuzqJA1coSPrPFMtBVwS9QkHyf+4hOB3OOx8KdiplNHG2 1+ElNVENA2of/JX/zVeLbgnjFXjvn4uh/0YTDvJq+67hvEzGsbB0LRwQ1h+/ inNBp5JkgSveF7x4yJhKwoFBo8VlnL35MtWE58NBxecSYZzTKtrpd7kiQNl/ FhtOJHfRiwCWXddP4nw98phIQTjebr4CIL4tAtT1hnL8m0+OTb+UJo0ErAND jP+eN1cZoywoEjgOnaT5N15PSPM1v4gEfN8rCXDeyR3ye10dCV5OEey74cY/ LWPArV+RYGhWeRPnqDsrp+rEojCTDJr07DpFgcCf47M4HwzZdRxURIGZ1dPf cT5DydTXsx0FYndqenH+3qQrZCceDVb2yNr/5X8E9xdco0EGQVItzoX3Y/ou 1kaDA+LZSpxp02NsdAhjwJujrgU4f/jLe/7OjRhgQkedjLOSmEKpeHAMeMix 5Ifz8dBd492+GNDEJeaJs/d9KZ9Y9ljQc5rBFueQAlJI4H4s8BHOM8Z5lN7o VGJRLAiXfKWCM8cN2bXdnViwKN19HefDH681lOTiwM6NNyL/zneYohgUGgcM tQeY/rXXm2WobjQO0PxbONH9WTPdg3XBeOBoFbH8ArXKv+UoHrg7PhrGuVEy TPhGazwIfKHahPNyJWWnM3sCWAtwLsSZZYPcLvthAtCOSwnDOR0dlt/hBPAh u8kJZ79Ah0MBxkTAVbZ8G+cXocNZntaJwBdmAjj3pHysWoATwfUeP06cp0jp CqxZkgDR5N7v56hLmofRGTkJNKw/GMFZeoLpeHVrEnhJNF6F86W9eu1QvmQQ y5wYjrNi1Uh/oEcyKDmja4XzE06T5OJvyYBbzlASZ4duNVMC6RQgoctKh/Pl rlxej6QUUGjLNfUMtRNilnDpIAWwv+Irx/lsrn8Dp1EqkMmqc8GZRuCYjlx9 KqCoo5HF+fPcFlkBfxroHzKixPn2guSQZlAaSN0sHnBF7dg74n5tIw04sX4L wpmi98EfmXPpYEOyXhFnZw9mQpJ76eDRnRxSnG+1PeB3iksH8h5fPj5FnVP8 wCasMx1w5BA64lzvwSh0myQD3Ox05cH5MMqsoV8qAwzuSrU9QX0k5u7A4eMM YMR36IjzhNu+02RRBkjU1abB+eJv6RuucxlgwL+wwAX123Kevx3cmYD2I4E8 ztp5+WljdzIBwdZinzNqnsHeU/lxmWD57IAJzo+ikjZE+zOBmDXFghPqn6+I Kr3pssBgvp8VzglvyBwT1bNA75L61GPULkfzBZ6EZgF3sSI1nIdXZ85zdmUB Hy+tCkfUj0k+QFE02SCwe5cN559bpwkH1bOBHO9FRwfUG5bnBX5GZIMDF9s2 e9TjJS1Hh/uzgWWvFBPO+i/2biWw5oBXoqlaj1BbNn6kF7+bA3QTo73sUB8N OKZQlpkDBIiCymxx823b1trRHzmg0J5p4CHquvNWzQoiuWBi9uLiA9x8VGn9 2eppLmgxnVu3QT1U8UvNoT4XmM2c/WmNW4/caKvMKPNAue2RYSvUzJUlVUq6 ecBgXwi2RK1BNbJ9PDMPUEWcj7BA/UoggH92JQ90XDimbo6aUr8mM0c6H8wO SJKZ4Z739Me2RkH54J5fcOY91NV5r6WYR/NBJHh8wRR1xEMz6k6hAtBFKFFk jJotNjE+wK0AsHSN0Bvhrsen9k2lpwDYZN8xN8Stf7XPI9j5CkGHz4csA9Rj 93jfbT8tBJGOsp/1cfNZtezhdFchMLPJHdRFvdYw+HCW/zXYcHRr1Mb1X+/E nT9ur0EorkNx/R9k6Cn69TUIyzl2VwP1oryihP+FIqAxaLSvilrtb5bHYXAR 6GLhdlFB3WX0kDb5RxEos6D4qoh7Xt+nyZkpvAFknbvkN1C735V2NMh9Ayyu NgtcQ41O7vueZMVAoimBCcLNn+jqMGlZDE6aCo5Jo44kdhFzbSsG/HTOzyRx 67VDzrWb59+C2KHmH2KoG05ccjCNegtOVvSLiOKu/47LCd57C3revJA6j5vv 0d1cqUgJiP84wXkG9dUO4j9nzEuA1/z4J36cE15uqSaWgPALT87x4Oq/Chiz 95SAhoQCg+OoY4meyMeQlYK642e1WFCnyq9qI1dLgUR9JBk9bv5ODwtJci4F UyEONlSoGcIGfgkVlwKKF5eCyFD70NdHOcyXAtIw/nsEuPnCTaPmEU8ZCO4c mtxL5UB894lOnDYsA3KXSOg2UbOPDTKnxpUBr+b1hSXUI85th/1fyoBO6Eud GdQcqUaC7bTloMyz22YMddDvsJt+auVANc+Zox+1UKiRFUVIOegnJTNoR/2n T+GVbkc5UE7xEGhArZfesf2QqgKYOLk+rkI9n/zj0S3VCoD45SoUoy5uSd2k CKsAdSOayVk4p1sHxPRWAJsnt+/G4+r5lC/sML4DTXdrA4NRl+XL3BC+/Q60 h7jxeaCmL2jskU99B2YYG449Rk0mMNYjOfMOGPzcuW2OO97RO4NGqBLIcO2v 6KKmnK5K+exYCWRLjesVULe3PuO2+lgJyDO/fRVH3aeh+HWd5D3Y/ZPEcgo1 73Zqm7X6e0CPe/FEDVe673cnvgdmhFWHRKgL6M0fCc6/B9crrwatpnAgkoYa Pq6XqgD1vPOJUdTstfBcvVcVaEuRyWtCne1fuk7aVwVEJoWY3qI+T89HoHSy Gqy+770Th7pmMJo9/HE1+HC60dYdtdogsexoUzVIvTp52Qx11HtbwQtsH8DG nmOJIurgZ31fImw/gBMPMmAh1FeS3yoSffoABuMI9KhR//t3H9tH0OrLZ72c jL4/O6q85nH4CCoVX/a3o87J9ssYaP0ICuZXfPJRyxdVPM/nrQGHFrWPvVFr lmvOJ7nXgPaR3KeGqHmo74LykRrQoAR8L6I2N/kiuS1eCxTriz3JUXO8qRg0 ja0F3FqWSqNJHMhWwp/2v9u1QINMofU16iSNc597dOsAtOQ854qaUa2+Z7iq Dpiw7jvIo343+/4a13EY1MSV6tGg9o4OPZ3lAQN7N/1H/Yno+7BP41mbORiM 4h5b1K/PCRHXCiDA6eNGhR7q0ss85EsGCNiRMopkRP3F91MfEoaApw+ZaLoS 0PltTGMeakJAi6XVhjfqBFPFzYe/EZAp08p5GbVN/8IzBdF68IXS32AmngPx 37Qn+mJdD14syzwMRZ26YCxOl1kPDLeML1xCfc5xK4VktB7Ey7yyHYhD59fq N9PFjA2AfH1s0AE1I0PgfQb1BsDKaytDgdouj7z9YmADSFh9ZZcUi65HYlap 9M0NgNbrx7HTqHOez5uWEX0C+7+ffy+OQcdDFuknRugTGHTnSRRGPU+A2xh/ An2iWqsF0ej7qKb+5rnaT4AH8g3lRM2KKG8tHHwCq11ipwKj0PkhLfaZw9VG wE1je2c1Ev183zw72ubeCNaEvZpvor7N6KK5hTSCRdxtRaDrUc0Nzy3iJiDf MzW4Eo7OF1eK7NsVmoBybVWqKOpMFzNNt+AmcOX2MRLbMHT/IFycR9XXBEqm zfxSQtHnnbfl13PWZrATv/z2UwgH4kq73tRp3AyKqk4djgdzIC3Kp2xJ85tB 16vRpZUgtH/DCxz415uBierb8Y1ADoROzOX8BanPgESdR28xgAOZ2Wk/JeT7 GQjO/k3r9+dADAQLqpj7PoMuw3WuUj8OpBX3dRZXCzAgmxN96Yuu18ROxl0P W8C8HMQm84oDaa5N1U7/2AIk7FmZl73R9TU90MWeshXULUg7BXlxIHEPXJRk DVuBFpeXOqsnen4Hk9PMxa3A1jl6PPIlOv4SyeQ3CdrAkrHi1X03DmQ7O493 VLsNGOqSPVN9gfa/updiT0EbUOu9nBX0jAOZZWGs+fq3DRBrDFaXP+VAyj8m EW3ptgM+Y4rsRhcOxIr3q6rg23agF7SlUOuE9i816cln5B3ghmlNULIjOp46 eUd+3OsAJK+CBEzt0f3VRIm7W10HyAwvnqawQ8dvfKGNBEcnWDw/8zDmAToe K9VPcrp2An26l0ZE1hwI5zvOYpGhTvB08y2kboH25w96axeJLnAykKHg2X10 vr6y7LOR0AVu5k+seZmg+x+LpVd5B10gmZPkqcVddD7yVFZJMukGdZ8UA3kN 0P2kgtLtnqZu0OyZoV+li66fSaJj/Mw9gEtOhZr3Fvp+ptllSq7cAzb+bpWY qqPj17tSNtK9BzxFhCQcVdD3l8ijdY3lPSAxjDZQS4EDWehuuZD1owfk+f50 JLiG3k9vyePz3L2goPtZiqsMur9fQsat9XqBWdLRvI+S6Pwm/5RbL6wXZPK1 sjZe4kC6j+rO/frcC3aRizfChTkQ8VD9IHXCPpDd4BbAeQZ9/9w7rDGW6gNF sWeOWPOh71tH/f+ecekDnSWag4+40P1FZd+D8tI+MBjfPHueFZ0fPnL6/l7u AwQzPhRZdGh/DuX1kQp9AZDE/mbLUQ5k86+6Tb/VF7ChWCOdQoy+X9ZUSNvk fQETExY3jx+wI9btjF2tc1+A9FCtvdwWO5LLoy6+LdAPtDlkuyl/siPDCkRW q5b94Gm6mqvTNDvCKkrt+qGgH7Q8jVZ+OsKOfLho13T7Zz/AfQtK38uOfIVI LLqFB0BqX/0++MyOGE7ZKnM5DYCuni+j+zXsyKUMpXtK1QNg7nRSp0wZO+Li 4NKs9XcAeGg4TpHlsSPPczd6r94YBGud/JRqSeyIcKuhE3XoICiTP35AE8aO MMRvXmgcHAQHD88rXvdiRxiTdfbNuL8CLur12wtO7Ejgac/TmzZfQSh1lPG2 BTuy87sCcqj8CjqMeR6b67Mj8mlholNEQ8Cfk8dIVIkd6TY/dltJYwg8t9ke 0JFkRxYzRY8VpqJ2r7VsPc2OsDNJDJOtDIGgaloNXxZ2hHvEze2+zDC478Ve 94qUHXlZIufREDYMRu6mZyMbbMjuu5m8U1PDwH9yuF/4OxsyffWeeqzYCPBt nBprb2ND4pOqe+kCR4BcPff1kHdsCLF+AFfK9xGg/8FB9mEaG/KiuTtc6vIo 6E4bXTPxZ0MudCsbrIeMAkOrXZP79mwIze94m/q5URAiHK77QI8NGbRk9X8L jQFtrqjn9lfZkAmrz9Rw0hjIubvuanOSDVnhIGnY/DUGFKVaSzXI2BBh6+BB TZ1vgJRU0pv9BysSNnx4Zaz8GzjK7HcRbmNFpHXYeOIYxoFET8i+2GtW5Nee pLqv0zj67kl64BzIinjP1gW9GRwHn1Zz77hYsSLZYmQptFe+Ay0Rp8vn5VmR 9eRz3BWp3wFbJ39JNDcrYvqerUqVaAIQiDr9TN9nQYaK2WNmxSZAVO2qoPIX FiRgPF6b12YCXP3wsNuvkAXZJvnyjCJtAjg4wtc0PViQS8z53In9E8CO/LpM qjYLsi4Vtzl4dBJUhMzEWZxiQWbYwt40yE6C9O0188xdZqRqmObAyHUSmFHK 0ii3MCN8J0gTiksngfyDdG3dWGaEYi/dsnxxElD4smoj95iRRX6en4/4poBX VEuC5zlmZDzBDMwZTQHRV7UgeocJMWMonGVNnAJbVL7fN2qZkPYHHueODk6B 3LCjb+K9mRCjFy7mNfTTQJ+RI95TgQlJI26nE9WYBlZqqhKFFEzIMaSm0jZ0 Gmi+vEdB28aIXLAPHHLonAafPPj1Sv0ZEY3lhiaIegZ4lRSbh8gzIivb2UTf VGcA6bRUcDYBI7JL3+2uFIbmtjQ8u9UMyBqRR51/7wygJ7z6KdCBAeFJu0Gb wjgLXuC+Jz7FgBTrOCQE6M+CO1RcuW6j9Mj039B8jZRZQJ9RWfYjhB6Zoly5 tz01C+R805SKZOiRcxKdN58JzoGhme+c3ct0SAl1u86U/RwYFCAxvZtEh/CK DIqLVM8B0e4cBjMFOsTxdMiUBdE8CAz8Nr2+TosEvgyVD7g5D7SPMj1hSaJF QrJO+ybGzQNpemH1eTlaxIpzPypleh4Yr9HELPUdQ3rD10/HiCyAzcOA0TLO YwiPJnW6j/sCYP4S66NjQYM860jietS5AK7OTlWTv6FG/tgvtepx/gDrnpx/ STeokI4i5c+ydj9A4ozCQaAYFUK5ckRaBPkB+kR4goafUCK0/jzeAgyLYFxD bl+8+ihysSvm1ynLRXBwQSt6bY8C6WC4vyVeswgI33/7oHmFAjlo/pp6m34J qFbpzb15Ro7ULBJuhlsvAZqzETp3Ph5Bdo94TEzUL4FshZS28gMypIDH5L4q x0/w4WVvICMgQ/iD0geHnX8C4faQoW9epMjvF6ttAb0/wQnc1xgtJMh74d89 JueXgbblX1VJWhLEN8iT/X7wMmh7GXkz3oAYCTrs6YhaWgYjPk0bu3lEyGld PfVfKiugPOsUR9MuIVI5S/8n/M0K0J7sXrNQJURMY+qPmNOuAtKXFAKKuQTI SSuHB0+cVsH/fnZGgHx87rHSPrwKoN7J5r6OQ/icoa7pRe41QB6QZTqf/Ad+ Tku0wa+9BmgmzoWnPz2Av6udbID91wAJbr03+Q0fPbQlJa5bAzel0x+26ezD DPSN/euba4CsyGLeXX8PpntJrBR6Zh2IujuX3LbehSuEpmNGTNfBilefabf/ L/jtIdvqUMI60B9UWJd6vwOXjxv5B/Wtg57KGaLJrW04N461fYtyA9zr+64y KbsNS9MeLjLf2AC+JT21V1O3YD7hZo4tjw0w5Ss42kuxBT/P8TsIrdkA6GyQ ru6zCW/d3kN+7G6AzbHgGWnqTZiG0mCZ7PImYBLNiFrN2oBZIyV6Fh5vAos7 NTRBChtw5JsvyxFlm2Bbz737cGcdjqeRmyXZ2AQ1h60+JKXrMIPn4onroluA wdeQhMdpHa7K/6in9XgLbKbxMeTKrMOPNI/vXHi3BT7T0Uq8p1mH17h+V8z+ 2gLF4flkGlNrsE6D3UV7qW1AUMt0XuP9Gqz/3Vyo/+U24K+YNQwMWoOVqPIc GJu2gV1Cg+Sw4Rosv6+Yc5FyB33eDs5KCa7BEqKL7y5p7QCXUMLhpW+r8Cju 51SJO8Cuos/A7/YqzLoVHTQ/tQPaqMw3WBpX4PGwUeG0s7+Au/05JW2uFdi9 nuHE9Se/AHsp6ePCB8sw+68g9+GGX2CXKo5SpewnnFo9dfXesV1AK+yvqPp7 CY7yCbWcNNwFHrQMXO6KSzBb8zdug9e7gLXDXrU9YRHW/skV1r2/C0LpEu14 V3/AFubpX6+r7AG111+nnRR/wEcj/a/UJu8BIqWT8sU5C7DZBP83qdU9oJXo eKaObAG2iFUTa5TbB8wfCHUiH8zDHYyC3rfj9kHskaE/bP1zcEBGkPTfn/tg yGuc4xo0B2+HOdVUXfsN6pDaFwdvZ2FCgQ9PA5J+g+BcGtVLvLNweoHovNPW b6BWLBg+nDADx0hId7mrHYAXmXr5IwwzsIQA7j9zB6BRNOKcQMQ0rBx+59tv 0j9AZPg872u6aXgzQ+eJy/0/wFFekEc/Zgr+9ZSHk6vhD+gb9Dc5fnwKZrnI GbPDcwgOcP/my5mEmVdyc4i9D8Hlr9bZOaKTsNaHLWGl2UPQQnLArtQwATck Moq0K/4Fdqtmnoj2BIy+pWWGvPkLrr+vDt758h2m1SKUbaMggMw0h+R7ib/D HffubTpcJYBmjJmq1yXG4WePqAgRBwKIpJ2ATOLxN1j04bhXZS4BFF7SNuFd NgZ/vKXiozdGALHqn3xduTMKt1IdlcyhJ4SKZPTulIJRGPYx/5yhRAiZTFbN a4eMwGqZjPfVPQkhw1JnY5/vw7CL/BXVkmpCiCToYJ/n8jAsprbX3LxBCFEx HTeijRiCA5Od6GLOEkG0QfeIL659hesppJ5zWhJBP/3c8uxufYUbTMtt72US QZcUfjfmfhiEA30IzliME0Ei5394I/yDcLKI6SUhDmLI52HFk4zoAVgemI2W 6xNDpyN+OIscGYDTTLnriOKIIRPC2Fwtt374hk24BPsgMaT/2pxnbecLTE5n PHbARAJZLVw/tfb4C2zB2H7ujS4JJOIApKS2+uB2Lr3hc/EkUEULovLhSR9M uvDG3nOEBArO6x/VOeyFRXnmIgs5SaEx3Hzp1wvrWBocKTIlhaiKjRaDGXvh oAc8tv65pNCLPQqqw6weeKgtJkjuJyk0w1C2eflyDxzG4S7+TZQMksjzHFCI 7YYJt9Ll7zwjg/IV4JNmTV3wxXV9N7iBDCpRxv0wtxOmS77eRUV1BFKUnxvt EO2EB13sxG7oHoGsxC/u99p3wDx0FDF2GUcggsrT+v7l7XDz9x2SgOUjkH6B LlPPfhtc9mDQKf4KOVSyd1Mz4EYbfIR3hyLdnxwy2R/VjopthRceZ//I/EoO cc9HJPYutsAuHcKS2acooAXpOlb+ay1wf+IcZ95TCkiko5jbMe0zTCV5Z7a4 jQKiDRMpTf3bDI8cqeiu4zwKEehGcITdb4aVTL3PjDgchUR8x/1OtzfBKkFp D0g+H4W4bafVtS83wUvfEycgTkoo/PzPE/vZjTB7jsrfSCdKiNWb5DkRSyPM xr6lfNhBCZGrvo/QC/4EOz2R0/YVoII6hrtrp0g+wVXbM6/Pe1JBu0ZfAyM8 GuD65u3V/TEqaKJOX1Dtbz38jul3+4okNXQ9kVON1LMepjwyv0sdTw2lf7S7 k0NaD3tXsVw1/EUNBesPjHGEIPCUwpLRNz0aqCh35K4uCwL31hGrxlTTQEN3 qQKDFGEYfdpG/Y4fgzQykNgyyzo48PUj0mqPY1DPX1NCouBaOJxbZeDs3DHI JOhv7J13NfC3zxyFjwVood0+/nO50x/hm09CbroY0ELc6K4TYf4IF0cO23CH 0UKICe6XVh9gVprvnE6NaJ6E21BUw6uDC0GP92mhhQPpg6X2Kjh2RHaU+wId BC1Ntl+nq4LZiJck3K3oIAnHb9EbBu9hQfGkoZB0Ooj8l/TLkfxK+MEtISKt YToo/tVR64X9d/B38bqdDnp6SIKg14tM8x3cg/YioSo9JKLE8YfrdQUcVHfq +ZofPdQi50R+nKIC1qCQqUn5RA/Fp01JrNmUw9X23HyUBAzQWuPjSo+eMvhW 7dJJqasMECL11rJOsgwm/Uh2UuQ5A0QQcvxiYm4pvMtnUfSzGq1PvKF0yFwK V38SEH28xwBNNIpNDweWwHUqBSrNkoyQfe1a9AmiEhh9OgMXnqF2Iux33SuG e3dSPcZqGCFusbHLcttvYJYXYCT7L+qTL5+5/SqCH5bduHr9GhNkorr3gJqg CJ6Elg1r/ZggD+c7bj00r+Evn7/u0XcyQWtapRfe8hbCyxPMUwoMzJCICnlp qEwBHHpWfdDIgBnSaHWkVzbOh4uv/ik1yEQ9vH+x81UeHJVOYSSzxAz1XCyK JyjLhb0mDT9RibFABNcT9ODpHPhT8Pe2lpcs0Nqxz8Z/2XNgMR6tp87tLJD9 WyXbeL1s+AjL5BgTKyskMnCK0S0hC3Zci90uMmeFTObsXkROZMIQ69OVqxWo Fc921Z7NhK8TW35vJ2aDCI7YzC+6ZcCxTP2EBtpsULqf2Nrhl3T43+8Pctgg D8E4nh/n02E/5ZYi7120/o9UBDNnGnyFx6mH/yY7lO6YsfF2NgVuiT4mO5DO Dk18fUF4730y/HWdxDJmhx3yiBidpYtMgs39ybOtVTmgdJuh1QDnRFgvmt5L Jwf1M7/RDNMEOOPOnovhIQcEXSR4e0Y3Huak/crtpX8cgvbUIyluxcEly1kU beXHIY+4iAFy/Vi4j1VrUZyWE4I6BhbJzGNgQqTUstuWEzK5J36yyzUavkPy QDa6gxNCzJHbyrFRsCJB5PXAs1wQwX6oEPgQCXt8zlV5F8IFQUJvnONnI2Aj m+/ibGtcEHejmD83awQctvHtV/WtE1CPl+TAO81w+L7FvkdS1QmI+2/8BRO+ MPj9Xeptk2PckEc2KVdXWQiMtj6V9Ro32h8jtxzVguFap5VelyfckEkCUDnY CYSbbyrkuBVxQ4ji3RccRQEw74qulPAUevwf7fZgW384WqmsPISVBzJJ1Lm+ ccUPdlZ4J5OkzgNN/HAVZ2b0hTs6HBgM/HigdI7F4/m7PnBK3Z4VOgtDHsZd D/UWvOGFg0ceW7s8EIGH7JOVKS9Yy+xNRr/oSQiidx0jXPCEuVs1+R/ZnoQI zgfoW//ygNNJft5uzkdz4sT7/bQesPmMX87YzEnIY6GCoc3SHf73e20eXggS raWZQ17A5Z8KuDWMeSFELiX/ztnn8KHGCfGyFDRnjC/ILnCF69LYhb+NoXnG 2vAViaewi91I8JfjfBABE/0zha8u8P8BUkp32Q== "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"r\"", TraditionalForm], FormBox["\"Vlocal\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 10.0563015}, {-6.905756400000001, 0}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6150236175765467`*^9, 3.615023715842307*^9, 3.6150238249697804`*^9, 3.615111446565151*^9, 3.61528116311702*^9, 3.615370573959239*^9, 3.6153716892043934`*^9, 3.617035267051138*^9, 3.6182371968437*^9, 3.6182895091928434`*^9, 3.6183103234956036`*^9, 3.6183107293080864`*^9, { 3.6183125397437057`*^9, 3.6183125398507824`*^9}, 3.6183573140356407`*^9, 3.6193560139703503`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlXHuMVUcZH+69Z+/CAl0e5SWvvixqpUWhlmWhLQootvqHxJg0AsvjCrFI UwixipWzLNTENqiV2DZcbTUmRKuNyl5KEFoKlPrKLWLaUgGtimuliSiRwvK4 nplv5sx35sw3c+7u2sb4xz2Pmfl9j9/3zcw5c2b3zra1K5avalu7cmnbxHn3 tt2zYuXSNRPnrr43Ksr3Y6zfCsbYyYmMX9eiS3loZrVajeVrpVJJXIkfP35S XLJM9aK6blQv6huhntW6KiwsV8VdkBVTq7JyWGFdGTBR865KyHg1/+XEsYGV qzXdPPpVyyGrdNWEtCDmYgHI6K/0VsusJG3Nw7F7Wccu3vzywg0VFohj/gdb f/ibpC0fBzkDxKmolKk2p1dvqdYWhp3Ch4Bf5WoLN3Sy/PklG3fOfunEG1rQ x5KCarUuVikDEVHJ5bZIiBJURILWPP38iaRFd4CgovQlTVHAwkqXwtQWtVeE 0EJtUdhZ4JIjyiPR/Aos5M3uxKEvcsDFJe2d6vfm8o7Oy4sjQYsArWR0fe7B 3SnDdFIC0YX5h199nSOFfy7P5tP5B7nSgMVwKZej86jTZ86JRh/1wr/5vc4j GM7PG5/c+4oP3gBC4iBJ+CvrHn6WZcNaVXP6U44LdNFUuEH8fvnlx/Z7qQJs w+d/tv8YVnhxcbum6iNe+D27Dp0w7V2348AxHxw6enB2+aadGPqdx556kWXE 3lE9+neseusTO45kxFrNnvynv/1LNPqwSXN/u7Hbtv3kMEshDIX9TWMBe/9T z76aFbu2cvA4Nna7GH0yYRtue/kPb2Bsd9vGShzeeTQcxp/g8PpH9mOzV+z5 1R9ZRqzp8hd+uu9YGiugA3yOerW5HZ1Lw5t8jkosJE4hMY5G42eBFjn3yLFT WOTdu19Iiiyqjo8mHf7jKqLZK98L0dYBvxDPiVJDDjQIA9RcIMoClPVaV+h2 o1ou1emGGTNCdACiyuXYH67GxvxAaL9v8+MvKJnnlnbs5HkAcue4mecuECYP tDOv82QOnSeRCoe1dDDn0GlbF1ZAUwgznH5tdLwc2EG+mHzIizVt1qT7sdpm YOjTB178SxoroBLR2H3hUveSjp0ccWlRe+eEU/842zNLN4ipMCPWGMHCaATr 0CPYB2n4YFBd/dKjiRHsU4eOnGQZscLltg4xuyVd9mNNgu16BRRrsxLs10an Qv2W6lTIxtD5Jb1lCHRnsvkKs9uEnW8u3YS6zWyT3St88Zjt1UZHxo+lIzM7 OTKKecI9gxKu6IBJkXgcRy8zrqkHeWqPpxRtnUHzibfKvDpap8/U+GMG3+JD qVRmVb8Pzb7cuB2L5i81/G06ZKFn+mz2ZVBCLrcsejkN4U23gZZHc307zowg kRmlEsh1+O+105atWW3S/SqlzQykQ9sQX6Ru82JpL/1Y2st69IbZ9Q6FPn5w 47ef5/b+7r5vPcdtSMEEChnZteqhn//vkoOTwUuOIxluNRka6vPyVq822ks/ lk4BB3aYIwWymWtPhnrMddGEiX27yHnmgSdECvx59ZY9XCeGwftsclaxDYLD tAunPvvV3WnCZvVIHk2ilOeZGHldQb5u4im5JqdFb+eTahJzl5oWpQu2uSur +eopRKxK8xVmkOkQ6TU1sXgMDzXZTDQTx4gYp9IVseGOZJpF5+BwX+LMNHvL cJ/hM2ltVzqGAwcMGWkfDvxYOhWy6bXHvB69LpoE9EpHBL2cOiLY6sXS5Pix NDn16DXJaTXJGeHInGxG2jOnr4w0sCMcsfTCHLGc4cXSscRYxKkjgvVoM8lx YEc6YilhttdDYuEMeWEPsRTpej2M7m1jqtVJ/HwnRdfxeoiHcf16KFONfhhs AUVqclG0UJPLSF90pLz4cQDNqzYiRjki1pKmV6+ixmJtUkf6ItdCJ0PEbW8c t6VlBid138lqO53/jrTyGunIlOleLE2OAzvaQY5fJU0TxgpoykhzGMumzT6g /XfJsY72XphjtL/FJGe0j5xbMmmzk+PH0uQ4sGMc5HhhDnI+4MXSNGGsgI7x kdNX2mgve6/XDIrEqgU6PHxaNn3wn5A/zhEwQySs+YnR2Lrm9w5fEG8GeZl3 7YinAL1rx9sfpHz82mvs6KHstYdDymuSEuSyrLjL0fK89vXgE2RWU2PRMlTx 0xRsqHKIpuenm83uMxYQ9Kw0jU7jsT6O/FiahHr0ml46sONMf83PmFO9WPoL CcYK6Di7pfqDq0PbeJ+l7/diaUv9WPqjjR+Lo8r3bE09cfJ0GiuggLBs+0Af Td9HK5wACvW2D9NRP5YOjgM70RecKV6s+Y2Z70zLiE19Y+b4eHvZTSbHVwHo 9+sefgYDov5WiTdL3UjrvBrg/16++WkMv4jhk33wRpvJlxaGlS3f3/lSHOkb aDHXQJn+PB52spw45sGZsKL3N74H5MQremIEhZck27vHtVD28n1b98Wy0b5H ZSLIfld9sq+Dsl+E2w6q7YxY9oU2YBFkTwLZ1km1mJpUU6rFzCqdmfTXU2d+ +8VHnjM3caoNVaDw+vqcmaRlH1/7jb1mECCFeVt+fCfI1ivAkexK1avj3eJY xMFQ+ZIMBDCrV4KramORkG0TDWlRfG3N1/aaos8neu+1Ji36JdsmF9K2mOwh IPfHX9/+ay33GrNrvheQikyMTGbG1XTPmGzJXhkU3sGS+5In0nJupOWkyZ9A y7nJkvE5KuPH03Km6GRTzKpExgMHyBlLy4E5J485VnIuLG6vbHxyz1EtZ4wZ oalk/y0ob5QEIWAUbcg07dA/P/OVXaJnBtKQqFcmDRlBy4FH+TzfaK2CxQoO k4bToqYb3mmTAm4S5zjq1EfX7ThwXJvWTMsT6x857qGRSIHDvsEeedY3oDxb vna7Id5u8xTVi9HyYascNIxtoDPwWBUm1qzYDMsYmZNitHlit8MQM4la1BiF 3ro0UQn2G4UnDdgT7M0NFmfAsvQ7iHzHaZHVeAETjWhQPSDhl2jCpcm/3UDX juC34mBJO3KUnwMcEZNzpnVpFr/3TkeeJSZHIAc7HvPCvxe6HSd4cjg+EwVF KSpoxwvYcf4D3xuV79xvPiLyM+ZhfJyN6W+nrdI3YrfuDGWDmhQheDMcLmsC 4zqHy7NQiBRSrCPkLbHO8SMkdv/LC9s78VRnI4HlOA0sr4edWvxhxvzi2ypJ su0tjruzgqhUjuogdwYy22NJz7JApRuxFCBWHgr2hGiCWQBzI6fMJv5gggcB M1H4ffS685rgaTBORPmVodVtVsLqdHcHmprMpyvXCMEwR2j4I1cymnXeBAlm IgLOlB7YBfkzyJ4/6r5bzqDi0SInsqiguFI8QXERF8fppeI90zIzRLSpCcMY 6fWkoLtohknByJwFmgAxbPAr/uNk5PQDPOdC9yfgo4D54Nc5V3GeZ5NiQ7LU aLLEswmfEWtmVZx4B2jn7kKjAnaOweAYiNVKa8TB67PLNsGzX7PLs0AV47Ps QxNsdfx8TvYtyvO+OLOcIKjR1Ya3+C7N4DLN4DDMoCiJ7vGzqcqRLNdstKDn Koqe3p75QuLrdz+429XmnExISVPgoDDfx2UNinr+w/VQXTCraUlE0/qKg7gz RSFVVW4FjWaxCUcmxwOd4288VqFnlkRX9RUPV58cnClnnh1114nMvMuVQba6 viqrp76nbXtyzZfH8dfYvsSzunLKla2DbHW+e4kd2hOs7X4gekBN7r6zpv56 eFRUaY1TXE1UqhyfZd31tjp+jic3qg/0wbm6/tH9+zY/fohqw+bB3N/+o71H 46fLQZYyWEOYxlf6qSRxJVA9db773mDNe5EdTXQ6iFU+8QF1AT801Jc4g/q4 bPBboCNrGTzJNsbJTiS5/H7KLzkcHu50WdycLmvAZcoEQ7QBKZhWGV9x/U2L Nr8MB1LQfG+hLRRUTaG4O/Nr/jHNWxfhfTjXPcf3FMvvTft5Pe5xyS/3/3f9 6G2wDyVigDPOV1eDtTYal0+PCbaOm/eKCHDyx3XgBrx+h2Go1htydOLMtJTN 6uN2w2j192cs+wSIEDcr3/pr/EeO6m/yZJhZYn2xBitD6l8NGGuLUDwAwiKW UvUaR7mslgJjcQI3P2mB+J86FViLslpQxXXNap0quYin2sk1LtCk/4qRMAFE NiFRxpI3MkMtbKrVnHjBHf+hSWNymaiUSTt+sCBWGTOTIPDlcvyPmTKQILtY sqUpuc6EyMdrf7ppYNtMzBKW5HUgo6ZyWNC+ItgQlb4uUfrbihKlVyWzi6J6 EOv3H+Lct54=\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"interlocal", "=", RowBox[{"Interpolation", "[", "local", "]"}]}]], "Input", CellChangeTimes->{{3.614001756103469*^9, 3.614001786591052*^9}}], Cell[BoxData[ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQvWOV4b6MagOHgjPxDxl9jfebGN3Z+lPTyGGpho56 tqXifqmmghXKriYOlrP6RCaVcu034GaOqrIxc9ikFKbHtevrPlM7L51XmhYO EWHzdGyjH+1b/mfTI29HKwfW1M4d1+ac2ef5RTLilomNQ7v+5yTfmO37wssX bYwKsnOYkzGrUYl58T6tS+9Ffxk5OMhflZifrzphn2Nrr9FdLUeHqTM2zfp0 vWof3z9rx53mTg6shxq0D+dU7SuenLl+tZGzAwMU9L1bzj/dyQXOXzjPgaHf 19VBzHzpAcOcvH0+2REBc93c4PJr/zZMWhLiDucvW6NhcijAA86ftkEr7Y27 J5xvW2XbxR/iBefXJJzn9fTzhvMLeYqaq2N94PxY3vzOXem+cP5Drdfv+BP8 4HwZvgq3uFx/OP8726G6RJMAOD/GsFRp1noEf84+A3t/00A4X+PW6m7+TQh+ f4R+oI9lEJzvlFrkNmU7gl8w51FzknEwnF9lFm21dieCfyFusgKzeQicz/jq cv3VfQj+2vmO6nouoXD+0sd5/yYeQPAru5b4FbmHwfkz9888F3sUwTeR3zPt vEM4nL/q4bPre48h+DlGFz22O0fA+ZzPDhvpnkbwlY48TtEMiITz2w0OHzM4 g+Af/79q4ZagKDg/ODZojfMFBH+XLJOBf0Q0nD+X4/7vB3cR/DON1d9ro2Lg /GuxCjnTHyL4OidaBPbEx8L5Mn87t6fcR/ABxejgPQ== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{5.2*^-6, 119.4905243}, {-0.00029450698764250157`, 0.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"5.2`*^-6", ",", "119.4905243`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQvWOV4b6MagOHgjPxDxl9jfebGN3Z+lPTyGGpho56 tqXifqmmghXKriYOlrP6RCaVcu034GaOqrIxc9ikFKbHtevrPlM7L51XmhYO EWHzdGyjH+1b/mfTI29HKwfW1M4d1+ac2ef5RTLilomNQ7v+5yTfmO37wssX bYwKsnOYkzGrUYl58T6tS+9Ffxk5OMhflZifrzphn2Nrr9FdLUeHqTM2zfp0 vWof3z9rx53mTg6shxq0D+dU7SuenLl+tZGzAwMU9L1bzj/dyQXOXzjPgaHf 19VBzHzpAcOcvH0+2REBc93c4PJr/zZMWhLiDucvW6NhcijAA86ftkEr7Y27 J5xvW2XbxR/iBefXJJzn9fTzhvMLeYqaq2N94PxY3vzOXem+cP5Drdfv+BP8 4HwZvgq3uFx/OP8726G6RJMAOD/GsFRp1noEf84+A3t/00A4X+PW6m7+TQh+ f4R+oI9lEJzvlFrkNmU7gl8w51FzknEwnF9lFm21dieCfyFusgKzeQicz/jq cv3VfQj+2vmO6nouoXD+0sd5/yYeQPAru5b4FbmHwfkz9888F3sUwTeR3zPt vEM4nL/q4bPre48h+DlGFz22O0fA+ZzPDhvpnkbwlY48TtEMiITz2w0OHzM4 g+Af/79q4ZagKDg/ODZojfMFBH+XLJOBf0Q0nD+X4/7vB3cR/DON1d9ro2Lg /GuxCjnTHyL4OidaBPbEx8L5Mn87t6fcR/ABxejgPQ== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{5.2*^-6, 119.4905243}, {-0.00029450698764250157`, 0.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"5.2`*^-6", ",", "119.4905243`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( " -6\nInterpolatingFunction[{{5.2 10 , \ 119.491}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.615023845063043*^9, 3.61511146828059*^9, 3.615281163187069*^9, 3.6153705776884704`*^9, 3.615371697883561*^9, 3.617035267147172*^9, 3.618237198171962*^9, 3.6182895092408752`*^9, 3.618310325742223*^9, 3.6183573153115454`*^9, 3.619356015246258*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"interlocal", "[", "r", "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.614001800998825*^9, 3.6140018489283223`*^9}, { 3.6150238982257853`*^9, 3.615023898320856*^9}, {3.6150241219876385`*^9, 3.6150241302434993`*^9}, {3.6183104612856693`*^9, 3.61831046463205*^9}, 3.6183108528540154`*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV13c0198fB3CjZG/CR/b+2B87et+SRAgNu4yMQlEqItmrIhJK5CuhQsmW vN4hUgjZIyIj+2Ov+Pn9c+95nHvvuc/Xeb/PPfcKO14zd6aioKBg22v+36cF OtIoXUo9IpDAmhr4goCnW89oWQj5Yb5PrBP/717jmOtCQtFYLF283/+trP7j JX1PAha+or96d8+39a2Y9ws9xVTW/ssN2HOVxajvrusLTFUv4K/fnimLS8nb 3ZmYvb3JsM+exaq2JDa3XmEvSAXJHns+UYds1wRfY0/v6Ixf3LNbU3j8sm4e Jtx+447xnu93fKsnu77DwrTpf5D2bDF3IHBNrxCbhU01tv/Pv/6GZ7X7A+bN eb5lNJ2A+60aFS1fLsYS7hgVvN5zzJ1546WtEkx92f2J/Z6f78RPkh+WYYiT TKLZc36ISuiCYAVmtBjOmpJGwKtpug/NF1Zi5rkPgzn23BrjVz6rW4XJbrxq vPmcgP9m5j8z0/kJe/5CfepjKgFfTKienXIFLKbm5dDIMwIecl+xbjkAx0jZ 9N4TT/f2bw5mW9b7jKmcktavTyHgj1l+XlhirsEMCy5M+Cfv5TETy1vsrsHq HCS/7Usi4FmPb26QM2qxhEJRabvEvXyd9SfIl+uwAjsbg+AEAl56kCdxQfkL do69WNXz0V5eq8u/57e+YKIBZbP8sQS8IbVSfr6uHtv98p/lg/t7+QcZAuYe NmCKjdOnyqIIeI+gXePs+a/YSNZmyNPwvXocCrhnBRuxf76nXsiHEPCpl7tO M5ONmGmOhub1wL36xkwLpwu/YQteEcMX7xDwLcnMnak737FePh+epZsEfN+V pVNTuk3YYOlFPUlvAs6Yd/zpX8Zm7FEkd9eaOwHnmnsyPtnZjNWffsNv70LA Ja5rBE+4/sB+aRC8x6wIOE/fcdcbPK1YSXcl54Y5Aef3n2VaCmjFjDhbuuJP EXAh/qTi679bMR0ae/q3unv/z6cjNot6bdgP93lqdJiAS12YoLz+pg1zrQ/S NFIm4HK7cblk5nbMyJyW4rsUAVc7+ntlobsdO3ciEGPmJOBaI9HPvbR/YoGH O2oaaQn4kVBl3YWMn1jt3xKq8W0+XP9L6KP5yx2Y/YD5C4VRPtzIRVb9WksH Vk/YfHa2kw83PdA5OKfciTWbrTxtrOfDLQ0kiHNbndjLQjtCYg4fbjvV0uZp 34Ud25rmGkniwx3u3/adrevCegsvsXqH8+FXmr9+mXnYjZkfc7A9bs+H+5u5 208L9mIt+gL7LzPy4TuharxDD3qxeMH1p55LvHhQKWV7+0Yvphp7QOFWLy8e RkjRrfzZh9Ue+bEYlcmL05g4beejfqwhK8UsNpwXjw6SL/kvvx8TFR4tjnXl xWPH6iSiIweweh6/YT8pXpyV59FQwPIAdv+NsrvjAV48wdAmxcthENspGfQ4 OsaDJ78j01ke/oVZCfVy/k7jwTP8BGYl5ocwbgOn+4VUPDhb17I5k/wwdrPW 7tbZ3oO4+TVrhchLw1hVZWbeUsFBvPM/8ck7bcPYVwuedUWLg3gfTZWV49vf 2FgUncRGKjc+2jqprXRxFOMIPmftucmJi10x4X37ZBRzYhD487SGE3ehLl4R axrFqi1OEJhiOPFJ1XsFPJp/sD47/Y5Rbk585hmXEAXHGHa3mZZIlObAVy8d o/5RP46F7WcVilBnw+k2Uhs95KcwCpfk9sk79LhGZO8dQ4cp7GmVqcPhA/S4 G9dBWanEKewN7aqbYSIdXq+UEDu6MYV90PGS7HlPi4ddiTpj/WUay2Tc13B8 hQYvXv+yT2N9GtPybn3FEE2Dj0ZQl3IRZzBF7gChnUM0+LGXgTxtj2awG6ej ZpNP7ccpBnwG9W1nMeIncv1EKTWueOVDrHjcLCah1S5vcY4av7g+j1HXzGK+ F1Q1jVao8GpO98xqyTlseJdvckaTCvc3dnBVXZrDAsNcTi13UeBv+tN5OCTm scTRroSgEAq87/JA44LlPGb4rsy1TYEC14iwkM2rnsdytJ128gR3wX8o25dN bwGTrDZRHvi+DQnZemZBFxYw1umcdYS24Y3nH+n52wuYke+FKY/yLejbEu5v erOAvdaN+CdWvAmLNXjR4boFTN9DIrNIfRPoYi4+eDO4gMXlTFuywAZo8KTp RLGSMdoj2tVivetgOnSYe016z4/1mXrc18Etu2/OWZeMsVG31xtRrUOyCk+G 7i0yxszxkctOaw1WTR9T7faTMc2Q287KXSvAzKPc77lCxoKp/DX3R6yAxFBr 0QDzIvaPSpxooLkC5zyZnSuPLmKi+Sbx06+XwUMlX0faZhGTV/JkkHZdhrCt U9wpPotYQJS6cJLkMhRHRzfczFnEcpk/PCwuXIImU6mMP/gi9l3tcv1h/yUY Pdjge6ZvEdtnOdL9n/4SsGfvk1FiWsIIV/N0Xk8ugoznS6oMiSVsPZVTnO/T IhxTOdbPjJYw32xPMk3iInjX3Hswc30JcyeM7v97chHW2RLz++8vYX701Fom kosQ6JDb8i1rCXtpeD7/7YFF2F9YNV/xaQnbyCYqjf8lwwOKNtbXXUvYvYr4 hN/NZOAwHVNKmV/CpqJiNu4VkeHZiw3zSNplbOXTQ4lXz8iQe0TkibPWMjao FtVA50kGhVi10rNnlrEKp1J1JksylA4adut6LGPEPv/6Q8fJUBdwg1ckfRnj vYmmpwXIMFxZl/aLcgXjKe+y+dO/AK70vdXNfCtYwbuXMlvfF2DOanaoirSC wavBWwpVC7C9ziWS6ryC+R6VGPF/vgChJ2V0YwJXsEMR/GYODxaAPuXIJb/k FWyiZTx8xX8BeNRdsy0aVzDHUP2GXqsFeBHh33BiZAWTqnc13tBfAImuuEnV rRWM3phP6rbqAqjcLJfhlFvFNl7bfTrCvACmRXTvWh+tYlfaJ5Juu89DN5VA K7xexSiyXz7L05qHC+bK5IKaVazFCF9kpp0HD7I16eHyKmZ/9WNDUtocRCnk lRlYrmG/BUWty0tnAd6a4DWC61iP+DjHVsc0nNhy/F2osY69Hbibp5g6DU2G t6n+M1vHAkfTVVgcp6Hv74vj90LXsaApL9lP5ClYlSR/PTyxju1kyI+k8UyB fNbjtuKCDcyEPPsmPmQSOFMU1/DGDcygYtVX22QStu438zf/2cAcVHfNI/gm 4euNA25jfJvYeQqC+2zxBDjq+u9wRW5iij6ZY98XxuHJiCPx9sUt7IvttD45 ZAwCunZNQ+9sYZNvhnmjLcbA8dvzW3FPtjC9K24HXsiOgfyHrs8537cwi2P2 7To9f+BrsKFlj/o2pnVNduCg6h/YFlIO12T9hxkH1ae1UY/CCOePN3rEf5hp pWtm6NAINNJ6tJqd+Ie93o69+uzjCCQtvCJcCfiHsVbYNCz4jIAizvvh2eQ/ rHNSlokw8xucLlIObeE7WEbWmZlT08MwZuLGP6RBgZb8zr5MMfwFnPUeYoF6 FKi8RHCThu8XHNPxlj1kToFEdI+OTfwdhAziHW0bdwpkdnhOaztmEGxpH9h2 p1GgN382/U62D0D753fPf1BRooBqzRfnffqBUrM46yoLJbr9V1P4rGE/KL4v z2Pip0TqX9oOvxfqh4fpn6tOqVKioRkmx6CWPjjp/3OgwZUSrUX/kXCS74Nq lTV+vIkSKf618zq90wOzb7fELvZSoqoLN+BTbw/wi1LI7YxRIr/S3Z07JT3g x0ano71LiaLEj0X/8uwBlTk+u3IlKtR+kva08kg3vMk5kvY+iQr53rUWPt/T Bcl8EYf+s6dGtkvOR21WOmB1tCXH5Co1umjbudrY1QFn8w8qb/tTo810C8o7 5R3Ajl6fsEimRjxf5KRSAzrggXPTNaYWauTH0EhsPtABQe/Za/wO70Oq12SQ hfRP+OVnYyRpsA/VzxmGRjL/BB3drK6O8/vQeWOfy3NL7bDZqTqtcH0fclrv i7SDdvDZsuQcz92HTH0unyy0bAe3Ey9czLn3IwzL0CpKbIN6lsmFXdH9qGCq /wvd3TYQ71X0z1fa87WDsrHObTDiXhNHa7wf/flNuSug3ga28WPl1aH7kdG/ 07lnBlrBdIDIQCTvR7Rjajsv5VtB83r5O+omGuTie1aFbbgZWncPX/DupUF2 +k++635sBpeHwDg0ToNkxcWDS5OaISG3/nIl5QHk513aY2XSDFO/OkS91Q+g btrt9gi8CZ6fIif/yjyATjWYf9t89x12xGSCKvxoUec/H7mCskZI/JAvLxlJ izrUYjY6nzaCDFIaTEykRTaMKEouoBHO22hoeb2jRSHs8i5XjjbCu/gTyxJj tEjFedKSpeUr2O84uiWa0iFZ56XqvPkGqO1ONb0mSY8o9b0XyszqIdHx3PIK iR7V6rby12nVg8ssc0oAokdPjHWpF0TrgZ46ZCjaih6FHv7Akb36BUzl3a5m 3adHMk50tWFpX+BXmMqD3nl69KDwW0vvQh1sKjU36JYzoMuedWmuebXQVBXh /q2OAb0OCXTeTamFdH3EYtbGgGJGPmu9D6+Fo3ZF5y9MMaD5OqvTthdrISrq 6ZgvPyMqzvf06eOoBe4hZ+qCIEZkpi6zaxBcA0oPdo7wGDCh96IHc3o8PoPy 5e1L+eeZ0C1Dl9ND1p9B5cRmzLFLTIiRIxD+nfwMahSrXR73mFDCrV3DYPHP oO0ze/VzCRPKuuShnj6Ew0nbgfQrIsyIZ2tcisESB3vZyp2qLWakkXuw9kxh NTjSlYuZ07EgvYL62xUJ1eA0XmI4wc2CVtmDrPV8qsElozCJTZkFgTS61KJe DR6cr+Vd3FiQD49wygv8E9zeTr7A0smCJhKsc2h7q0B/XGtI0YIVLSgZeHiI fgSXnx0zkXasaJsnRnuU/iOE4Vc3fzmxovIVO5mbi5Xw+Vkm10MvVkR6/Kvn 7+dKOHya3uhvNCt6dMpOk92xEhTKe8v/q2JFUa6Ofto5FXAwxjeBXYQNtd8m J+/qloPabfaMy1JsSEeuUvGxfDmcvZSXj8uzIQ0Rk3Ad3nKIPzL89ephNnSw lnGzc64MGJb0d7+dZUPhzO7n2VPLYNfmoEdoJBviyp/Uer5WChNypXrLM2wo oamErICXgMhdT2fiEhvi9OWdgfwSsG0SC3fcYEMlV8DCMbUEWq88rmvdz47a thlEf90qgcocL918AXZUJy33vUC+BB4IE4+6mO6dEgbtehn/FYMSV4Z2TxE7 mrucflc+sQg8LlnYslSyowwNm6jfoUWQXcQccAJnR16ZvaezbhQBn/ndj8VN 7Ihzrcva8kwR7Iuz1oofY0dP+Atz/TiKoIuWS8PwIAeaJod9SUj6AP7b0aSq OxyINqg7KjenEFp8nBLvBHOg1oIq1dXkQhCa1V7RiOJAUX7xHWeiCqFucL60 5AkHekJZlXHkciEwwjmtd+850MPOAcNWYiGkBwsfzRznQNFPLuu0F72HzzQV JlHmnIjJKefq27R3cIBt8vJZGS607XOGW806D1YjbfVeKHKhywnPyyx082B8 p1VoSo0LxV8S+/1QNg/qZyq67+lyIYPifx7qu28h4ut9vbe2XEh79x5LwKu3 QBOkIEwVx4X6rPK9Pq28AZr5Wz3vlrhQToHD2cSs17C/eb8+wyduFNhRIWag ngOMns+dBmu5kW7CgUAX0RzgZCIFvfvGjQidFFeSWHJAzNi+4kwPNxo/FvJC bjIbjjdXEp8vcaN7To+vqT3LhpDma6xyMgeR8ZTolwzKbKBo6e01ST6IXu1r YPUYzIKtlnyPBG8eVKP9k22oLhME2hxSj/vyoJUHjmXWJZlw7CfXt9VAHnT/ nNPBP68yIab7rqTNAx70qpK5XTAyE3iGjUdEc3jQb3D8rGmYCWrkWYuSAR70 adhOdKb9P/DikNft0edFz8a/1U/PZsCYRQGvgAAfEnw0BDfi0iHb8l+NrRgf +i7p8lDRNx3crIw8UmX40NuuW4wUDukwZT1VzaPOh34VEzq7lNNhwU7iEocp H6qKc1Vz6E6Dbaf0AtoQPnRk/mtaj2gacHjF6i6N8aELrPVr242pcDTqqufX fAIyvcy4/Un/KfB9GLKILSYgWquep6ykp7Dcb3rs7EcCMjpu1Ocj8BSyFUgH h78SECFfnu76Sgowdq/ha6ME9EZsIUonKwW6xIM5Jfn4EV2pqAnT/hRwr338 MTyCH4WSIyoJP5PgyU45ne7FQ+jeVYbit2mJwCj55eoT50Poqm7RAlNsIoSd bvs54X4I8RGv3QgITITrGX/THvgeQr/bZ+sDLyaCyTE+5a74Q6jsca0gl0gi 0ET4W1+uO4R0ptQy775+DL5MR97GSQsgAfLl0Rk8AWz4a40GlgSQvNFP8Vus 8TDlSV4s2RRAGyZqa9FU8eALgk/jKAVRVVfCzdfLjyDJMWDsGIsg6qfTNmXo fQTtuaqBr2UEUQKL2wWrzEdgqJr77paDIHLomgIu9UegZfKQne2HIJoo1rNO aIsFRpw4I3JOCOmOvKpQ7roPI0/Nvt6zFELe142fU+H3oezG7awBGyE0dzQm 4c/r++AoWWub5CiEks4Y+f+6uzcea91M5yWEhknvonIl9sbtogsWYoQQPmER HeEfA+Wb417VuBA65xNUwKgcDc6qmStWssLoJqeYu/iPCIiJ5WK5qyCMKC4f eoRVR0DBRJRUhrIwejwwetslPwJWn16zGdcQRr9UmFz77kdA1I725+t6wqhN TS/byiAC3jR0P7h/QRglBabq5NWH770XmMQ+PRJGcxPqxXbfwuB2oK+50Iow +srrmE21HAJSMwGMkevCSDDOarrzTwj0WAXXz24Jo2LzvIbizhDQUI3R+kgl gspo3q4klYXA+nSqyHlWEZTqELVv1j8E7ljB4n2iCLo7zZXdQxMCgSo0j9cc RBCT6VGVm+LBED71+GdLiwiS7emz4D9wD8K6x75ttYmgLUw2ZW0+EMLq1Guk OkXQ8uTw2T89gRCS3v8+pF8ENV+S4l58EwiB5qKxapMi6NgFAaZfpwPhVuWH k+mUouhUzpmK2ed3wS2m7ZOniiiyzydzBOoGgJEMSy7jM1Ekqu558iX4gdXX a7nSaaKoZo6Ctz/PD1xcWnNPZIiiMf9ZJeFnfhCUGf86KHtv/Usdqm4fPyjm 43y7/EEU/W4J55qQ8QN+Bt6Cge+iKDDJVij2qS/MTIsU5/0TRQYXzvXGB92G h/lquJGDGMrsorMU8bkJEvZSDvmXxFC0iYatotNNqGbno2J2E0MtI2GDp8xv wsLtf7o/roqhYzVExbeKN+HssboGswAx5EGfQkU/5wP83WY/zieLIWWiVC3m 7gN5FJ6/7JvFEGWfbp7htRvw7czLbR9NcZS6WKFjnOoNH8JH+lK1xdH12Lxh i1hveFYmXFGDiSPytImSR7A3XCFk3GQ9IY5mfQWqC129gW70+dxbc3HEUWpQ 9k7FG05eTxoecRdHguTdWq9WL/jyKLrONF0c+fUzvPzJ7AV487UHstQS6ME/ 2vUhQ09Q4UQMyTQSqP4OdUs0yRNyrVljKOkl0KOBojMn+D0hbuJ9ZBerBHqd VHJ0bdYDLlAuhgQJSKDwkTIv9QQP2Fbx8evQlEB36+MuSP5yB83nvi4BXhJo 7HRubXDoFfhwJRg1DUogWqzfy5TCDVQc7b9K/JZAWXNMy09mXaHUCjMN/iOB ZGabZKf6XKHi5L+LatMS6GD2q8jqElfAJfzuZaxLILbCyotcHq7QPOJV7cMh ibL8NIKv9bvApLW99iEDScQeMRfnVOcMAqcwjavFkui6yNQH2WonmPvs/i+2 THLv+2jwtL5zAtBIqXlXKYnCpMoW7v7nBPYSZCMyLon2bytMroc5QSblSwef ZknUnhPj7m7kBJLlNPfvjEuiXau3yUcGHUFRvGUwgkcKFVk7CMXSOILurm3o iwAp5GXTzxd60x4yYvj+UgdJoQNmF3bvu9nDNlePiVuoFIq9oy37wsYeSmXP 8CnFSCGDomy9P0ftQcraoLAmWQrtRAnSTTHbA2OJ6tDYBylUlc3GWXLuInRc YT4s+1cKwdNxnKfDDi51wWL5OWnUwpjnMnrABlh/f3syaimNbDc/UdMvW8PH 6U4NZltp5L5P1AQbtgZ2yplAJ0dpJB8YWtNZbg1A5GFgviaNxv3+MhdesQa+ YC9RpyhpJBTp33ywzQraiMJnmT5KI73Q7RH7XEs4EhxS4iAkg243fAzrDzwP a9rPHQJEZVBY9mpb4dXz8H69hClZQga9Ct558PjCeRD1+uvcJCuDJqcPMPgc OQ+0F0251TVlUN2seXL1zjn4qS1wm9FcBnn9SPO+GXwO3NYrNMpCZVCk1Tsh 47izkHCN/JFxQga9CYtkYvtuDt3Yc1r3qT07j//nWWUO/Kz65xpnZVBS5HBm Z7455Lx/Phe+LIMWklKaGx6ZQxVZX3iXkoh4hEs3SRbmMH4jPYLMT0R5zSmW 4uNmoOV7yqzLnIjkLfN4jzCawUjQq/EX1UT0NaYs8PucCdxqTfOq+0xEbeJb gTY9JkAvlLQ5WUdERM2iT1ufTUAZIpiVvxNRMHNKhccTEwj956pW101EN65l LDPqmIDYHZmIyQUi2rbq0JeMMwaXG+/ElURlUXPAg3wqzAimnSsu1UTKIr4A 4jP4bgCM347FydyXRSG+Mtv3ygxAVr6pIiFWFo1PSJ0zf2kAHqu/mJ2eyKKi kHMkSX8DmInYV0H9UhYd/iEbHUfcc85pJr1qWTS82TRsEHcS5v6OlTQsy6KT JiUvyh30YcGT/UCzgxzSyFgWLlHUg4tmf69uXZJD/A1U71WE9aBFBe+SdpND ohdZt4BND/K2PLMjrsqh9xv6kRuLx8EtulEP+csh5ztbhaslx2E4KyisKFEO mZTRCjIcOQ4/+uconzXIIc/Gl1enzulCgcH3bRc5ebQKRoMbL48C8dd7z3BF ecSc2J5snHwUcq8n/XpJkkcqD0yfvIk5CpmpDviwpjw6fmrkRJD3UXgyuxZq fUIeZZXy7XuGHYWAeDEGk4vyaOFn05+QQQSGvXd5VePlkRsF4yERIQTjbopq 1Cvy6F78D6mNAB2YZ8vRd16XR9hNJUFeFx1Yrzxk1bAlj6SmSI8MT+sAHRND wH0qBUTtJhrxW1gHZAvHPnOwKqDA7imdwQZtuLHxzFiMqIDI4kUxf7i1gSJm v7OegwIKK0BmnrgW8L3texzZrIDiNpqKSvU04PrP9JF3rQrIv+9PG1FFAxq3 HJV6fiqgopETq/kiGuBrNN0i1aewdx9sYOrdVYfu2S26b+MKKO1G67Ovlepg mMKMaCgU9+7XS7rjyupA269QepJXETXR/PNillWDUPvrmc2nFJH5/qBGM6QC yzv8z0KNFVGH0JsZD0UVcElriNc8rYj++XeGJwqpgGEff/Arc0UUzO2xRUup AuxnGy7etVJEasM6/BE1JMjQ5z8k56qI3LnPtbTrk+CTfH3ygxBFFP4JvbC1 UYa1bd6HpyoU0WoUxZbtS0VYWDoVvVGpiA4+daiJSlKEyam74TlVikh48FRx dbQi9PX8vkuNK6JF8iiDgZciVBe/vvqxXhHtm9BU79ZRhDAPTVNihyLaZCny HSpRANYBSw6GeUXEeOyeGKWmPEh9TH76TUwJZbaMSmXfJMJXb69iGwklRN7c vsroSAQ3KYMfM5JKqEZ+pyvIhAivn2zuYyEqIUtW9Y7HkkSQ8bLzOqOkhHh8 1tbs+2SAKC6qP6CjhL5wdGtHHZMB+biC5dnzSqg83qO9mF8aVJ2+nGaLVkKE I0uj7CsSwJ81rlUXo4Ty6S/VKYxKANXYAYnbD5QQ2i2Nt26TgBYXw+2BuL35 8qNbvfkS4HLlR25ukhJS0b1hFOQqASnevZQoSwlFn3b94TEoDpv3Zouuwl49 tbk2aR1igD/n4mlaUUIBDEcMsiZEwCRtUNhxTQntuLZKTPWKQH/aK+L6uhLq utW+o9kkAqvpqpjYthI6/fVS9tp7EZD775xLAJUy+rgvgGn6jgg8e/WkWJZF GX1R1aUrZhUBnwIus4dSyugJ3ZZU7HFhkMK5YkxslJG3VmL4aqwgaPM6pwzY KqNnlNDs4SsIZteLs69cUEZhPe7JZAdBuCN2pjbCQRnZitZQSKoKQlPUo+1q V2XkT0x31h0QAG8zhmsKPsrIc3PL4KycAFSOUJxlfaiMLh6OZXTu5wfj/TOH 2quV0a+lOWOxq3yQOxm6HYwro+6b+VJ01nxA1UToV6pRRi4M/5q39PigPOFU SvwXZZT90fI/OgE+EBF6y27WpIzkhB5N2LXwwqrWlQOtvcpoumolVUmRF9K9 Jheal5WRIIn/m8LOQVjo/1PbKENCVXe/pz/+zgWLgaKfbWVJqFk1wJFQxQXL wo7V83IkVJT34ntBHhesuw6VcymRkGKRqvT6Qy6gWO7Nd1Dfs9QFE3YzLmBl /JG8oUtC2lNhBP1eTlDUrnCXtiOh194uY9vzHHDt+UOO6DgS+swdqZ10mB2a KMXmDeNJSNhxS/CgHDvIuFZ+Y3xMQndLZdpeCrDDH6WJ4EdJJGRy8/aVYUp2 sGxAC8lpJEQltcwz9pUNji0uNWW/JSFKgzYXNis24D5pHVHXQELn0g0H7gSz wo38BYeIRhJip9aWPufDCq3skTonv5NQjav+H01XVrg/WLT8vYWEmvTFn4kY swLFDSann50klEhl/NGLlxWm0nBsZHQvX10Cw5YrC+hTWxCyxkgoZZybvGnC Allus6vOEyRUAskXWNRY4CKJr+DvFAkF1QZX3dzHAh1fb/CTySR0zSxpQT2T GZTk6dc/LJHQkNuLkP5oZoh9nPHTZ4WEziREX3/szQwGF5pj1tdJaPrk0nl0 lBmya51cKjdJaHlmGqlKM8M+6c2jAdsk9Kq17MYRNmZwiH106MgOCYXe45iy 2WCC6iWJjd1dEpJse1Ac+5sJ/gfCnU7Y "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"r\"", TraditionalForm], FormBox["\"Vlocal\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6150238518398547`*^9, 3.615024050676015*^9, {3.6150241224019327`*^9, 3.61502413073185*^9}, 3.615111474871283*^9, 3.6152811632371244`*^9, 3.6153705802904663`*^9, 3.6153716988692575`*^9, 3.6170352672032323`*^9, 3.6182371986407194`*^9, 3.6182895092879086`*^9, 3.618310327839714*^9, 3.6183107292060146`*^9, 3.618312539960861*^9, 3.6183573157630777`*^9, 3.619356015857691*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"localfour", "[", "q_", "]"}], ":=", " ", RowBox[{"4", "Pi", " ", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"interlocal", "[", "r", "]"}], " ", RowBox[{"r", "^", "2"}], " ", RowBox[{"SphericalBesselJ", "[", RowBox[{"0", ",", RowBox[{"q", " ", "r"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "20"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.615023876517374*^9, 3.61502387738599*^9}, { 3.6150241512474103`*^9, 3.615024152072996*^9}}], Cell[BoxData[{ RowBox[{"Dynamic", "[", "k", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlocalfour", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"localfour", "[", "k", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "20", ",", "0.2"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.614001926468707*^9, 3.614001966255221*^9}, { 3.6140032517935047`*^9, 3.6140032524186935`*^9}, 3.6140650646261168`*^9, { 3.614498387286391*^9, 3.614498398361243*^9}, {3.615112944639*^9, 3.615112945253436*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"tlocalfour", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.614001983975645*^9, 3.6140019955859814`*^9}, { 3.614002121551869*^9, 3.6140021475721273`*^9}, {3.6151133866217756`*^9, 3.6151133973804107`*^9}, {3.6183104517398753`*^9, 3.618310451946022*^9}, 3.6183108564085455`*^9}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.016666666666666666`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw10ntMU2cYBnAQxHEJoyIdVoFyKbS19AqygPO8hJG5LQIihRQoMlEKjFlN uYxhM5hcBEG5RpCwMRiXRSIgF5EN2olJgdCNIgwsc4lbiNwG1E7QwMgG592b nJx/vvP7vuc5n+t5efjFfSYmJvH/PbtvctYJa1FN4KVv31OL9sZIKKZNZJnH /dSJe7NBNMSJb2f1CtV3anfnDTHZEpZwvour1o7vzjZRlBA+YF3EUiMI7B7r /LXLDFxvCie5erE33U3ts+ebQV32UI5h1hm/N4cfJuzNTMU03M8C0rsSrx+5 TkXvLehqh7KaUHv0LGH/TkbiuTw79KzhQn8idZtng54NTLb9Huy+fkAt2/Ns oTOytk/qaY6eHQw+y+qRjpvgejtw83XRj9VsqUifAjMVgTddfDdU5HkOgvjk uWGK3KAi97OHrZjepM3IJRXpHQJmWk5ekO4PFekdApoi7QOL+ln0HKByyxih bRtTkeehAkevT3+xfg+9d+DqCafXLav3CNJzhFG2lqlnPSZIzxEW/W6Xf3dF S5DeYehWB/rTd3QE6dFgTXzXL9x2iiC9IyB9HO/8en0KvaPgWdeRVrY0hd5R mPBtHJ+hTaHnBKGUP6sY9ZPoOUPWta8LNT0T6LnAX9OPyryWx9Gjw/BqoGG/ 1QhB9kMHose+Q84aRp8ON41zTz/q/BG/dwUW7/5GXH837ucKpUssY0tlK3pu MKB78DQqshL3dwP1lyGfRiuTsE83GJmXpyqZVSryfrqD8adLqRkfN2C/7hCt 27fSMNeE/8MDBu5ElfTFNWPfHnC6SsBtZzWj5wEpHw5dCAhuwv4ZEGy+PHNZ +b/HgLmA5Lmo7Vr0PCHgQe1nuTYV6HnCtepKS+VmHnqeIG8/pdUUJaPnBap6 1o5hIRnzeoFZ8pOml0E5mJcJuZD598pqIeZlQv1yZP1Yegn2x4RBM0rEP4ul 2B8LeGubMYyrpeix4Pm8JYgyi9Fjg9uCa4bpYj56bHDk2b5ovp+DHhs0xUlG 7ZM09I6BXOEw0zb6CXrHoPFEsrI6h8C8HOBy+hkuZ5IwLwdi+VQrnUSBeTlg XThkKMv9HPN6A/Af9da2ZmN/3tCdGub38EY2elwQjxQ13DrwBXpckC1kx/k/ zECPC+UBmyG04ivo8aDU50zELU0SejwYsRtVWLyRoMeHMo9tKx3NHdfzgd34 a1AsJwzvIx+cLlJ//u1VPObjQ+dLH/Mghgz74MOz789OakQp2J8A3jdWnrVk pxLk/RJA8DdKGfuXFOxTALMNdW3GEhl6AtBUTEvpfQnoCeDtgo4Cm3dj0BPC Xc3BTHN9CHpCoLYdb+I5CNATgsQ/2r2QAphPCAm9kuG0gjDsQwiUV5LTFooo zCsCoeP8VzaGWLz/InAgnh8+1SrFPkWQp7nRl5gqRU8E5XmS/LClaPREUD0o 1EhpYvR8IGSlOHN2I1T1Lx6/kRc= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"k\"", TraditionalForm], FormBox["\"Vlocal\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 20.}, {-5, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6150240553163066`*^9, 3.6150243400554495`*^9, 3.615111712872924*^9, 3.6151132330287366`*^9, 3.615113397808716*^9, 3.615281439512442*^9, 3.6153712326173534`*^9, 3.615371449397769*^9, 3.615372001328633*^9, 3.617035555438407*^9, 3.618237578517769*^9, 3.618289898575612*^9, { 3.618310727944118*^9, 3.618310729103941*^9}, 3.618312540066936*^9, 3.618357657573867*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"intertlocalfour", "=", RowBox[{"Interpolation", "[", "tlocalfour", "]"}]}]], "Input", CellChangeTimes->{{3.6144980751552043`*^9, 3.6144981016539907`*^9}}], Cell[BoxData[ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAWDOytniVBkCA4u1KDUgWwMykKj7a SQdAP8I1Nm+uFMCjpeY3hPwJQLCyB9ggzQ/AeLRYqpWiDEDRU7j4NFoIwJYA q6gUGw9A2HLnK2afAsAOfq98d+QQQFLfCpJY8fq/dJr5apskEkCguqO8Iejy v9m9nhVzXhNAi+Vwhc2q6L/yuHRp+LIUQJPfQm5sJ9q/r9I6g7TwFUCwtwWu Hi3CvyDEMUYeSRdA/Kdqm8trsj+PvIPFO5sYQNoJyZH0dss/o9PFCpDWGUA8 GiuwUrvSP2vCOPmRLBtAllxrwqbt1D/Xz5utymscQL0APYSYlNQ/9rQvC7HF HUBKwRdoVjzSPxOhHiVLGR9Ae5gKiq+DzT/r1X4CDisgQL/FFy0h/MU/JccG R83WIECE4Bbq/ca7P7LHhu4ndyFA++DKH0ywrD++SzR0XBQiQEiERJhX6Yw/ pDt6zue+IkDnRLSzQSCSv9w6uIsOXiNAJ+0lkP4Sor/upY4djAokQGqnXgRv baW/f5SSjeOzJEA4f2Udy9ejv2KSjmDWUSVAEjBdI+4Dn78f/CIIIP0lQOe5 /CvTRZK/LnWvEgWdJkA2LLasehd6v71xafvDOSdAqEFpUaC/bD8l2ru42eMn QIMmNeVgGIY/31EG2YqCKEDhUr6skh2NP3M16c2SLilA1LMcGw2OjT9ZKMQl Ns8pQJvmTd5tN4g/v57MW7NsKkBuSYSW81OAP/6AbWaHFytA0/C7evwPaD+Q cgbU9rYrQC3c2QUaP1S/+883Fr1jLEAWVaV/oDFzv+awljZdDS1A/21uiOPN er8joe25mKstQFqY4ANhZHu/Ov3cEStXLkATfz1PAlV3v6NoxMxY9y5AiH73 0Hfhbr+LV9llYJQvQOzD3B6CM1u/J1nDaV8fMED2a2DSLqBCPzEOFlLcbjBA CKQlUQAuYj8o+bSkBMUwQHRzCWvK22k/36Vq5pkZMUBHCn9CH9BrPz9anNl8 aDFAVAL+eLRqZz+LRBo3C74xQHJLNcRW6V4/gTYURucNMkB+cRaGI9FIP2Ne Wr9uZDJA0vm8A4hmPr8FSLcnY7kyQE8Q8wn2/1S/UDmQQaUIM0CZYHpy1Epd v4hgtcWSXjNAuRKx1qaSXb9pj1b7za4zQKdcW+4yrli//N+Y+v//M0CPLJQx 2fZPvzxknJE= "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{1., 20.}, {-5.570363207597097, 0.3270050905825398}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "20.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAWDOytniVBkCA4u1KDUgWwMykKj7a SQdAP8I1Nm+uFMCjpeY3hPwJQLCyB9ggzQ/AeLRYqpWiDEDRU7j4NFoIwJYA q6gUGw9A2HLnK2afAsAOfq98d+QQQFLfCpJY8fq/dJr5apskEkCguqO8Iejy v9m9nhVzXhNAi+Vwhc2q6L/yuHRp+LIUQJPfQm5sJ9q/r9I6g7TwFUCwtwWu Hi3CvyDEMUYeSRdA/Kdqm8trsj+PvIPFO5sYQNoJyZH0dss/o9PFCpDWGUA8 GiuwUrvSP2vCOPmRLBtAllxrwqbt1D/Xz5utymscQL0APYSYlNQ/9rQvC7HF HUBKwRdoVjzSPxOhHiVLGR9Ae5gKiq+DzT/r1X4CDisgQL/FFy0h/MU/JccG R83WIECE4Bbq/ca7P7LHhu4ndyFA++DKH0ywrD++SzR0XBQiQEiERJhX6Yw/ pDt6zue+IkDnRLSzQSCSv9w6uIsOXiNAJ+0lkP4Sor/upY4djAokQGqnXgRv baW/f5SSjeOzJEA4f2Udy9ejv2KSjmDWUSVAEjBdI+4Dn78f/CIIIP0lQOe5 /CvTRZK/LnWvEgWdJkA2LLasehd6v71xafvDOSdAqEFpUaC/bD8l2ru42eMn QIMmNeVgGIY/31EG2YqCKEDhUr6skh2NP3M16c2SLilA1LMcGw2OjT9ZKMQl Ns8pQJvmTd5tN4g/v57MW7NsKkBuSYSW81OAP/6AbWaHFytA0/C7evwPaD+Q cgbU9rYrQC3c2QUaP1S/+883Fr1jLEAWVaV/oDFzv+awljZdDS1A/21uiOPN er8joe25mKstQFqY4ANhZHu/Ov3cEStXLkATfz1PAlV3v6NoxMxY9y5AiH73 0Hfhbr+LV9llYJQvQOzD3B6CM1u/J1nDaV8fMED2a2DSLqBCPzEOFlLcbjBA CKQlUQAuYj8o+bSkBMUwQHRzCWvK22k/36Vq5pkZMUBHCn9CH9BrPz9anNl8 aDFAVAL+eLRqZz+LRBo3C74xQHJLNcRW6V4/gTYURucNMkB+cRaGI9FIP2Ne Wr9uZDJA0vm8A4hmPr8FSLcnY7kyQE8Q8wn2/1S/UDmQQaUIM0CZYHpy1Epd v4hgtcWSXjNAuRKx1qaSXb9pj1b7za4zQKdcW+4yrli//N+Y+v//M0CPLJQx 2fZPvzxknJE= "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{1., 20.}, {-5.570363207597097, 0.3270050905825398}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "20.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("InterpolatingFunction[{{1., 20.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.6144981038165307`*^9, 3.6144985469025435`*^9, 3.614498680034462*^9, 3.6145105505602565`*^9, 3.6145110709239273`*^9, 3.6145164460619793`*^9, 3.61458478936522*^9, 3.614795399126998*^9, 3.6148543248878675`*^9, 3.615024798346801*^9, 3.615025963017626*^9, 3.615026152393068*^9, 3.615111712985504*^9, 3.615113292244794*^9, 3.6152814395604753`*^9, 3.6153712355314217`*^9, 3.615371452609049*^9, 3.615372001402685*^9, 3.617035555494466*^9, 3.6182375785708075`*^9, 3.6182898986386576`*^9, 3.61831072807321*^9, 3.6183576576219015`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"intertlocalfour", "[", "q", "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"tlocalfour", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6144982201238685`*^9, 3.6144982782460785`*^9}, { 3.614498438149434*^9, 3.614498438821911*^9}, {3.6144987157167435`*^9, 3.6144987310416117`*^9}, {3.615113423961282*^9, 3.6151134395403624`*^9}, { 3.6183103474266343`*^9, 3.6183103839636393`*^9}, 3.6183108589803753`*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwdWXk4FN73FmUnWSJblsFYhllESe5pVZIkZC37TqQk+5Z9REglssZHWbIl 4Uq2hMJUkq1EGykkpPrN9zf/zPM+957znuW9x5mHrMNZE2dWFhaWIjYWlv99 3zNdm5gp4ACW//8It/4lqEQ8vMQJKVeebjviK9iaUV2urhTHCWd1vuXvshBs VQHKWEYGJ+xeujB7CARbza136vhWckLjXbT/gYBga2XaoSXFaU4w7K058bV6 S6vdXwe3DGMuaJ16+zh6XaD1yets47NK3MBebmQerr+5NcPBbOknjRu4O8/Z jMlsbnWZ478eAtwQMDka5LzG38rNFjWRYMkNO1eHZhfK+VuN1d18ipK4gWM4 WuL3Vv7W8RjN5Dfz3PBSO9ss5jtv6xqlr2t/Aw9spe99EY65W3ubYj172nkg Q6yp6kYOd2uuPmw+McADYxUErZfB3K17bWvMT3/hgXNnU1WqdnK3xsffmA6U 5IUO98uZ32q4WrdOOLNVRPDC9eSwE6ZVnK2U5L96Ykf4gFWCZ7Ksmb2V6r7u VG7OB6HH5AmMW+ytmofWEvc58cH0uD+vdAh7qxbL8iuvcD5oHAihC+1mb9U9 P+fzuI4Pcsec7kY3bmo9bDOa6yHHD7daDxA98cZWO7XGv02/+WHT4ZVvze9Y W/VndCbIpwTgmG2SD3X5L3YZYszG2QpAaEAj+UznXxzT6rM27igAu5/GXqi7 9hc/vlkgQvcVgKPjP/rGtP/i3ce5DT8nCICC5FyZWMgfrNHwpiG/SQBY00xu 8fOuY9HEwKuCclvA+rN44CH9VfyRVH9waXYLnD98OHkfdQnLhXo7qy5ugcjO cwfGeJewTS/hssPqFhjpzrK8+XERv/BIb3+xSRC2x8wMBeUs4sYS3/3l0oJA WFW5/px7ESfLqu51MRYE83/f3976+gNTRPJ0h2sEIamyNkskdh57OZ2y2dwo CL2khyf+7pvHd2r4Qw61CoKIj5EugWUei5uEPqrtFQRjhc4EpeBveOMVK520 aUFAbEqmPOfn8CtOkZ0GokKQTEgX2+f3FQevJ9CagoSAPjtE/Xf9I+4/75gR FCkEXguxjX4WH7HMnO7PnfFCsFe19p2q2EfcPjZfX5cpBIjTWvLi9RnMi810 KquEwInytdD91jTOjZTdWzAjBMLHsze23Z/Cj9kfGsWbCEMfKTIkWHgSC4df rTxkKQyXOYrq2RonsMsvT4FNdsLgNudwJuvoBOb+JD0Y6S0M9qPdnca+49jk aYxZcLwwxIYS96ziUfwhydjGp0UYGOEv9JMuvsEcWz65m6qIwOfkggHzPUN4 Oc7m4G2yCGh0qVFUPwzimb8vZL5oiYDAgbab3kmDuHP24evw/SKQPUHR2PN2 AMd2Jx28ayMCp6+KDvFEvMDsERqyrFdEQHjrLm+R5meYfT5guHJRBHgsBioa ph/jZeevNWurIjA2Lsteefwxnhk9c+Ugy1YYNzU9FtnYijt7Dh96y7sVLooJ hvoqYBx7R7yWXXErOFArnZ7dbMTsp1uu2FpsBRMnP9nxV/fxpr5N+jzNW0Hm 6503i06XMK/3LcexJ1shL+Dl3paz9liYjxZR2cM8R//MVE6fQYRjdg9PDm+F jJ1WevNGMehAX6PqrcWtUPYmqHIj7SaK6jsrQFIRhdfxj1XsLt1Did7spH9k URgupDpcNatAV/lyjgxoi4KQtOhnNbEqVHCsJ+rCQVFIzFkfaPl2Hz3uI/xs thMF1WNpy2JxdYil/80boyxR0M0eW1JzakKcPr7LMrmicO4Hy/CcdjMS4OcQ WiwShR2MvamzXC1IxkjTMKtaFJo+HDHNL8UI9ae0TPSJQrL1m2Avt8corH9/ oe9GMXjP290Y59yOfveXe131EwPFhYgxrXtPkfSAffaBQDHwcPyZzLryFO0b EulZDhMD1qdzAaz7e1Di61Al62Qx2J59tqXgVQ8Smzz2Xr5EDO5Evr0YvvQM af2YO1U3KgYq9ZbtHTz9yGoxP9Z1Sgx8xb8aOB3tR6E/zeq2fRGDWktW34OJ /ah9tVkw7JcY6CVN0Qc3PUcnWVP6Dglug0slFu/Ulp4jXyH1/cP624A3S1H0 wOsXKEPkvV+i0TZokroybPrjBXogei1P12wb1LwMecPLM4D+Svz9k+ewDS54 rIic3zOA6IT+BvfQbTAm9WFMOXcAVSlGfZSIYfpX+PIvrG4AMYhaW/sTt8Gh iGuWYb0DSJKU60+9vg1sWhc0QlcHUNkOH/Xf1dtgsq3HVct4EPVry9mWP9wG vXKp6sLOg2hh16ukM63bgJL2pSrn0iDapaf3+UnfNnjgW0KqzR9E3Yf4i5I/ bQM2aTT7fW4QTZ+q2CYtLQ63j74sbggYQncs/rTZEMQhkaiy4/jlIeRmaeiV rSIO3JMN7jnpQ+iL1ZcWMW1xSGd7sGZXOYS+2yo6CRmLw2fpWwdjp4ZQ9ekL fCbm4uA4qBD/dn4I+Z9pr0+1EQf5suOTn34PoWU7By5+d3GoLak9xS3EQOuO uRWcUeLAd7XG4Y8uA7U4zZ3SjxcHueNlv3oOMVC4s+6G2BRx6ON4FXjSmIFY XUdOsmWLwxTptW6WAwO1uyr/2ZsvDsfWKWEnPRnoslvgnYgScdCP7y3t9Wcg To+tq39qxGH+5rP6X9EM1OPhXKDbKA7ZUXXXy5IYKMmz9mhwqzgMff5sJ5nO QPzeJrkrveLwZUU3Xy+fgYR8U/YvTjPr4fq6N6mRgRi+Y7OUWXGIuWHXu7+V ga75qV3zXRAHtudH7rV0MJCYf8+nub/M++z63P+eM9CI/7arapskIM19MraD wUDZ5912e/JIgNjVD5PGbxhIOoA95ZOoBBT91FZpeMdAkwFm2krSEnAnjVcs c5qB8i8WTToTJEC+znxy52cGIlzaR5siS0CKqfmfV/MMNHMpbVRWWwKKNTM8 vi8wUEnQ5GW7PRIQ8Yy068NPBnIL1tC4vV8CMlr3zOetMJBKSNjw2BEJMD/x qEvxNwPNhvRFShpLgPajnD8X/jBQeaikqrW5BNzbPfos5R8D+YR5Mm7YSICS gI+334aXiBzeGDrsIAGSAQZS0mwv0UI4l5KouwT8K3PbmrnxJaqJsHhhdlYC 9s/i9FebXqLzkSWXMi5IgPVF/Rfv2V8irahluaFgCWhMWGZv5HiJVqIO9m6J kgCGXfs5G86X6GF0xgXjeKZ/nVKjHiYOipmSvpIiAewnb7xk43qJdC9Tu/sy JGDj55R9XEz853KkH2+2BCTtingxwrzfEvtC/Gi+BPBFOTUGMnFE3Pb2hBIJ +PuPunuKybc33se7u1wCBr6/p4szsXj1xKmUWgloDfhqxMGMb+mt8T7TRxLQ /LXIs4GZT9+mNjXxNgm4pntUQ52Z7x0NmuhkN7N/5uLTbsx6RFgWbbjzXAIE FIyG3Zj1sowWmfV8JQGG1+RM1Zn1pJbHvqKMScDNa0OFD9cYiPf1r9ZfUxLQ KZgjyMPsxzSL+93mLxJw+1fjVzlmv1pURjKjf0jAAsU9aAOzn35hTR6b/0mA jpXLtNBXBjIoJZm93CQJw389K459ZOphMBdl80qC31cgGU8x0CuFSGElcUno 39nWWD7CQJXHF/7OykgC/rv5KNcrBoq/5Pi5WkkSjM4pNZAGGGh338EWvR2S UKi2rDrYyUDCv+pLN+pKQuawUa3JYwb6JkNM79knCeHrNZI5jxgo7zy3m7mx JFwLmElNrWSgoNxgE8lTkvCNYiat8x8Dneye1X1vKwk3NISuVBQwELvk8y0+ npKg24SlVjMYyPNJ+qPLsZKgXFjBLnmRgQ7MbbxzlC4JEaseHfJnme9BNCB1 S4YkvFFc915xYaAXHhbOOfmSsPhiIpzLnIG0BKU21zVJgurX8OYBCgNt1k1Z DXoiCUJR9e/0iQz0yfnfFPRIwv0Y/eVkaeZ7e/iuofe1JCDILFTmZiAW+zsO HxYkAZzVSBsmhtCbRNFjZauS8HChL7h9iDm/auO1fVmkwNxzSNO6ewg5c3ry rvNJQUXzbqdN94dQT6VGvZCyFAweGFM9HTGEMv82cO0/IwWWvXqr90SHEK9S h0+msxTsjRtmGeMeQjHHB4Y+ekpBq+CD19/+DKJzeZ9zkgOlwK1Bc+3h1CAy 2idOfZUmBZ6cA/vWywcRe2ywlXu7FPTSrA9oo0EUyKd394qyNPQPd5kPHB9A 8zsMBN5rSMOc4zlrYRhALqfNL2hqSUPYkZcfgTyATCt90Jt90sC78wFz7R1A lBO3h+RspMFKI+1+yPMX6EsGy3pdijSwOAfF6x15gawlnxiOLkpDh/mnH79t +tEX7x8LdWvSULU/JzxqRz8KxNtvXNmwHU4dXR+Z4etH1xxCpvdt3g6svlNv jrb0ocHSHWH/qWyHVf9IwWypPmSwo7QywH47XHI+3ijw6hnSMaILbnm+HRIn S8qJO58i3lbVWTkzGVBw4+Q78PsJen/jRHe4hQxM8JKmbAafoAf+F4tGrWVg fP6906X/niAHpSc21xxkINL412LzKeZ5ilUfl68MbG26sHyrpg052CZUfE+U AVHDvYeXPR+jhrUZ35ZWGbgrKzWX2NuMUhi8xyTaZWCScDmfM7QZOVZQlQO7 ZGBX8IBKNakZ8TuEvaP0y4Ck7GaV0itNyPGpiEnxWxmQ6+5IyzF/hPivH6Al L8vASa/4XoNvDch5R8FPSzVZeDvJ9/i+QS1KTBHZHKohCwt6Pz5d5qhFFR/j iXlUWeiUfMByo70GLd84az2zUxYSWI48jIIaFP9X9/G5g7Iwu0mTHrO7GpV1 vU5OOi0Ld6pqa8z3VKFvlnyE5lRZsNicbjE6XooEayL2TKbLAhvfSW8191Kk xbtkzpYlC0Zb7lN+Lpag8JaRhCM5shD7KqPhBlcJEpAvnX/5nywsjX8X7NhZ jKiz+x59a5MFk9mqXqfKfHQxLNBE5qcsBKr63ffdfA0RZ0N441ZkoeOfUlMT LRMNW0Z2zv2WhZ9Os/R4ywy0c0eiziNWOejKc4mJvXsVrXzNljMXkIOCo2P7 avpTUJAlXkhSlYMPP0yk9hpHIZWuJ/cW1OWY+wG/qHR/BBrR7HaxpMqBr+W7 vE25YWi3wMCI4i45MFGZTm6rCUTrne/bHh+SA/6nBy8kHvdAYZrs6b/s5UDL cd1NLNceqxdwHzvtLAfGd3yzWqdd8PjmzRwdbnKQqnJA8aSUF0ZfRYOvnpWD fZNXSuhUf8xSoOxICpUD4pT9ey9aKI7afIzmeF0OWt8WbfbdHI8vf0kf6u+X g48sV8M/ncvAMa+ne34PyMHoR/PdZR+ZuF27jfhSDmITuN7ut87EUblvq6Le yoFdimLnqt41HGYin6L1SQ7EcjsMjq1k4YDG6sO5G+Sh7VkXVzAlG18o2QjP NsrD1mBbVoX0bHw+w1x7hUMevEnZ41cXs/E5nzUFE3550CP92VtXdQufldvH xi4hD0bX39X8kMjFbokDzd6a8mB/VP7zdqs87HpRvu6mtjyYrJ1rSQvPwy5O F+516chDzq/OjaeL8rCT3rZs2b3ycPqS+XXu2Txsv2AX+PKYPDiP83Uy/POx 3UT1WdYT8rB4IIh/dwYT92501TCVBxlqnsam2nx8+k6pWYKVPOzVXax8+iMf W1l9p+5xlYdW06p0TZcCbKm/T8XDg5mf5lTySGQBttDMkM3ylof0oZjOuVsF 2Jx/p8APf3l48vlbhd1AAT7ZFj5XFCEPys0W6AatEJtUDnwYiJaHgOHfij0G THxLfvRvrDwwvrTV+9kXYuOArh4LOpMvNStKmV6IDVU2l/LelIddV3sK3McL sWX32VLlHHnIuB113/NHIXZxeVF6KE8eUqPuUBfYinBEQdp/EXfkwfiY8N8U pSJMh4X/cv6TB66LxyPv7CzCN8dNyhrvycORteFPB44U4Vpx4btL1Uyc9vCV mHsRftxw/u6Wenn4M7Ph2vHAItxv/vKu+kN5kBUPvrs5rgh/unrtnhuWh9u3 3huoFxZhSZ5tFaPP5KG3/EHg8ssirPzfpYrVfnkwTWxgT3hXhLX0Ryq2DsqD uGFl/3+zRdg4OrvSeFgeDNnsw65vKMa2suuV3m/l4Z4O321XnmLsgW2qEsfl gfo2zbNLuBjH/Ja63/5BHrLfsgftVizGaTfC7r/7KA9+oZ+WjNWLca72xP2/ X+TBnPcyfXVHMb77ElVLfJOH/cpmkzv2FOMG/7zqnT/kgXZhIIH9QDHu2LKh xmxJHrannVP0MijGg5X2Ned+ycMG6fsmrsbFeParXO29P/Jwhf/zMxnrYrya EF37lIUA+XN6FqtnijE78UPtDBsBLpcZZdY4FWOhzgN1bBwEOF7l2rrJvRjL OBXXyXATwBVnf573KsYkVvb6PXwE0Ly+LnPOtxjr5LnUWwkQYPvv7IBk/2Ks r9dVf1GIAFdKk9b0Aoqx6ajSg4ytBPhqN9aUEFiM7YPiH9zfRoBbHwr6vIKK sY/Y5wf9kgTgXJrT/RRcjIPrjzR83U6ArOMvxNdDinG8aVkDpzwB7j+wvlga WowzF7gfKigSoHk232GOiQtSPR/uUyYAobJ2toeJK9V7H55RI4AhLlbYy8RN vWqNIRoEyB2LlTJm+nvqQW+8QSVARI/7h19M/lec3xrrdxDA+pBd4s5LxXjq jtGjoZ0EuLYlZLvgxWL8/UDlo++7CXBjtr8m5nwx/vN+cxMfIsCzLI9TqX7F mDvSt0llHwEyhuzEd/gUY9HtA036B5n+7J7w+nsUY0IzpdnpMAHi/xbqGbgU Y4r11ebIowSI8RFubbQvxnqrC825RgSo9VXMb7cpxkezTrY8OkGAyI6vP1xP FWOLHbUtw6YEOEkKaCs6UYydh4Txz1MESHN7LRd8tBif87uABa0JUKgtK/+V qQd6uVaroT0Bxq/W7b+uVYwV7Yj25U4EeFG0U5fI1FeLoDgrvxsBelZlHR8S ivGpDp5CH0/m/UoeRX1xZr4X/+x/7kOAuKukK2c2F+MElfkPGucIIGVgHbZx YzGWG5u8nHqBAMthbkPaK0XYdF9714kQAjA2+KqfmCjCc0t1btXhBIjN27Kk M1iEY0tKuISiCTBi+y63sb0IN/AmHWUkEKDzpaV8dCnzvb0+8dw8iwC6hJcO 3p5FuC5hv++DmwRIkeXv07Euwka6O7aI5RJgT4SgRLkBcx7ki518U0QAIbbe d3HEIvzBc+KVdTUBlOOJmQaThfgei/e4XR8B/vJmsD/fW4gP1pwOf/yCab+l K+ceqRCPOxvLyDEIsGr2yubotkIs8IzmMDXC9Ke8Y75vvgCfz1ybdv5EgMGK ovKFGwV4t0r8nAebAgywDLwSnsrHPScL18/vUoDzf2N6bI7m4erL70eydRVg mfKs8h0lD998IPuwDSmA2MbO4N1iedhDIu+CwCEF2GmoazzRfRtzTd36dtdE ARpv+X3q/5mLD5+7NvneUwEkqVqDvyEHd6QmtBvnMs/l/U9F5N/ArX1nk9XY FKE3RMZH7Xka1hQGnix2RfBOf2p2gJ6GS60EEjdwK0Lu+Nx4wNE0fOVjVdwr AUX4Nbo4pdKdik9vWIiKkFaEcRYBndTLV/C65vlLjF2KUKLT8/rApSS861ag S4ivIkh7/NpXFRKN770/PD3jrwiNfiLVretRWEZ5m9OJi4qQI2ftsTE0CnPW P7RXDFMEMm+bJCUsEg8/X7N5kaQI3LnBd8fZw3EAW+hJQokitGm8Xl/Tvoir PSKhd0wRuqaeKx+2s8OaDnbdiu8UweMFIfemhi2ut0TGkR+YfMYmdLZCS/zw 8J8zWl8VQS81UtQsywS3Kl4Kz1tRBJY7NeT291Tc99635byQEgy9dN/wnscc GY0cP/R8qxLcF2lQ23PUEr0YUO9XFlcCq8iFR2UxNojROjs2LqMEwxHEonvn 7NFIrtufw+pKYGw3ulhU7oo+WdnpSh1Rgt2O3eTq637IwwS1XzRUArARyAk6 fA7NHpE2HDyuBNt0ZX7WLJ9D8ztHrePMlaD+S/laotF5tLzVIviHoxJsuS1p dXA2ALENHW/sCFOC11qEM0+mgpH0UbTTp1YJBpFyiMPlKPTtseeflAdKsD9u wx6BziiEd15vq2xUgkO5b4VU2KORneIPwx+tStAfFu9wMyYaFWwotD/fpwSa Hz0ldwbFIKUG9qSgGSX4q5va1XQoFq2o04yzPyuBbSAHl35oLOouPiPSNKsE NenHRqVrYpFHesPtPwtK8LBiV1alZBy65+NRG/FPCUJNdv7a/jEOkRX6x2LF iKBq90ND6FgCYrm1VlAiQYTrmxoJ3gEJaEBQya1bmggd73/Kc95OQOdYIha4 FIggeW17+4ZvCajuLYWDTiFCt3SxBEd0Ioo1Od1brkmEVOy35HUnEZk/TUzr 1ybC3G6HUeGniWilfkpCQI8I6ds4bFR5k5DO1UxyugERpot7ygISkhA3V9vP mmNEcLKXoX+/k4Tehn9rZBgT4dItg+jyJ0koxFv/4NZTRNCdOk/6sZaEDD/4 c2tbMe1F8+UCRZKRlHXe81O2zPik18r3aSSjlsOrljccicD5I5Gr0C4ZpWCF 7Y0uRBivWV3ZEpiMzmiZfBhxJ8LE/aHjAfRkxEK46yPpS4Sb11OGhOuT0f5/ NtG3Q4hAG0v0/fg3GeUlin9miyBC9kyTZocAHa2LDBu5RRPhKbnO/q0sHdWr nRSnJBLBTv2HYdNeOhJsEIjIpBNBYcf9+mRjOjq7v396NZUIcfLkybzTdES0 OnK/LYsIo7aOT28H0lHMNLuoUjYRtP6ka6bG0NE73/aQpFwirKiE1D+/Qkd6 65Hv5/OJMCAwQrC/SUc349Bh02Ii+A97mukX0dGy4J/yhlJmfe/OS10up6OT uY1CUveI8KlG3lSqno5463ZMTFcz+8GdaefWQUduzM3RoJ74v/83vZfppaOO Z1VlFQ+JIK16n4gG6UjulI+AUDMRPlYEcXW+pqOw96oBF1uJIOjgbtUwSkcj 3p/fvn1CBFOf3T/E3tGR9uqdvdBFBIc/FYVfPtBRRoxTSVEPk29nlD75Ex19 3yzHx9VPBNZbNaUzX+nIMHvinPcAESqddY88/U5H/ynmDA8wiPCQ9x1F7icd sVdb6WkNE2Eo82DN/AodOewRK7r5lgg1m/ilyet01NL9kuvfOBEE7Mfb3v2l IwnT9LOO74lw+57VAuuGFBQ4Yfyya5oIonOKf9JYUxDDg3+32mcikJQ+0uhs KYi8/CwvdZYIWWfQxwUmpkcmsP+cJwJ39pDrYyb+wqvvZblIhD3j+uy/mPaH rm8cbF4mwgwJhK4y/RfIt2nLrRGhMcVuIvUfHf2rCM+J/UOEs5uOPfrBjM9G Zw/bVxZlaLz236/qVTpq6FhzO75RGU7qi08PMvMTPtHQX8OhDPMS+xnHf9CR 3+gFTTEeZdi3rVuEOEtH/a60myH8yrDxwLE1yxk6Uln8/m9yizJ8zQsYnJqg o9iwCueDIspwT/PTtyfDdDTF5fXsPzFl+M12KG/lBR3dkvl47dx2ZZB1M99o ielo5W7R+is5ZXBmP2ERWUdHZtoODrsVlYFvsSv6VxkdVbdt776trAwD1DOv H96mI36jMdJGkjJ49TQWdqbTkcebm+luZGVIbQnbJRlHR11OFqu9NGV49p/s 5sOX6IjwXeQMRVsZuraFr5a70VFE8FB7po4yrJWVX7E5RUej7Gkqa3uUQXsw 3dT8IB3tumqUenqvMphtFHuWQ6WjhdKn1kqHleG+Tcbwdh46cnqFFxrMlKGi OK1TqzYZCbzryZyyUAbC0HRAQG4yevT15U5+G2UQ1C6WV4tPRoIbZsMcHZSh +qdO7garZIRVxXj4zypDzrUsg5RfSUg80lfeMV4Z3Mrw1hWJJNSZFNxJT1KG KxxdVcl/E5HftVj3hhRlUPicsvxgMhF1371VyZepDL+Sd9wfKUxEAa+6dzfk K8Nsn0qWjGIiGlCVNeV7pAzG3/qz4sQTUIiW2i/tFmb/pNjsCn7FI+Je7ZsO j5WhLJ79ui8jHoWZH5t80KUMcuQjRHV6PFKLvOTlwFCGsDC7cNvfcSj+1UDM gzlliGabq+XujUV6kVF19jIqcARL9u63ikG/dG/Zh8irgD3hfjUnLQZVrdTx ZSmqQJV1tV0OTwyS9/3s3KumAusqwENrikacZ4y3au9SAd0aT6c18Wg0pCt9 kdeEaX9bJOB4fyRyW3m480G0Cjj+lx0mPB2Krp798Yj3owocoB048ajKD71G tzg9v6hA7u11BbqBH5IU0Dd7OqcCI/W98xkffFFJ1a1vl5dUQGzze3+Dbb6o 6Ye+7L8NqrBf4IjXELc3mvHPjf0hqQryB/f3PBx0QTqBR0+8MlGFHkYoKbXd DIUfXs7RNFeF9XZrww8nTFG7WP6Xq5aqIFyokbl30gQdf7gcfdxOFRgzFf2c LMbIaS2/vttbFTwvx/G1XzuAUkJWJB7Fq0JpzcL4J8SP30cUz9xuUYWriRs9 Wd1P4YAXOb7tj1VBaLDaaKjaAnPLXFv71K4KwdkZ7yR/W2IqjuWnPlOF8G5U OBRrg6P/uGq1v1aFLD7iHr92O0wIUon99F0VzFPEDfkznHHDUzkBviVVuL+0 JSWb6IINt0ncpPxixn9gz4HhRy74fANPRdAfVcglmTN0x11xx/LsS15uNbhf 6fU5bNkdu/hXKlDk1UBSOFp5/pU3XmsrqTRTVIMNrxLU+Y754BTBvF1BymrQ 1DmQNP3YB9ffTz32REMNyB/X3g6VnMUc3/0umOmqwSjrQfPYal9c6qXZcclM DUwcyr/xm57Duk1qx3Mt1OBsJV7suXwOv+BReNNmrQbLKzl6Gx6cw6tlInM8 DmpwzUp5dkrUHxt8XhbO9VGDy42RcuOv/PFX54dObXFqUKPJUC2BC5i3Z98V lSSmP8Ottw+cvYDVmL+vrqaogctBB5HjORew1/I4v2OmGpwJNDK/++sCno3d +JCtUA061Je1o4sD8GzJcb6DLUx/6MK31umLmJf3jXb5YzUIev3IQZsnEKv5 OjiIdKiBfscMuyQ5EHvtvPBg+pkayIOMCjkwEM9137SPfaMG4sXuAlqclzA/ iZD8bVQNPhZ59L1UuYTV08rrzSfVQJ3odu+l4SXsY9nKo/RRDewXtjV/TrmE v32erutaUoMZQn4BP08Q5jc6O6mxogYOL/o/WRGDsHr1Cvf132pA9wtWmT8Q hH2CeOzcWEmwsV+QPhUchFPGMxJfbCLBiMLpoj3XgnDFPum6nVwk8L/3uXCo Mgh/46ZwcwmQgD086nDJJNP/2UZNPyESJLh+nxr/xfQ/tP/Mm60kmH5wxvQQ fzD2yTav/U+KBLufsuVf3xmMU/5NjG+RJUGr4g3/UMNgXOHozhVEIAFF4QdH 7JlgPK8actpAlQTLe8oclqOCsUDqpoRqdRIwljy3W6QHY/JSSo04lQQVl+8n DhQEY2MLsfGoHST4N8eZ6lgRjH2b8jm/7iSBqvKu+fwHwThVRpV2UpcE1vNq Yb9xMK6KqbV9hEjg85yt9nxXMH7xaU+8/H4S6FuMcQj2B+Pvhl3VSYdI0CX2 5vvrISb/feOxxSMkeH5760zPMJNfZITD5hgJ9oXUnZ4fZfJfcqS2GzP5dV8O HJlk8o/N2qiZkuCLb2b9+Hsm/96AuIxTJHh/RySm+gOTv/jf/XUrEvR4X7j/ dJrJz5Uw6nSaBNGmjDriDJPfW5Cjz54E859PcDKY52dOfPb57USCaxLdZTNM +37N1lfKbiR47Sun6DQVjPeIZelZeDLjuSQmZfwuGN/77X0n1ocE7u321Irx YCwxcYC/zo8E4+/qOKPeBuPENokA5ioJFPvefc9fB+PV4oWxLYEkWBywib7B zNct4elBCCbBgyfS3h+Y9XjtlVfuE0YC/s6nBTVPg/Eh44siOZEkiHcT6eJu D8Z1NKPQZzEkaNB5GDLXHIwJogrTq3EkIPV6uZxh1j997bchMYkEwfc+KjpV BWPW8cFa8xQmv+c7u3+lwXiyKCKmJoME0m0avRw3gvHx+FOz77JIEHhpcV9I ajBu8VQ3FcgmwdGigT0L8cGYdHxTk14uU0+uKQ9LmPq4RR2V984nQWnZAVG2 kGDMs7UmKbuIBJNCN6+xXQjGQasJi09LSEA7rHmx1DsYW7RqP1GsIIFLSZ/V qG0w7irkVzW7T4IPkmJj7mbBWCtu+mp0LQkaF/bg60x9ChulO0w2kqDMtDr/ 9a5g/Pzttw03u0hwkN3mZfvmYKyHO9y7e5h6S79teHgjs/4FtwaW+5j6L/sq 47oShBPdDfJPMpjvS0Bzwn8iCB/6VQx875j67SgsrS0NwnUjIaW7P5DgafOR v39uBGFCy0kBj48kUPdUqBhNDMKslzdMds6RQDRYWOKUZxBuEbQNj1gjAU/M /HZVpSBMWqZ9rPhDAuJu+z3cIkH41hvu42Ms6vCSHn3NljUIB+U1SOtwqMPz 5MPS299ewlrqwi2LQuogIf4v81jcJVxx5Nm6C0kdio/FA6UnEKuOV3lfJqtD Y6b2GOf9QFx67tp4IU0dTiRkSvtlBeKCbPvWyV3qEDLT93HBIRBnzv2Ktjqk Dhz5+//VL13EglFjS4FH1MHVO1ht8/BFnLL1iXOWoTro9e6rXG68iONRij7D RB1u1H7n8w+/iEPSCDxGZ9QhxmL0piTbRbyqwB3i5aAOiZOFE1/eB+CAxvnZ RGd1+PrurYp+WwD2nWrs7/JUh/M4fxM5OAA77jhxdW+gOuhsC9l7e+YCNngT um1HmjoYiq70tN87j7u8HRNPZqhDveZnzT0x5/EB1iO//bLU4ejiauZF6/NY T1V4rCJHHa5p/HQFrvOYElqWRyxTB8k7FecvO/hjMdnXSpJP1KEsky9kmf8c nnEja7H9VAelM2voleRZPL+lRN95RR2Mz/trdXT64JVGKcuu3+ogdc82KsHX B3Px8YQksWoASqWZRT/xxmr3px8LCWhAc2RJJMPFC/uv3jxGUNWAts62Z/dv u2OWxE3OB+014FTB5ZiqNEfMRQsJKHHSANcp1YZCkiMWHF2I43LTgI4z+TVn njpgefXJsj4fDbisOC4HLA740GDjd7MQDTCtfNu9ycsO08V9Q1yyNCD95o2n AaFWWPzuSHpcnwaUndGae+50FJ8byn1f+UIDFI98er312xH89LcDZXhIAziL g3MqAg/jQMOv/cQRDTBWMvokdfUgfj33m6tnRgOkRMuTNKoQNrjOD+wsZHDT iTScZZfHnG816g9vIwPrURNVy3RdpDmfNjYqToZb87xqXK/1kB3b0kY/STJw Plt78ScJUINqw8kb25n26c//E366D7mGwI/PCmTYfHl33/Ud+qhT6oRaEpUM 31ru8sjNHEfRducK+o6SYfC9k1yKiCVa+it5M/oYmbkfs00LVFoil5yutF3H yfB5+GfoPX0rZDAiGVlsQgZv2aa0DQHWSNC060yoJRkcrpHffOmwRTELfqdo 1mTo3N4189v8NFpOlTz+2YYM9x5GxffOnEZv+vz0zOzIoMn/3yLaYIfy9CWl SK5keH7Q29VAyB4JznQKT7kx49Wz4M86aY9iYvx4b3iQgd9IwUMq3R65Pu78 vdGHDCsM2uLgZgekvttvZPQ8GRZtO9Sf/HNAzeqdWclRZBAzGXDranBC6n2+ V/bFkOFVxCYT9VknlOcpEbdymQyNh0wfNUs7o5hS3wCnBDL4Ptj8+ESkMzKU kzDTTSWDEU9+CFnXBbW0dhgupJGBMmBo0OzmgshnfA+UppPhsXflH/cMFyR0 q4MmnEWGQgPXbunPLmhExFdwNocMsrebrf+FuSLDWnHugttk0FX/4sGa74pa TDo2WOSTIbV8UYza5oryr4j/eFJEBp167R2qrG7IjavjefZdMuRHPirZfMkN jZSc7TpRToaDBI6PrJluyPCQOOaoJMMXZadkgyo3RI4+W+FfTYYbWbOzXz64 oV/r2+hHH5JhZ4qP3u9D7uj74tGE1UZm/no/Vatt3dGnL6GXS5rI8PO50eJn f3c0MvwulK2VDB0pje++5bqjltr/fB51kkHUSvPPwLw7ivHaZazKIMMec4JQ zU0PFOroafjmJRmOcGuqq973QAFWOYfjXpNhJL/vjE6XB3I9vGHv1AgZ7p9+ e4FrwQPZIdqetFEy3P45twWzeyILLeddaJwZ38ku2i9xT2RAeErJfkeGiYM8 gSN7PdF+id+kI1NkuGQobBJs6ol0BUkqvz6Q4d+6jGyiiycisaTJnfxEhiW9 KL6xeE+k+KtNesMXpv73XXi/9YYnkv62JF75lQzkwVKJslJPJDBqIcQzTwaZ UH6V7g5PxDWUuPnhdzIEck3UHx7yRKw9TTyuC8x+sZNE+Sc90VrrNw6RJTK8 u9ulKDTriRYfyGx88pMMV2lhj01+eaLZChMWv19k+P1y+5OuDV7oQ3HMuvQq 8/6zYA5vHi80dqt+pXeNDNJG9h57hL3Qq/RPS0HrzHwyb3fRJL3Q80TxH8S/ ZGge2fTbQN4LdUcazr36R4YGc8fJUGUv1BoY9jlmAwUEupzU1FW80MOzVdNU NgqsZYgJBDPPq13ev5vcSIETFpv0Pih5oTJb4fEUdgqk9u7+7aXghQpND43o clJAo7w3WUzOC906GvjqCxcF7tR1a3+R8kKZ+8oGr/NQ4Fw+7J0W80Ipu0b7 D/FRgEvt4DdeIS8US+Z/tsRPgVmBj9FOvF4oXAm6CgQokMijrT+/0QsFSp97 YixIAYfXB0Or1j2Rr0gR/itEgUUNgufdRU/kwMbZYCVKAe4LV6OsJzyR9dqu Ws5tFEgY3q8lyvBEpj88q+rFKZBfz1G/rdsTHZx4XiooTYGkF1zqLBWeSO/V huLW7RQ4Eu1e9eW2J9Lqo+X7yFLgSq60kHKaJyI+yrrRQ6CA3/ozeoWfJ+r2 8621VqTAPoNNhjIOnsiNeOT5rBIFFC/f8Ocw8UT/Za5t3KxKAWnZhltA9kQq vra+JykUUEgSKi2d8UA9ilpJH6gUKB1xZxUY8kAeY/x3LmhSoHaPK1kce6Ay g9a3WdoU5n777uSHTA+kqiCvP7qHAk2S9ltd9DxQ79vf9t6IAsn5T8NjlTyQ 11VGyF+gQG7FgcCDAh7o3r/L1TIHmPXZqsLx36Q7Uhv5JOVsQAEv0QaKYag7 Ur9SsTRnToH5KwIOGqVuqP9g3OZwCwr4ThAXHJLdkM/6GRUBKwoE0KkMG183 VOm+xY5qS4HMxoGwcm3m+z9w/lmAI7O+xgfZONtdEXV1V8G/sxTo55l0YZlz QYOVgs2pfhTI02ltpDF/P59z+fpa1p9Z73u/P6s9cEE1Q7f4DgRQwGq/orZT hAvSrPgXGB9CAY/8B8Ipm13QDseO41sSKMC2V0uGhzkvJYtmdNoTmfqscrXw /O2EWKc5FC8mU6Dq/sYLR4edUL+LwfroFQpMWK3rBac6odoSz49X0pj6uyQ8 3ubphG5+Sh7cl04Bm21CB4MOOSEXj+elpdcowNGjZ0Rcc0SGd7+nW1+nwA4T 5fdbhxwRdXZLOP9NCoToub558Z8j+udtanY+h1lPh7tszw0d0XW/NxugiAI4 /hhtKckBhVWvzS4UU2BTSbuCv5UDclqUGC4uYerjtXznJaIDIl84XcFzlwLf I1ZqdjyxR08Dp6xe36fAhgj6I74lO7QWPlfjgymg1LvkzUg9jVpviYj1/qRA +Y1za36PTiCjnDFZh18U+HiImeSZE+htTrHqygoF3N5xyGqynUDLuTsQYZ0C zo2m31KOGiNSvplLCCsVFogh0fT2Y+hmcWat2mYqtEXfvO1/4DA6XyFygk6k wl5pojpXpA5irRyzklehQkLl1EtryV3oSmWx00NVKhRYHXg9Wq+Nyqp2BE6r U+FG2xY16mdN9K7a7PaeHVTg3SezMV1JHRk9yJyb20sFAZZ+S7LqRkRsFUk0 sqaCCk34UqyIFtbd5nx91IYKDflP5m3jtPGJc7V3PE5TIS18z1jQ8k4cRDj5 JNaeCi2qbScXn+3GvfGp6y2uVNgtV/6wMwvw5LsJ7mPuVNAz/8ChSdmLf+po bHvrQYU1+aP3prr3Yum5vh2/vKmQpy76S2VxH/Y7wXNW4zwV1ILrU0HzII4t swptvkCFlYWLySWtB/FNtrKkoxep8Nzg8NjVo4dwe93hUtcgKsygy6Gitvp4 q3jsu9sRVPhYG1qLzx7Bje9ZTAXoVLh0lTH6xOoY7t9t7JCbQgUenRtiRkPH 8FTGbV+1VCp4GKuWTBoYYV59PfrhdCpMeio1Ie3j+Mzd4M6IG1T45tlpNxNl jDeeX975o5iZr0x9p5yZCT62aVZqsIUKm1flR6ZqzXDpp+j1yFZm/k1JdbRZ M8zaK/GW0kaF5BQ9Rwl5c9xw9ej1tA4qvLPtvFRzxRzLydwVPNFLhcQUBb/N Tqfwso4Hx4s3VHhxHm4LSVliY2nWmfC3VOhR/npl+IQlvrvhZrvGGBUKn9bp LF62xHbdTyOvTFIh34RswT1riXvMlNeNPlLBxMB+eqrCChN2PR75+4kKjiLV b4LGrHC4pOXDii9UyB0jPSLyWGPNqfgA/m9UMPimOvGfozXO9f30vW+JCssv Po05c9rglZMRz0OXmfo6sNNnWN0Gn9QWqyCtUOFKV7O0vKkNrhCvSh5bpcKu phERvUAbzPlX35P+mwrNMd8vyWbbYId3E0f2/KFCULSdX0eTDW5uv0ic+0uF XvFkObkxGyxWupkjh4UGD+cjLaJXbPC5pJJpQ1YasJ0yP67Ia4t7fVD7OhsN vv/O94qUtsVKJq8L7m2igeYwf1WOhi2O2nE20oaDBuemD22LQbZ4VIzDjpeL BoZSSyV7jGyx9nquXhM3DSIutVoPWdviqxNaUl68NLi/aKZp5GaLZ9v6f0vw 0yD28mnKA39brH/HZeTZZhrUE2NMRMNscUHC34bgLTT49Mo362KcLV73upal KkSDJwn9/yav2OJTxuoBb4VpsK6jn2STZYuraZ2mSVtpoPshZtdiji3mFT1N 2y1GA+VwCndFoS12Xfu55es2GgRu+rWeWWqL28bo329K0GDAN3xL7T1bLPlY 4bmBFA0mGs/rb6myxQFFzeVr0jQ4PhaRW19tiwfizJLLZGjwfODY1vJaW6zm OedhJUcDrquXK/7U2eJYo8tHuAk0+E900OV+vS2epEgRGxVoYGMzpjfAxLtF 6tg9lGjQb3lCy4WJr60YTm9TpkEZ17DhJab997cfnjxVoUGus0SUENP/Qpj8 Yxs1GphJ36LbMfmXZB1a5kk0aMt9GXqSGd9ye96jKA0aJB2NLFgst8UrrhMN IhQamCdYHD181xavcUvXl1Jp0NMk3G3BzHe93KZmtyYNxtY+pef9Z4v/GmdX 9e+gQfPJn5EbmPYsS2/K7bVpwPH92oQ80z9rltjdpZ00WMjXkt1UY4s36pwq jdOhwYPdex4VMONlH8ssFtelQeoVIbm1B7aYM4JRUL6HBrVn5Xo4G20xt7xQ HiAa2FYMKvU+Yvaj80TOEDDjl6JX7m22xfzuqTdd9tFAKrXxpUuLLRbgfZ61 up8Gxa+f8O/Ctliwki8z+SANMjq3PK9jYmETw6vb9Wkgp8GXNMLEW38mXqk+ TIP4KekHRUwsdv1p8kEDGvytq+zawsTiuzkTh4/SoCWQSNnO9C85fijO8xjz /M8P154mWywdeTnmrxENVkUvTAow45MhtEemGdNg5rr45u8NtliuizWcYEKD fyZH3ZyZ/SJ47A15cJIGwWK+dj7MeijyRVwyMGPG9+iHJyezXsSqloAxcxpE 8e/6R2bqSeXkH39fCxqETlWkTJcw9bK824/NihkPb1OKPFOP6jeCfK5Z0yDc 5qn/J6ZeyboPPZVtafCrCFVTrtti6sQvt6bTNDjdENeynmaLNaO0XI7b0eCb GzeffpIt1lK44PjengaT8WRB/hhbvLO7xu6CIw08vzjsOx5ii3U8F2w5nWnQ fYZbkPO8Ldblp1hnu9CAGsZ2gOhpi8G0wuyxOw3efZUo4Dpli/f9mjUx9aTB tbhKC1lDW3zgpqrxRy8auPel9ReDLT48WWrA50sDweTtSnNKttgg+qN+nh8N dt3eJXtP3BYbKioepPnTgJAWzvWCOT+MvQqRZQANPh70GtKbt8Emm9/rzl5k 2hdG9l6esMGm1TI64ZeY/RbKe6/83AZbrORoFocwsePLjMh7Ntgqe5SyM4wG TmNWhyk3bbCNnoTGs3AaaNzu1NeKs8F2MdeVf0TRIEVD3XLnGea8U3qtGBND A//r16MoBjbYqUeEIBpLA86wTsVATRvsJpAuvSeB2d/FI/wz7Db47C26UMIV 5rz7/Tufr9Aa924gzBuk0eDRD4k3ApetsYprYw9vOg2+qN99JetijeN6je/0 ZzDvSzW/33PIGn+gfIxMvUaDQ4rOBx0UrPHerFBbk+vM87r6Q8lszHm+LrRL +CYNGoR0xBrGrfBv+zLhV9k0EN1trX2lxgpbdMH3rBxmfA8+PDofZ4Xr1F4/ s7xNA1aOf7v9rayw4FXvEol8GoSUDR7LVLPCfTY3T98uYs7Hz/rhPv2WeN/C Yu+duzQY1xm+nMNliW+fSix1K6fBkqgqy7tXFni9SSZGpZIGBgeCm28VWuAH ccd2V1TTwDe+zrJktwVWkyr5r+4hcz5V/YuhuJ7CWw9bxbZ30YCFw4rbts4M +5d/t499SoPt10NFJcLN8AvBuD2HnzH1eVaxZ+2wGU4aq1l61k+D6z/+Czwy ZopZ/Pkch17S4LD6jIshlym2HS7Uy3xNA5OZfF54eRI37tERP/WGBkOTilxl +SfxBU7XgZFRGmzIVj/Do3sSf8lpRe+naFAtUvhVNdAE67OdkiiaZupxcGvt 2mETXOQ2t+z8kQaVfVkxGeIm+AxNvOLzFxocDXG8drL1BGZ0+0v++MHs370r n5VET2CKOvdK9SJTv4ZvT1+cN8Yp6XlD53/SgFsxkD7TbYyPnO5LXFmhwWKM /lmjcGN854mjS+MaDRDXMyMbG+a+oby2N2Sd+fesYy/U6hhj+5RUKb2/zPrv ZLyxEzfGLYuKq//+0aCjw8zxzfJx/H945/ne "]]}}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.016666666666666666`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw10ntMU2cYBnAQxHEJoyIdVoFyKbS19AqygPO8hJG5LQIihRQoMlEKjFlN uYxhM5hcBEG5RpCwMRiXRSIgF5EN2olJgdCNIgwsc4lbiNwG1E7QwMgG592b nJx/vvP7vuc5n+t5efjFfSYmJvH/PbtvctYJa1FN4KVv31OL9sZIKKZNZJnH /dSJe7NBNMSJb2f1CtV3anfnDTHZEpZwvour1o7vzjZRlBA+YF3EUiMI7B7r /LXLDFxvCie5erE33U3ts+ebQV32UI5h1hm/N4cfJuzNTMU03M8C0rsSrx+5 TkXvLehqh7KaUHv0LGH/TkbiuTw79KzhQn8idZtng54NTLb9Huy+fkAt2/Ns oTOytk/qaY6eHQw+y+qRjpvgejtw83XRj9VsqUifAjMVgTddfDdU5HkOgvjk uWGK3KAi97OHrZjepM3IJRXpHQJmWk5ekO4PFekdApoi7QOL+ln0HKByyxih bRtTkeehAkevT3+xfg+9d+DqCafXLav3CNJzhFG2lqlnPSZIzxEW/W6Xf3dF S5DeYehWB/rTd3QE6dFgTXzXL9x2iiC9IyB9HO/8en0KvaPgWdeRVrY0hd5R mPBtHJ+hTaHnBKGUP6sY9ZPoOUPWta8LNT0T6LnAX9OPyryWx9Gjw/BqoGG/ 1QhB9kMHose+Q84aRp8ON41zTz/q/BG/dwUW7/5GXH837ucKpUssY0tlK3pu MKB78DQqshL3dwP1lyGfRiuTsE83GJmXpyqZVSryfrqD8adLqRkfN2C/7hCt 27fSMNeE/8MDBu5ElfTFNWPfHnC6SsBtZzWj5wEpHw5dCAhuwv4ZEGy+PHNZ +b/HgLmA5Lmo7Vr0PCHgQe1nuTYV6HnCtepKS+VmHnqeIG8/pdUUJaPnBap6 1o5hIRnzeoFZ8pOml0E5mJcJuZD598pqIeZlQv1yZP1Yegn2x4RBM0rEP4ul 2B8LeGubMYyrpeix4Pm8JYgyi9Fjg9uCa4bpYj56bHDk2b5ovp+DHhs0xUlG 7ZM09I6BXOEw0zb6CXrHoPFEsrI6h8C8HOBy+hkuZ5IwLwdi+VQrnUSBeTlg XThkKMv9HPN6A/Af9da2ZmN/3tCdGub38EY2elwQjxQ13DrwBXpckC1kx/k/ zECPC+UBmyG04ivo8aDU50zELU0SejwYsRtVWLyRoMeHMo9tKx3NHdfzgd34 a1AsJwzvIx+cLlJ//u1VPObjQ+dLH/Mghgz74MOz789OakQp2J8A3jdWnrVk pxLk/RJA8DdKGfuXFOxTALMNdW3GEhl6AtBUTEvpfQnoCeDtgo4Cm3dj0BPC Xc3BTHN9CHpCoLYdb+I5CNATgsQ/2r2QAphPCAm9kuG0gjDsQwiUV5LTFooo zCsCoeP8VzaGWLz/InAgnh8+1SrFPkWQp7nRl5gqRU8E5XmS/LClaPREUD0o 1EhpYvR8IGSlOHN2I1T1Lx6/kRc= "]]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"k\"", TraditionalForm], FormBox["\"Vlocal\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{0., 19.999999591836733`}, {-5, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6150248016661577`*^9, 3.615025964082382*^9, 3.6150261532566814`*^9, 3.615111713284216*^9, 3.615113293172434*^9, {3.6151134264820824`*^9, 3.615113440575075*^9}, 3.6152814396615653`*^9, 3.615371237365724*^9, 3.6153714550597687`*^9, 3.6153720015397863`*^9, 3.617035555597519*^9, 3.6182375788069744`*^9, 3.6182898987617445`*^9, 3.618310728330391*^9, 3.6183125402700806`*^9, 3.618357657808033*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Pseudo", "[", RowBox[{"k_", ",", "Ra_", ",", "ktf_", ",", "qz_"}], "]"}], ":=", RowBox[{"16", "\[Pi]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["k", "2"], SuperscriptBox["qz", "2"]], "-", "1"}], ")"}], FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["k", "2"], SuperscriptBox["Ra", "2"]}], "4"]}]], RowBox[{ SuperscriptBox["k", "2"], "+", SuperscriptBox["ktf", "2"]}]]}]}]], "Input", CellChangeTimes->{{3.614497361328762*^9, 3.6144975083229847`*^9}, { 3.6144976676309214`*^9, 3.6144976848661394`*^9}, 3.614497740145335*^9, { 3.6146900019821377`*^9, 3.6146900104674397`*^9}, {3.6148541619653254`*^9, 3.6148541625277205`*^9}, {3.619356054803357*^9, 3.6193560551045713`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rt", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"intertlocalfour", "[", "q", "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "6"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.615111395719078*^9, 3.6151113996198187`*^9}, { 3.6151118853249893`*^9, 3.615111925451456*^9}, {3.61511198147723*^9, 3.6151119819045353`*^9}, 3.6153714657353687`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"q", "\[Rule]", "5.69477509653581`"}], "}"}]], "Output", CellChangeTimes->{{3.6151119069753423`*^9, 3.615111925886776*^9}, 3.615111982463931*^9, 3.61511330269219*^9, 3.6151134487428756`*^9, 3.615281439694569*^9, 3.615371471318324*^9, 3.615372005385515*^9, 3.617035555616533*^9, 3.6182375788379974`*^9, 3.6182898987927666`*^9, 3.6183107285355377`*^9, 3.618357657828047*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"qfit", "=", RowBox[{"q", "/.", "rt"}]}], ";"}]], "Input", CellChangeTimes->{{3.615111967027972*^9, 3.615111988805449*^9}, 3.6153714687394814`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"model", "[", RowBox[{"k_", ",", "Ra_", ",", "ktf_"}], "]"}], "=", RowBox[{"Pseudo", "[", RowBox[{"k", ",", "Ra", ",", "ktf", ",", "qfit"}], "]"}]}]], "Input", CellChangeTimes->{{3.6151119994209714`*^9, 3.6151120009110265`*^9}, { 3.619356057329151*^9, 3.619356057445234*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"16", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["Ra", "2"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"0.030835205395065762`", " ", SuperscriptBox["k", "2"]}]}], ")"}], " ", "\[Pi]"}], RowBox[{ SuperscriptBox["k", "2"], "+", SuperscriptBox["ktf", "2"]}]]], "Output", CellChangeTimes->{{3.615112001699586*^9, 3.615112006121746*^9}, 3.6151133051279335`*^9, 3.615113452854795*^9, 3.6152814397315965`*^9, 3.6153714769643393`*^9, 3.615372007547047*^9, 3.617035555636567*^9, 3.6182375788690195`*^9, 3.618289898819786*^9, 3.6183107287456865`*^9, 3.6183576578480606`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"FindFit", "[", RowBox[{"tlocalfour", ",", RowBox[{"model", "[", RowBox[{"k", ",", "Ra", ",", "ktf"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Ra", ",", "0.93"}], "}"}], ",", RowBox[{"{", RowBox[{"ktf", ",", "0.2"}], "}"}]}], "}"}], ",", "k"}], "]"}]}]], "Input", CellChangeTimes->{{3.6140015646504974`*^9, 3.6140016142206974`*^9}, { 3.614001662243754*^9, 3.61400166279064*^9}, {3.6140021644336357`*^9, 3.6140021904546795`*^9}, {3.614002263125366*^9, 3.6140022897876716`*^9}, { 3.614002651003973*^9, 3.6140026587400007`*^9}, 3.614065167158046*^9, { 3.614497874832187*^9, 3.614497880116933*^9}, {3.6148535941571503`*^9, 3.6148536280291414`*^9}, {3.6150258246373873`*^9, 3.6150258473294964`*^9}, {3.6151120133298454`*^9, 3.615112016923416*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Ra", "\[Rule]", "0.19241254592405`"}], ",", RowBox[{"ktf", "\[Rule]", "0.7611301531311999`"}]}], "}"}]], "Output", CellChangeTimes->{3.615372009148184*^9, 3.6170355556515775`*^9, 3.618237578888033*^9, 3.61828989890985*^9, 3.6183107288417563`*^9, 3.618357657868078*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"model", "[", RowBox[{"k", ",", "Ra", ",", "ktf"}], "]"}], "/.", "fit"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"tlocalfour", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6140016400055714`*^9, 3.6140016794654436`*^9}, { 3.6140023325765905`*^9, 3.614002345343402*^9}, {3.6140027086697893`*^9, 3.614002729923519*^9}, {3.61400316442223*^9, 3.614003175298704*^9}, { 3.6140032305407515`*^9, 3.614003241323848*^9}, {3.6140033856176295`*^9, 3.614003386070763*^9}, 3.614065186053482*^9, {3.614496595182523*^9, 3.614496610030074*^9}, 3.614497904086929*^9, {3.6144986714934063`*^9, 3.6144986729654303`*^9}, {3.615112033542192*^9, 3.6151120384136705`*^9}, { 3.61511332790711*^9, 3.6151133289138045`*^9}, {3.615113460479206*^9, 3.615113486021345*^9}, {3.618310485448866*^9, 3.6183104860552983`*^9}, 3.618310861724328*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwdlnc8Vu//x40ksvd2n/uWSlLcSFTXG6WhVEKUZKdkNxSKykwkUhoSkobx MaKMc5O997gPKWVkjxAZ3/P7nX/O4/l4ncfjuq73+/V6XwezdTN2YGNhYTnD ysLyf2+3LNulsLl1wPL/jwjDyeCVo7EYB+SoP2XYpQszKviHp9ZoHGDPKdNl EiHM2NS90ydNlQNk0pqHb7kKM/qdSyM3HOOAHeUVSz47hBmWUQP5xXc5oCQz +xhPjhDjRM+2jdumOeA3/ft+2UpBxm7P/Az2uvVgxRZ34J+gAKNpTcfKo3s9 NK8aOB2Z5mc4PsB5+gbXwwHJxqnpYn7Go9SKi19YOSGx4r3x7rP8jJFvbTSP XZzg5lzeE/uEj/HCcPrJt0ROoMhSrq7K8TJWFZT8P9/YAP/eNtmfsedmxGSl qWwO3gCy2lZoVpuboQSqvTExG+DE1WNy9YLcDLOzWtruGRtg01t8QpfBxciI MvijOLABVE5m6FIpXAzrVVunmBNcQE+9/8ZklJPxtfP5CbfN3MBUKsDdPnIw YmxN/8zRucHhVK3/o3AOhuM431Nf4IZ3aSxdPy5zMLjZ7/SFWnBD/USbKIcK B+OEipNr8n1uiOo3f2CatY7x7Z56ePckN3DaEee/lbIzllTrK/XzN8LaT93b aaxsjLrCIOeaso1QPHAppHuQlRF/EPhPNm+EpUCj91vrWBm657LNrEY2QtF4 iqHGE1ZGSEjcgLcMD/yoPZ4yq8LKEOtzYE/354FQN4P9hD0LQzV8dZ/EYV7Q sP/2pKR5BVe7uGyfZsYL2YuOEt4JK7i6wVKYnj0vCJ66t+TltoJrssx3XL7N CzyiwbzafCv4nivjriW5vLBOIKBmxmgZP2TZE3+Jygc6Hf2hOT1LuLXyl9XC f3zQ7ZNzPFbxL27Lla9gzMUP5p3/rBVXFnC7wdwjQ2L8YBnv3TTRuoA7JvwX K6jGD/0/K6w231nAL4u8U3F04ocaKarH9h/z+PXlJ1b87fwgILLHTffdHH5w ULtv52kBeCQ/yTxyfhZ3bG0bCz4nAB+2WeQ93jeL32O4Ln2zEwC1Z/ZDG+Rm 8ZJniaIP3AWAe3XqzIXeGVznOPfR36ECEJN8xHj13Ay+I787/3WhABCD23vt HKdx8TDvR0JUQfhve7Drrk2TuOZ1oYSLWwRBha9fR2B8Ajex/5jGUBGEDO3e ZOXcCTxq3/cqVx1BKNq/0K5iMIFvnD24VmMiCCbtMmlGzuP42lnxy3eDBcEg 8dVoWskoPrT904E/Y4JgnC6YGPtiGKf6uThsmxWETczRUWWXYdyyTiHQdlEQ fooIiSztHcabLkWXNXEIgWbzuZ+7vg/hX96666fJCYF/YmDr7s1DeDi2Tdfx hBBYqFgKSeMDuKpowp6ubCHo+KkdECryE79sf9qS/4sQCLlR+G+O9uMp2Xy+ Bgwh8OS55xhX2o9LGfsV5NQJwcfsjhA7j358XeQZ7agBITgun39CvvkH3rFB VOuIuDDclJnIYY/7jvssh9ILbwrDounli3yPevCGK3YxNwOEQZrSMFmyvwen jO+Z0woRhtYAq5HWBQIv6538lPtYGPgHb5wQPE/gPLipdkamMJzpKXz2S5WJ xwdguomDwqB2LsQtcLgTL1n/2SjEWATCU4H1aWwrLnL7UYaBhQhwrsY17jZp xR0XnAU4rEWANTxGRFmoFecelmsJcBEBierdbiyRLbhx9T1TnxARSGZU3TkX 3oz/un/C0rVYBBb3Xfm+eVsjzik4fNFESRSaQlS56oor8flgywOvdooCLyGh cMakEh9cbaKMaIpC4ql7ZtYjFXjF2OfO2/qiwBf4/WeLeAUeVHX/wAdLUXgl YLOg612Gr/ffgbFFioLCjkb+dqMSfP3kta6MWVGQ43gqkBf/CZ93GM1eWhSF gb4vIYMDufhgz/nIAyxiEDLiPjm4PRevqDlkQPCIAY7i580Y2XhQilTOekUx yLRN2UlMZOLrrYojz5mLQcyHL4/sf6bgHPUcBzcWiUF5WhrtdLg7zuPywq73 qxjomAVPtOFmuAgv3T+jRgyaWKp3SfuaIIVj1p9PdYlBGGfqDPfjm2h//Zdt L2bFwFQ9OqlAKwrdqXcT2K4kDln9r9sd+xMRS0N3t9ETcRhzKbyWTM1GG1zd 5ynx4iDufDvOPi8bCfBxCs8mi0Mvf2P9JcMcRDFSP/okSxw6lQ3fH/XIRagh orivXhysXO9l+ubkoVsN+knu6yTgyys/+32ShehfQ9rlRx4SUN6zRK/dWYrk mm2e7/eWAGZAsxHNrRTptYrWzN+SAItIYbvtaaUorNNv89lwCdhSeLTcfMtX JPH9WD/trQR8j825LipdhjSnx0/n9kiAY+zgTZeZcuQurKLfdVASzpY7NHy5 VI1iRPs9wowkYeq9DXXsVTXKE49N2GMqCZHvw2S726rRqvTqSoKtJPDnflAc 2luDHig05F/0kwQF7s37CJ5a9F7DVeVfliTMJCRrW8fXoYHT6ZJyclJQJWZm kRXViFLMV0otFaTA9ZbI4daCRuRkcfTycyUpiFps/ocPNKKRMyPFErukoBfh +bdkmtDUOUV74RNSoDfCzxbs2oSW7eLTN9yRggUD601dvM1I2D1Cf3ZACgZj rV0x7RbU5t47pjomBRxvqHYyR1tQrIdyrPuMFDz4mqnAYtWCJLxqhsdXpeCd 53aHOwEtSO7a+ohhcWlw4QjcdaWyBSn53urqPSwNr9h0P8kfb0W6Ia4uVWnS EPm8CBSN2pBUVt/piBxpuLsj2uGjVRv6Q5zQMymQhjstf/Sk3NpQyg66+Pcq aYDqtyFpkW2Ip3OBsfBTGvh/z/bnNLahjk0BIpulZECyZu/js4btyPlrdEFg kAzYnZ4ufKfagfaPr0sxfCADpukZiiaoA8mJX3soGCMDngWHqL+PdqCmS+YO L1/LwNP/umitFzqQppAsf26hDEyXiL5896IDsdik2P6akQGPTeV3Pdk60ePV fC7987LAxXc7ggXvRDyby10fO8iCbsmN3ReqO9G9482tQ86yoJXwy7aotRN5 Jvx+Ge4tCxWrXi5aw53ISE9KrSNKFoIFNnE4C3Sh9UE+Zy6WyUJlUo9y47ku 5M2770PkVjnobUyYWBjrQpMaRwT6d8iBwqpC/KW5LuRoZXZVXVMOSsaSYhpW upBJhivq1pODoJObwi/xdSPVk69aqZZyEB3oI/lHpRuNxLAs50bIwQfJfkUL l250Vubr0Z5ZOQj4ZmhV1kfqLtMzuUty0OSr0sk51I28cfm4SFZ5KJGQ+KUz 0Y1ibX0H9PjlwTLv9fzV5W7Ukqpx652SPPgFZCbRJZjoiEZqxjUbeeiXMxHr P8pE3UEdpiec5KHBuK9W4xQTOXWtW97qJg/F5UdYfSyYKMjH5lCvrzxsMC5V YDowUWmJ1A/9p/JgHLmVOebHRNpGD4QEG+XhkPprVfcPTFT9qiB/pF0edtEY 1/ozmch8+rdVWY88LIc/lDz4iYmuxhh8uD4iD+yxw2lDDFIfX8Mm2SgwkSMe FNzORDH0z19M5SjQE9HvdmyZiSwtmx6UYhTwedhYPMpCIFrgkPWOTRSwCt+7 x4+DQFkdopxcyhQosKHM3eAjUNMNz1OFuyngFLZWRMgTiIexbYxqSoHaLmc/ QyBQf9zJqtvmFBD871+hwH4C5XldT+45SwGtmH6rmoMEst381TLWlgKHlirm pY6TesSZei53CjjYUjPVzpH6udD0qTAKOG7wmT5wnUBauzLCjkVQoHqdTajZ TQLxCrY7vo+iQPfqYbqlH4Hyyyjy9k8pMFiUM2Rwl9SV8yM731BAaWvJ0rMI Ul8adC9mUGBznspvgyQCRbTxHJMuo8C7oAthaW8IZJeuttW7kgLW15/+5Eol EJ/trR+qDRSY2y8zmPSR1KtFjd8QFAhzOqhvlUvuJ0lHha2PArvLZAq98sjv /Wy4z/dTgHf5yp7bn8n1dqaVSvwm9xtYe9O7iNSf7qeHz1OgJX1x5U8ZgX55 XOL/vUjWS5bna0EFgT4bPhw9sEKB5dF/Pd5VBLJfI5LW2DGYSr+l0VFLoC+O XiJeghgsHwwJkGsh0EOIm2oUwSD1ldb801YCOUjhdcoSGMSdYd/I3U4ggQbu wEE5DFjf/t7d1EnqGolzFsoYDIqg9PEeAoVFiPL77cCAec+XhfsbgdKHQrYk qGFAeKKLcn0Emo9zOzuohYGsXszzHT8IJDXbf4VrDwZV3p+8lPsJhI6aRSgj DHh+3bqN/SRQyOqeEs8DGBhP/jD684tAH09nMh8fwkA6vZfSMkD6JZP2J98Q g/QRXf3UQQJJ2nFvXjuJwQRHxeO9wwTaV+gHVFMMygIl2pZJthWdtjhgjgFX s9btnN8Eel/ZGX7fCoOg6Q1avKMEaqAYpqTbYJD0quhUOskzN4rxZnsMJDsO /z04RiAd5Tcz4s4YhDvlLNiPE8g6UIJHxxUD4eBL1sMk3/t2f5OVBwajRW9d 7CcIVPfQ0zz5OgbzZVujDCYJNPV7wKPyJgYtk5K5H0kW0be4P+KHwerM0NON U2T/X9Ql8wZgoFNxVt+O5HNzqHjnPQw4J3cVZJN8xyi781QwBk2BuzlXSE55 qzh9LQwDXR0JFTRNoBqWZ9zPHmBw+VyQ5k2SJyx4FYoekv3q3bk5nWShbP+9 36MxcDTG1xMka/L8MWN/gsEkWxvBMkOgMw4X3BWfkf4Y2JgmT/LtYmbo4ZcY tL9b9d9FcrK4UdLlBAyUPu+zOkRylXtJYWQSBmnIwtCY5LFq9Y6sFAxO7ugw MiVZgJY62f4OA3RAy+0kyeq+0lyLHzEo4VvJMiDZvD2CKpOJgcbEC4oGyb4q bHtQNgZ8lPvFMiS/Dr5qavsJg2e4RvQKud+K78OugZ/JetZyvOkkeWS3ZUhq IQa9yueX3pPMF934uhbHICQvIe46yWpjegUTpRi40xVC95JsduBTm2AFBuLn 9zUuk/W7Gb91Qr2arOeffZ65JMcvvOA0r8PgRoa79wWSv54QwHwaMdh+XHJY iOThd3e141swYIm/UZlH9o+HfeFUSTsGL6/Uy5iRbJLbG8TZQ/rdX1HvNtl/ b76TCUp9pJ+YYXLcJL+8UPb5WD8GubyvQyNIvwxKfhiLHsZgsdxZ4R7pL24v ufV5oxgYvjC3niP9p1IXJc+cwIC2cEHfmuTrt7yNKXMYhGFK4rQRAm0Z8+UJ /ovB2o+B5Mukn7ssAirG/2FQq/GwO530u5ZGmHYBGxVKT+8wkx0i0N/R51Qz ASrwsb9xTyLzlWqR0FMoTIXQFwLc2WT+zCuTY2niVFgWKQkqIPP5OTGNe1qW Cr59iQfzyPzetMBn7m+jAu3XSO4ZgkBKlV8/zqhQYVu7kpYak0BM9SpHCzUq POHz7GLrJvMi0MxU3E0Fxlm2h5EdBFqu6C8tMaBCvd+R5NPNBLqlvj56wYYK kR71sanl5HkTuY9ZOVAhp+PTCVFynn3j5+csd6LC57ev43xKyfkwKu7zyI0K Qgtjs+o4gVgSt9pt96PCFi/10LP5ZD74j9HtnlJhsqBd6tY7sv9+J8ern1NB oOriVNBb8v4YMX278xUVsni0GKHkfNavsJJefUMFK9uHTn6vCbTOz509LpsK XpTzUbJxBAociW5taKCCqYAfYRBM5rtzoOZfMxVmFyZEpQJJLttVuqWdCuMs pU7Dd8j144nMOwQV6DqZztdukeczpkVoDpP1Jjo8za8S6NqXrEPxrDTILBQj tGwJ5BTWXOSiToNSyJwL1yLQheu03Ge7aJDi0fGpToNAjvZXP1Zq00BT3F5p A52c3/skn2O6NNi5sE7HczuBbGasvduP0WDxU3mAMJXM75kptb0XaHDxneHj CG4CHVXiT+V5RgOXIu/kwC4msqhyS936kgbjKtfyTMj72tGxKdUggQaS+F4V SgsT+SdGvfNPoUED7ZvZx1omypES+fAniwYH51NYnxUzkcxGyfSeWhp8YAjL NSQx0dgoNefjCg10d8FAtjMTPUjTZBy1UYD+PLfLMNONFK232KTZK4DiZ3We yfFuVCwkxcbnpAB7qfo+z353o6nrK/qNrgrgSBvtHPrejUz0yipP+irAo2Lv NcvGbiTTebLR7IkCzEY5vsz50I0+srh8s65XgBuHhGQ0bLtRzamk5Su7N8GF uksnTlZ2IUa9W7gyuyJ4CQ20mEZ2oqxLAVDXqwj+xyWfnN9E/o8aIi3XnM1g Ze0mt5rdhvTXLO++8t0Ci3/8io6btSL7Dnwm33Qr3A9NfbhCNKN9AXdybShK wCnBPunv34QeuU0X8Awpgf6in2rExQbU7/9m8FXxNpB7Wij6I7sWjTp8ti8N Vgb6Y2+L4sPVaMpFiLPeZjsci/h6bKmhAqUfrl123K4Cj5SliLTXZWjQaacm +5wKXHKbLC1/XYqkPjCjg+t3AItmeGHaSwa6a+2ZWG+4E578bXzrXFKEFpYl Hxh+3gkL/cqpBYZf0JaCJ3E1Cqqw8/3a5fv0PKRhV35cMFQVvE72Wf99lIMY L0Ql6uZU4aLe/lNvV/9DWxiiYUZn1YCjsnm4LCUDHeMYk20pVoOw5Zb9uc0f 0BTx62u1Eh1SsYO6byRTkduLB8KhkXSQjLZoG2F7g+pYFSaPRNGhb+Pf5yNz yUjpwpcanmg6hPPJ0KaHk9Ev1aGAh7F0OJrQ5iDUmEzOE5h68pIOOirq1948 T0Z6M7N1KR/oUFXUGr5RMxmJHToTVFZJhwsKfZPlbknIK23KJqiaDm6Cu8uf 2iWhJqHgvYdq6RCgEcXleToJ3e/N/lPbQIf1/nvbd6EkxOLFa9faTgeJKwlq AvxJaISsWf9POlkvu87pjER0kP20dPIAHZQ6nT2UkhNRstP4vMMQHYJEnxtf fJqIztOl0n+P0OGnQuD3Rf9E1FblJTM9TQc1850DDsaJSFWF+2/WLB2O50p6 NRkkoojohNYrc3QQ5LdS19VJRIet6sP+/qXDg1XxgxoKiSjlq53jlyU6xD+O j86XSETrti7p+i7TYVo5kUuPNxHZRDyU3bdKh8JNH1OaWRNR8azi4toaHXp0 DJwuzL9G/wP2j01w "]]}}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.016666666666666666`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw10ntMU2cYBnAQxHEJoyIdVoFyKbS19AqygPO8hJG5LQIihRQoMlEKjFlN uYxhM5hcBEG5RpCwMRiXRSIgF5EN2olJgdCNIgwsc4lbiNwG1E7QwMgG592b nJx/vvP7vuc5n+t5efjFfSYmJvH/PbtvctYJa1FN4KVv31OL9sZIKKZNZJnH /dSJe7NBNMSJb2f1CtV3anfnDTHZEpZwvour1o7vzjZRlBA+YF3EUiMI7B7r /LXLDFxvCie5erE33U3ts+ebQV32UI5h1hm/N4cfJuzNTMU03M8C0rsSrx+5 TkXvLehqh7KaUHv0LGH/TkbiuTw79KzhQn8idZtng54NTLb9Huy+fkAt2/Ns oTOytk/qaY6eHQw+y+qRjpvgejtw83XRj9VsqUifAjMVgTddfDdU5HkOgvjk uWGK3KAi97OHrZjepM3IJRXpHQJmWk5ekO4PFekdApoi7QOL+ln0HKByyxih bRtTkeehAkevT3+xfg+9d+DqCafXLav3CNJzhFG2lqlnPSZIzxEW/W6Xf3dF S5DeYehWB/rTd3QE6dFgTXzXL9x2iiC9IyB9HO/8en0KvaPgWdeRVrY0hd5R mPBtHJ+hTaHnBKGUP6sY9ZPoOUPWta8LNT0T6LnAX9OPyryWx9Gjw/BqoGG/ 1QhB9kMHose+Q84aRp8ON41zTz/q/BG/dwUW7/5GXH837ucKpUssY0tlK3pu MKB78DQqshL3dwP1lyGfRiuTsE83GJmXpyqZVSryfrqD8adLqRkfN2C/7hCt 27fSMNeE/8MDBu5ElfTFNWPfHnC6SsBtZzWj5wEpHw5dCAhuwv4ZEGy+PHNZ +b/HgLmA5Lmo7Vr0PCHgQe1nuTYV6HnCtepKS+VmHnqeIG8/pdUUJaPnBap6 1o5hIRnzeoFZ8pOml0E5mJcJuZD598pqIeZlQv1yZP1Yegn2x4RBM0rEP4ul 2B8LeGubMYyrpeix4Pm8JYgyi9Fjg9uCa4bpYj56bHDk2b5ovp+DHhs0xUlG 7ZM09I6BXOEw0zb6CXrHoPFEsrI6h8C8HOBy+hkuZ5IwLwdi+VQrnUSBeTlg XThkKMv9HPN6A/Af9da2ZmN/3tCdGub38EY2elwQjxQ13DrwBXpckC1kx/k/ zECPC+UBmyG04ivo8aDU50zELU0SejwYsRtVWLyRoMeHMo9tKx3NHdfzgd34 a1AsJwzvIx+cLlJ//u1VPObjQ+dLH/Mghgz74MOz789OakQp2J8A3jdWnrVk pxLk/RJA8DdKGfuXFOxTALMNdW3GEhl6AtBUTEvpfQnoCeDtgo4Cm3dj0BPC Xc3BTHN9CHpCoLYdb+I5CNATgsQ/2r2QAphPCAm9kuG0gjDsQwiUV5LTFooo zCsCoeP8VzaGWLz/InAgnh8+1SrFPkWQp7nRl5gqRU8E5XmS/LClaPREUD0o 1EhpYvR8IGSlOHN2I1T1Lx6/kRc= "]]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"k\"", TraditionalForm], FormBox["\"Vlocal\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{0., 19.999999591836733`}, {-5, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.615024757582862*^9, 3.615112040786337*^9, {3.615113319372031*^9, 3.6151133296953616`*^9}, {3.615113456943717*^9, 3.615113487113134*^9}, 3.615281439828664*^9, 3.6153720169557266`*^9, 3.617035555742648*^9, 3.618237578968089*^9, 3.6182898993941946`*^9, {3.61831072900387*^9, 3.61831072949422*^9}, 3.6183125404672213`*^9, 3.618357657934122*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"intertlocalfour", "[", "q", "]"}], ",", RowBox[{"model", "[", RowBox[{"q", ",", RowBox[{"Ra", "/.", "fit"}], ",", RowBox[{"ktf", "/.", "fit"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6151127467315006`*^9, 3.6151127954701214`*^9}, { 3.615112869468655*^9, 3.615112869564703*^9}, {3.615113357862356*^9, 3.6151133622254534`*^9}, {3.6151135015804048`*^9, 3.6151135059104586`*^9}, {3.6151147743029203`*^9, 3.6151147744089985`*^9}, {3.615372024739255*^9, 3.615372025158552*^9}, { 3.6183105163618665`*^9, 3.61831051719546*^9}, 3.618310864084008*^9, 3.6183123668470645`*^9, {3.618357273038445*^9, 3.618357280955734*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwdWXk4FN73FmUnWSJblsFYhllESe5pVZIkZC37TqQk+5Z9REglssZHWbIl 4Uq2hMJUkq1EGykkpPrN9zf/zPM+957znuW9x5mHrMNZE2dWFhaWIjYWlv99 3zNdm5gp4ACW//8It/4lqEQ8vMQJKVeebjviK9iaUV2urhTHCWd1vuXvshBs VQHKWEYGJ+xeujB7CARbza136vhWckLjXbT/gYBga2XaoSXFaU4w7K058bV6 S6vdXwe3DGMuaJ16+zh6XaD1yets47NK3MBebmQerr+5NcPBbOknjRu4O8/Z jMlsbnWZ478eAtwQMDka5LzG38rNFjWRYMkNO1eHZhfK+VuN1d18ipK4gWM4 WuL3Vv7W8RjN5Dfz3PBSO9ss5jtv6xqlr2t/Aw9spe99EY65W3ubYj172nkg Q6yp6kYOd2uuPmw+McADYxUErZfB3K17bWvMT3/hgXNnU1WqdnK3xsffmA6U 5IUO98uZ32q4WrdOOLNVRPDC9eSwE6ZVnK2U5L96Ykf4gFWCZ7Ksmb2V6r7u VG7OB6HH5AmMW+ytmofWEvc58cH0uD+vdAh7qxbL8iuvcD5oHAihC+1mb9U9 P+fzuI4Pcsec7kY3bmo9bDOa6yHHD7daDxA98cZWO7XGv02/+WHT4ZVvze9Y W/VndCbIpwTgmG2SD3X5L3YZYszG2QpAaEAj+UznXxzT6rM27igAu5/GXqi7 9hc/vlkgQvcVgKPjP/rGtP/i3ce5DT8nCICC5FyZWMgfrNHwpiG/SQBY00xu 8fOuY9HEwKuCclvA+rN44CH9VfyRVH9waXYLnD98OHkfdQnLhXo7qy5ugcjO cwfGeJewTS/hssPqFhjpzrK8+XERv/BIb3+xSRC2x8wMBeUs4sYS3/3l0oJA WFW5/px7ESfLqu51MRYE83/f3976+gNTRPJ0h2sEIamyNkskdh57OZ2y2dwo CL2khyf+7pvHd2r4Qw61CoKIj5EugWUei5uEPqrtFQRjhc4EpeBveOMVK520 aUFAbEqmPOfn8CtOkZ0GokKQTEgX2+f3FQevJ9CagoSAPjtE/Xf9I+4/75gR FCkEXguxjX4WH7HMnO7PnfFCsFe19p2q2EfcPjZfX5cpBIjTWvLi9RnMi810 KquEwInytdD91jTOjZTdWzAjBMLHsze23Z/Cj9kfGsWbCEMfKTIkWHgSC4df rTxkKQyXOYrq2RonsMsvT4FNdsLgNudwJuvoBOb+JD0Y6S0M9qPdnca+49jk aYxZcLwwxIYS96ziUfwhydjGp0UYGOEv9JMuvsEcWz65m6qIwOfkggHzPUN4 Oc7m4G2yCGh0qVFUPwzimb8vZL5oiYDAgbab3kmDuHP24evw/SKQPUHR2PN2 AMd2Jx28ayMCp6+KDvFEvMDsERqyrFdEQHjrLm+R5meYfT5guHJRBHgsBioa ph/jZeevNWurIjA2Lsteefwxnhk9c+Ugy1YYNzU9FtnYijt7Dh96y7sVLooJ hvoqYBx7R7yWXXErOFArnZ7dbMTsp1uu2FpsBRMnP9nxV/fxpr5N+jzNW0Hm 6503i06XMK/3LcexJ1shL+Dl3paz9liYjxZR2cM8R//MVE6fQYRjdg9PDm+F jJ1WevNGMehAX6PqrcWtUPYmqHIj7SaK6jsrQFIRhdfxj1XsLt1Did7spH9k URgupDpcNatAV/lyjgxoi4KQtOhnNbEqVHCsJ+rCQVFIzFkfaPl2Hz3uI/xs thMF1WNpy2JxdYil/80boyxR0M0eW1JzakKcPr7LMrmicO4Hy/CcdjMS4OcQ WiwShR2MvamzXC1IxkjTMKtaFJo+HDHNL8UI9ae0TPSJQrL1m2Avt8corH9/ oe9GMXjP290Y59yOfveXe131EwPFhYgxrXtPkfSAffaBQDHwcPyZzLryFO0b EulZDhMD1qdzAaz7e1Di61Al62Qx2J59tqXgVQ8Smzz2Xr5EDO5Evr0YvvQM af2YO1U3KgYq9ZbtHTz9yGoxP9Z1Sgx8xb8aOB3tR6E/zeq2fRGDWktW34OJ /ah9tVkw7JcY6CVN0Qc3PUcnWVP6Dglug0slFu/Ulp4jXyH1/cP624A3S1H0 wOsXKEPkvV+i0TZokroybPrjBXogei1P12wb1LwMecPLM4D+Svz9k+ewDS54 rIic3zOA6IT+BvfQbTAm9WFMOXcAVSlGfZSIYfpX+PIvrG4AMYhaW/sTt8Gh iGuWYb0DSJKU60+9vg1sWhc0QlcHUNkOH/Xf1dtgsq3HVct4EPVry9mWP9wG vXKp6sLOg2hh16ukM63bgJL2pSrn0iDapaf3+UnfNnjgW0KqzR9E3Yf4i5I/ bQM2aTT7fW4QTZ+q2CYtLQ63j74sbggYQncs/rTZEMQhkaiy4/jlIeRmaeiV rSIO3JMN7jnpQ+iL1ZcWMW1xSGd7sGZXOYS+2yo6CRmLw2fpWwdjp4ZQ9ekL fCbm4uA4qBD/dn4I+Z9pr0+1EQf5suOTn34PoWU7By5+d3GoLak9xS3EQOuO uRWcUeLAd7XG4Y8uA7U4zZ3SjxcHueNlv3oOMVC4s+6G2BRx6ON4FXjSmIFY XUdOsmWLwxTptW6WAwO1uyr/2ZsvDsfWKWEnPRnoslvgnYgScdCP7y3t9Wcg To+tq39qxGH+5rP6X9EM1OPhXKDbKA7ZUXXXy5IYKMmz9mhwqzgMff5sJ5nO QPzeJrkrveLwZUU3Xy+fgYR8U/YvTjPr4fq6N6mRgRi+Y7OUWXGIuWHXu7+V ga75qV3zXRAHtudH7rV0MJCYf8+nub/M++z63P+eM9CI/7arapskIM19MraD wUDZ5912e/JIgNjVD5PGbxhIOoA95ZOoBBT91FZpeMdAkwFm2krSEnAnjVcs c5qB8i8WTToTJEC+znxy52cGIlzaR5siS0CKqfmfV/MMNHMpbVRWWwKKNTM8 vi8wUEnQ5GW7PRIQ8Yy068NPBnIL1tC4vV8CMlr3zOetMJBKSNjw2BEJMD/x qEvxNwPNhvRFShpLgPajnD8X/jBQeaikqrW5BNzbPfos5R8D+YR5Mm7YSICS gI+334aXiBzeGDrsIAGSAQZS0mwv0UI4l5KouwT8K3PbmrnxJaqJsHhhdlYC 9s/i9FebXqLzkSWXMi5IgPVF/Rfv2V8irahluaFgCWhMWGZv5HiJVqIO9m6J kgCGXfs5G86X6GF0xgXjeKZ/nVKjHiYOipmSvpIiAewnb7xk43qJdC9Tu/sy JGDj55R9XEz853KkH2+2BCTtingxwrzfEvtC/Gi+BPBFOTUGMnFE3Pb2hBIJ +PuPunuKybc33se7u1wCBr6/p4szsXj1xKmUWgloDfhqxMGMb+mt8T7TRxLQ /LXIs4GZT9+mNjXxNgm4pntUQ52Z7x0NmuhkN7N/5uLTbsx6RFgWbbjzXAIE FIyG3Zj1sowWmfV8JQGG1+RM1Zn1pJbHvqKMScDNa0OFD9cYiPf1r9ZfUxLQ KZgjyMPsxzSL+93mLxJw+1fjVzlmv1pURjKjf0jAAsU9aAOzn35hTR6b/0mA jpXLtNBXBjIoJZm93CQJw389K459ZOphMBdl80qC31cgGU8x0CuFSGElcUno 39nWWD7CQJXHF/7OykgC/rv5KNcrBoq/5Pi5WkkSjM4pNZAGGGh338EWvR2S UKi2rDrYyUDCv+pLN+pKQuawUa3JYwb6JkNM79knCeHrNZI5jxgo7zy3m7mx JFwLmElNrWSgoNxgE8lTkvCNYiat8x8Dneye1X1vKwk3NISuVBQwELvk8y0+ npKg24SlVjMYyPNJ+qPLsZKgXFjBLnmRgQ7MbbxzlC4JEaseHfJnme9BNCB1 S4YkvFFc915xYaAXHhbOOfmSsPhiIpzLnIG0BKU21zVJgurX8OYBCgNt1k1Z DXoiCUJR9e/0iQz0yfnfFPRIwv0Y/eVkaeZ7e/iuofe1JCDILFTmZiAW+zsO HxYkAZzVSBsmhtCbRNFjZauS8HChL7h9iDm/auO1fVmkwNxzSNO6ewg5c3ry rvNJQUXzbqdN94dQT6VGvZCyFAweGFM9HTGEMv82cO0/IwWWvXqr90SHEK9S h0+msxTsjRtmGeMeQjHHB4Y+ekpBq+CD19/+DKJzeZ9zkgOlwK1Bc+3h1CAy 2idOfZUmBZ6cA/vWywcRe2ywlXu7FPTSrA9oo0EUyKd394qyNPQPd5kPHB9A 8zsMBN5rSMOc4zlrYRhALqfNL2hqSUPYkZcfgTyATCt90Jt90sC78wFz7R1A lBO3h+RspMFKI+1+yPMX6EsGy3pdijSwOAfF6x15gawlnxiOLkpDh/mnH79t +tEX7x8LdWvSULU/JzxqRz8KxNtvXNmwHU4dXR+Z4etH1xxCpvdt3g6svlNv jrb0ocHSHWH/qWyHVf9IwWypPmSwo7QywH47XHI+3ijw6hnSMaILbnm+HRIn S8qJO58i3lbVWTkzGVBw4+Q78PsJen/jRHe4hQxM8JKmbAafoAf+F4tGrWVg fP6906X/niAHpSc21xxkINL412LzKeZ5ilUfl68MbG26sHyrpg052CZUfE+U AVHDvYeXPR+jhrUZ35ZWGbgrKzWX2NuMUhi8xyTaZWCScDmfM7QZOVZQlQO7 ZGBX8IBKNakZ8TuEvaP0y4Ck7GaV0itNyPGpiEnxWxmQ6+5IyzF/hPivH6Al L8vASa/4XoNvDch5R8FPSzVZeDvJ9/i+QS1KTBHZHKohCwt6Pz5d5qhFFR/j iXlUWeiUfMByo70GLd84az2zUxYSWI48jIIaFP9X9/G5g7Iwu0mTHrO7GpV1 vU5OOi0Ld6pqa8z3VKFvlnyE5lRZsNicbjE6XooEayL2TKbLAhvfSW8191Kk xbtkzpYlC0Zb7lN+Lpag8JaRhCM5shD7KqPhBlcJEpAvnX/5nywsjX8X7NhZ jKiz+x59a5MFk9mqXqfKfHQxLNBE5qcsBKr63ffdfA0RZ0N441ZkoeOfUlMT LRMNW0Z2zv2WhZ9Os/R4ywy0c0eiziNWOejKc4mJvXsVrXzNljMXkIOCo2P7 avpTUJAlXkhSlYMPP0yk9hpHIZWuJ/cW1OWY+wG/qHR/BBrR7HaxpMqBr+W7 vE25YWi3wMCI4i45MFGZTm6rCUTrne/bHh+SA/6nBy8kHvdAYZrs6b/s5UDL cd1NLNceqxdwHzvtLAfGd3yzWqdd8PjmzRwdbnKQqnJA8aSUF0ZfRYOvnpWD fZNXSuhUf8xSoOxICpUD4pT9ey9aKI7afIzmeF0OWt8WbfbdHI8vf0kf6u+X g48sV8M/ncvAMa+ne34PyMHoR/PdZR+ZuF27jfhSDmITuN7ut87EUblvq6Le yoFdimLnqt41HGYin6L1SQ7EcjsMjq1k4YDG6sO5G+Sh7VkXVzAlG18o2QjP NsrD1mBbVoX0bHw+w1x7hUMevEnZ41cXs/E5nzUFE3550CP92VtXdQufldvH xi4hD0bX39X8kMjFbokDzd6a8mB/VP7zdqs87HpRvu6mtjyYrJ1rSQvPwy5O F+516chDzq/OjaeL8rCT3rZs2b3ycPqS+XXu2Txsv2AX+PKYPDiP83Uy/POx 3UT1WdYT8rB4IIh/dwYT92501TCVBxlqnsam2nx8+k6pWYKVPOzVXax8+iMf W1l9p+5xlYdW06p0TZcCbKm/T8XDg5mf5lTySGQBttDMkM3ylof0oZjOuVsF 2Jx/p8APf3l48vlbhd1AAT7ZFj5XFCEPys0W6AatEJtUDnwYiJaHgOHfij0G THxLfvRvrDwwvrTV+9kXYuOArh4LOpMvNStKmV6IDVU2l/LelIddV3sK3McL sWX32VLlHHnIuB113/NHIXZxeVF6KE8eUqPuUBfYinBEQdp/EXfkwfiY8N8U pSJMh4X/cv6TB66LxyPv7CzCN8dNyhrvycORteFPB44U4Vpx4btL1Uyc9vCV mHsRftxw/u6Wenn4M7Ph2vHAItxv/vKu+kN5kBUPvrs5rgh/unrtnhuWh9u3 3huoFxZhSZ5tFaPP5KG3/EHg8ssirPzfpYrVfnkwTWxgT3hXhLX0Ryq2DsqD uGFl/3+zRdg4OrvSeFgeDNnsw65vKMa2suuV3m/l4Z4O321XnmLsgW2qEsfl gfo2zbNLuBjH/Ja63/5BHrLfsgftVizGaTfC7r/7KA9+oZ+WjNWLca72xP2/ X+TBnPcyfXVHMb77ElVLfJOH/cpmkzv2FOMG/7zqnT/kgXZhIIH9QDHu2LKh xmxJHrannVP0MijGg5X2Ned+ycMG6fsmrsbFeParXO29P/Jwhf/zMxnrYrya EF37lIUA+XN6FqtnijE78UPtDBsBLpcZZdY4FWOhzgN1bBwEOF7l2rrJvRjL OBXXyXATwBVnf573KsYkVvb6PXwE0Ly+LnPOtxjr5LnUWwkQYPvv7IBk/2Ks r9dVf1GIAFdKk9b0Aoqx6ajSg4ytBPhqN9aUEFiM7YPiH9zfRoBbHwr6vIKK sY/Y5wf9kgTgXJrT/RRcjIPrjzR83U6ArOMvxNdDinG8aVkDpzwB7j+wvlga WowzF7gfKigSoHk232GOiQtSPR/uUyYAobJ2toeJK9V7H55RI4AhLlbYy8RN vWqNIRoEyB2LlTJm+nvqQW+8QSVARI/7h19M/lec3xrrdxDA+pBd4s5LxXjq jtGjoZ0EuLYlZLvgxWL8/UDlo++7CXBjtr8m5nwx/vN+cxMfIsCzLI9TqX7F mDvSt0llHwEyhuzEd/gUY9HtA036B5n+7J7w+nsUY0IzpdnpMAHi/xbqGbgU Y4r11ebIowSI8RFubbQvxnqrC825RgSo9VXMb7cpxkezTrY8OkGAyI6vP1xP FWOLHbUtw6YEOEkKaCs6UYydh4Txz1MESHN7LRd8tBif87uABa0JUKgtK/+V qQd6uVaroT0Bxq/W7b+uVYwV7Yj25U4EeFG0U5fI1FeLoDgrvxsBelZlHR8S ivGpDp5CH0/m/UoeRX1xZr4X/+x/7kOAuKukK2c2F+MElfkPGucIIGVgHbZx YzGWG5u8nHqBAMthbkPaK0XYdF9714kQAjA2+KqfmCjCc0t1btXhBIjN27Kk M1iEY0tKuISiCTBi+y63sb0IN/AmHWUkEKDzpaV8dCnzvb0+8dw8iwC6hJcO 3p5FuC5hv++DmwRIkeXv07Euwka6O7aI5RJgT4SgRLkBcx7ki518U0QAIbbe d3HEIvzBc+KVdTUBlOOJmQaThfgei/e4XR8B/vJmsD/fW4gP1pwOf/yCab+l K+ceqRCPOxvLyDEIsGr2yubotkIs8IzmMDXC9Ke8Y75vvgCfz1ybdv5EgMGK ovKFGwV4t0r8nAebAgywDLwSnsrHPScL18/vUoDzf2N6bI7m4erL70eydRVg mfKs8h0lD998IPuwDSmA2MbO4N1iedhDIu+CwCEF2GmoazzRfRtzTd36dtdE ARpv+X3q/5mLD5+7NvneUwEkqVqDvyEHd6QmtBvnMs/l/U9F5N/ArX1nk9XY FKE3RMZH7Xka1hQGnix2RfBOf2p2gJ6GS60EEjdwK0Lu+Nx4wNE0fOVjVdwr AUX4Nbo4pdKdik9vWIiKkFaEcRYBndTLV/C65vlLjF2KUKLT8/rApSS861ag S4ivIkh7/NpXFRKN770/PD3jrwiNfiLVretRWEZ5m9OJi4qQI2ftsTE0CnPW P7RXDFMEMm+bJCUsEg8/X7N5kaQI3LnBd8fZw3EAW+hJQokitGm8Xl/Tvoir PSKhd0wRuqaeKx+2s8OaDnbdiu8UweMFIfemhi2ut0TGkR+YfMYmdLZCS/zw 8J8zWl8VQS81UtQsywS3Kl4Kz1tRBJY7NeT291Tc99635byQEgy9dN/wnscc GY0cP/R8qxLcF2lQ23PUEr0YUO9XFlcCq8iFR2UxNojROjs2LqMEwxHEonvn 7NFIrtufw+pKYGw3ulhU7oo+WdnpSh1Rgt2O3eTq637IwwS1XzRUArARyAk6 fA7NHpE2HDyuBNt0ZX7WLJ9D8ztHrePMlaD+S/laotF5tLzVIviHoxJsuS1p dXA2ALENHW/sCFOC11qEM0+mgpH0UbTTp1YJBpFyiMPlKPTtseeflAdKsD9u wx6BziiEd15vq2xUgkO5b4VU2KORneIPwx+tStAfFu9wMyYaFWwotD/fpwSa Hz0ldwbFIKUG9qSgGSX4q5va1XQoFq2o04yzPyuBbSAHl35oLOouPiPSNKsE NenHRqVrYpFHesPtPwtK8LBiV1alZBy65+NRG/FPCUJNdv7a/jEOkRX6x2LF iKBq90ND6FgCYrm1VlAiQYTrmxoJ3gEJaEBQya1bmggd73/Kc95OQOdYIha4 FIggeW17+4ZvCajuLYWDTiFCt3SxBEd0Ioo1Od1brkmEVOy35HUnEZk/TUzr 1ybC3G6HUeGniWilfkpCQI8I6ds4bFR5k5DO1UxyugERpot7ygISkhA3V9vP mmNEcLKXoX+/k4Tehn9rZBgT4dItg+jyJ0koxFv/4NZTRNCdOk/6sZaEDD/4 c2tbMe1F8+UCRZKRlHXe81O2zPik18r3aSSjlsOrljccicD5I5Gr0C4ZpWCF 7Y0uRBivWV3ZEpiMzmiZfBhxJ8LE/aHjAfRkxEK46yPpS4Sb11OGhOuT0f5/ NtG3Q4hAG0v0/fg3GeUlin9miyBC9kyTZocAHa2LDBu5RRPhKbnO/q0sHdWr nRSnJBLBTv2HYdNeOhJsEIjIpBNBYcf9+mRjOjq7v396NZUIcfLkybzTdES0 OnK/LYsIo7aOT28H0lHMNLuoUjYRtP6ka6bG0NE73/aQpFwirKiE1D+/Qkd6 65Hv5/OJMCAwQrC/SUc349Bh02Ii+A97mukX0dGy4J/yhlJmfe/OS10up6OT uY1CUveI8KlG3lSqno5463ZMTFcz+8GdaefWQUduzM3RoJ74v/83vZfppaOO Z1VlFQ+JIK16n4gG6UjulI+AUDMRPlYEcXW+pqOw96oBF1uJIOjgbtUwSkcj 3p/fvn1CBFOf3T/E3tGR9uqdvdBFBIc/FYVfPtBRRoxTSVEPk29nlD75Ex19 3yzHx9VPBNZbNaUzX+nIMHvinPcAESqddY88/U5H/ynmDA8wiPCQ9x1F7icd sVdb6WkNE2Eo82DN/AodOewRK7r5lgg1m/ilyet01NL9kuvfOBEE7Mfb3v2l IwnT9LOO74lw+57VAuuGFBQ4Yfyya5oIonOKf9JYUxDDg3+32mcikJQ+0uhs KYi8/CwvdZYIWWfQxwUmpkcmsP+cJwJ39pDrYyb+wqvvZblIhD3j+uy/mPaH rm8cbF4mwgwJhK4y/RfIt2nLrRGhMcVuIvUfHf2rCM+J/UOEs5uOPfrBjM9G Zw/bVxZlaLz236/qVTpq6FhzO75RGU7qi08PMvMTPtHQX8OhDPMS+xnHf9CR 3+gFTTEeZdi3rVuEOEtH/a60myH8yrDxwLE1yxk6Uln8/m9yizJ8zQsYnJqg o9iwCueDIspwT/PTtyfDdDTF5fXsPzFl+M12KG/lBR3dkvl47dx2ZZB1M99o ielo5W7R+is5ZXBmP2ERWUdHZtoODrsVlYFvsSv6VxkdVbdt776trAwD1DOv H96mI36jMdJGkjJ49TQWdqbTkcebm+luZGVIbQnbJRlHR11OFqu9NGV49p/s 5sOX6IjwXeQMRVsZuraFr5a70VFE8FB7po4yrJWVX7E5RUej7Gkqa3uUQXsw 3dT8IB3tumqUenqvMphtFHuWQ6WjhdKn1kqHleG+Tcbwdh46cnqFFxrMlKGi OK1TqzYZCbzryZyyUAbC0HRAQG4yevT15U5+G2UQ1C6WV4tPRoIbZsMcHZSh +qdO7garZIRVxXj4zypDzrUsg5RfSUg80lfeMV4Z3Mrw1hWJJNSZFNxJT1KG KxxdVcl/E5HftVj3hhRlUPicsvxgMhF1371VyZepDL+Sd9wfKUxEAa+6dzfk K8Nsn0qWjGIiGlCVNeV7pAzG3/qz4sQTUIiW2i/tFmb/pNjsCn7FI+Je7ZsO j5WhLJ79ui8jHoWZH5t80KUMcuQjRHV6PFKLvOTlwFCGsDC7cNvfcSj+1UDM gzlliGabq+XujUV6kVF19jIqcARL9u63ikG/dG/Zh8irgD3hfjUnLQZVrdTx ZSmqQJV1tV0OTwyS9/3s3KumAusqwENrikacZ4y3au9SAd0aT6c18Wg0pCt9 kdeEaX9bJOB4fyRyW3m480G0Cjj+lx0mPB2Krp798Yj3owocoB048ajKD71G tzg9v6hA7u11BbqBH5IU0Dd7OqcCI/W98xkffFFJ1a1vl5dUQGzze3+Dbb6o 6Ye+7L8NqrBf4IjXELc3mvHPjf0hqQryB/f3PBx0QTqBR0+8MlGFHkYoKbXd DIUfXs7RNFeF9XZrww8nTFG7WP6Xq5aqIFyokbl30gQdf7gcfdxOFRgzFf2c LMbIaS2/vttbFTwvx/G1XzuAUkJWJB7Fq0JpzcL4J8SP30cUz9xuUYWriRs9 Wd1P4YAXOb7tj1VBaLDaaKjaAnPLXFv71K4KwdkZ7yR/W2IqjuWnPlOF8G5U OBRrg6P/uGq1v1aFLD7iHr92O0wIUon99F0VzFPEDfkznHHDUzkBviVVuL+0 JSWb6IINt0ncpPxixn9gz4HhRy74fANPRdAfVcglmTN0x11xx/LsS15uNbhf 6fU5bNkdu/hXKlDk1UBSOFp5/pU3XmsrqTRTVIMNrxLU+Y754BTBvF1BymrQ 1DmQNP3YB9ffTz32REMNyB/X3g6VnMUc3/0umOmqwSjrQfPYal9c6qXZcclM DUwcyr/xm57Duk1qx3Mt1OBsJV7suXwOv+BReNNmrQbLKzl6Gx6cw6tlInM8 DmpwzUp5dkrUHxt8XhbO9VGDy42RcuOv/PFX54dObXFqUKPJUC2BC5i3Z98V lSSmP8Ottw+cvYDVmL+vrqaogctBB5HjORew1/I4v2OmGpwJNDK/++sCno3d +JCtUA061Je1o4sD8GzJcb6DLUx/6MK31umLmJf3jXb5YzUIev3IQZsnEKv5 OjiIdKiBfscMuyQ5EHvtvPBg+pkayIOMCjkwEM9137SPfaMG4sXuAlqclzA/ iZD8bVQNPhZ59L1UuYTV08rrzSfVQJ3odu+l4SXsY9nKo/RRDewXtjV/TrmE v32erutaUoMZQn4BP08Q5jc6O6mxogYOL/o/WRGDsHr1Cvf132pA9wtWmT8Q hH2CeOzcWEmwsV+QPhUchFPGMxJfbCLBiMLpoj3XgnDFPum6nVwk8L/3uXCo Mgh/46ZwcwmQgD086nDJJNP/2UZNPyESJLh+nxr/xfQ/tP/Mm60kmH5wxvQQ fzD2yTav/U+KBLufsuVf3xmMU/5NjG+RJUGr4g3/UMNgXOHozhVEIAFF4QdH 7JlgPK8actpAlQTLe8oclqOCsUDqpoRqdRIwljy3W6QHY/JSSo04lQQVl+8n DhQEY2MLsfGoHST4N8eZ6lgRjH2b8jm/7iSBqvKu+fwHwThVRpV2UpcE1vNq Yb9xMK6KqbV9hEjg85yt9nxXMH7xaU+8/H4S6FuMcQj2B+Pvhl3VSYdI0CX2 5vvrISb/feOxxSMkeH5760zPMJNfZITD5hgJ9oXUnZ4fZfJfcqS2GzP5dV8O HJlk8o/N2qiZkuCLb2b9+Hsm/96AuIxTJHh/RySm+gOTv/jf/XUrEvR4X7j/ dJrJz5Uw6nSaBNGmjDriDJPfW5Cjz54E859PcDKY52dOfPb57USCaxLdZTNM +37N1lfKbiR47Sun6DQVjPeIZelZeDLjuSQmZfwuGN/77X0n1ocE7u321Irx YCwxcYC/zo8E4+/qOKPeBuPENokA5ioJFPvefc9fB+PV4oWxLYEkWBywib7B zNct4elBCCbBgyfS3h+Y9XjtlVfuE0YC/s6nBTVPg/Eh44siOZEkiHcT6eJu D8Z1NKPQZzEkaNB5GDLXHIwJogrTq3EkIPV6uZxh1j997bchMYkEwfc+KjpV BWPW8cFa8xQmv+c7u3+lwXiyKCKmJoME0m0avRw3gvHx+FOz77JIEHhpcV9I ajBu8VQ3FcgmwdGigT0L8cGYdHxTk14uU0+uKQ9LmPq4RR2V984nQWnZAVG2 kGDMs7UmKbuIBJNCN6+xXQjGQasJi09LSEA7rHmx1DsYW7RqP1GsIIFLSZ/V qG0w7irkVzW7T4IPkmJj7mbBWCtu+mp0LQkaF/bg60x9ChulO0w2kqDMtDr/ 9a5g/Pzttw03u0hwkN3mZfvmYKyHO9y7e5h6S79teHgjs/4FtwaW+5j6L/sq 47oShBPdDfJPMpjvS0Bzwn8iCB/6VQx875j67SgsrS0NwnUjIaW7P5DgafOR v39uBGFCy0kBj48kUPdUqBhNDMKslzdMds6RQDRYWOKUZxBuEbQNj1gjAU/M /HZVpSBMWqZ9rPhDAuJu+z3cIkH41hvu42Ms6vCSHn3NljUIB+U1SOtwqMPz 5MPS299ewlrqwi2LQuogIf4v81jcJVxx5Nm6C0kdio/FA6UnEKuOV3lfJqtD Y6b2GOf9QFx67tp4IU0dTiRkSvtlBeKCbPvWyV3qEDLT93HBIRBnzv2Ktjqk Dhz5+//VL13EglFjS4FH1MHVO1ht8/BFnLL1iXOWoTro9e6rXG68iONRij7D RB1u1H7n8w+/iEPSCDxGZ9QhxmL0piTbRbyqwB3i5aAOiZOFE1/eB+CAxvnZ RGd1+PrurYp+WwD2nWrs7/JUh/M4fxM5OAA77jhxdW+gOuhsC9l7e+YCNngT um1HmjoYiq70tN87j7u8HRNPZqhDveZnzT0x5/EB1iO//bLU4ejiauZF6/NY T1V4rCJHHa5p/HQFrvOYElqWRyxTB8k7FecvO/hjMdnXSpJP1KEsky9kmf8c nnEja7H9VAelM2voleRZPL+lRN95RR2Mz/trdXT64JVGKcuu3+ogdc82KsHX B3Px8YQksWoASqWZRT/xxmr3px8LCWhAc2RJJMPFC/uv3jxGUNWAts62Z/dv u2OWxE3OB+014FTB5ZiqNEfMRQsJKHHSANcp1YZCkiMWHF2I43LTgI4z+TVn njpgefXJsj4fDbisOC4HLA740GDjd7MQDTCtfNu9ycsO08V9Q1yyNCD95o2n AaFWWPzuSHpcnwaUndGae+50FJ8byn1f+UIDFI98er312xH89LcDZXhIAziL g3MqAg/jQMOv/cQRDTBWMvokdfUgfj33m6tnRgOkRMuTNKoQNrjOD+wsZHDT iTScZZfHnG816g9vIwPrURNVy3RdpDmfNjYqToZb87xqXK/1kB3b0kY/STJw Plt78ScJUINqw8kb25n26c//E366D7mGwI/PCmTYfHl33/Ud+qhT6oRaEpUM 31ru8sjNHEfRducK+o6SYfC9k1yKiCVa+it5M/oYmbkfs00LVFoil5yutF3H yfB5+GfoPX0rZDAiGVlsQgZv2aa0DQHWSNC060yoJRkcrpHffOmwRTELfqdo 1mTo3N4189v8NFpOlTz+2YYM9x5GxffOnEZv+vz0zOzIoMn/3yLaYIfy9CWl SK5keH7Q29VAyB4JznQKT7kx49Wz4M86aY9iYvx4b3iQgd9IwUMq3R65Pu78 vdGHDCsM2uLgZgekvttvZPQ8GRZtO9Sf/HNAzeqdWclRZBAzGXDranBC6n2+ V/bFkOFVxCYT9VknlOcpEbdymQyNh0wfNUs7o5hS3wCnBDL4Ptj8+ESkMzKU kzDTTSWDEU9+CFnXBbW0dhgupJGBMmBo0OzmgshnfA+UppPhsXflH/cMFyR0 q4MmnEWGQgPXbunPLmhExFdwNocMsrebrf+FuSLDWnHugttk0FX/4sGa74pa TDo2WOSTIbV8UYza5oryr4j/eFJEBp167R2qrG7IjavjefZdMuRHPirZfMkN jZSc7TpRToaDBI6PrJluyPCQOOaoJMMXZadkgyo3RI4+W+FfTYYbWbOzXz64 oV/r2+hHH5JhZ4qP3u9D7uj74tGE1UZm/no/Vatt3dGnL6GXS5rI8PO50eJn f3c0MvwulK2VDB0pje++5bqjltr/fB51kkHUSvPPwLw7ivHaZazKIMMec4JQ zU0PFOroafjmJRmOcGuqq973QAFWOYfjXpNhJL/vjE6XB3I9vGHv1AgZ7p9+ e4FrwQPZIdqetFEy3P45twWzeyILLeddaJwZ38ku2i9xT2RAeErJfkeGiYM8 gSN7PdF+id+kI1NkuGQobBJs6ol0BUkqvz6Q4d+6jGyiiycisaTJnfxEhiW9 KL6xeE+k+KtNesMXpv73XXi/9YYnkv62JF75lQzkwVKJslJPJDBqIcQzTwaZ UH6V7g5PxDWUuPnhdzIEck3UHx7yRKw9TTyuC8x+sZNE+Sc90VrrNw6RJTK8 u9ulKDTriRYfyGx88pMMV2lhj01+eaLZChMWv19k+P1y+5OuDV7oQ3HMuvQq 8/6zYA5vHi80dqt+pXeNDNJG9h57hL3Qq/RPS0HrzHwyb3fRJL3Q80TxH8S/ ZGge2fTbQN4LdUcazr36R4YGc8fJUGUv1BoY9jlmAwUEupzU1FW80MOzVdNU NgqsZYgJBDPPq13ev5vcSIETFpv0Pih5oTJb4fEUdgqk9u7+7aXghQpND43o clJAo7w3WUzOC906GvjqCxcF7tR1a3+R8kKZ+8oGr/NQ4Fw+7J0W80Ipu0b7 D/FRgEvt4DdeIS8US+Z/tsRPgVmBj9FOvF4oXAm6CgQokMijrT+/0QsFSp97 YixIAYfXB0Or1j2Rr0gR/itEgUUNgufdRU/kwMbZYCVKAe4LV6OsJzyR9dqu Ws5tFEgY3q8lyvBEpj88q+rFKZBfz1G/rdsTHZx4XiooTYGkF1zqLBWeSO/V huLW7RQ4Eu1e9eW2J9Lqo+X7yFLgSq60kHKaJyI+yrrRQ6CA3/ozeoWfJ+r2 8621VqTAPoNNhjIOnsiNeOT5rBIFFC/f8Ocw8UT/Za5t3KxKAWnZhltA9kQq vra+JykUUEgSKi2d8UA9ilpJH6gUKB1xZxUY8kAeY/x3LmhSoHaPK1kce6Ay g9a3WdoU5n777uSHTA+kqiCvP7qHAk2S9ltd9DxQ79vf9t6IAsn5T8NjlTyQ 11VGyF+gQG7FgcCDAh7o3r/L1TIHmPXZqsLx36Q7Uhv5JOVsQAEv0QaKYag7 Ur9SsTRnToH5KwIOGqVuqP9g3OZwCwr4ThAXHJLdkM/6GRUBKwoE0KkMG183 VOm+xY5qS4HMxoGwcm3m+z9w/lmAI7O+xgfZONtdEXV1V8G/sxTo55l0YZlz QYOVgs2pfhTI02ltpDF/P59z+fpa1p9Z73u/P6s9cEE1Q7f4DgRQwGq/orZT hAvSrPgXGB9CAY/8B8Ipm13QDseO41sSKMC2V0uGhzkvJYtmdNoTmfqscrXw /O2EWKc5FC8mU6Dq/sYLR4edUL+LwfroFQpMWK3rBac6odoSz49X0pj6uyQ8 3ubphG5+Sh7cl04Bm21CB4MOOSEXj+elpdcowNGjZ0Rcc0SGd7+nW1+nwA4T 5fdbhxwRdXZLOP9NCoToub558Z8j+udtanY+h1lPh7tszw0d0XW/NxugiAI4 /hhtKckBhVWvzS4UU2BTSbuCv5UDclqUGC4uYerjtXznJaIDIl84XcFzlwLf I1ZqdjyxR08Dp6xe36fAhgj6I74lO7QWPlfjgymg1LvkzUg9jVpviYj1/qRA +Y1za36PTiCjnDFZh18U+HiImeSZE+htTrHqygoF3N5xyGqynUDLuTsQYZ0C zo2m31KOGiNSvplLCCsVFogh0fT2Y+hmcWat2mYqtEXfvO1/4DA6XyFygk6k wl5pojpXpA5irRyzklehQkLl1EtryV3oSmWx00NVKhRYHXg9Wq+Nyqp2BE6r U+FG2xY16mdN9K7a7PaeHVTg3SezMV1JHRk9yJyb20sFAZZ+S7LqRkRsFUk0 sqaCCk34UqyIFtbd5nx91IYKDflP5m3jtPGJc7V3PE5TIS18z1jQ8k4cRDj5 JNaeCi2qbScXn+3GvfGp6y2uVNgtV/6wMwvw5LsJ7mPuVNAz/8ChSdmLf+po bHvrQYU1+aP3prr3Yum5vh2/vKmQpy76S2VxH/Y7wXNW4zwV1ILrU0HzII4t swptvkCFlYWLySWtB/FNtrKkoxep8Nzg8NjVo4dwe93hUtcgKsygy6Gitvp4 q3jsu9sRVPhYG1qLzx7Bje9ZTAXoVLh0lTH6xOoY7t9t7JCbQgUenRtiRkPH 8FTGbV+1VCp4GKuWTBoYYV59PfrhdCpMeio1Ie3j+Mzd4M6IG1T45tlpNxNl jDeeX975o5iZr0x9p5yZCT62aVZqsIUKm1flR6ZqzXDpp+j1yFZm/k1JdbRZ M8zaK/GW0kaF5BQ9Rwl5c9xw9ej1tA4qvLPtvFRzxRzLydwVPNFLhcQUBb/N Tqfwso4Hx4s3VHhxHm4LSVliY2nWmfC3VOhR/npl+IQlvrvhZrvGGBUKn9bp LF62xHbdTyOvTFIh34RswT1riXvMlNeNPlLBxMB+eqrCChN2PR75+4kKjiLV b4LGrHC4pOXDii9UyB0jPSLyWGPNqfgA/m9UMPimOvGfozXO9f30vW+JCssv Po05c9rglZMRz0OXmfo6sNNnWN0Gn9QWqyCtUOFKV7O0vKkNrhCvSh5bpcKu phERvUAbzPlX35P+mwrNMd8vyWbbYId3E0f2/KFCULSdX0eTDW5uv0ic+0uF XvFkObkxGyxWupkjh4UGD+cjLaJXbPC5pJJpQ1YasJ0yP67Ia4t7fVD7OhsN vv/O94qUtsVKJq8L7m2igeYwf1WOhi2O2nE20oaDBuemD22LQbZ4VIzDjpeL BoZSSyV7jGyx9nquXhM3DSIutVoPWdviqxNaUl68NLi/aKZp5GaLZ9v6f0vw 0yD28mnKA39brH/HZeTZZhrUE2NMRMNscUHC34bgLTT49Mo362KcLV73upal KkSDJwn9/yav2OJTxuoBb4VpsK6jn2STZYuraZ2mSVtpoPshZtdiji3mFT1N 2y1GA+VwCndFoS12Xfu55es2GgRu+rWeWWqL28bo329K0GDAN3xL7T1bLPlY 4bmBFA0mGs/rb6myxQFFzeVr0jQ4PhaRW19tiwfizJLLZGjwfODY1vJaW6zm OedhJUcDrquXK/7U2eJYo8tHuAk0+E900OV+vS2epEgRGxVoYGMzpjfAxLtF 6tg9lGjQb3lCy4WJr60YTm9TpkEZ17DhJab997cfnjxVoUGus0SUENP/Qpj8 Yxs1GphJ36LbMfmXZB1a5kk0aMt9GXqSGd9ye96jKA0aJB2NLFgst8UrrhMN IhQamCdYHD181xavcUvXl1Jp0NMk3G3BzHe93KZmtyYNxtY+pef9Z4v/GmdX 9e+gQfPJn5EbmPYsS2/K7bVpwPH92oQ80z9rltjdpZ00WMjXkt1UY4s36pwq jdOhwYPdex4VMONlH8ssFtelQeoVIbm1B7aYM4JRUL6HBrVn5Xo4G20xt7xQ HiAa2FYMKvU+Yvaj80TOEDDjl6JX7m22xfzuqTdd9tFAKrXxpUuLLRbgfZ61 up8Gxa+f8O/Ctliwki8z+SANMjq3PK9jYmETw6vb9Wkgp8GXNMLEW38mXqk+ TIP4KekHRUwsdv1p8kEDGvytq+zawsTiuzkTh4/SoCWQSNnO9C85fijO8xjz /M8P154mWywdeTnmrxENVkUvTAow45MhtEemGdNg5rr45u8NtliuizWcYEKD fyZH3ZyZ/SJ47A15cJIGwWK+dj7MeijyRVwyMGPG9+iHJyezXsSqloAxcxpE 8e/6R2bqSeXkH39fCxqETlWkTJcw9bK824/NihkPb1OKPFOP6jeCfK5Z0yDc 5qn/J6ZeyboPPZVtafCrCFVTrtti6sQvt6bTNDjdENeynmaLNaO0XI7b0eCb GzeffpIt1lK44PjengaT8WRB/hhbvLO7xu6CIw08vzjsOx5ii3U8F2w5nWnQ fYZbkPO8Ldblp1hnu9CAGsZ2gOhpi8G0wuyxOw3efZUo4Dpli/f9mjUx9aTB tbhKC1lDW3zgpqrxRy8auPel9ReDLT48WWrA50sDweTtSnNKttgg+qN+nh8N dt3eJXtP3BYbKioepPnTgJAWzvWCOT+MvQqRZQANPh70GtKbt8Emm9/rzl5k 2hdG9l6esMGm1TI64ZeY/RbKe6/83AZbrORoFocwsePLjMh7Ntgqe5SyM4wG TmNWhyk3bbCNnoTGs3AaaNzu1NeKs8F2MdeVf0TRIEVD3XLnGea8U3qtGBND A//r16MoBjbYqUeEIBpLA86wTsVATRvsJpAuvSeB2d/FI/wz7Db47C26UMIV 5rz7/Tufr9Aa924gzBuk0eDRD4k3ApetsYprYw9vOg2+qN99JetijeN6je/0 ZzDvSzW/33PIGn+gfIxMvUaDQ4rOBx0UrPHerFBbk+vM87r6Q8lszHm+LrRL +CYNGoR0xBrGrfBv+zLhV9k0EN1trX2lxgpbdMH3rBxmfA8+PDofZ4Xr1F4/ s7xNA1aOf7v9rayw4FXvEol8GoSUDR7LVLPCfTY3T98uYs7Hz/rhPv2WeN/C Yu+duzQY1xm+nMNliW+fSix1K6fBkqgqy7tXFni9SSZGpZIGBgeCm28VWuAH ccd2V1TTwDe+zrJktwVWkyr5r+4hcz5V/YuhuJ7CWw9bxbZ30YCFw4rbts4M +5d/t499SoPt10NFJcLN8AvBuD2HnzH1eVaxZ+2wGU4aq1l61k+D6z/+Czwy ZopZ/Pkch17S4LD6jIshlym2HS7Uy3xNA5OZfF54eRI37tERP/WGBkOTilxl +SfxBU7XgZFRGmzIVj/Do3sSf8lpRe+naFAtUvhVNdAE67OdkiiaZupxcGvt 2mETXOQ2t+z8kQaVfVkxGeIm+AxNvOLzFxocDXG8drL1BGZ0+0v++MHs370r n5VET2CKOvdK9SJTv4ZvT1+cN8Yp6XlD53/SgFsxkD7TbYyPnO5LXFmhwWKM /lmjcGN854mjS+MaDRDXMyMbG+a+oby2N2Sd+fesYy/U6hhj+5RUKb2/zPrv ZLyxEzfGLYuKq//+0aCjw8zxzfJx/H945/ne "]]}, { Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwdlnk4Vd/3x0Ui4Zrn4Z57pZKES0S1F4pKqYQoyZySIRpUFJUMiUSiQUJS Qh9DxpxL5nke7lFKGTLPSuh7fr/zz3lez/s8Z6+91nqvvTF7D1MndjY2tpNr 2Nj+7+2RZb8UOr8W2P7/EWG6GL50NhXjhGyNWKZDhjCzkjI89Y/OCQ5cMt1m 4cLMjT2qN9LVOEE2vWX4prsws9+1LIL7MCeoVFQu3dguzLSOHMgvucMJpR+y D/PmCDGP9m7dsHWaE0YY3/bKVgkyd3rlZ3LUrwMb9rh9fwUFmM3/dG0u9qyD llVDl4PTFKbzA5y3b3Ad7JNsmpouoTAfpVaeK1zDBYmV70x3nqIwR7620y9q cYGna0VvzBN+5nPj6SdfE7mAKku9vCrHx1xVUPIvuMYNf980O5505GFGZ6Wr bAriBhkdGzSrw8NUArUv0dHccPTyYbkGQR6mxSltHc9MblB8g0/oMdczMyMN 5xQHuEHlWKYejbqeabtq7xJ9dD0wUu+/NhvlYn7uenbUYxMPsJSKcI/3nMxo e/O5eQYPOB2v838Uxsl0HueP9QUeeJvO1v39AieTh+N2X4gVDzRMtItyqnAy j6q4uCff54HIfssH5llrmV/vaoT1TPIAlwNx5msZB3NJraHKIH8DrP7Qu5W+ hp1ZX3zPtbZ8A5QMnA/uGVzDjDcCyrGWDbAUaPJuS/0apt7pbAubkQ3waTzF WPPJGmZwcNyAjwwvfK87kjKrsoYp1ufEkeHPCyEehnsJRzamWtjqHokDfKDh +PVJacsKrn5u2THdgg9y/jhL+CSs4BqGS6H6jnwgcPzukrfHCr6DbaHzwi0+ 4BEN4tPhX8F3XRp3L83lg3UCAbUzJsv4fuve+PM0ftDt7A/J6V3CbZULV4v/ 8kPPjZwjMYq/cfv1+Qqm6ylg2fXXVnFlEXcYzD04JEYB63if5om2Rdw54b8Y QXUKfP9RabPp9iJ+QeStirMLBWqkaBe3fV/Ary4/saF0UIAisstD7+08bjSo 06d6QgAeyU+yDp6ZxZ3b2seCTgtA2larvMd7ZvG7TPelrw4CoP7UcYhbbhYv fZoo+sBTAHhWp06e/TKD6x7hOfQrRACikw+arp6ewbfn9+S/KhaA3sFtXxyc p3HxUJ9HQjRByN4W5K61cRLfcVUo4dxmQVDh79cVGJ/AzRzfpzNVBOGDzpdk 5dwJPHLPt2p3XUEo2bvYoWI4gW+YNfpXayYIxztk0k1cx/F/p8Qv3AkSBMPE l6PppaP40LaP++bGBME0QzAx5vkwTvNzc9o6KwgbWaOjym7DuHW9QqD9H0H4 ISIksrR7GG8+H1XezCkEWi2nf2h9G8IL33gapMsJgX9iYNvOTUN4GLZVz/mo EFipWAtJ4wO4mmjCru5sIej4oRMQIvIDv+B4wppSKARCHlTK9dF+PCWb39eQ KQRevHed48r6cSlTv6KceiFIy+4MdrjYj6+NOKkTOSAER+Tzj8q3fMc7uUW1 D4oLw3WZiRyOuG/4jeUQRvF1YVgyv3CO/1Ev3njJIfp6gDBIUxsnS/f24tTx XfPawcLQFmAz0rZI4OVfJj/mPhYGyuC1o4JnCJwXN9fJ/CAMp3qLn/5UY+Hx AZhe4qAwqJ0O9ggc7sJL1xWYBJuKwINUWBMb04aL3HqUaWglAlyrcU07zdpw 50VXAU5bEWALixZRFmrDeYblWgPcRECiZqcHW0Qrblpz1/xGsAgkMatvnw5r wX/eP2rtXiICS3sufdu0tQnnEhw+Z6YkCo3BauvrS6rwhSDrfS9VRYGPkFA4 aVaFD642U0d2iELS8bsWtiOVeOVYQdctA1HgD/z2o1W8Er9XfX9fmrUoJAjY Ler5lOPr/Ldj7BGiQN/eROkwKcXXTV7pzpwVBTnOWIG8+I/4gtNo9tIfURjs KwweHMjFB3vPROxjE4PgEc/JwW25eGXtfkOCVwxwFL9gwczG76VI5axTFIP/ 7FNUiYkP+DqbkojTlmLwOK3wkeOPFJyzgdNowycxKE9Pp58I88R53Z47fPks BroWQRPtuAUuwsfwz6wVgya2Gi1pXzOkcNi24Hi3GIRypc7wPL6O9jYUbn0+ KwbmGlFJRdqR6HaDh8A2JXHI6n/V4dyfiNgae3pMnojDmFvxlWRaNuJ291yg xouDuOutOMe8bCTAzyU8mywOvZSmhvPGOYhqonHoSZY4dCkbvzt0MRehxvCS vgZxsHG/+8E3Jw/dbDRI8lwrAYUv/Rz3SBajv43pFx5dlICK3iVGnWoZkmux e7bXRwJYAS0mdI8ypN8mWrtwUwIsI4QdtqWXodAuv02nwiRgc/GhCsvNn5HE t8P99DcS0BeTc1VUuhztmB4/kdsrAU4xg9fdZiqQp7CKQbeRJJyscGosPF+D okX7L4aaSML0Ozva2MsalCcek7DLXBIi3oXK9rTXoFXp1ZUEe0kQyE1THNpd ix4oNOaf85MERZ5NewjeOvRO013lb5YkTCUk69jG16OBExmScnJSUC1mYZUV 2YRSLFfKrBWkwOOmyIG2oibkYnXowjMlKXj4p+UvPtCERk6OlEhoScEXhOff lGlGU6cVHYWPSoH+CIU9yL0ZLTvEZ3DfloJFQ9uN3XwtSNgz3GB2QAoGYmzd MZ1W1O75ZUxtTAo4X9McZA61opiLyjGeM1Lw4PMHBTabViThXTs8vioFaV7b nG4HtCK5K+vCh8WlwY0zUOtSVStS8r3Z/eWANCSw632UP9KG9ILd3arTpSH8 2SdQNGlHUll9J8JzpOH29iin9zbtaI44qm9WRHLrnL6URztK2c4Q/1YtDVDz Jjg9oh3xdi0yF39IA+XXbH9OUzvq3BggsklKBiRrdz8+ZdyBXD9HFQXekwGH E9PFb9U60d7xtSnGD2TALCNT0Qx1IjnxKw8Fo2XAu2g/7dehTtR83tLpxSsZ iP2vm952thPtEJKl5BbLwHSp6Iu3zzsRm12K/c8ZGbi4seKOF3sXeryav97g jCys578VzoZ3Id5NFe6PnWRBr/TazrM1XejukZa2IVdZ0E74af+prQt5Jfx6 EeYjCxWr3m7aw13IRF9KvTNSFoIENnK6CnSjdfdunDxXLgvVSb3KTae7kQ/f nrSILXLQ25QwsTjWjSY1Dwr0b5cDhVWF+PPz3cjZxuKyxg45YI4lRTeudCOz THfUoy8Hwcc2hp3n70Fqx1620azlICrwhuScSg8aiWZbzg2XgzTJfkUrtx50 Subzod5ZOQj4amxT3kfqbtMzuUty0OKr0sU11IN8cPm4iDXywJSQ+Kk70YNi 7H0H9CnycDrv1cLl5R7Umqp5862SPPgFfEhiSLDQQc3UzCt28vBdzkys/xAL 9dzrND/qIg8Npn11msdZyKV77fIWD3koqTi45oYVC927Ybf/i688cJuWKbCc WKisVOq7Qaw8mEZsYY35sZCOyQMhwSZ5MNJ4peaZxkI1L4vyRzrkYQedeaX/ AwtZTv+yKe+Vh9Wwh5JGH1nocrRh2tUReeCIGU4fYpL6+D9skp0KEzni94I6 WCiaUVBoLkeFL+H9HoeXWcjauvlBGUaFGw+bSkbZCEQPHLLdvpEKp8N27/Lj JFBWpyjXemUqFNlR56/xE6j5mtfx4p1UcAn994mQJxAvc+sYzZwKdd2ufsZA oP64Y9W3LKkg9N/fYoG9BMrzvprce4oKWtH9NrVGBLLf9Nk6xp4KRkuVC1JH SD38ZMN6Tyo42tM+qJ8m9dMhGVOhVHDmvjG97yqBtLUyQw+HU6FmrV2IxXUC 8Ql2OL+LpELP6gGGtR+B8sup8o6xVBj8lDNkeIfUlfMjul5TQWlL6dLTcFJf GvQsYVJhc57KL8MkAoW38x6WLqdC6r2zoemvCeSQob7Fp4oKtldjf6xPJRC/ /c3vao1UmN8rM5j0ntRrRE1fE1QIcTEysMkl40nSVWHvo8LOcpli7zzyez87 njP9VOBbvrTrVgG5nmp6mcQvMt7Auus+n0g9di8jbIEKrRl/VubKCfTz4nnK rz9kvmR5PxdVEqjA+OHovhUqrIz+7fWpJpDjPyLpHwcGkxk3NTvrCFTo7C3i LYjBilFwgFwrgR5C3FSTCAapL7UXYtsI5CSF1ytLYPD0JMcGng4CCTTyBA7K YcD25tfO5i5S10yct1LGYEAEZYz3Eig0XJTitx0D4q4vG89XAmUMBW9OUCfZ C52T6yPQQpzHqUFtDGT1o59t/04gqdn+S+t3YVDj89FbuZ9A6JBFuDLCgPfn zVvYDwIFr+4q9dqHwbHJ7yZzPwn0/sQH1uP9GMhkfKG2DpD98oE+l2+MQcaI nkHqIIEkHXg2/TuGwQRn5ePdwwTaU+wHNHMMygMl2pdJthedttpniQF3i/at nF8EelfVFXbfBoO709zafKMEaqQap2TYYZD88tPxDJJnrpXgLY4YSHYe+G00 RiBd5dcz4q4Y3HfJWXQcJ5BtoASvrjsGokHnbYdJvvv1/kabixiMfHrj5jhB oPqHXpbJVzGYL98SaThJoKlfAxerrmPQPimZ+55kEQOr+yN+GKzODMVumCLr /7w+mS8AA53KUwYOJJ+eRyWqdzHgnNQqyib5tkl21/EgDJoDd3KtkJzyRnH6 SigGoCuhgqYJVMv2lOfpAwzcTt/bcZ3kCSs+hU8PMfjXq7opg2ShbP/d36Iw cDbF1xEk7+Cds+B4gsE4ezvBNkOgk05nPRWfkv0xsCFdnuRbJayQAy/IeN+u +muRnCxuknQhAQOlgj02+0mu9iwtjkjC4D2yMjYleaxGozMrBQPT7Z0m5iQL 0FMnO96S8e3T9jhGsoav9Po/7zEo5V/JMiTZsiOcJvMBA62J51RNkn1V2Heh bAwo1PslMiS/Crpsbv8RgzhcM2qFjLfy27B7YAGZzzrO110kj+y0Dk4txuCr 8pmldyTzRzW9qsMxCM5LiLtKsvqYftFEGQaeDIWQ3SRb7PvYLliJgcSZPU3L ZP6ux2+Z0Kgh8zm3xyuX5PjF51yW9Rhcz/T0OUvy56MC2I0mDLYdkRwWInn4 7R2d+FYyny+uVeWR9ePlWDxe2oFB/KUGGQuSzXK/3OPqxYDlr6h/i6y/D/+x BKU+DF6zQuV4SH5xtrzgcD8GOXyvQsLJfhmUTBuLGsbgb4Wrwl2yv3i85dbl jWJw6Lml7TzZfyr1kfKsCQzoi2cNbEm+etPHlDqPQQimJE4fIdDmMV/eoN9k PN8Hki+Q/dxtFVA5/heDWs2HPRlkv2trhuoUsdPg84ntFrJDBPo9+oxmIUAD CsdrzyTSX6lWCb3FwjQIei7Ak036z7IqOYYuToNlkdJ7RaQ/CxLTeaZlaeDb l2iUR/r3uhU+c38rDeg/R3JPEgRSqvr8fkaFBsodStrqLAKxNKqdrdRp8ITf q5u9h/SLQAtLcScNmKfYH0Z0Emi5sr+s1JAGjX4Hk0+0EOimxrqoRTsaPLzY EJNaQe43keewjRMNsjo/HhUl59lXCoWrwoUGBW9exd0oI+fDqPiNRx40EFgc m9XACcSWuMVhmx8NtnhrhJzKJ/1BOcxwiKXBZFGH1M23ZP39jo3XPKOBYPW5 qXtvyPNjxPyN6kvy/7zazBByPhtU2kivvqbBGfuHLn6vCLTWz5MjLpsGl6hn ImXjCBQ4EtXW2EgDcwE/wjCI9HfXQO3fFhrMLU6ISgWSXK5VtrmDBhNsZS7D t8n144kPtwkaqOt+cL1yk9yfKT18xzAN+IlOL8vLBLpSmLU/fg0dMovFCG17 ArmEtnxy06BDKXyYD9Mm0Nmr9NynWnRIudj5sV6TQM6Ol99X6dBBS9xRiZtB zu89ks8wPTqoLq7V9dpGILsZW5+Ow3T487EiQJhG+vfklPrus3Q499b4cTgP gQ4pUVJ5n9Lhwief5MBuFrKq9kjd8oIO4ypX8szI89rZuTnVMIEOkvhuFWor C/knRr71T6FDE/2rxfs6FsqREkmby6LD/oWUNU9LWEhmg2RGbx0d3jGF5RqT WGhslJbzfoUOelowkO3KQg/SdzAP2SlAf57HBZjpQYq2m+3SHRVAsUCDd3K8 B5UISbHzuyjAHprBjae/etDU1RWDJncFcKaPdg1960Fm+uVVx3wV4FGJzz/r ph4k03WsyeKJAsxGOr/ISetB79ncvto2KMC1/UIymvY9qPZ40vKlnRvBpf78 0WNV3YjZ4BGmzKEI3kIDreYRXSjrfADUf1EE/yOST85sJO+jxkjbPWcT2Nh6 yK1mtyODf9Z3XvpuhqU5v09HLNqQYyc+k2++Be6HpD5cIVrQnoDbuXZUJeCS 4Jj0929Gjzymi3iHlED/j59a+LlG1O//evBlyVaQjS0W/Z5dh0adChzLgpRB 47GPVcmBGjTlJsTVYLcNDod/PrzUWIkyDtQtO29TgUhlKSL9VTkadFHdwTGv Auc8JssqXpUhqTRWVFDDdlizI6w4/QUT3bH1SmwwVoWY301vXEs/ocVlyQfG Baqw2K+cWmRciDYXPYmrVVAD1Xf/Ltxn5CFNh4ojgiFq4HWsz/b3oxzEfC4q UT+vBuf09x5/s/of2swUDTU5pQ6cVS3D5SmZ6DDnmGxriTqELrfuzW1JQ1PE z881Sgx4gxnpvZZMRR7PHwiHRDBAIsqqfYT9NapfozB5MJIBfRt+PxuZT0ZK ZwtreaMY8IBfhj49nIx+qg0FPIxhgHFCu5NQUzI5T2DqyQsG6KhoXHn9LBnp z8zWp6QxoPpTW9iGHclIbP/Je+VVDHBR6Jus8EhC3ulTdvdqGOAhuLMi1iEJ NQsF7d5fx4AAzcj1XieS0P0v2XN1jQzg9N/doYWSEJs3n0NbBwPELyWoC1CS 0AiZs/4fDHjy26FrOjMRGXGckE4eYIBSl+tFpeRElOwyvuA0xIAg0Wem52IT 0RmGVMavEQb8UAj89sc/EbVXe8tMTzNA3VJ1wMk0Eamp8PzOmmWASa6kd7Nh IgqPSmi7NM8AQYqNhp5uIjpg0xD6+ze5/1VxI02FRJTy2cG5cIkB8Y/jo/Il EtHaLUt6vssMmFFOXK/Pl4jswh/K7lllQNHG9yktaxJRyazin3//GEDoGrqc XXiF/gdwO09h "]]}}}, { DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"k\"", TraditionalForm], FormBox["\"Vlocal\"", TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{0., 19.999999591836733`}, {-5, 1}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"from reference\"", "\"our model\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], 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], Opacity[1.], 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], Opacity[1.], 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], Opacity[1.], 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}}, 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"], 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[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, 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]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], 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[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, 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]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], 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[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", 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.615112783496621*^9, 3.615112795738306*^9}, 3.6151128699159727`*^9, {3.615113334816995*^9, 3.6151133629579763`*^9}, 3.6151135063778105`*^9, 3.6151147750454655`*^9, 3.6152814399587584`*^9, { 3.6153720215079603`*^9, 3.615372025612874*^9}, 3.617035555820698*^9, 3.618237579105186*^9, 3.618289899914565*^9, {3.6183107296603374`*^9, 3.618310729843469*^9}, 3.6183125407764416`*^9, 3.6183171637928376`*^9, 3.618357658157281*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"min", "[", RowBox[{"Ra_", ",", "ktf_"}], "]"}], ":=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"intertlocalfour", "[", "q", "]"}], "-", RowBox[{"model", "[", RowBox[{"q", ",", "Ra", ",", "ktf"}], "]"}]}], ")"}], "2"], SuperscriptBox["q", "2"]}], ",", RowBox[{"{", RowBox[{"q", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6144979652732954`*^9, 3.614497973392069*^9}, { 3.6144980149515357`*^9, 3.614498060826043*^9}, {3.6144981632995768`*^9, 3.614498164085135*^9}, 3.6144982885433598`*^9, {3.6144983185606623`*^9, 3.6144983651967106`*^9}, {3.614498446317226*^9, 3.614498446919652*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Dynamic", "[", "Ra", "]"}], "\[IndentingNewLine]", RowBox[{"Dynamic", "[", "ktf", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"minRa", "=", "0.18"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxRa", "=", "0.30"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dRa", "=", "0.005"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"minktf", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxktf", "=", "0.8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dktf", "=", "0.01"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"contour", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Ra", ",", "ktf", ",", RowBox[{"min", "[", RowBox[{"Ra", ",", "ktf"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Ra", ",", "minRa", ",", "maxRa", ",", "dRa"}], "}"}], ",", RowBox[{"{", RowBox[{"ktf", ",", "minktf", ",", "maxktf", ",", "dktf"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6144987661184993`*^9, 3.6144989378122187`*^9}, { 3.6144999197665787`*^9, 3.6144999494676385`*^9}, {3.614500049899827*^9, 3.6145000698910217`*^9}, {3.6145003359012394`*^9, 3.6145003373302326`*^9}, {3.614500434726309*^9, 3.614500446246477*^9}, { 3.61450051387843*^9, 3.6145005481126833`*^9}, {3.614502141139105*^9, 3.614502161172328*^9}, {3.614507933022769*^9, 3.614507946367835*^9}, 3.6148553527326097`*^9, {3.6150256453410997`*^9, 3.615025687025695*^9}, { 3.6150260344013023`*^9, 3.615026038178985*^9}, 3.615026320783612*^9, { 3.6151121557940035`*^9, 3.6151121693416014`*^9}, {3.6151122172996454`*^9, 3.6151122987814913`*^9}, {3.6151123335111465`*^9, 3.61511234353126*^9}, { 3.61511240076289*^9, 3.6151124008479505`*^9}, {3.61511372558541*^9, 3.61511374595189*^9}, {3.6151144867337666`*^9, 3.615114487197098*^9}}], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`Ra, StandardForm], ImageSizeCache->{24., {0., 8.}}]], "Output", CellChangeTimes->{ 3.615024827094209*^9, {3.615025676633318*^9, 3.615025687636129*^9}, 3.615025985623675*^9, 3.6150260432665987`*^9, 3.615026155002921*^9, 3.615026321633216*^9, 3.615112076916004*^9, 3.615112169640811*^9, { 3.61511223855876*^9, 3.615112300124445*^9}, 3.6151123446851*^9, 3.615112403768026*^9, 3.615113511268284*^9, {3.615113735856724*^9, 3.615113746249098*^9}, 3.615114487996666*^9, 3.615281440003789*^9, 3.615372036060311*^9, 3.6170355558517003`*^9, 3.6182375791402125`*^9, 3.618289900039656*^9, 3.618310730031603*^9}], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`ktf, StandardForm], ImageSizeCache->{32., {0., 8.}}]], "Output", CellChangeTimes->{ 3.615024827094209*^9, {3.615025676633318*^9, 3.615025687636129*^9}, 3.615025985623675*^9, 3.6150260432665987`*^9, 3.615026155002921*^9, 3.615026321633216*^9, 3.615112076916004*^9, 3.615112169640811*^9, { 3.61511223855876*^9, 3.615112300124445*^9}, 3.6151123446851*^9, 3.615112403768026*^9, 3.615113511268284*^9, {3.615113735856724*^9, 3.615113746249098*^9}, 3.615114487996666*^9, 3.615281440003789*^9, 3.615372036060311*^9, 3.6170355558517003`*^9, 3.6182375791402125`*^9, 3.618289900039656*^9, 3.6183107300336046`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"contour2", "=", RowBox[{"Flatten", "[", RowBox[{"contour", ",", "1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.614499021800765*^9, 3.6144990418409767`*^9}, { 3.614500264959922*^9, 3.6145002922412825`*^9}, {3.615112239844654*^9, 3.61511224067424*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListContourPlot", "[", RowBox[{"contour2", ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Ra", "/.", "fit"}], ",", RowBox[{"ktf", "/.", "fit"}]}], "}"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.614499043183926*^9, 3.614499054620037*^9}, { 3.6145002257331076`*^9, 3.6145002569742746`*^9}, {3.6145002949932137`*^9, 3.6145003129099197`*^9}, {3.614500483378785*^9, 3.614500499523238*^9}, { 3.614502017106341*^9, 3.6145020705313597`*^9}, {3.6145021220485697`*^9, 3.6145021263966694`*^9}, 3.6150256089562716`*^9, {3.615025732906267*^9, 3.6150257357542872`*^9}, {3.6150260239648943`*^9, 3.6150260245823317`*^9}, {3.6150261131452045`*^9, 3.6150261313441267`*^9}, {3.6150264034372897`*^9, 3.615026422066517*^9}, { 3.615112544589015*^9, 3.6151125777525415`*^9}, {3.6151140355594883`*^9, 3.6151140659470572`*^9}, 3.6151142503309393`*^9, {3.61831053110636*^9, 3.6183105494440775`*^9}}], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxt23kglOv7x3FFRItKJEmrFiVJm5JLqUhZUp2oUNqESpvSqkWLTmmTdkqW dm3aQypjH0NaRGYG80yr06r995y+fbrPPPPzx3HeJx5jXjMT576uDv7zPWfW 19DQCG6gofHve72H8SFD9LJI49dbJaE9r5pFvBjL+jj/z4fxrD92mxJ15wNr Z+nylmedpH/6wP5/31i/HPvvBVnb//oX2Z/mL8ZfkfX/Lsfa5teb/E/zN46/ IOtf7x6y7v7vzetW9adX/Hu55azz8/59Y93u1wWr//SCf7/dENa/bt4d1r8u 17LmT8/69cb61913lfX/3iv+9K+bN4X1r8udZf0/D07gwQk8OIEHJ/BQCjyU v78O80bDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1v NLzR8EbDGw1vNLzR8Fb14AQenMCDE3hwAg+lwEP5+zqiP95oeKPhjYY3Gt5o eKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt6q HpzAgxN4cAIPTuChFHgof38c80bDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8Fb14AQenMCDE3hwAg+lwENJ v97tz/7jjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3 Gt5oeKPhjYY3Gt5oeKPhrerBCTw4gQcn8OAEHkqBh5J+fVtDcv54o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca 3mh4q3pwAg9O4MEJPDiBh1Lgofx9vzJvNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vVQ9O4MEJPDiBByfw UAo8lL/vt9w/3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3qoenMCDE3hwAg9O4KEUeCh/3y95f7zR8EbD Gw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbD Gw1vNLxVPTiBByfw4AQenMBDKfBQUt7/3v54o+GNhjca3mh4o+GNhjca3mh4 o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4q3pwAg9O4MEJ PDiBh1LgoaRfnxaS/8cbDW80vNHwRsMbDW80vNHwRsMbDW80vNHwRsMbDW80 vNHwRsMbDW80vNHwRsMbDW80vNHwRsNb1YMTeHACD07gwQk8lAIP5e/bXfDH Gw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbD Gw1vNLzR8EbDW9WDE3hwAg9O4MEJPJQCD+Xv28W80fBGwxsNbzS80fBGwxsN bzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS8VT04gQcn 8OAEHpzAQynwUP7+uoV/vNHwRsMbDW80vNHwRsMbDW80vNHwRsMbDW80vNHw RsMbDW80vNHwRsMbDW80vNHwRsMbDW80vFU9OIEHJ/DgBB6cwEMp8FD+vq74 jzca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GN hjca3mh4o+GNhreqByfw4AQenMCDE3goBR74/+nMG616XiIWnJcwb7TqeYlY cF4iFpyXiAXnJWLBeQnzRquelzBvtOp5CfNGq56XiAXnJWLBeYlYcF4iFpyX MG+06nkJ80arnpcwb7TqeQnzVvXgBB6cwIMTeCgFHsrfn8e80fBGwxsNbzS8 0fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS8 VT04gQcn8OAEHpzAQynwwPkJ80arno8xb7Tq+ZhYcD4mFpyPiQXnY2LB+ZhY cD7GvNGq52PMG616Psa80arnY2LB+ZhYcD4mFpyPiQXnY8wbrXo+xrzR8EbD Gw1vVQ9O4MEJPDiBByfwUAo8lL//e9EfbzS80fBGwxsNbzS80fBGwxsNbzS8 0fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNb1UPTuDBCTw4gQcn 8FAKPJS/3zNvNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1v NLzR8EbDGw1vNLzR8EbDGw1vVQ9O4MEJPDiBByfwUAo8lL8dmDca3mh4o+GN hjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GN hreqByfw4AQenMCDE3goBR44H5UIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8 WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8 WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lf7xVPTiBByfw4AQeSoGH8vf9zLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLxVPTiBByfw4AQenMBDKfDAeTjzRqvOOzBvtOq8A/NGq847MG+0 6rwD80bDG60678C80fBGq847SATzDhLBvINEMO8gEcw7SATzDswbrTrvwLzR 8EbDGw1vVQ9O4MEJPDiBByfwUAo8lL/vx+I/3mh4o+GNhjca3mh4o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3qoenMCDE3hw Ag9O4KEUeCjp6ftdmU1XZdEN6b2p8wIryX2jPEZ/F5s/32G9rkuvMer7Bn/r /h1uYsC6j4Z1hOd7/vMntdhQuJXNo6fIb06+sTSLnAyaHH/iL6V13m1Lj7ir 7yPsijWcueOHlGzndLxm1TaLShqGfWkk439ffxDeKcmIza+n9ouZ/SZRfV+h 1qNFo6d+cro7//DykvgssvlYF79jmIy6z/BNK13C5tuHy/NvNZ6aRXcXr9GZ miqjsjapSbOc2bz7wNFnpUfNs8j085kv4eb89Qa/25NhxubfO23olDXuGJt3 16yThuXEZtHp0bVDrCrkdHiHexdpBJt/99t0qf2d1VnkcTPhzRGHKjKb+2jD zblsHv7exmORmpPYPPwZ7QSpxEV9/yFh2OGzzvs5arPyaIlLG/V9gTeNl+t7 9akkpxvND16dkUVnn0QPiIqtorMz9B72H5tFrvZXjwz+WkXDxJMKowzZvHGi zYKxeY5Z1CkqftbTcdWkad/QZqSD+vx9l7Znts5uI6WBp388Ma3JovOhrn63 H1dS8crPW4/ks30EnYnGg/Xt+Pv38uvQxBPVtKDB+c7LBqnP7+8/vbmrTx8Z jfjnVNgh2yz6FJc5JfdbNQ1M6TdxnS2b7//nVUX2DlM276y/+f7frfjry5tM 8ApzraFFnW1nrBrC5v8tZ2ob3/qWRT0zzcW970rJ227q3iPP2OPHz2eqrwX/ /W4rS1xcdrCGbh/pVh4+Un1fYHOTnXrHrsmpzaRgrQi3LFoXnZbYmqshrTgv l/jxbJ/gwg7H+cdHsfnqA/Hjl5X78Le/+/N/vPooqG/4Kosvs9m+QUJoiofp SBHNlPfMdIyWkdnBi+VDWrN57M5JBs5vQrLoqF/3qBvLFRTSbuXb/eFsP+Fj pn5NPS0R6X84uMquoZzONw77WPuSPT6HHHrkuGITf38cnmk0LUNBgdZRTfYe YfsMYz7GRXfIy6L+Ld9aGIfKKe2BTbn8Ltvn8K9cYeF0NIsSL/ZJnqXNUfna GN8pTbNo0EHH3VlH+b8/ZlGX6fps/8HYd8u4w9ZZNH+m8nALGUeuc5P6XLZT 34eYWO2x+59OHB03dY5v7szmxUWtHdZNm5hFyrTTjUw7KKmewdz1CfPZ/kTY HYOk6zZsnvzUjGtrJnZm8+SayXeN1q7JIjPrLfc/+SopYbjPgmHJbN9iVpSL e8FCEYnyGrZfPrSSVj5cudK3gj1/5g2UPZRMY/P4J6N9Lh/ifQoTtp/bHM72 FXa3Mix6Nq2SQnXaDljYW0SDE/IXbSnnf7839nM27CCir+NHh3QaUE2WA5P3 NDRR32fIyT5fkztBShuGHdzumMzm+wfGlRzTMhbR6lFWzjHbqmn6rNVjXrVk 8/Avm29f+Wk2f3/1zTROtpPSRMNV2Xq+bB8g4GGzNSL+4wfUWD1rL60m88o0 3c6G6vsSVYWHVi1dxz8+JxvYvDUSUcgU18hP1jUkt6ztmmPC5us1R+n6a6az fYLm6VFpbcxEtFFmOcotvIbm+DT+/NWczd97LV1rPTFWRDdOJuRfN5KRofth U991bP/gteiap6K7iAL3XtEan1dDq7v4Z5b0V9/PaFZ/kPeLSVV0uCjv3g9b /vmRM0ZsY6SgzZMz0ua5snl+61D71gZuIgpOudDD0FdB/Uf9s3lMCdtf6Fb8 xMVVJCKTikUPXo2SU1jPU2cOnWD7DM+tH9++mpZFfTM7Tm89iiPtVgff6N5l +z2D5ZY9Q3eJaHpTpfJuqpw8ztV7cX0923/obu60LkyWRTVrIzce38LRwyeT Ii3/Yc8HfD9t0ktOdZ6joNAfIz68nSWiVtdW6C00q6LiBd32Fvmz/Ykje2zL tBry/vV7++WIOPIuCHRb35ntG8TsPPDKgn+8jbczKzumzfZL9rkElQf0Z/Po E7SNV5zyU1Ij179O5aWyfZMd8sstf7qx/QO3zrmzaz6IqO5tA7N7/9k3mbYu 8GEN3xtvW9Qr/n/2UUyvb4mblyylK/4DvHa5s/0E8Zbtbe2aZpPlnHDJlG1S +hnWZtXj+mxfAZ+/9p9u3f0/y8iu3MZAtpLtKzQc0C21ZVA2bbwRZXhxvIze 3pze7bw92184ZKtv4tskm7a/vc6FPZBRkF5Hw54N2D5Dpvb7eZ0CRLQk7mNE 3TEFnb51rV90MNv3SP+43sx7o4iyp7raZFcr6HWKq65iF9v/qB80bE9dkoi+ VPz9vaoLR5cameypl872Qfq+8R3rv4ntQ0gnLd6dnicin9gW64NncdQkutSv 3nu2L3L1gX1Dz3XZJGpgpn1WJqetwRuXbJ3B9ifuzxloFsp/vJ1H4bBVxzna blmzMMsrm3q1UD7wHVVFNZVVd2Y6sf2KFkY/vx2fLKKAC5FeRcOU1DjYPWmr n/r+SdniS7dcEjmyS3X93qE328cIbxbdsdaM7WOE+Z2//PJvEemM9KjXeqWS Trl3T9NJUt9fKfy81ilHv5LmRrZICbfNpuaHFtx8dbKKFh5JbraxUzZNcxmx s1SnmuaYPtlV/oPtsxzq/dapzjCbjtimfdk8tZpy4/Om/zRQ3/9ovVones63 Sqoz2eyy5WQ2OXFVqS6vKqmim/Hqiji2D1OyXDSjabNsKs5buGDO5WqSNc41 W62vvj+SV7XOeZSJjOZ4PCs1aJ5Nk0w2DpFo839f3/r6cH9ztl/yvLrfl90G /9mv0LoZOcuYv96y1ICWE2pod+SSvmtM2P5JgwbbTZ+9yKb+pvY+/nekNNNE GtX1Ltu/ufA1veMSc/7rXZYcXRZXQ62+TnjvbaG+r1LvjH136wtyOnjhhset Adk0oMV7fQdlDb2Y5vdq/FC2zxKj4zw2h3++NorLa5lgpaDpnx42OODH9ls+ Tr13SWnG5v2d6rjNNoHZ1KDS5EfZIgUdb5Vs5RnB9l9O7Uo3mtQ0h06mxr6X 1Mloq0GcSFHN9n+ul6YPPbglm8xO5CcapCrI2KOr9oVb2TSyWaN1LRbJyaXW 3G3LBfX9oCdXPifJJAo6+Wyc7jr+8XDIdapEVsHRSaN7HVb1Z/szR5Q7aOSE bHofPtXuZSslbevjcNl3LdunWW/Zq3cQ//XHxfQedc9dSdud7Lf3SONvb+sX +k2bV5JkzfhtE8+wfapN7gM2as9U36850+fD8iXzWa/sq3+yNERK11xyt+0S s/0Ln05Diuek5tDVkqyV1o2k/OtF+6b156rv34S1CqnzvSaj3k9aXjt8lu1f rJ/iort6bQ4Ft7YLnTBXRhGTBnncncb2MVY07OEz4Bz/+uU8wMz6g4J6l38v HJnK9o9s3Uyctz3Jpvq+FWcWWHNk79p6Vfd3bB9p3tBXGy/nsP2MjlmX9rfR zaHKx1Z6RsEcbbI0sBphy/YZUs6O7XD2Tg690ZVoTqyR0/CJ/mNPxf1nn2Oz bsbBQfz9ZX18xdAEjtJKXejh9hwa1Ov9Z0vPKpqg0flg2Sr1/Z70ZW6iHskc jZ7afOkuf7b/EZbsoWvqzvY/rLdd5Sz550NBO72F7hvYPH1T06jg+ruUZGKi oRdRzvalLEya3v9QyvZnyr++1DszJ4e+Fw/dfza1ilrPaHh57Ngcsn7kmZ3V ku2PPPhUe+UEx3/8uKRWw0ewfYsn18ds7zk8hzrOLJSOmFtNGy3Or73ryPZR 2pGuxzOHHBpbpq/9KL2aKk+3NXrkoL6fkrJEb1nXRjLatTyp85CROfR8ybO4 ls1qaNljk+/HRrL9lb0lf+VFBLL9jTo3b3PHcTnUcHiC+arJNdTysGvAggls vyUk7VTyMeJv77ngoxNvSsn4ouvTrAZs36ODS1DTFrNz6P6PQf3XxvO/f7g1 WBM1V30f5rpdM4vl5+W0z7LhRy48h6aM2Oq0lv99RHvlPa9RUWxfxvCa3pP2 vH/tleQnYgsFOQ7N/fT8OtufKf4ur+x2N4fk+ZOmXA1UEI3tqXnage2PTGxf +iXFIJdyjP9p/jxITg+jHiTpaeQK/n9aDu3TLT94ea+CxkmfPJm2JIeChjx5 l/2Yo84L9uSURrP9mpaVqxvWXsghn49d/F83Zvs1njrp8Y97K+lh9l7r+Bz1 fRpDo1anjoax7vSt5LZNhJSyfI+lL5Cp79M0ezCcM6uWURd69apXDduXiWn3 NLnH9lx6NLWwX8ZT/vms5RFqsIXtzwQfbR4a8DqHAi7JjDYkKejenVsLM9+x /aJied+Cex1yaVPumzfpzxSUZz79QrED2z+59bFT+wteuTTji9GY/kZsv2RK ZnZcG3uOuge029bxA/98DfxwPH0I/3yYf82vXIvtn0TlftA90YTN4xfXPu7W so7t22y7sG1zDv/4uft9Sk+vQLa/UJU3PORn20pa/L7B/q66eZQcvlN68WkV bem3e9vk97k0f9+c4Aa21dT/6Nat31/lqu1v7Hp+fmAo//t86dP79qEhbJ+h /7ltWl1e59Jzg0apjbZXU68Vs+2+vGH7PU2HZp7pwF/fXTNq1uen1bQiLtg7 /gfb98H1z+l/z2zsLSPvKcOm+2vl0TfL1zvudqmhGuNjDntN2L7A7D6mCu+2 eeT0td34vsE1pGgyc3PmWPV9mJEVY3p338z2U148nF+dt66G8nJny3pF55KV yCBEzv88n9O1ImRHHNsHCu/Y6OHFBLYf8WnusdphT3MpyMrw9fBlHNUViAfs 7sj2Cdo7Tzo2emseWdackOR8ktOM/Zp/nZnB9inKyzT6RJnnUU7KBs9I/vVU f7XD/sA+ebR5/YSnXUKryKdo0cxFVur7NSWDS1PnJPGv10Hn3LS28c+nx4EF idFKuq/jHfA4mu0flY966ek2R30fJXfKU3/KqqThDmkRXEe2n4A/L+yakvfo jZSiH2jPmvCA7ZvMKxyS18oxjwyrz9Q4nKqhIf3T1vQfo76fUbjE4pXzGTmN PrpzxPeFeRR2qeM522r+55mYPi7Notn+xpM1OruuJufR+lXa251MFbTkx6KO R4PYvoKZZvqYvKn5NMXDq85ssJycO7ZYlPBNfV8leqSr3b7BCnK1SriYuSqP ZlDR3sm5bH9jlum2iztesPn+WcfarbOKqKRu7Q+tT29WQM5r3l8UjWP7GJ9N QzvEH5XSlspnfdI2qu9jZNRlNFVayelBky4XQpR59Oi1oeZDVwUNto9JnlaP 7Se0G9p3cFVzNq9dYtw28d6AfDrZwbbpvmVsX+HxhG2Fx/coSD7idFDm4zwK DH5JTm84qpq27+qWf9g+StTWzkmVI/JJUc+9a+dGbD/Bb23V56WGSnL2Evmn tVLfR4hZvPf9cU/Wjlz/i3UBUoq1DDTYfUR9H8HS63l5h0oZOfs1jjMyKSCn jhcKwipk1PnriQ9NduRTScDOIL8jCvphd9y85D7bv8i4UzSi25d8mjjkkGjI DTafH5vQY2d4hoK02mln7kvLp9W1K4/YtGfz9uWeP5/LLJSkfN/cwtWokAa5 Pqp+1ZHNz3926rLotBXrXpHNS3OGSqnqmY3nClEBXQjvNG0/sfn5V606rYxN kdFC3zELxQ6FpFWWEtjwsIzO3/f5+XQ1//Hv3tcW5LB58h3x3qVahfzr88z5 McNHF9CcBrNtR/Vk8+G30k616NlLSTEPr3oZPymkfnvii9+1YPPe/nNtPR60 Zv1h2lmPiJ5SWvz88wmNmEK6aeM3aJgFm/euGN7Lx3+/jEJujB6l5ArpYZX7 BsUBGWXcXJCQ0r2QvqXoxntksfnnB/IuxT6ZCuocUj/mxvsC2jXwpn1YdzbP nBq9vDiNvz/tCmY2OT5ETEbPry51asnmk1+tEPl3as76VFKUT9uuUpow4vrp bm3F9O5g+uwICzafHDnq8bjwgzJSJj6ztu8rprrivit1z8jo2/2UpsMyCtXm dXs1Lx6/MFZBsweuaJ9YXEh3/jZb86YRm7+tbjEv+pumksZEBXS7s15MXtIS acv2bJ725urGQxIMWTdqVhmQby2loHGBlbH+YrIaaXXtc38pPXY9lLxwD5vP 290saHFhrJi8h7qevDyazdsmdTX63v+qjNICAm9fDRTT4hzR4uUiGWU/8E28 so3N4+k6ijTTbcWUoNV66fjFCjK414kMDohpYZdeYY1esHnciCqvw+38FXRt T3/f9ybq86f5cp+CrFI2r3YrcoezR7CS/MTn5ry7I6YYr9PmhX3YPOlbRRet 4K6s7Uen6A51ldKAH5pRZ0rEpNO4uGVmAJsnjbK/+2P2Oxn5jYopMIlj83fW CR19tm4Q06pjt9tu6a6gE0eOxuZPZPN4+0WVDa0z+OuXRfV9bCin5kuTpJse sfnD7Hvtv62vEtPUvfPuLxjO5ku1HS0fBDVQUP0LfgM6xKjPY/Z/bR+bv58j r4irAXbfxVQ7+c6pBS5sfrKsX9TTv0dWUuiUqjKlHpvXEW1N1Iu1LiJJk3fb v8xmH9/vvPhrxEop7Zi863QP7SLSmD19Ze8tUnp2Mdd+ugmb14mecLgosU8R uZovfRp3ls1fRp/1LrLxk9PMNHOj+GI2rxgy03PDlfpF1Ojc5Mzuy9g8ZZu5 TsuTl9VQlOPQVl8asnkdxYUza0a9ZvOJ880m32nepoh8zy7Qu8H/vNzP1rzs ezc2zzM1/9QJjd5FlHaFkq+8lpNWca+p26hIbV5z+OdvVp1cOIp5PHPWE4ci ejL9eEi2VRUNNfO7FHFLfZ7xR/s2QT2XVNKBBS4v9/vz91/l3D4vNlfSuWOh Nncj2LyTS+iyNXtHsHmgtot3P7+7o4g67HW8dup0JVmYNQhoyf95lEb4+iGL qqnk9OurHn3V5wE1Zjm8KMqQUo7OeI2knkXkUOgesre8mlKulYaON2XzRD1q 151tqFlE1rHk1N67hlYt7Wfw7TubF83f8d05anIRzT7W73n8QymFa48bXxL8 n/lJ/bWb8sKLyP6puLenFpuPXJOUojPam80zDrr8tmaTXzWZJvabuKSP+jxh p1vfzJ/JFfTiYkCRZHQRPRqaHnmT/3lJpOWaOHYMm6d6nDMt7rkpmzcqdZt2 JsNDfX7SLuGbp2db/vV90/jBG9zU5630z7yNPT5NSbLAdgnz+M+3cexm1/hu FV3S2dyqmP/4i74VbrtbsXk7S71EPYNLlaS/r9pPfL2I1lo0y95aUkldZjzV Cylj82md3cNLe8uL6HaPPQ+NfrD5RPdQDcsLnfm/r1qOfLE8voi6Rll4RtnI KLJxQcatE2w+LYuuxzzLKKLppg8sjGbLqHb06oGNH7F5tQavNkjDK4ootGv3 WVMPyWic4vvP0UHq83uJI24XJ05TkPaAPds+BarP54kvG0T2u83Rnk2f5V26 SejEuvK0UYZsvu5W0BCHIB0pLY18+r1KR0I3k//q59aDf35+O2m2qC2b13jR 6KpvloWEDjzb7z1xEpu3m2Hv1qAd/3q9KHnKrp8KNp9mbflS4lddRIscxw5Y eruGZk1+5h58l82rpUZPe7A8ln+87v5yzekvBbUINDeOPsTm1zYMHql57hPv v3NjdtsHMproeFFr/Tc2v+ere3SYaxMJpa9w0Q9qLqe2t5rN8DNm8x8GXPa4 pe0l5DPBYX1PDza/l389XKf2bA1NP/563oBebD6kbEIL050KNg8n22z0saK3 hCqDW8xK2Sknv+y1EW14j2cOE8wm+HG0aplHTOQZ9Xm5icPfRipGs3ma5dlO kwPClLS1XFM76Qabl1MGtL3yyF1Cid6PFqynSno/SOYzroX6/NzR+yUKiQX/ +934j97JfmzexirSIrHnEgldqFXqtAlmHz9knOuNPUuk1H313o9uVmwepVmD Td869JDQmy/LNCtKqmlr6vPQz23YfIrO++uzBo+WkPjc5dKCrVKyrR9ycOE4 Np8TbV11/FBT/vGxcVClm2MNmdsXvh2hxeZZ7ltOnSYJkND0XlbTOqVLKT5f f1z5GvV5vZTvnVqXSuREy+5WvN8gIbtDyoCXH9ifrwo+1XH84mqavOVgtnFr Nt/yafKIT83tJdTWs/7zgFI5Ff+tXdTDns3zpCRssEocKaHUdGn/9HZsHq93 rUX2hdsKmtdXfDTaic377LDzOHbbjs3DLPdwMV7Pf//2BYOKC4KrqF28e98O Y9g80N4ApzmZgyR0OOdF9vw6jjrmuL2Q/ixSm4+bs+BpfOZ7jr7bDnL5MJrN D52L7ZU2wInNDz0vW+ttzl+//dcOrYxvs3myWGeRpfk2/u9feZ8ibp+Ebrlr +LscqKRTz+YvfcN//vlznqttW1bTVM3+/Q7GsnkrG6faNZ34+2OFxj9faudX U3FLh/VN7Nl80gLbts6V13jvC31D7HMrad6KLnNsHrD5LMfnvQ5kPpbQnmtD 40d+Z/N56dfbrbFqLKNLf33c0vuIhFqHlg471EtG4peHP446zuazDPNPxZdd kpDeVTr7dI6MCo/Ndeh6h81rrc6tHbMkmM0zdfb6OyM2W0JjqlcZaiXJqKL2 +Ln6ZWyei4u+cu+yq4Q0b2p4Fx5WUMrB+VE/RrD5p+WiuC6uT/nXJ8vN/YbV sHm/0L0RI1bxry+56Q8qCheoz7v19ykY5riIzcMY2Kaa+M1TUlDzb8/uL2Xz Tx+72e1s07qYd/10tJUJm187OWzH+k56Ump21HDyu4/8/XEjbHb9PlKa4VjP wKU+m3c6uLhf0I8y9vzaM/IvX78WxaTIn6hcy/98aEIv94d1Z/NQxk16rGz/ RELlbawNjrWpoaEfdv3UuK8+LzZqz/xzGV9kFDjNw2Zez2KaHrRyv2+clMRy kwPlvO/S737Lxdtq6OzrD28Wn2bzZe10n2ls+Pf1aMf1fYb8/RPbMyRuyX/m C7saXe1w7YWEXsVEpWV0Y/NxjWTib0nfqunaRUvP2lfs9bUy1cU8O589PwsU q8LG1Elo32ruZet5ciq/OKuf9jf2+nrGuWFF3RUJ9e3TWOzWnaNboyZ3/+sY m1dbPbzDrh78/TfoyXTvLqlyandNuausAZvfahaZUl9Pt5i+jHk316Yem8eb kS829XikoDnFBiO2NmLzXbu3uim2Ny6mbM3FTQ+4V9F2qzq93k3YvFfk5tlf V59n82/5G2YsrdIrVpv3k/pFvvH6wVHZ4U/SO1psHuxEwSFJqrb6fFxZ7otH Pg6VNNSnYpcn//XnPq/PZRytopGrRRfLdIrp+toBYzrXVVG/iojMgz/417Mn +zLcx1WTuXObSdVf2PN1cEZ+5PM3/OvJuflrXl6spksmqQdnvpKozZs5rBt5 b3uKlHJHr11/ohWbH7tadf/vVZr8/Vfe61DFVgXFOEXrlL6XqM2THdqyfUEn Q/7niftm/esZsfmxQn3rl6/4r9dwD401VfK/H3mtddpRI1GbJxs19S+Z0zz+ 9TPdqe1LIzZP9n/MhSj0 "], {{ {RGBColor[0.148, 0.33, 0.54], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNlslv1VUUx98rVwMKiXuxtqUt2ioSTUg0ghEqpRMmLozDwtKBByI47VSG YksHaiIaltLXgQ5KgkMcFmVooYNDojFGF1LohC1/A7T4/eZ+XvoW35xz7z3z Off+fvl1b790KCeRSDyQTCRWiS6L3hWmhTJhh1AHb1ovNIZE4g3RhhDXDcIL yNTD1yajzBHhqHBM2CM8z9l29BqFnUI5/F787EB+D7zl98nfIdH9IdrI2D4o 7BbeElp9blnisO2NwnGhSUgLjwolwv3gPvaOc97N2vuPCGugXq/GnvdahF6h j/NMHtbvET7GZjf8GnQtWwy/mngddxtxVwoVwpvCAaGavX3IFpPbRrATmyew Y7ld5OB4SrFXiVw5Z5ZLoVeBXAm9qqP29fBN8E1ZtaxD1rk1Z/WvBbsNnDXi I8VZCf4dYw19202uNeSbIr4K1lXUowK9FHk3kk8PvWimNg2cp5DfC63Av+fQ 81kLjpJvLXQ7djN6NcTnWJ/R/BWJPhtifj34df8GhHZiraJfubpgW4WHhTzh OSFfGJP+BtGroilm2zO+lhhLiesL4YzQKXySjHLvhci/H6LMEeR8dhDZKp1t En1RtBLee3+EGM/voq+FWPvXRXcJheK3iG4W1ol/SvSvEGP+R/Q3eO85n23k NKp1geiI6ITtiB8X7RZuOzbRx5LRpvP6XOtboqdFfxIekvyPoiUh3slS0XLh cfcsxFgd868hvjvu3auif4YYw9+iPfiyT8+M87X+Wnyuo45dzO0W8n06xLns Y07PQr3eSo7OtYu5P0a/e5nn1iw9oz+5cp/7mYlB5iLDDwkdoJ29fnRa6b/j di3S+LV/v4WFzGc7+p7LMubeb0MRa/Mvhzjr1SHOhGfjpPBuiDPzTliZ1zbm 7Qw5FuGvDL6QdQf3IHMfOrBZja+aEPdP4u8A9tu5D22sX2H2PION1NT3ze+L 75Xv8EXyd+5fCeeSce7zQ3xPi0Lswyj98lt7SbgsPMEMb+audGLD+fmuDMNf wH5x4FvgWeUebgpRZhi5D0PU/SDEez+SXPkGXMnqv+lVcJazcWFeuCn8J0zA J7PeBn9/fRf8Dc5lP5ET43b8X5JfmtrMY3eM3J234/Ls+w7UENsoMeSF+M0p DFE+nVWvEXSfRMayCWJwjB+FWP/DIeY1Rq6O6Wdq65wGiWkIfgJMsjeJzhB0 Ev1fsGH+mjBFjufY93lLiL1oDrEf/yJ7mNhOsD/M2QCxDNK/a9icIu+L1GWW Xl1m/zr8DepiOg0/QO6Zug9QB5/PUOsL2O7CzvUsW9PIjCJv/3P4n4Wfx/YY +3PYuETsV9C1fGZW3KsR7PYyR7nMkudslfiQE+nN5Moses/zmGQGc4R72POZ 414m7hz058nHMS0JC/Qt08tF+jVJ723rFnuLrBey5BfYv4E9+/ssxB6eCtHf HP6dc4KZ9DfWc+533v8nfjv8bvi99/+OvzlVUK/9vvidaUEnc267c9TAc+m3 K/OueUY7qbP9zlCLu/Rghv1Z+pHE1jj1ncBOZt7vULcp8nYtXO9v+W76+7lM HdZr/UOI9HvR74QHxX8DXcLeenjvOc/95LWKfubT2238f5zm+5sO8U7cJp58 5PPQKaDf9zIThVm+z/O9vYPuEnl5bflF8ivImrtlYvVspomhi7xt3/9DfSHq fx2i3gbOAvF4fYrZ+DTEM8vb1/9haI+3 "]], PolygonBox[CompressedData[" 1:eJwlkksrxGEUh///6STXT+BS4zLFDIoVGWLhVigLlyyUQhYGY4esXFZK2KKw VEQuSYmwwEIWLPgAfAYWnl9n8UzPvO97/ue857zRkaneVCQIgjgY3PATZaEJ XvAkxMIgyIQavAeq8C7oN0feDQNyaMZbtIbvwDeewfcO8HsowYvhDi+DLPaz IYbvwk/oMYo9gnzO/vF/H/8wr60R3vB3c0/CK74Nv5z9gi18BQ7xJ1g1X9Pe J2zgDaoh9DvqrmdQEPGcp/gYTLKXgnF8TjnwRZjBr6CIs4VwiU+b7w3DKD5h HrsGafzC/KxynOND5r1TDuWKQw6eCwnzmlW7erKJd0Bl6DPoxMvNe6eYCvOe q/el0I7PmudWDxbwJbgO/Q7zeJ35WfWgHm+FROg52vB1814pZlmzN68tD6rx R8VHfKYPcvO3oplGzWem2Wkme/it+ez1xvTWjs3fhr5xgg+a905vqA9/Np+t eqxe15rnVo2q9R8C2UoH "]]}]}, {RGBColor[0.3374607621364213, 0.422302504265196, 0.6206939928654904], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNl2mMl9UVxv/L+YNAomyiYJVFGKHVViCCoKCsLomVQgWGGXawaU0AcSnM DGjr1iaK45LWYaBN6vLFIqYbM8OHpq2KODAsH0CbajcRZETBhammJj5Pzo/I hyfnvuee7Z57zr33Hbps9exVpUKhsKJYKJRFfxuFwvlivCj6lnj/E/4u1Ii3 QFgvnNb3m8JhoUNyN4j3H9EnhS/Ee1r0uOgeoZ1v87eK/liy64TqUs5brlPo wqZtr8OXZWrwWVfKeLqIaWClUNgs3oWiFwvNGg8W7Sc8o3Ff0UbJPS68VMwY ZworhY8Vx72ip1jjm2fZ/Zz1zi9lrNX4X0Dce7Hn2Pvi69xKys8rpd1tzFtu ob4bhEXCz+Rvn3g/j/w2f4OwUVjMeBF0Mfz7hCXCOGG81ysMLGU+L2TujGw9 Nu2zlu+F2FiK7FK+7xd+IixjXEOOa6H1jDvk52VhOzm5l7yY5zmvZzl2bO9k ZI4/isxVB7rbyYd5S/FpndORer2Uw97CVo1HVDJGr8nfVcJ0YYZzS326TqfB HwGtYryHmrKvlez7CvLqOtlSytppJl9tkmulDiZ7z4Tripnz28j7bvm7SvT1 SHj8t0jbrq2R+LmMOF0LVwtzhV9K7oTsPU+9ub52ChOQc14nID8Pn3PxW4U9 272glH7H4XMUftuI3bYbWNcG9nAza9wYuWf3iR6id1uKmd+N5OQJ9slyp+iR zkie59xPO4qpb13vmfeuZyX3zLaGi3av5P52E/0wMvcnRLtJp7twrJA15r5y /zwSeU48HBn3FmI6zL60sL5W4m5jrc7hQ5H5bBRtYr1e93+pQ9djHX6aqO0m ZLZxPrleuiL7+zPRo4WM1XEajvl90XrRWqGO+hgqDPHZIp1zRWeKToqUv1a0 j2hv4TvgymLyrkfXNmZJbqzo90QHU3+2OQwZy34g3x3CXqi/TwidjM0/rsP7 DdFToh+KfiTsF66Q3aJsnC96AP5JywkHGdvvJHwfgOc529mHr2Oyu9tz5fS3 B/8dzO/D3z70JrO+Iay7L2ufG7mmatFlQo3Gt0XK19J7i1i39Vdpbr3PGPI0 xrkqJs/7UHOWjuXnR+Z6XiQ8vjXS9iTkJzM2z/k4QOyOcbTQzzqMHXt/eGd8 zy5mLH2ZH83cWGRHoz8L+TGMx2DH8wsV0xzHLfpd4VKNb4mcOyN7I3zPz+V8 8JnQSf6Pew+0H+2in4qWqZuAXsr4k0Lm3vFapkRtXRUZz3j8VJD/mProTf32 gVdGbxg82zV/OrU72vmO3P9vR9p7r5A2qyLjHiH6zci6HUWvWcayR6HuvcHU jmv331rbLs29K/oucRzBrnU9/kZkPBeLXsTYvDJrOkJdu0/PKyY9ST8MqOSZ 0F806JOKz3lic1yXVPJcGib6ZTnrvCCZz8q5F6dFu0X2TXfRcyJj7RFpYxdx flHOnvl/Oe3vwkd/5K3Xzt7arnvaZ495uzmPzBvCPhZZh9d0Zs9O8T0UmSHk 9hg2roms08miR4jjaDnn38d+O2PH8To5sK5jLFFHI7mXfO8top4XR95TA7ir 3Js+Nxvo0wZ69THuoUcjeRvgr4wcr4ns71p69ll9D5K97ZHvJ787fhFpsxYf a4Q76c819N5q4SnuF98zs+F7/geRfXq76CbicVy2MQc7v4t8U7xMnJuFZmEi 99kE0R8JazW+I/IOcG2NjbRr+zWcYc8Uc003R+7PTaKf8ib+JHK+CZn1fK8T /X7keTUj0vcW8tXEuuuIqx7eHPLgmMZwH/leujNSt461NGOnAV3b8BvN930j 59Bq8nV55Dn/LdGBkX0/KLLWXfO9It/azusm/Hts3t2R74d7kGlkvhh57pYj /WxC5yX0fD+vZe6H5Ni6ttVKvH4bdHEnfV7Oe849MUB0aGT9Do/UW4vf1si3 017RvwpTNH6FfO8gh+9EvsPedq4iY7tLtBTZsz6T2jS+VjLtkW+SnezN1fSX ++z3wkTJ/FH0gUj7P8XeNtb5Nr7+wXwLMbSwxib2qg379ZG+HqQeWpnb47tV dv4MfzNzv/I+if9r55JaXEWf+h/C/zzLeWdOp6fP4e3pO2cg9854xtbxe9Y9 6Pf9IOT8hh2EjL/9vl+OzS2R/3bNxFKFj1f1PVX0tcjzpKfQg7fuOHz5LPH/ md/91h2Bvv97vF7/M+2P/F85JPon4RqNd0SuyTH4DfpBMeN2zBN4d3tv/F/k GKbAq4Y/tfT1P9MUfC0GS+AdjPzHOhxp1/8c9uN/yQvI7Ql4vcjtSNbYgxxc hi/7mcY+rOBc7UXcPcnjNPL6L94E/4y0YVv+l16GjG21UJ+uU+fR/4yOxzzn ZwG2HbP/lxbAr2YfRuHfaxnAnlQjM5E6c07+gh/r16A7Ev1OYref33CG+yx/ IdL2HyL31fvr+niO+nDNWrfHWTXh7+PktouYvgJatQG1 "]], PolygonBox[CompressedData[" 1:eJwllXusz2Ucx7+/7/fzPUqbjNPJ0ZCiTbkchXJcJjSXWFJILm0uy2XrcMit XErMH+Y6cjlWWfmnkS7C/CUijuM2y9ZaJayQSziMaev19v7jtd/r93s+3+f7 PM/n83l+zcdUDH4nTZKkEgJuZklSzecRqMX38+OLBPSEH/Ht0BKvA5/jB8Jj veAgXgOt8D5wFP+LOX5irkPwN143T5IPGFugOfBqYrriI+AY/i8xhxOv4RJe TMx6xtZBw9wxih0Jx/FLMAMfBmfwfdARL4FtWqtimOsiNMeHQ49CkoyGcXiL 8NgFeBz/Dh5KvYfd4d80Vof4Z/HfYShjQ+A3vAQKjKXwKP4gnCP+PNQNIz8I KT4SBhP7GowKP6Nn9UwxnsMJ/CQUhfegvTwCW/Frmc9SZ3QRb6Qzw69DKX4r c+5q4HbmpB7j4zgUdHbwCu8rgzfxX8N76QSHtffwuzWn5lZOlVvl/JtwjGJ1 xofCZ66z15n8gT9BjqrwjdAEz8Lv1p4C36vzT11TP+DNcsdugFJ8J791SV0T u/B+8DBrrQd98I9gD/4LLMJ3QHnqZ77HN8Fdxkr5/hneARrwvSF0xNvCFdZy GVrjz4fHiuEFvAyuJo5pp9oM574IyvEmcCPxnJq7KHctz4cc/zNc++PhrHoB /klcg0/hs2Adz86GCtUfz2xKfWZN8c7hd+XQKbwH7aUxbMbHhp8dAWPwZ8J7 0TuexjeqBhg7Dcvxl6Ab3gx6493De30OBqkWoB1eH17GByiHBffI0PBvGlMO +msvWkPqHr6Fn4ZR+Gg4pbXAuNQxil2j/uLZalitWguvXWt6HX81vBb1hHpD PanenAvjwzWqWtUa38AnQoXWDhPwt8K9VAmT8IHwZMF70F5+Dt8VWuNJfEW4 du7ASrxxuHeU08fwpXqGsZ2wMPwOvUs98za+OLyXrVojfkf5YO5ZcBufEl57 FUzVeOZePAp38fbhXOjOaIPPCceqpt8Lz6m5l8H7+Ffh3HeGr8PIVfPf4l+G 7wblvApvlLuXdGeW5M6JcqOeO4K/CyuJ3Q7zVOvhWlXOruCTw2epmOn4tPBa dOaV+FrdJ/hl+Fi9ADNT38HX8XOZ7zrd+ecz16BqUWe6LHzmOnv16CrlPtzb 6jn13ofhs7/fI/j88Fr1ziX4F+F3647egn8S/i96AD7Fa8O50JpuhntIvaSa 6BuOUaxqUrVZL/d/i3KoXKqH1cvqyfr4vcy50x36H/4/3Y3iaQ== "]]}]}, {RGBColor[0.5146923298333892, 0.4845883587273892, 0.5165067454014581], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNV3mwj2UU/n6/7/2EXLITl8k0U1mmcFVompIK1QzX1WASaUa0GVmu/mlB TZbItZVKV7Jzy3XdS9m3UlOTcW2XsReSJWv2nmeex0x/nHne5Zzznu097/fd 1Xdg9pvpKIp6pKIoBn6FyWpQPmgJ5pNAeaAp2C8CTQXVwF4LUEvQvxBaj/0y 4BnsVcZaFVAxxtNAy0BLsT8ZVAiqj3km6AbGbwfxjQB+F+k8nnUdVC8lXp5V 3ec9DL4L2HsIeBZ750CloD9xdgnWjwMnYb4EVJiSPadt02rINAeuCtJFnZyX 2f49sXwttK3NzVMtrfUl3suGfGvofAK4EfPZoA2R/Jzm+FDfQa9/FGTPu8CK oM1YqxBkH9d/B5ULilECPBRJL2W3peQnfaS+Q14/bB7Oq9pGxmIZZUClRs6L Ip3Fc7aCGoBuRspBpsc3HPP6zksr2HEemBWU823OY2R+6mCeJkbK2ybbQ7su II6Lgedj6WC+dlgX55lEyG93/pivPMfiL8gsBM8Z4Nwg3+YBV4AaY1wEXAVc CdoDmm8e8v4BmfmQPQI87HpgXawGjcZ4OnBDrHxtBp4ALcL4n1h13AWUDVoM XVnAAmCfROf0Bl7CfBrGl4HPYb4d42eBBzAfivFB4DbQMxgfAT6JvbUYtwc+ DlqD8WPAvb5f9KM75ruBvYDPg3Zh3A3YBbQD487AjpbpS17bTz82gaZg/BNw Vax8rAEeABWzNoCNYMcljE9ifArxzUjrPjAnO52Xnc7RxUg5KXa9sU7ngeZG mhe7BkYG8Y0DNrR+nlPZunnGHNcD6+KdoPwOBd6WqL9UTGQ37f8FuBQ0gfUa S3a25Y9hvgB4lOuQrwTZ2UF6N9u2pa5x6qKP5KEN+2LV/37r3GT+vyE/Avsn aXOQ/1WAGR5zrQD4SSSbBgbd6+G30He8LahNSn2zG2gwaEhK9rKGx4HGRKo9 xvFjr7PmhoEvF9TdeqijZ0o13iQtH3pYP3mapRXfpqDamNcCtUqpl7FPrQy6 cwW2ubb3H0zJBp4/30T7xkaKUVPr7eqext42xnzkmWp/aWsV8zazjRm2s8h1 Qd6WvkNZfhta+F4xlt+6X9CmHMdsSFDcXnP/n2g++s3+39pvQBvHaYrPyXW8 etg+xoN1WDMlX0c719tcy7RvmOVzrbOe9WbYH8Yi1zoZc8ZxfKS4Dvc6998I 0tUn6M7U9NlDXAN5roM89zbGo6tjMp7vF3UDc0CPMA7AF9hzMO7ifb47fPc4 Pu85+z/7L3t+jaBeWxtYN6jX1+FdjFUDF2Px37QMxwc8vyeo11cPkqeeWkF7 B/wWVMN8P/BqrLflvHv1j75LW3y3+M6w12x3LynxuNh759znmYOS//Gu91kH Lcc1vg1pv498J6v7XJ4/LehuT7XttJH2pYLe5Sio3lkHWa6tHOejc1COHjVm ma+7888aezWIv3dQfbayPGuOOco0NvC4reuPa4tdJ4t8xxd5Ps73nWvsi3x/ 6cP1WLV+LdbbXtVv9w3HhH7V9xk8a6tlqaPAb9OGoPu5wOe0D7LtyaA+ONl9 cavl+B10DHuDIHs06C3hm/JSortZ4Ht30b2RPXIIMI/fPqAQ9O0TAz/A/BVQ PyPnH6bFP9gyrBv6cQM40etveY9jrjXG2YXA+4BnaTfj4HN5Jt/UZkH12xx4 B/hmYC0BDkjrne0E6mA7OvoNptyJoHeb3wll3qeN/UFjgvrC2CDZW35M8N37 HNgzkdyLiezNsf0zYvXHfGAv31ne3cNBeg7xOyTIvqvAekH34E5gu6Cecy+w iX1nDOr4/t4OvBZkZ9VE3yvsY1/G+ubgt0flRLGZ7PiMcvz7ORYd7WNZUN/d DZwTqwYXx5pzfRfw06BevhVYIVFOygOnppWLIlB1zEvYi4CzY9c0cGbs+osV lxz3uGWg4rRsLW+dAfiN409bBzmW5J+V1h7XZ4JGplV/+Z5zvNT2TLZNU7w2 y/5/DdrnutkfFHfG/0pQrAoteypI/2nX8CjrGGkdozye6Xl/x5O1wVrifeE3 W0aiOq7kWBXZ70LbxbOO+67xzhXE6geF/B4OkrlgXOZY9Q3qJy8Dfw6K517g D2l9H7IW+b1Z4vhmO46M4XLQTtCKtPjLXPffW5ZrHWBrKbAdsG4i3oaJ7hLv VDng06B1GD+VqJb4Hjax3l3WR//5/TbD5+7w2cOC31ZgcayesjwWL2VWO5ad rPM9/1e8D1wfq19tjBXzAeZ73e8s39vl9p3nrXV+mKcs20zbd9pO2rvFMWQs GySKwd30y3FgPGhHY9u1y7GijzVdry0S7ZGng89jXfI7fq3/FdcBf3Mf+ZX/ KbG+YVbG4su374wl+xXv2xdBb/vCoPyXOqelzjHHnwW9DdODfKXP62wTbWsO rJUoLnX8b7HWNu5wrKgrM5FPjYAPJKrV+xPVxyrnsVmium0KvBLrHbgc69x1 viNNnRP6kONYZwP/Aw6/Qjo= "]], PolygonBox[CompressedData[" 1:eJwtlmlsVkUUhue7dy6IFJFCUURKNBrXqqhEDS6IYFwTlmIICauJcQtERcU/ bhgjq1KWuiJGi2xVaUsRwVJBVDQaTSmLFFpbiAIRAVuKBNTn9fXHQx5m5pvl zplzet7EycMnJSGEuRBhPP88lQthFEzAz89C+IwB66AQ7wCL8HehI34LY3oy 9iwYGP0b/fYGGIH/nobQHjxGY1Oo4P+rIIevpv9V/DWoxv+Cj/GPoB3/kzEL WGshtOJXsOb7+BdwLX4lVOGVUITnQzW+Brrjl0AFPg+6ZkZeAl3w75nzDvxS WIt3o+1l/AMowI/T9mDitpP4ECjkLDdCMf4TFNF3N9ThG9hzCXufB7X4etr6 0ZcPy/U94EV8GhzCz4GtjK2DXvqW0II3QwH+DnNMx2fAIrw7bafwRsjHv6Kt DF8CX+ORPc9l7sfhAP0L4RB7/RGm45NgKl4Kk/FauDrxHmvwFcwxi7lma068 M/MtTrznY/S30lZO30o4iB9J7SvgAP4tfBi85xp8LyzDl8Iv+OHUY5fDb3gz VONroAUfzHq1rLUBbsW/o20BfVWwG2+ATcFn3onvgo3BbeprhNXBczbh97Pn 0TmfWWf/NfXa2tM+fCZtdfRVwfP4SrhGsQXl0Xemu+sGy/Dy1N9mjmIUH8ce d9H3M4zGn2PMKuYqgWfxxanvbia8p7PT1iPxGlrrJG2fBMf8CXxL6rvUN9S3 /BLmB3+Dzdp76rl0R2V4Req96A1V4uuYs2vimHwdP5s9farYhl74EdrmJ35T R/G+mfv0xvvoLLQNx4fpTPim6G8xAr7BG2EK/iQ0Rbeprxi24Huj38JDsA8/ lvotK2ba8D+iY/8lOIxfkDm3rIcL8WbaHkj8Jn/Ax0Ex37I/jNX9wWOJ96i9 Hozei86ks52IXltvVm9Xa2gtzdmCPwJP5Dznw/jTyi8557xH8R3RZ9eb0Nt4 ITo2/hujtaLvVnNMwduic1MptOP3cIZ6fCvchd+eOVcppofgQ2Fb4jH34hOg IXEMjdfY1LlDd74RXxode0dZ7w3FJmNWJ855V+GF+sbBObavco2SeM45arDO ovvDC2AofnnmXKmceBl+E9Qk3sOd+M3RYzXnAHxQ5rNoTa094P/12uB6/Lpo b4X++G3Rub83DFIswvbg32ivF0f3KYddpG8bnXvzYAmeB9uCf9MFnwX1jG+F 2fhu3V/iGNyjt5Q51yvGe+L9Mudu1QjVitMz1yrlMOWyMzLflWqEasXU6FxY Dc/gDdGxrDW0Vl7mWqGc2gnvHJ2rlY864n2iz14P50YjV07vrVwfPbfOME1v izm2J46BYZlzsnKzcsYr+JvRd62cNAMfw5idjN0B9+EjM7vmKM6cE7UX5bw9 +NjMuUi/GaW3n7q2qr6vVT1K7apRn+Nv6f5yzklv42XRd6GaURr95vT2FENj 8IGZc7NiRrGjGqVapZgrwv9OXZua4J/Uf1So1ivHnUrdpj7l7ON4Rn9l8N8E Mfqb6jxq6xCdE5Qb9DfHmfhptG0OrpE98E6qgcFt6lOMKFZ0pjnRNUe1R2MS /j8yunarJkzE96euPYo5xZ5qpmqncsx+/F+XIUT/ "]]}]}, {RGBColor[0.6919238975303579, 0.5468742131895826, 0.41231949793742545`], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxFVntMl1UY/vE73/dHmw6ttam1irllrVKala6bZpetJiIgdLWgpREIP7yA 2VarjRJrAbVCpauJXWhaZhc1QySsVUtAZmn6A6Ka062V2oWUpOfZ82z98ez5 zjnved/3vO973vNl3Z/Kr0wmEonDQAC2A9uA/cDEOJHYiMUscBXG+UAecCRK JBoxfxRcBl4FlAOHoKAF6wfBHwK1+G4ALwEXAIuBQmApsMz6qjy/E2gH1gFr ga1AM5ALVAJzgWqgyHsLzRwvsv2njXL7lG/dtM1DPgukkvKHPswDhnCGlZg7 CU7ZDu29ibm3gDrgbJx/A3hsrLlVnm8AqoB6j6mH+0Yi2cqA/C7oesNn+wmx WAMeDIprg/e+A/lscGukeDFujUG6qJO2y2yDtuf5TDzHJuuhvnbbYgwHsH81 uD8otn32Ybd97AQmxdp/YaycNzvu72FuD/A+cE6smE4A74v0zbk5kKtwfnJj 6Z0DPonxKeAQ0I25zUAXkMa4zfOr4dNy8BpwKXgl8FBCcpttNweY7VzmmBfZ ry7LlFumzDHq9NmyXLcXgEeCcnAaPBnjDsxfHism9Id+TcW4F/OzwNn+nuqc f269a3H2MeC3I9UA7fDMl0CuB3wp+Bffh5/BOazLhOK0FrYfBr8EPtc1dKV9 SDs3dUCZ4/Aa5FaAW8BD9p/nWO/8cpzGuAn8DXh0rLhlxrqXzClzeBoYAPqB fz3u99wI8GNSNULfqGtspPyccH6avHYwUp0fBidj1TZrfMA6qet34Biwl/UJ mb/AheB2yM3F935wd1CN1YI/C7qDO3xW2qEvPdZFPbdh/wnmGDzoPDAft2Kc Bl8X6zx9Pt8P9pP+FrMW8V0CviGWzE3edwoYTup72PvPiFVTo8DfBvWgPeAZ sert+li97SngSfv5m31daP8WgAv8vdB10W253dBVg32dQX7T9sxYfvfZjy7H p9s9gLle77iwbzBOedjzJ2TzY8Wv0H2Mse913L4Lqu3vg+LV4VwTg45hLu8r UJGUjRafq9Y2+b0h6I63gg+4t7PHN7rnsM5KHRPe4Tz3z5RR5blM1+fF4HVB 9+L1oN7HfKXsD31hny6C3N/g+byvQX1/F3sn8joZ859GkuM+1lZb0P35Grwv qP99EtRTp/icV7lHsVdt85u0NUjfbPeYbMvSlzsgNwS+N1bcOnxvNgWdbWPQ Pai3H8cdf+bhLuz5B3xfLJ/o21fgLUEx+SDIRqX9P+r3NIoVxzr3gfMjvcPn gR8J6g+PUUdQf8kFzw+KeTG4IKgf3wO+JlavvBp8hfse+18NdG3JSCSeAOcH 9ae7wWdG6kNnsccDxyDTDF4Q9I4+GBRTxnY7eJl7dzX446B39iPwdOybBhQB 9ZahbG+kOPdE8pv+3wm+2Xf4FvDoSO/PKPCSoLd9KXg8dE3I0LsyCWvD4Isi zU/3Gt+d8ZZpc89h7+HasN8kyozLkFwq6O4sDlpPW2aW99wYaZz2m3Wt48m4 lgTV9QP2bZzPfFms+zcFPDGSvTH2c5p9nYnxEOZnRAK/fw06J8/7KPOI+dsh W2JmLKuBcr8pjF2r/xl2gB8H9mL9mUjrFX532oP+kXa6LjjPf5svg+rsi/C/ jeJIcWf8j2D+uaAe8Dz4RfeuJt5dyLwA+eWR6pL1mQk+7p7D3vNqkK+v8B8m yOa7zDni8gdrPlYseC7a7nOcmYfSoH+bMvDLfhv4HvK/lLYOAOVBPa+SufP/ G//j+vwm8m2sCbpDK8D/AcD2iBw= "]], PolygonBox[CompressedData[" 1:eJwtlXmIVlUYxu93zz2QkKWFJBJkCplZuZAREZlLpeYyzpjZYo0b2jjOTJbj ApWCe6RmpeO0kKWVibZoYabjXomlqUij1WS2qKBF2jKpaL+H5/7x8P2+c97z nuVd7rUjKosr0iRJpqEMlYYkKeJ3EBoO3x+T5B8M/kVD4CmMPc5cGZoKPyEb eAiaAJehEngwGgcXWPM8a7XJb2wwgv/n4B9QH/grbGqwXYq+hrejWfBydAi+ B5sfsT2C7oU34qMTPBBtgh/Epj+2A1Ax3AObA8ydRr3hiuCz6IyV8KWMfcDc h6gp3ArNg+eiq6LXaO0Z1BcuQn/Bf6NB8AC0E96B7oPH4LM48Z3Hwo8y1sjc f+gheDNjTzH3JNoEH+LMlcxVocPwKGx+gi+iMfBodDT1mOYWsmYGa2eiF+DH on2fRaXRb6K32YZugTOtgd9Hl8D17FGUek/tPTx6rWKgWDRj7Cy+v0fN4ZfY YyJcjV6GnwmO9Tj0LDwem4kF7FB55pgqtuOVRPLN/9nwHO0Bv5jHcyyaL9/B rByqhp/DZj++/kTz4OLot1bODYYXBd9dPuQrMDY/dU6l8LDo3NSbD4U/Vk5i W4XWwvvw2Y+5m1EN/CVjk/L77Qy+k+6mHKqCl6MpiXNSubkaVcIV6O3gN9Xb KoeawDW5v8nKYfgC2gpvQefgHcF76U23we2jc+8bdAO8OJ+XjyXwd8G5/xY6 DLfGZnXqO+vuyjnlnnKkBH4Dm/I8Pq/D1+fnW4Pawe8pZoltlsHfojp4M6qH X8vvrxjXwv2ic1853x9eFXx3+VgB12aOVTPml8KfMfZm4hxdF3xmnV1v0Aif RJ/CG9Dv8Ododh5P1fp0fKwtOAemwb+gstQxOwCXogcKzjnl3m7WLM7fS7Hc E9w7atFeeBeak3iPL+CR3OGP/L17RvcM9Q7VRF3mGGhuH+oAzwj2pTPr7NdF v6Vi0BbemteHanoLfFd0L2tA3eE70V54D7ojuqeot7yDrlYvY82SxHdogB9B AxP33GHwxuBeMUFngDegZYnfWG99gTOXp+5ZBzPnmHKtAV3B/67Re6lH3Rpd g6pFvemvqtf8vZTfP8PNsVmRumbPM9+F/9tTj7WAr8zs+zxqBx9HC1L3mBPw scy9TGOaeyW4FlRDryofM69tRfx6wCcYW5/3e51lVPC3Rj10NHwmuBcpR0/D naN7m86ks72bOfc66k3h9cFvpZr/BL6csfo8fpdlllh7NoWP5t8bxeCIejdj txWcYyVwz8xn1ZjmekXHVt+gu+GPgnuLesKa4JpR7Sjn6oJrSrWlmB0MPqPO qm/WSvgUY436tqE2/H84+NulHCiBb4/OHdWwanlS5l6rGqmGnw7+1ioH1atv jM7d/eimaJ/yrTe4Bu6OWhbc49vqLNG2+kZ2iq4J5b9ythv8P2hkH88= "]]}]}, {RGBColor[0.8691554652273265, 0.6091600676517761, 0.3081322504733928], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJw1lF1Mz2EUx3/+z/9/z5WNUGuSrRKVXqSQl8i6qIskNi8pxQobo+SlXKkZ 8rpMbWyKNi5ciVuZ19k0lkvqQmTjygXzOTvfLs4+z3Oe85znPOec50nZ01rV EouiqAMJSHMiiiZRNME2FBXoTsD6hBvsg19YjzH+Cj/A2ywNwyCdrR1HatG3 mw/tqYQFzPPQF8HRmJ/1ApnL2iCcB5M0Nt1EzH3O+Lb585jvndD+LNZW4DM7 uG5UNmPMB9B/Cn7+rOCxnUXq0HfCVmQl4xZYzHk/sCuB1YrZYq9hvRApEG2+ DdmHNCCbbMz+HFgPz1u+GDfBMvZP42cv/Bv3u9Yw/sz6OPJHcVg8XZZD1oax SYbFwX2XBj/LfHYh14Offw12YzuE3EfS2fMGFsGnrI/ojJPYbYdn4GlkK+NT cCrm9q+RQ9Lb+nfpbb1JdzkY3KfF/Szy84ZUu2H1wKPgdZupz6BodgdU92Z4 JXgOO4LvH5Ldr+C+f1tNEu4nD+5nnou+Eb5C900xL9F97d7dVldseix+pI/x OZiacNs0s2Xehv518Bw/QF7GfGyc8T0l/8ew24L90eB5tzx0IrvVb7uUk3Hl JabaWQ13srYc3Q74ULFZjGNxr9k/mBr3+q+F04rZYl8XvNc2wPlIBuMk+RhQ DFXMl8FaWCgbs12lfl4NLyCNjHthZuT1zUJylc98+DN4n7yHm4P3dyWcJKYe ezPc5abe8g24UTZmu972WP/DEiTf7qKzKnTeAs0XKldWX+uVd8zb4VvVvF/6 O9Lfg7fUt30wBclmnA6XKreZOr888nvaORk6u0Fvx95QlPC72J3WBLcvszvp r7M/L1n5TDPfess5wXvFeuau5VJ/oP2FvcrtZVit2OqC/wfl+hMaNTbdEeXn MLwku4vwqt6CvYnH6rMROCfuPTU77v+X1f1j8DWzeQJL9bfYH7MoeG0Xq0/6 1SsVyon18X/CdbgD "]], PolygonBox[CompressedData[" 1:eJwtlElsjVEUxz/v+PZsKfrSKBKtlqr3WlpzTWmTNtE+jwTpo5TWPLSPqFpR Y2IKQZCoIUEikRi2IqghlIWlYSFYsLIQfv+cu/jn/d757j3TPfcmV3c2diSi KFqKhqIhcRT1YbiJ/mHI8T8y7GgNPIffBZgWorlwK5oCT0ar4GNaB+fQUXgv WgIvRl1wFZoKV6JqOInP58R6gYrgN9ge8u0Remsu8QX0Dh6LSuFJqBAeRo4f 4T+oCL6GrRvOo374HFoGZ9DZUINq+US8pthrVK23UIL/xbHnMoDGwd3me+Uj Dx9G++FWdNC8RtXai+7Bd8xzvYjuwpdRV+Q5XYE3mO/Vno1wOtT/DGXh5ehb wm36djXsz8onnMJ2g29P0V9yP4FtbeQ9P67e8v0J3/pRAfzAPDflfB/uQz3h v2rpNfetGMq1jT1f2Gtwe+x7tPYSGjSvSbXJx23NAloET0Rp+Dd6HPmZDCe/ wth7q3p01uvD+VegNuVuzpqhnHlP1Js61QTvQc1wCm2FZ6Fp4f9suNh8FspQ Ei4wz6UEjYLXEfNrwmtSbc2x9062jPrNmvKwvwnuMJ9N5dgObw/1ad63wXXm LJtqH4mP6/g6hAapNxPy0Yw2mEusO7BJvTaPpTWN8Erzu6McVpjHkH+d6RHz mlWrat4Cbw71K8dOuD72Wf6MGuCy4E/9LIfHh3jyP8F8jdZqRirhecF/Gs2H P5iftc74PTzavJeqYQx8QHcq3K/X8Mtw3zQ/A+Yzmg335TxcQ4wfxPqJauGq 2O/Wd1QdewzF0sz8MveZD/fllfkarZWP6XC9ea4taCdcaz4repNmwjPC+alH NfBu87dH57UDPmW+VzN1Ur0M86fzTuktC++ZbBXmMVrC+7ELHhH73dKZ6+xL wvyo56XwvvDeqAc98JnwfsjHafg/AXWZJA== "]]}]}, {RGBColor[0.9233845100518042, 0.6784612751295105, 0.362491981160593], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwtkskuRUEQhjvasTJzucS4MMdMuOaZxBBEImK4cSVCTEsSwhUJIrwBGxZY 4TEshXfAQ0h8larFn+/v6jpV1X26NLY3u5vgnBtAHi0Ezn0TmIcVrIfRCOph Mwy74Qzqxs/BSdSFn4aNKBvfAJNhDUpBEa9+zOLVtpfltUcIrqAhfBNsRzn4 NtiCQvhmWIUy8ZWwEKXiCyQXVeJzYZ/k4XvhAMrD93vtLT1H4anNHPfaT/q2 wlKUgS+HJSgdXwaLURq+CK57vY8d+ISW8Y9e1xLfhpdoFR+180lc5gvbbHmw DmXha+E46sRPyCxe72dQYigX3yG1Ub78DxiDa07njlqvGOxx+l+W0CfrO/gB j6z+IXzwun8Pj53mnKArrzVv4AHqwO9bTcmXc8ad9pL8mPm41ZKcM/hsdc+9 fi91pryuJX4Bk7y+sQBu8M4S4Wag+7c2U73dnbyRN699XuGLeYn9JTr3Tp12 vl1Ev/hIoOcYtvuJWHwp0Fzp+4O+7H7knm7s7Nde9yRHZtyy2WTGf+Y9Rzg= "]], PolygonBox[CompressedData[" 1:eJwtklkr5mEYh5/mxhFmbO9r34qxZGuGse9LGEIkhfIqZRKnipgZB5jxEThy IDU1voZD8h048wmU69f9HFz9r571/v/upyq1t7D7IYTwFdKg3UIY5TsGHfg3 SOAFWoNfwCaegr/myH/Cf7wcPuLZUIafwzG+AWf4Dazhq3CNP8IlfgS3+HJ6 CM8UdA9vFPTA2FXwNa/4DvMvzGWoNnyH73isdxv/F+/Tnif8i3nt+dCGl0AW 3ghd+Il5LX3w2xx5L/zCa+BT8H+qwOsgF8+BKvwAevBu2Mdrzee0pxKfMz9L Z86b16haleEfvAjq8QYoVpbmWSnTTfx7PF9nzODV+od43xS+GOvthyX8B5mk m2e4gm9DmvmY5rr5JoP3tBNvNc8mD5rxgVhPne7ES817qcyUXdJ8TmsKlS18 jusT+Kl5L9UD9X4MivEiGMbvzN+K5tWr3nieerilf4HC4DX24EPmezXWb/4m lZ/ubMFHzLNTPYPmmSk7veF184yUlTKcNs9Y6zP1JlRL7I/mD/HJmK9qHsdn 436NaW7C/O3ojFG8yTw7vYl6/B0BMUAI "]]}]}, {RGBColor[0.951696262080074, 0.7492406552001849, 0.4502584124482292], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwtj8sOAUEQRTs6Iggi8Y5HCCZhMSussfNIECwsxmRshS+wFHyK3/FFTqVr cfvcqq6pud2O7rtbzBhTRxYFHHN4gR8U4l/wiQL8EZ7QFO9ZNyfzETygFn4P z8bNP1CFOgXLcI0a+JXunhm3a2Fdhg5cqpfeJG5MAl7h17p9P/jW7yWjp3mG sIDS+BrcoiZ+A8eojx9ZdyczVc0ZaoYSdRIWYVezydty1D2Y1770pM5onYW+ 7pf/DLQv93//hhcp "]], PolygonBox[CompressedData[" 1:eJwtj9sKQVEQhifjYqOcj+WQwgVKKQ+ASxSS5GLTfgCewC1exVv6plkXX/ub vdb8M6ufPI+PlIhUIQ1vFbnxfcEPP0Ms/u+Cf+Aears7hyG+hhjfQgdvw8ay YCXe88VP0MO7cMBrkMEjqOATWIr3TPFEPdtqyyqFeSMo4w3IimfU1TOicD7D 8zAQ7ymov8F2txlXfKF+187tLeVQW0ZRfQebbRljfK++u71xh7cgJ75DE/8D FmUTxQ== "]]}]}, {RGBColor[0.9800080141083437, 0.8200200352708592, 0.5380248437358653], EdgeForm[None], GraphicsGroupBox[{ PolygonBox[{{777, 33, 776}, {783, 6, 782}, {856, 64, 854}, {810, 35, 812}, {812, 35, 811}, {33, 63, 64}, {33, 64, 34}, {858, 64, 856}, { 804, 33, 777}, {35, 5, 4}, {34, 35, 4}, {786, 7, 785}, {784, 7, 786}}], PolygonBox[{{854, 64, 63, 901}, {776, 33, 34, 778}, {811, 35, 34, 807}, {807, 34, 64, 858}, {778, 34, 4, 780}, {782, 6, 5, 781}, {855, 63, 33, 804}, {781, 5, 35, 810}, {785, 7, 6, 783}}]}]}, {RGBColor[1., 0.8966232516371629, 0.6499185968196806], EdgeForm[None], GraphicsGroupBox[{ PolygonBox[{{804, 32, 855}, {780, 3, 778}, {778, 3, 776}}], PolygonBox[{{776, 3, 2, 777}, {803, 32, 2, 779}, {777, 2, 32, 804}}]}]}, {RGBColor[1., 0.9499999999999996, 0.7499999999999993], EdgeForm[None], GraphicsGroupBox[PolygonBox[{{779, 1, 803}}]]}}, {{}, TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{803, 779}]}, "75"], Annotation[#, 75, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{780, 778, 776, 777, 804, 855}]}, "72.5`"], Annotation[#, 72.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{784, 786, 785, 783, 782, 781, 810, 812, 811, 807, 858, 856, 854, 901}]}, "70"], Annotation[#, 70, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{788, 794, 793, 792, 791, 790, 789, 787, 815, 822, 821, 818, 862, 867, 866, 863, 904, 905, 903, 902, 937, 978}], LineBox[{802, 842, 843, 844, 845, 848, 849, 852, 853}], LineBox[{1388, 1335}]}, "67.5`"], Annotation[#, 67.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{936, 935, 931, 930, 899, 898, 897, 896, 892, 891, 888, 887, 846, 841, 838, 837, 834, 833, 830, 829, 827, 826, 824, 823, 820, 819, 817, 816, 814, 813, 809, 808, 801, 806, 800, 805, 799, 798, 797, 796, 795, 825, 840, 839, 836, 835, 832, 831, 828, 870, 877, 876, 873, 906, 909, 908, 907, 943, 945, 944, 940, 980, 979, 977, 1007}], LineBox[{1336, 1277, 1367, 1369, 1386, 1385, 1384, 1387}], LineBox[{1371, 1337, 1372}]}, "65"], Annotation[#, 65, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{1006, 1004, 900, 976, 975, 974, 973, 972, 932, 927, 924, 923, 921, 920, 919, 918, 917, 916, 893, 883, 882, 881, 879, 878, 875, 874, 872, 871, 869, 868, 865, 864, 861, 860, 851, 859, 850, 857, 847, 880, 895, 894, 890, 889, 886, 885, 884, 910, 915, 914, 913, 912, 911, 948, 955, 954, 951, 981, 984, 983, 982, 1010, 1011, 1041, 1040, 1059, 1089}], LineBox[{1278, 1237, 1307, 1306, 1303, 1308, 1333, 1334, 1359, 1358, 1355, 1363, 1382, 1381, 1380, 1383}], LineBox[{1280, 1254, 1281, 1279, 1282, 1283, 1312, 1313, 1315, 1318, 1319, 1320, 1338, 1339, 1340, 1342, 1343, 1347, 1379}]}, "62.5`"], Annotation[#, 62.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwV0LtLFXAYBuBfpFBwjqLiWuhiapppa6SmlWJQRwsJynPOXLbVWmv9AyYo OdjlhA2FouStvFaTuHgpDS+VQvvBI+rT8PAO3/K+X1HyYazzWAihi9qsEC7x 73gIxfI0p8glhygRdtx/s8kGv1hnjZ98Z54ZpvnCZyaZYIxRRhhmiEE+8oH3 DPCKd/SToo+X9NJDN+N84ytzzDLFMj9YZYU0hxyQId+OAko4Qz2XidFKgjgP uM9jHvGUJzznGd284A2veUuKUcYYZ5IllllhlT/8/f9LdsnKDuEEJ4kQJZdS yijnLBWco4oa6rlGMy1c5wY3idHGLW5zl3bucYcO4iRI0sRFaqmjgUaucJUL VHKeagrJY1//NHtk2GaLRRbo4hNHLgVUUA== "]]}, "60"], Annotation[#, 60, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwl0r0vHHAAxvHfuTsvd4k0da5eehpSo6FJhURiYqdhQxM2EpZKWEhYSGi3 dmBloZ0s5i7apP0LtHVeQqq4444Qkn4Sw2f9Ls/TODzxZjwSQlgkGw2hJBZC ggrKSfGMNNW08Iouuumjn2FGGGeCKaaZY54llnnPB1ZYZYNNPvOFr+zwje/s 8ovf/GGPLKfkueSKAkVuuKUyHsJTqkiRpoZaXpChiQZe0swT4pRSRoIk13r/ OOOcC3IcsM9PfrDNFuus8YmPLLLALDNM8o4xRnnLEIMM0EsPnXTQThutvCbD c+qpo5YakpRRSpwYUSIEHux7zx233HBNkQKn5PlLjhOOOeIw+viP/1x9R0A= "]]}, "57.5`"], Annotation[#, 57.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwl0Dkvw3EAANCfpB/EP1GJI61U0oSwumnSwVGxiDoWlM2xOVaK0W13NI5Y hBQDiUaEr+MlHd4XeNHkQna+JoQwQV0shIg49TTQSBPNJEjSQitddNNLH/1k GGGUHONMM8MscyyxzBrrbLHNHgeccMwRF1xxwztvvFLmhWee+OSHP775pcIX HzzywD133FLimkvOOeOUQ/YpsssOm2ywygoFFskzxRjDDDDIED2kaaOdDjpJ URurfv8D2gsvoQ== "]]}, "55"], Annotation[#, 55, "Tooltip"]& ], {}, {}}}], {{}, {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[ 1.6], PointBox[{{0.19241254592405, 0.7611301531311999}}]}, {}}}, AspectRatio->1, DisplayFunction->Identity, Frame->True, FrameLabel->{ FormBox["\"Ra\"", TraditionalForm], FormBox["\"ktf\"", TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic}, PlotRange->{{0.18, 0.3}, {0.5, 0.8}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.615026025050667*^9, {3.6150260980084596`*^9, 3.6150261317484117`*^9}, { 3.615026382148176*^9, 3.615026422790031*^9}, 3.615112121924937*^9, 3.6151121830853558`*^9, {3.615112242836784*^9, 3.6151122870791855`*^9}, 3.6151123958174105`*^9, 3.615112479239602*^9, {3.6151125511226544`*^9, 3.6151125780917845`*^9}, 3.6151135927381*^9, 3.6151138417438755`*^9, 3.615114067428113*^9, 3.615114250997414*^9, 3.615114672723806*^9, 3.6152816217768345`*^9, 3.615372215105401*^9, 3.6170357228971443`*^9, 3.6182378360533905`*^9, 3.6182901571146145`*^9, 3.6183109945628705`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"siV", "[", RowBox[{"r_", ",", "Ra_", ",", "ktf_"}], "]"}], ":=", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"model", "[", RowBox[{"k", ",", "Ra", ",", "ktf"}], "]"}], RowBox[{"k", "^", "2"}], " ", RowBox[{"SphericalBesselJ", "[", RowBox[{"0", ",", RowBox[{"k", " ", "r"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "25"}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{"2", " ", RowBox[{"Pi", "^", "2"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.6151147634402065`*^9, 3.615114782327615*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Dynamic", "[", "r", "]"}], "\[IndentingNewLine]", RowBox[{"Dynamic", "[", "Ra", "]"}], "\[IndentingNewLine]", RowBox[{"Dynamic", "[", "ktf", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tsiV", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "Ra", ",", "ktf"}], "}"}], ",", RowBox[{"siV", "[", RowBox[{"r", ",", "Ra", ",", "ktf"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "20", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"Ra", ",", "minRa", ",", "maxRa", ",", "dRa"}], "}"}], ",", RowBox[{"{", RowBox[{"ktf", ",", "minktf", ",", "maxktf", ",", "0.05"}], "}"}]}], "]"}]}], ";"}]}], "Input"], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`Ra, StandardForm], ImageSizeCache->{24., {0., 8.}}]], "Output", CellChangeTimes->{3.615113842164173*^9, 3.6151146728028617`*^9, 3.6151147893936543`*^9, 3.6152816218208656`*^9, 3.615372264371373*^9, 3.617035722912769*^9, 3.6182378360894165`*^9, 3.61829015716265*^9, 3.618310994752005*^9}], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`ktf, StandardForm], ImageSizeCache->{32., {0., 8.}}]], "Output", CellChangeTimes->{3.615113842164173*^9, 3.6151146728028617`*^9, 3.6151147893936543`*^9, 3.6152816218208656`*^9, 3.615372264371373*^9, 3.617035722912769*^9, 3.6182378360894165`*^9, 3.61829015716265*^9, 3.6183109947550073`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"datasiV", "=", RowBox[{"Flatten", "[", RowBox[{"tsiV", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"intersiV", "=", RowBox[{"Interpolation", "[", "datasiV", "]"}]}]}], "Input", CellChangeTimes->{{3.6148543977575045`*^9, 3.6148544416196337`*^9}, 3.6148562407252445`*^9}], Cell[BoxData[ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "20.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.18`", ",", "0.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.8`"}], "}"}]}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "20.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.18`", ",", "0.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.8`"}], "}"}]}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{0., 20.}, {0.18, 0.3}, {0.5, 0.8}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.615114021040161*^9, 3.615115116146262*^9, 3.615282432289236*^9, 3.6153731498031125`*^9, 3.6170364509817543`*^9, 3.618239008644071*^9, 3.618291338626505*^9, 3.6183122100407934`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"valRaktf", "=", RowBox[{"Table", "[", RowBox[{",", RowBox[{"{", RowBox[{"Ra", ",", "minRa", ",", "maxRa", ",", "dRa"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxi", "=", RowBox[{ RowBox[{"Dimensions", "[", "valRaktf", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6145084113115473`*^9, 3.6145084487531967`*^9}, { 3.614509341415949*^9, 3.614509360306342*^9}, {3.614512050317747*^9, 3.6145120577730126`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Dynamic", "[", "Ra", "]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ra", "=", RowBox[{"minRa", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "dRa"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol2", "[", "ktf_", "]"}], ":=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ RowBox[{"y2", "''"}], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"intersiV", "[", RowBox[{"x", ",", "Ra", ",", "ktf"}], "]"}], " ", RowBox[{"y2", "[", "x", "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"1", RowBox[{"(", RowBox[{"1", "+", "1"}], ")"}]}], RowBox[{"2", SuperscriptBox["x", "2"]}]], RowBox[{"y2", "[", "x", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{"-", "0.199"}], RowBox[{"y2", "[", "x", "]"}]}]}], ",", RowBox[{ RowBox[{"y2", "[", "0.01", "]"}], "\[Equal]", SuperscriptBox["0.01", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "0.01", "]"}], "\[Equal]", RowBox[{"2", "*", SuperscriptBox["0.01", "1"]}]}]}], "}"}], ",", "y2", ",", RowBox[{"{", RowBox[{"x", ",", "0.01", ",", "20"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"root2", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"y2", "[", "19.9", "]"}], " ", "/.", " ", RowBox[{"sol2", "[", "ktf", "]"}]}], ",", RowBox[{"{", RowBox[{"ktf", ",", "0.8"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"valRaktf", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"Ra", ",", RowBox[{"ktf", "/.", "root2"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "maxi"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Ra", "]"}]}], "Input", CellChangeTimes->{{3.614508300659214*^9, 3.614508401623047*^9}, { 3.6145084741937194`*^9, 3.614508639869157*^9}, {3.614508696405898*^9, 3.6145086964996495`*^9}, {3.614509368856405*^9, 3.614509439151228*^9}, { 3.614509477463411*^9, 3.614509477595504*^9}, {3.6145099058591366`*^9, 3.614509906289442*^9}, {3.614510346007234*^9, 3.6145103862547703`*^9}, { 3.614581385290084*^9, 3.6145813950460014`*^9}, {3.614585624932725*^9, 3.614585625043824*^9}, {3.6145858653502073`*^9, 3.614585865619379*^9}, { 3.6148550862787066`*^9, 3.614855092931406*^9}, {3.6151142286145225`*^9, 3.6151142303777733`*^9}, {3.6151142959183025`*^9, 3.615114295988352*^9}, { 3.615115598291527*^9, 3.615115603903511*^9}, 3.6151157871556053`*^9, { 3.615281049802577*^9, 3.6152810506251597`*^9}, {3.6153733301377163`*^9, 3.615373330693107*^9}}], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`Ra, StandardForm], ImageSizeCache->{24., {0., 8.}}]], "Output", CellChangeTimes->{ 3.614508667528358*^9, 3.6145086975621104`*^9, {3.6145094292982397`*^9, 3.614509440273021*^9}, 3.614509479586899*^9, 3.6145116872469907`*^9, 3.614512070141803*^9, 3.6145174402716103`*^9, 3.614585570370058*^9, 3.6145856255992002`*^9, 3.614585867388636*^9, 3.614795993091589*^9, 3.614856249619532*^9, 3.615114193774792*^9, 3.6151143016553774`*^9, 3.6151151182307234`*^9, 3.615115624324011*^9, 3.615282432321256*^9, 3.615373149913172*^9, 3.6153733313415685`*^9, 3.617036450997397*^9, 3.618239008686101*^9, 3.6182913386655326`*^9, 3.618312210252945*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"valRaktf", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6153742800103607`*^9, 3.6153742820928392`*^9}, { 3.6183106218906374`*^9, 3.6183106542456656`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[1, 0, 0], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQzXV9cYEt13F7Jemouts739qvc39YJbLuuH11hdgi 1/tv7IN2yLW+Djxh/+Tr3Z03Vd7Yf9OI6T/09YS9X3bmsoCW1/YzweCkfWzT JfltP17Z24INPGXvExr5Tb7ulT3INPeHp+wDTa05SwVf2QMNA5p42n7RtrcX HDa8tNcEGadxxn7p5KKNkyJe2p+BAPviXOMp9zle2heADTxrr3zlUPf7/S/s RcAOPGev4DvR/WTNC3uw83acs3eNZfm2zO6FPdi4mPP2uTskJF+xvLBnAIML 9vaNe/YLn38O9c8Fe1Zt65+75zy3XwK24IJ9oq7X+d7c51D/XbB3W66j4ez4 3N4D7IGL9r/6nB4tEH9uPwvs34v2sp5zVhd/eGb/BuSd1xft45pMlvWffgb1 /yX7iR2p4WdXPLMHO6f/kv3Mk9cyOTueQcPjkr2S8z4F5cxn9sZgcNneftH0 TpkDt/cDANwcylI= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"Ra\"", TraditionalForm], FormBox["\"ktf\"", TraditionalForm]}, AxesOrigin->{0.178125, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0.18, 0.3}, {-0.433600553863048, 0.9289376704990426}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6153732372607775`*^9, 3.6153733963757477`*^9, 3.615374282522125*^9, 3.6170365126581016`*^9, 3.6182390952697225`*^9, 3.618291340420782*^9, { 3.61831230794147*^9, 3.618312308949188*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"valRaktfb", "=", RowBox[{"Take", "[", RowBox[{"valRaktf", ",", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "valRaktf", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.615374290319662*^9, 3.615374310744179*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.18`", ",", "0.9289376704990426`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.185`", ",", "0.9022548833634255`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.19`", ",", "0.879498351117658`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.195`", ",", "0.8599017381887764`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.19999999999999998`", ",", "0.8428602811364488`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.205`", ",", "0.8278961001875955`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.21`", ",", "0.814631002454613`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.215`", ",", "0.8027652817379087`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.22`", ",", "0.7920621362469445`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.22499999999999998`", ",", "0.782333173231946`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.22999999999999998`", ",", "0.7734296540935514`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.235`", ",", "0.7652326963238103`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.24`", ",", "0.7576479725857231`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.245`", ",", "0.7505999078910129`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25`", ",", "0.7440279717302828`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.255`", ",", "0.7378826015277303`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.26`", ",", "0.7321232842090631`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.265`", ",", "0.7267165932328019`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.27`", ",", "0.7216343325748931`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.275`", ",", "0.7168520309226413`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.28`", ",", "0.7123487707322729`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.285`", ",", "0.7081057269063128`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.29`", ",", "0.7041060511749492`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.295`", ",", "0.7003341331020219`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.615374311135456*^9, 3.6170365126737432`*^9, 3.6182390952897367`*^9, 3.618291340945154*^9, 3.6183123080225296`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"valRaktfb", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{ 3.6153743324705853`*^9, {3.6183106920785913`*^9, 3.618310703456689*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[1, 0, 0], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQzXV9cYEt13F7Jemouts739qvc39YJbLuuH11hdgi 1/tv7IN2yLW+Djxh/+Tr3Z03Vd7Yf9OI6T/09YS9X3bmsoCW1/YzweCkfWzT JfltP17Z24INPGXvExr5Tb7ulT3INPeHp+wDTa05SwVf2QMNA5p42n7RtrcX HDa8tNcEGadxxn7p5KKNkyJe2p+BAPviXOMp9zle2heADTxrr3zlUPf7/S/s RcAOPGev4DvR/WTNC3uw83acs3eNZfm2zO6FPdi4mPP2uTskJF+xvLBnAIML 9vaNe/YLn38O9c8Fe1Zt65+75zy3XwK24IJ9oq7X+d7c51D/XbB3W66j4ez4 3N4D7IGL9r/6nB4tEH9uPwvs34v2sp5zVhd/eGb/BuSd1xft45pMlvWffgb1 /yX7iR2p4WdXPLMHO6f/kv3Mk9cyOTueQcPjkr2S8z4F5cxn9gB0FsOW "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"Ra\"", TraditionalForm], FormBox["\"ktf\"", TraditionalForm]}, AxesOrigin->{0.17820312500000005`, 0.6889039562321709}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0.18, 0.295}, {0.7003341331020219, 0.9289376704990426}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6153743328088226`*^9, 3.617036512689351*^9, 3.6182390953257623`*^9, 3.618291341795761*^9, {3.618312308182644*^9, 3.6183123090682726`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"fktf", "[", "Ra_", "]"}], "=", RowBox[{"Fit", "[", RowBox[{"valRaktfb", ",", RowBox[{"{", RowBox[{"1", ",", "Ra", ",", RowBox[{"Ra", "^", "2"}]}], "}"}], ",", "Ra"}], "]"}]}]], "Input", CellChangeTimes->{{3.615374067385393*^9, 3.6153741061949472`*^9}, { 3.615374352746978*^9, 3.6153743695949397`*^9}, {3.618289476027237*^9, 3.6182894768428173`*^9}}], Cell[BoxData[ RowBox[{"2.070506079240678`", "\[VeryThinSpace]", "-", RowBox[{"9.237487649394735`", " ", "Ra"}], "+", RowBox[{"15.656937464698144`", " ", SuperscriptBox["Ra", "2"]}]}]], "Output", CellChangeTimes->{{3.615374106652269*^9, 3.6153741227236805`*^9}, { 3.6153743533744373`*^9, 3.615374369847133*^9}, 3.617036512798727*^9, 3.618239095344776*^9, {3.6182894778145094`*^9, 3.618289499230753*^9}, 3.618291342361164*^9, 3.6183123082697043`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"valRaktfb", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fktf", "[", "Ra", "]"}], ",", RowBox[{"{", RowBox[{"Ra", ",", "minRa", ",", "maxRa"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6153734469456415`*^9, 3.615373471745246*^9}, { 3.6153735183763695`*^9, 3.615373524638794*^9}, {3.6153742628791804`*^9, 3.6153742728412533`*^9}, 3.6153743596809196`*^9, {3.6183107160946836`*^9, 3.618310726826321*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {RGBColor[1, 0, 0], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQzXV9cYEt13F7Jemouts739qvc39YJbLuuH11hdgi 1/tv7IN2yLW+Djxh/+Tr3Z03Vd7Yf9OI6T/09YS9X3bmsoCW1/YzweCkfWzT JfltP17Z24INPGXvExr5Tb7ulT3INPeHp+wDTa05SwVf2QMNA5p42n7RtrcX HDa8tNcEGadxxn7p5KKNkyJe2p+BAPviXOMp9zle2heADTxrr3zlUPf7/S/s RcAOPGev4DvR/WTNC3uw83acs3eNZfm2zO6FPdi4mPP2uTskJF+xvLBnAIML 9vaNe/YLn38O9c8Fe1Zt65+75zy3XwK24IJ9oq7X+d7c51D/XbB3W66j4ez4 3N4D7IGL9r/6nB4tEH9uPwvs34v2sp5zVhd/eGb/BuSd1xft45pMlvWffgb1 /yX7iR2p4WdXPLMHO6f/kv3Mk9cyOTueQcPjkr2S8z4F5cxn9gB0FsOW "]]}, {}}, {{}, {}, {RGBColor[1, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwd1nk81dkbB3CKSJSRNdolkuVerTIee6USKVSSMVqoZG8dGTRGhRhJQhtJ iEsRqcl6Ldd2bosSWfK91mTJzxL9njN/3Nd9vf+43+85z/Ocz7nLXU7vOTJL SEioGT/0e6s24/erBBc4fygfFd82AEc3GbK853FhpH1J0LDFAPxlEtv/UJIL rq8FTz+ZD0CFncXv0gu40NRX5cQxHQCLSw+tOxdyYc50felBGACzhqOaYYu5 cEm8kzzdMABG3oK2N7pcaCtVFT27agD087p3nLTnwh6efKHJ7AHoEI5cqZTO Bc05CqW7C/thlbCdn/4EF1Kl/x56eqYf5rm6efDNK+H3M5ai/I398PDKMrfe uEqwdNteqDLaB59cx1v8mEqwOLRF/XheH3Bn+e69pF8FJUWtu9T9+mCfiIG3 UHgVcO7fMH25oQ8CClQlxj5UgUOWiefUdC84sjkP3LSqQebeEaO5Jb3w1skp 3+ZCNbiUf9H852ovDH+19+Zwq6E51DT7pn0vlJp8145cVAN+tptDypb1go5l 7pH2YzVg0/67ucJgD1jLySVxXtTArzuCNzUX9oCcWekfE1I8WDTqdHt9WA/4 qUW/f3aAB4odlamHHHsgjCei9y2TB+/S3kbZaPXAJrU48TtTPIi0EF/DzOqB BNP6zzW7a+HQ8pB3ke+6Iblsj5Pn/VqYJ9P8OjOjG7ZOjNmFDdbCtOab7IWh 3XBnyNBmmWkdOBT7V/Yc7oaoxNRyzag6ODXLIO+jQTesznRsf9JSBxZOLUFd yt3gHfhsJku3HuwWd1kWTAjAQUwndlVAPfhu/S3GplkAIzY7dZRIPeRp8pun XghAUah5o4lMAyyu2N7VnCQAUdYyuZxNDSATIDZH/bIAeKYbR5xdGuA+R2S8 zV0AztlO8y3DGkB37tRQk60AKqzWTntkNUDFygORGYYCEKuv6SdNDcCsuhNl riEAubQLSl4/GyDW7fJlrrwApl2nLaw0GsG6tSrDXkQAuecjOUesG+F+uGXQ g1EGtpRwB5/7N4LRQLZMGsNAYl+j9o67jRCoUdco94GBWo/+xwrcRrCKHC4V 1DLwnt+0euVQIzzOiBBzL2WAvUTZvJK69TbbDB1x/JDLqeFGkE3IO7MEbTbd npA/0gjqBbLW/BIGctT6ftk51ghmF302G6Ijzk1P+U41wlG1F18VixkwX7qi oUKUgKGET2f7KwZy3U+cdV9EwEz68vfiQgb8x+4FiCgTWPZPystk9KagppAk dFuVV0Io+tUt8yiiQkDeVippF7qyculj/aUErN5Ycz4WMNCq9qZZQpWAePRc xYnnDIh3GkC6FoHASWPGIp+Bag8fc3NtAuzJpuC16PDJtB2f0dWZyptk0DIy Cg4LdQk80U3+0pLHwGLjIc8LbAImKcW7/NHsOyn3d2wkkLNd2zn9GQOOB+fP 6TcikHCp7rLaUwYeam8T/8eYQNxgyrQk+ptwkIS+CQHeO9XrI7kMhDz6Pv9v UwIVEkqixeiM758UVC0ILJnbrH0IPR2ZruG4A9d3uPzP+BwGksq27eLtIyDj pbdKg8NA982g3T52BBy5E0MyaPaJIptF9gQ+xhz78CObgYpfdO2OOxA4emPz eAP6q5PCYZGDWL+1+X7n0TDR5WngjPV/puhJshho0wqOyXDH/Wj6ucQ+YSDK hHNp2wkCzr3yZSFoE/vP7l/QJsKjBj7olMAtxiqnCMRsdPa1RrvzRwaunsb9 VwhNzkOPnnXdesKXgJCHi3NoJta/zHxSIwB/35F6KzKDgYImn65ytHbq045A tPvAvYbfLhHYWfbDxBtdKz/z8FYg9l8Mtu9DR7vl2c4NJqCYdfWkClplwerM 7lAC3n+bz89KZ4B1QNw5NYrAFectr7oeM/BY7LK+UTQ+z61X4yN6xTNhuQ9o daOB9Dq0rPRUlUQMzovD1+F89Fj5gJ5HLNaf3XrtKrqQxRdbf5uAyDXfbxvQ 7M+7O2rRTf7OxWvR6dd4RUcTCFTq3H20Ap0gKPeKS8T+SCoXzkcHJD5vnrqD /fOY6RakYf3mJmWVJBN42nTBPwldmLfoysEUArEpyRk30HquN11H0UlGyyeu oVX/va6klkpAsl3u7QX0HL/g4LA0AgE1/XEH0DVtx+2tn2D9LWysVdBmEV2s HvT173l9suiiLS6SQVkEHnt7Jkqhn8QeLM7NJmD0vtX05yMGru+00lTIJTCz PS2hE733ud7Plnzs/9vRP7KpM3PfBj8n4L+cPZ1GfV8vQ6OAwMWI/NgH1Nf0 9vsVEryf4hVvUjvr5Uq+JKD2vsT+EvW+3LActIiWcdo5aks9Z4dXBFSTxeR8 qdfpSSX/S2Dt2Mktbmhbcb1jW0oIuGrcKt2L3jOd82s72jHMQbCbepgtG1pK IFrCedUO6k/sYlJGoM5z6zdj6my2sjuXgDvvTLEudUrO0IJKXO+Gs/lrqePZ lc/Q1cWvuerUIWw/4WoCmwzWbFxO7cCuj+OhXzvZLKTelZNiWIvrWXdXSZra hH3xC5pXpfFDknotW0O3nsBJBzlpMerlOT/fopNtzhiLUMuz311owHk9uTxc mFqIHcxtJNAgYuXzIxX9nbP/FMH8Cm6QmqTuZeku5OM8rLhd8j/qN6wWpzcE jpeLXxihruLkirwlUFiZHjBE/Yp15THaYiA2YZD6EWvj2Duct3jz1f3UiRyp hPcEIlbMjemljmZ9MW7C+efJKvdQh3IKBWjJm8eLBNQXWVHhH7AfwSJnGWov zjG9j5hf17t3dVEfZRl+QBv+K2v4hfogR/ZSM57fBWHbOqmtWX2qnwgcCDQ/ 1UFtzimuRhMZy4x2an1WnGcLgZCKWNH/rMPxkG8lEHRb81wbtSrLvAhdGCUu 9p+VOMoun/F9aVpZn6nns4bF2nBe2+O9/vNsTmUmeo6BtRW1zbjuHdt2Atb5 u8ypn2unOH1Fjz2/tZd62RGlJWEdBPQVKs9Th94Ob1nZSUCFNOVTf20UTnyF jumpmUffv0/c33H/F8z/Q/f8qYsMe5VH0a7a+8epV/o5NUd04Xk+OHKd7udK OonXYAjc7zptRPc/1G5xoIyh9a6bQ+vjoPhC6bAA82aB9Bfq11Y6HybQ0ll6 TbSeqy8/iIvpxvlN39xJ6x3xQsFBpwffJ7JClPZnbOiqQjX6R0H/r93oMiff 2J+9BCb1NUZpfzVvdO+L78O8n3Pbi/Y/usZRbn0/zqf2oOhXtPMm8xj3AQKW MYY+dH64HgW2ol/xvJLNO+l8aadoLbyLTjqpYPAdPf2LfPTbQQJO+eecJ9Cu 267YeH7DPDk2EzOF5gXMSM8bwnr5HmmbRsf3MZFGwwTWJX98MQvnfUN5fnj6 KJ7PA79dlkInTmnusviO6x0c96TnSYR9V7IdXdbu7UPPGz/p76vy/8N6NUu9 VEJ7nt0f9ucE/h9Y1eayGv3+Se02lUkCe+9cEdVEG3YZi+ejZ/wU/tVGS+5Z E9o/hfmyucl/AzpNcyrEfgafLz82boGWdjltNozO88vdQ/PjbFzn7PCfBAxY tqU0XyxEeUElQnxY82pzjwO6ozUhUGs2H6x1Hmw9iVaJNrw4W5wPHR4CK5p3 w58XbMlGayu5liWiK7XaJxzn8mGR5BG7ZLRvVfCZPAk+5NWM1HPQNUJV3m5S fFiRY6ZUhz5/2tatXoYPDcpPRSQxn61fqqpfXMiHot1+JjS/1eaNMeqyfNDn FSbQfCcP41yD5Pgw/w55qIXWaG05vF6RD93p63+xQTftPG53ezEfjrpUGSbS vI/fLLdtCR96l9abpaJDuiXejKIl1PYf46B1QzJtrJbxQVpyUrgCHfpieKfw StwvnA7/ht6w5g/TY+p8eGiyetoS7zPJs1azZDX4UBLmVWOH7ihfWvwaHaBk lOeCjvitxHCRJh8KZdzbz6OZODH9Wi0+uJ4cCs9AFzFN4+e08fnjh4wK0NHr Huer6fDhDc9qQQXasGHn+kBdPjzZ/XJWG72flywZXcviw8y0/uoBdO+JwZwP 6P5Rg+OT6NcFr73+YvPBY11puRje/zfEonX19PhwvagW5ND/B7FyFCw= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.17820312500000005`, 0.6889039562321709}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{ FormBox["\"Ra\"", TraditionalForm], FormBox["\"ktf\"", TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0.18, 0.295}, {0.7003341331020219, 0.9289376704990426}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6153734368394628`*^9, {3.6153734739688253`*^9, 3.615373493026352*^9}, 3.6153735255354323`*^9, 3.615373719314289*^9, 3.6153740196795444`*^9, 3.61537408315761*^9, {3.615374119408327*^9, 3.615374124960286*^9}, 3.6153742688104086`*^9, {3.6153743605034847`*^9, 3.615374372191783*^9}, 3.617036512829977*^9, 3.618239095397814*^9, 3.618291343236785*^9, { 3.6183123084148073`*^9, 3.618312309212375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListContourPlot", "[", RowBox[{"contour2", ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"valRaktf", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Ra", "/.", "fit"}], ",", RowBox[{"ktf", "/.", "fit"}]}], "}"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fktf", "[", "Ra", "]"}], ",", RowBox[{"{", RowBox[{"Ra", ",", "minRa", ",", "maxRa"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6151145268912783`*^9, 3.6151145270223684`*^9}, { 3.618310739460312*^9, 3.618310749930764*^9}}], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxt23kglOv7x3FFRItKJEmrFiVJm5JLqUhZUp2oUNqESpvSqkWLTmmTdkqW dm3aQypjH0NaRGYG80yr06r995y+fbrPPPPzx3HeJx5jXjMT576uDv7zPWfW 19DQCG6gofHve72H8SFD9LJI49dbJaE9r5pFvBjL+jj/z4fxrD92mxJ15wNr Z+nylmedpH/6wP5/31i/HPvvBVnb//oX2Z/mL8ZfkfX/Lsfa5teb/E/zN46/ IOtf7x6y7v7vzetW9adX/Hu55azz8/59Y93u1wWr//SCf7/dENa/bt4d1r8u 17LmT8/69cb61913lfX/3iv+9K+bN4X1r8udZf0/D07gwQk8OIEHJ/BQCjyU v78O80bDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1v NLzR8EbDGw1vNLzR8Fb14AQenMCDE3hwAg+lwEP5+zqiP95oeKPhjYY3Gt5o eKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt6q HpzAgxN4cAIPTuChFHgof38c80bDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8Fb14AQenMCDE3hwAg+lwENJ v97tz/7jjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3 Gt5oeKPhjYY3Gt5oeKPhrerBCTw4gQcn8OAEHkqBh5J+fVtDcv54o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca 3mh4q3pwAg9O4MEJPDiBh1Lgofx9vzJvNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vVQ9O4MEJPDiBByfw UAo8lL/vt9w/3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3qoenMCDE3hwAg9O4KEUeCh/3y95f7zR8EbD Gw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbD Gw1vNLxVPTiBByfw4AQenMBDKfBQUt7/3v54o+GNhjca3mh4o+GNhjca3mh4 o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4q3pwAg9O4MEJ PDiBh1LgoaRfnxaS/8cbDW80vNHwRsMbDW80vNHwRsMbDW80vNHwRsMbDW80 vNHwRsMbDW80vNHwRsMbDW80vNHwRsNb1YMTeHACD07gwQk8lAIP5e/bXfDH Gw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbD Gw1vNLzR8EbDW9WDE3hwAg9O4MEJPJQCD+Xv28W80fBGwxsNbzS80fBGwxsN bzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS8VT04gQcn 8OAEHpzAQynwUP7+uoV/vNHwRsMbDW80vNHwRsMbDW80vNHwRsMbDW80vNHw RsMbDW80vNHwRsMbDW80vNHwRsMbDW80vFU9OIEHJ/DgBB6cwEMp8FD+vq74 jzca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GN hjca3mh4o+GNhreqByfw4AQenMCDE3goBR74/+nMG616XiIWnJcwb7TqeYlY cF4iFpyXiAXnJWLBeQnzRquelzBvtOp5CfNGq56XiAXnJWLBeYlYcF4iFpyX MG+06nkJ80arnpcwb7TqeQnzVvXgBB6cwIMTeCgFHsrfn8e80fBGwxsNbzS8 0fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS8 VT04gQcn8OAEHpzAQynwwPkJ80arno8xb7Tq+ZhYcD4mFpyPiQXnY2LB+ZhY cD7GvNGq52PMG616Psa80arnY2LB+ZhYcD4mFpyPiQXnY8wbrXo+xrzR8EbD Gw1vVQ9O4MEJPDiBByfwUAo8lL//e9EfbzS80fBGwxsNbzS80fBGwxsNbzS8 0fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNb1UPTuDBCTw4gQcn 8FAKPJS/3zNvNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1v NLzR8EbDGw1vNLzR8EbDGw1vVQ9O4MEJPDiBByfwUAo8lL8dmDca3mh4o+GN hjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GN hreqByfw4AQenMCDE3goBR44H5UIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8 WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8 WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lf7xVPTiBByfw4AQeSoGH8vf9zLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLxVPTiBByfw4AQenMBDKfDAeTjzRqvOOzBvtOq8A/NGq847MG+0 6rwD80bDG60678C80fBGq847SATzDhLBvINEMO8gEcw7SATzDswbrTrvwLzR 8EbDGw1vVQ9O4MEJPDiBByfwUAo8lL/vx+I/3mh4o+GNhjca3mh4o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3qoenMCDE3hw Ag9O4KEUeCjp6ftdmU1XZdEN6b2p8wIryX2jPEZ/F5s/32G9rkuvMer7Bn/r /h1uYsC6j4Z1hOd7/vMntdhQuJXNo6fIb06+sTSLnAyaHH/iL6V13m1Lj7ir 7yPsijWcueOHlGzndLxm1TaLShqGfWkk439ffxDeKcmIza+n9ouZ/SZRfV+h 1qNFo6d+cro7//DykvgssvlYF79jmIy6z/BNK13C5tuHy/NvNZ6aRXcXr9GZ miqjsjapSbOc2bz7wNFnpUfNs8j085kv4eb89Qa/25NhxubfO23olDXuGJt3 16yThuXEZtHp0bVDrCrkdHiHexdpBJt/99t0qf2d1VnkcTPhzRGHKjKb+2jD zblsHv7exmORmpPYPPwZ7QSpxEV9/yFh2OGzzvs5arPyaIlLG/V9gTeNl+t7 9akkpxvND16dkUVnn0QPiIqtorMz9B72H5tFrvZXjwz+WkXDxJMKowzZvHGi zYKxeY5Z1CkqftbTcdWkad/QZqSD+vx9l7Znts5uI6WBp388Ma3JovOhrn63 H1dS8crPW4/ks30EnYnGg/Xt+Pv38uvQxBPVtKDB+c7LBqnP7+8/vbmrTx8Z jfjnVNgh2yz6FJc5JfdbNQ1M6TdxnS2b7//nVUX2DlM276y/+f7frfjry5tM 8ApzraFFnW1nrBrC5v8tZ2ob3/qWRT0zzcW970rJ227q3iPP2OPHz2eqrwX/ /W4rS1xcdrCGbh/pVh4+Un1fYHOTnXrHrsmpzaRgrQi3LFoXnZbYmqshrTgv l/jxbJ/gwg7H+cdHsfnqA/Hjl5X78Le/+/N/vPooqG/4Kosvs9m+QUJoiofp SBHNlPfMdIyWkdnBi+VDWrN57M5JBs5vQrLoqF/3qBvLFRTSbuXb/eFsP+Fj pn5NPS0R6X84uMquoZzONw77WPuSPT6HHHrkuGITf38cnmk0LUNBgdZRTfYe YfsMYz7GRXfIy6L+Ld9aGIfKKe2BTbn8Ltvn8K9cYeF0NIsSL/ZJnqXNUfna GN8pTbNo0EHH3VlH+b8/ZlGX6fps/8HYd8u4w9ZZNH+m8nALGUeuc5P6XLZT 34eYWO2x+59OHB03dY5v7szmxUWtHdZNm5hFyrTTjUw7KKmewdz1CfPZ/kTY HYOk6zZsnvzUjGtrJnZm8+SayXeN1q7JIjPrLfc/+SopYbjPgmHJbN9iVpSL e8FCEYnyGrZfPrSSVj5cudK3gj1/5g2UPZRMY/P4J6N9Lh/ifQoTtp/bHM72 FXa3Mix6Nq2SQnXaDljYW0SDE/IXbSnnf7839nM27CCir+NHh3QaUE2WA5P3 NDRR32fIyT5fkztBShuGHdzumMzm+wfGlRzTMhbR6lFWzjHbqmn6rNVjXrVk 8/Avm29f+Wk2f3/1zTROtpPSRMNV2Xq+bB8g4GGzNSL+4wfUWD1rL60m88o0 3c6G6vsSVYWHVi1dxz8+JxvYvDUSUcgU18hP1jUkt6ztmmPC5us1R+n6a6az fYLm6VFpbcxEtFFmOcotvIbm+DT+/NWczd97LV1rPTFWRDdOJuRfN5KRofth U991bP/gteiap6K7iAL3XtEan1dDq7v4Z5b0V9/PaFZ/kPeLSVV0uCjv3g9b /vmRM0ZsY6SgzZMz0ua5snl+61D71gZuIgpOudDD0FdB/Uf9s3lMCdtf6Fb8 xMVVJCKTikUPXo2SU1jPU2cOnWD7DM+tH9++mpZFfTM7Tm89iiPtVgff6N5l +z2D5ZY9Q3eJaHpTpfJuqpw8ztV7cX0923/obu60LkyWRTVrIzce38LRwyeT Ii3/Yc8HfD9t0ktOdZ6joNAfIz68nSWiVtdW6C00q6LiBd32Fvmz/Ykje2zL tBry/vV7++WIOPIuCHRb35ntG8TsPPDKgn+8jbczKzumzfZL9rkElQf0Z/Po E7SNV5zyU1Ij179O5aWyfZMd8sstf7qx/QO3zrmzaz6IqO5tA7N7/9k3mbYu 8GEN3xtvW9Qr/n/2UUyvb4mblyylK/4DvHa5s/0E8Zbtbe2aZpPlnHDJlG1S +hnWZtXj+mxfAZ+/9p9u3f0/y8iu3MZAtpLtKzQc0C21ZVA2bbwRZXhxvIze 3pze7bw92184ZKtv4tskm7a/vc6FPZBRkF5Hw54N2D5Dpvb7eZ0CRLQk7mNE 3TEFnb51rV90MNv3SP+43sx7o4iyp7raZFcr6HWKq65iF9v/qB80bE9dkoi+ VPz9vaoLR5cameypl872Qfq+8R3rv4ntQ0gnLd6dnicin9gW64NncdQkutSv 3nu2L3L1gX1Dz3XZJGpgpn1WJqetwRuXbJ3B9ifuzxloFsp/vJ1H4bBVxzna blmzMMsrm3q1UD7wHVVFNZVVd2Y6sf2KFkY/vx2fLKKAC5FeRcOU1DjYPWmr n/r+SdniS7dcEjmyS3X93qE328cIbxbdsdaM7WOE+Z2//PJvEemM9KjXeqWS Trl3T9NJUt9fKfy81ilHv5LmRrZICbfNpuaHFtx8dbKKFh5JbraxUzZNcxmx s1SnmuaYPtlV/oPtsxzq/dapzjCbjtimfdk8tZpy4/Om/zRQ3/9ovVones63 Sqoz2eyy5WQ2OXFVqS6vKqmim/Hqiji2D1OyXDSjabNsKs5buGDO5WqSNc41 W62vvj+SV7XOeZSJjOZ4PCs1aJ5Nk0w2DpFo839f3/r6cH9ztl/yvLrfl90G /9mv0LoZOcuYv96y1ICWE2pod+SSvmtM2P5JgwbbTZ+9yKb+pvY+/nekNNNE GtX1Ltu/ufA1veMSc/7rXZYcXRZXQ62+TnjvbaG+r1LvjH136wtyOnjhhset Adk0oMV7fQdlDb2Y5vdq/FC2zxKj4zw2h3++NorLa5lgpaDpnx42OODH9ls+ Tr13SWnG5v2d6rjNNoHZ1KDS5EfZIgUdb5Vs5RnB9l9O7Uo3mtQ0h06mxr6X 1Mloq0GcSFHN9n+ul6YPPbglm8xO5CcapCrI2KOr9oVb2TSyWaN1LRbJyaXW 3G3LBfX9oCdXPifJJAo6+Wyc7jr+8XDIdapEVsHRSaN7HVb1Z/szR5Q7aOSE bHofPtXuZSslbevjcNl3LdunWW/Zq3cQ//XHxfQedc9dSdud7Lf3SONvb+sX +k2bV5JkzfhtE8+wfapN7gM2as9U36850+fD8iXzWa/sq3+yNERK11xyt+0S s/0Ln05Diuek5tDVkqyV1o2k/OtF+6b156rv34S1CqnzvSaj3k9aXjt8lu1f rJ/iort6bQ4Ft7YLnTBXRhGTBnncncb2MVY07OEz4Bz/+uU8wMz6g4J6l38v HJnK9o9s3Uyctz3Jpvq+FWcWWHNk79p6Vfd3bB9p3tBXGy/nsP2MjlmX9rfR zaHKx1Z6RsEcbbI0sBphy/YZUs6O7XD2Tg690ZVoTqyR0/CJ/mNPxf1nn2Oz bsbBQfz9ZX18xdAEjtJKXejh9hwa1Ov9Z0vPKpqg0flg2Sr1/Z70ZW6iHskc jZ7afOkuf7b/EZbsoWvqzvY/rLdd5Sz550NBO72F7hvYPH1T06jg+ruUZGKi oRdRzvalLEya3v9QyvZnyr++1DszJ4e+Fw/dfza1ilrPaHh57Ngcsn7kmZ3V ku2PPPhUe+UEx3/8uKRWw0ewfYsn18ds7zk8hzrOLJSOmFtNGy3Or73ryPZR 2pGuxzOHHBpbpq/9KL2aKk+3NXrkoL6fkrJEb1nXRjLatTyp85CROfR8ybO4 ls1qaNljk+/HRrL9lb0lf+VFBLL9jTo3b3PHcTnUcHiC+arJNdTysGvAggls vyUk7VTyMeJv77ngoxNvSsn4ouvTrAZs36ODS1DTFrNz6P6PQf3XxvO/f7g1 WBM1V30f5rpdM4vl5+W0z7LhRy48h6aM2Oq0lv99RHvlPa9RUWxfxvCa3pP2 vH/tleQnYgsFOQ7N/fT8OtufKf4ur+x2N4fk+ZOmXA1UEI3tqXnage2PTGxf +iXFIJdyjP9p/jxITg+jHiTpaeQK/n9aDu3TLT94ea+CxkmfPJm2JIeChjx5 l/2Yo84L9uSURrP9mpaVqxvWXsghn49d/F83Zvs1njrp8Y97K+lh9l7r+Bz1 fRpDo1anjoax7vSt5LZNhJSyfI+lL5Cp79M0ezCcM6uWURd69apXDduXiWn3 NLnH9lx6NLWwX8ZT/vms5RFqsIXtzwQfbR4a8DqHAi7JjDYkKejenVsLM9+x /aJied+Cex1yaVPumzfpzxSUZz79QrED2z+59bFT+wteuTTji9GY/kZsv2RK ZnZcG3uOuge029bxA/98DfxwPH0I/3yYf82vXIvtn0TlftA90YTN4xfXPu7W so7t22y7sG1zDv/4uft9Sk+vQLa/UJU3PORn20pa/L7B/q66eZQcvlN68WkV bem3e9vk97k0f9+c4Aa21dT/6Nat31/lqu1v7Hp+fmAo//t86dP79qEhbJ+h /7ltWl1e59Jzg0apjbZXU68Vs+2+vGH7PU2HZp7pwF/fXTNq1uen1bQiLtg7 /gfb98H1z+l/z2zsLSPvKcOm+2vl0TfL1zvudqmhGuNjDntN2L7A7D6mCu+2 eeT0td34vsE1pGgyc3PmWPV9mJEVY3p338z2U148nF+dt66G8nJny3pF55KV yCBEzv88n9O1ImRHHNsHCu/Y6OHFBLYf8WnusdphT3MpyMrw9fBlHNUViAfs 7sj2Cdo7Tzo2emseWdackOR8ktOM/Zp/nZnB9inKyzT6RJnnUU7KBs9I/vVU f7XD/sA+ebR5/YSnXUKryKdo0cxFVur7NSWDS1PnJPGv10Hn3LS28c+nx4EF idFKuq/jHfA4mu0flY966ek2R30fJXfKU3/KqqThDmkRXEe2n4A/L+yakvfo jZSiH2jPmvCA7ZvMKxyS18oxjwyrz9Q4nKqhIf3T1vQfo76fUbjE4pXzGTmN PrpzxPeFeRR2qeM522r+55mYPi7Notn+xpM1OruuJufR+lXa251MFbTkx6KO R4PYvoKZZvqYvKn5NMXDq85ssJycO7ZYlPBNfV8leqSr3b7BCnK1SriYuSqP ZlDR3sm5bH9jlum2iztesPn+WcfarbOKqKRu7Q+tT29WQM5r3l8UjWP7GJ9N QzvEH5XSlspnfdI2qu9jZNRlNFVayelBky4XQpR59Oi1oeZDVwUNto9JnlaP 7Se0G9p3cFVzNq9dYtw28d6AfDrZwbbpvmVsX+HxhG2Fx/coSD7idFDm4zwK DH5JTm84qpq27+qWf9g+StTWzkmVI/JJUc+9a+dGbD/Bb23V56WGSnL2Evmn tVLfR4hZvPf9cU/Wjlz/i3UBUoq1DDTYfUR9H8HS63l5h0oZOfs1jjMyKSCn jhcKwipk1PnriQ9NduRTScDOIL8jCvphd9y85D7bv8i4UzSi25d8mjjkkGjI DTafH5vQY2d4hoK02mln7kvLp9W1K4/YtGfz9uWeP5/LLJSkfN/cwtWokAa5 Pqp+1ZHNz3926rLotBXrXpHNS3OGSqnqmY3nClEBXQjvNG0/sfn5V606rYxN kdFC3zELxQ6FpFWWEtjwsIzO3/f5+XQ1//Hv3tcW5LB58h3x3qVahfzr88z5 McNHF9CcBrNtR/Vk8+G30k616NlLSTEPr3oZPymkfnvii9+1YPPe/nNtPR60 Zv1h2lmPiJ5SWvz88wmNmEK6aeM3aJgFm/euGN7Lx3+/jEJujB6l5ArpYZX7 BsUBGWXcXJCQ0r2QvqXoxntksfnnB/IuxT6ZCuocUj/mxvsC2jXwpn1YdzbP nBq9vDiNvz/tCmY2OT5ETEbPry51asnmk1+tEPl3as76VFKUT9uuUpow4vrp bm3F9O5g+uwICzafHDnq8bjwgzJSJj6ztu8rprrivit1z8jo2/2UpsMyCtXm dXs1Lx6/MFZBsweuaJ9YXEh3/jZb86YRm7+tbjEv+pumksZEBXS7s15MXtIS acv2bJ725urGQxIMWTdqVhmQby2loHGBlbH+YrIaaXXtc38pPXY9lLxwD5vP 290saHFhrJi8h7qevDyazdsmdTX63v+qjNICAm9fDRTT4hzR4uUiGWU/8E28 so3N4+k6ijTTbcWUoNV66fjFCjK414kMDohpYZdeYY1esHnciCqvw+38FXRt T3/f9ybq86f5cp+CrFI2r3YrcoezR7CS/MTn5ry7I6YYr9PmhX3YPOlbRRet 4K6s7Uen6A51ldKAH5pRZ0rEpNO4uGVmAJsnjbK/+2P2Oxn5jYopMIlj83fW CR19tm4Q06pjt9tu6a6gE0eOxuZPZPN4+0WVDa0z+OuXRfV9bCin5kuTpJse sfnD7Hvtv62vEtPUvfPuLxjO5ku1HS0fBDVQUP0LfgM6xKjPY/Z/bR+bv58j r4irAXbfxVQ7+c6pBS5sfrKsX9TTv0dWUuiUqjKlHpvXEW1N1Iu1LiJJk3fb v8xmH9/vvPhrxEop7Zi863QP7SLSmD19Ze8tUnp2Mdd+ugmb14mecLgosU8R uZovfRp3ls1fRp/1LrLxk9PMNHOj+GI2rxgy03PDlfpF1Ojc5Mzuy9g8ZZu5 TsuTl9VQlOPQVl8asnkdxYUza0a9ZvOJ880m32nepoh8zy7Qu8H/vNzP1rzs ezc2zzM1/9QJjd5FlHaFkq+8lpNWca+p26hIbV5z+OdvVp1cOIp5PHPWE4ci ejL9eEi2VRUNNfO7FHFLfZ7xR/s2QT2XVNKBBS4v9/vz91/l3D4vNlfSuWOh Nncj2LyTS+iyNXtHsHmgtot3P7+7o4g67HW8dup0JVmYNQhoyf95lEb4+iGL qqnk9OurHn3V5wE1Zjm8KMqQUo7OeI2knkXkUOgesre8mlKulYaON2XzRD1q 151tqFlE1rHk1N67hlYt7Wfw7TubF83f8d05anIRzT7W73n8QymFa48bXxL8 n/lJ/bWb8sKLyP6puLenFpuPXJOUojPam80zDrr8tmaTXzWZJvabuKSP+jxh p1vfzJ/JFfTiYkCRZHQRPRqaHnmT/3lJpOWaOHYMm6d6nDMt7rkpmzcqdZt2 JsNDfX7SLuGbp2db/vV90/jBG9zU5630z7yNPT5NSbLAdgnz+M+3cexm1/hu FV3S2dyqmP/4i74VbrtbsXk7S71EPYNLlaS/r9pPfL2I1lo0y95aUkldZjzV Cylj82md3cNLe8uL6HaPPQ+NfrD5RPdQDcsLnfm/r1qOfLE8voi6Rll4RtnI KLJxQcatE2w+LYuuxzzLKKLppg8sjGbLqHb06oGNH7F5tQavNkjDK4ootGv3 WVMPyWic4vvP0UHq83uJI24XJ05TkPaAPds+BarP54kvG0T2u83Rnk2f5V26 SejEuvK0UYZsvu5W0BCHIB0pLY18+r1KR0I3k//q59aDf35+O2m2qC2b13jR 6KpvloWEDjzb7z1xEpu3m2Hv1qAd/3q9KHnKrp8KNp9mbflS4lddRIscxw5Y eruGZk1+5h58l82rpUZPe7A8ln+87v5yzekvBbUINDeOPsTm1zYMHql57hPv v3NjdtsHMproeFFr/Tc2v+ere3SYaxMJpa9w0Q9qLqe2t5rN8DNm8x8GXPa4 pe0l5DPBYX1PDza/l389XKf2bA1NP/563oBebD6kbEIL050KNg8n22z0saK3 hCqDW8xK2Sknv+y1EW14j2cOE8wm+HG0aplHTOQZ9Xm5icPfRipGs3ma5dlO kwPClLS1XFM76Qabl1MGtL3yyF1Cid6PFqynSno/SOYzroX6/NzR+yUKiQX/ +934j97JfmzexirSIrHnEgldqFXqtAlmHz9knOuNPUuk1H313o9uVmwepVmD Td869JDQmy/LNCtKqmlr6vPQz23YfIrO++uzBo+WkPjc5dKCrVKyrR9ycOE4 Np8TbV11/FBT/vGxcVClm2MNmdsXvh2hxeZZ7ltOnSYJkND0XlbTOqVLKT5f f1z5GvV5vZTvnVqXSuREy+5WvN8gIbtDyoCXH9ifrwo+1XH84mqavOVgtnFr Nt/yafKIT83tJdTWs/7zgFI5Ff+tXdTDns3zpCRssEocKaHUdGn/9HZsHq93 rUX2hdsKmtdXfDTaic377LDzOHbbjs3DLPdwMV7Pf//2BYOKC4KrqF28e98O Y9g80N4ApzmZgyR0OOdF9vw6jjrmuL2Q/ixSm4+bs+BpfOZ7jr7bDnL5MJrN D52L7ZU2wInNDz0vW+ttzl+//dcOrYxvs3myWGeRpfk2/u9feZ8ibp+Ebrlr +LscqKRTz+YvfcN//vlznqttW1bTVM3+/Q7GsnkrG6faNZ34+2OFxj9faudX U3FLh/VN7Nl80gLbts6V13jvC31D7HMrad6KLnNsHrD5LMfnvQ5kPpbQnmtD 40d+Z/N56dfbrbFqLKNLf33c0vuIhFqHlg471EtG4peHP446zuazDPNPxZdd kpDeVTr7dI6MCo/Ndeh6h81rrc6tHbMkmM0zdfb6OyM2W0JjqlcZaiXJqKL2 +Ln6ZWyei4u+cu+yq4Q0b2p4Fx5WUMrB+VE/RrD5p+WiuC6uT/nXJ8vN/YbV sHm/0L0RI1bxry+56Q8qCheoz7v19ykY5riIzcMY2Kaa+M1TUlDzb8/uL2Xz Tx+72e1s07qYd/10tJUJm187OWzH+k56Ump21HDyu4/8/XEjbHb9PlKa4VjP wKU+m3c6uLhf0I8y9vzaM/IvX78WxaTIn6hcy/98aEIv94d1Z/NQxk16rGz/ RELlbawNjrWpoaEfdv3UuK8+LzZqz/xzGV9kFDjNw2Zez2KaHrRyv2+clMRy kwPlvO/S737Lxdtq6OzrD28Wn2bzZe10n2ls+Pf1aMf1fYb8/RPbMyRuyX/m C7saXe1w7YWEXsVEpWV0Y/NxjWTib0nfqunaRUvP2lfs9bUy1cU8O589PwsU q8LG1Elo32ruZet5ciq/OKuf9jf2+nrGuWFF3RUJ9e3TWOzWnaNboyZ3/+sY m1dbPbzDrh78/TfoyXTvLqlyandNuausAZvfahaZUl9Pt5i+jHk316Yem8eb kS829XikoDnFBiO2NmLzXbu3uim2Ny6mbM3FTQ+4V9F2qzq93k3YvFfk5tlf V59n82/5G2YsrdIrVpv3k/pFvvH6wVHZ4U/SO1psHuxEwSFJqrb6fFxZ7otH Pg6VNNSnYpcn//XnPq/PZRytopGrRRfLdIrp+toBYzrXVVG/iojMgz/417Mn +zLcx1WTuXObSdVf2PN1cEZ+5PM3/OvJuflrXl6spksmqQdnvpKozZs5rBt5 b3uKlHJHr11/ohWbH7tadf/vVZr8/Vfe61DFVgXFOEXrlL6XqM2THdqyfUEn Q/7niftm/esZsfmxQn3rl6/4r9dwD401VfK/H3mtddpRI1GbJxs19S+Z0zz+ 9TPdqe1LIzZP9n/MhSj0 "], {{ {RGBColor[0.471412, 0.108766, 0.527016], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNlslv1VUUx98rVwMKiXuxtqUt2ioSTUg0ghEqpRMmLozDwtKBByI47VSG YksHaiIaltLXgQ5KgkMcFmVooYNDojFGF1LohC1/A7T4/eZ+XvoW35xz7z3z Off+fvl1b790KCeRSDyQTCRWiS6L3hWmhTJhh1AHb1ovNIZE4g3RhhDXDcIL yNTD1yajzBHhqHBM2CM8z9l29BqFnUI5/F787EB+D7zl98nfIdH9IdrI2D4o 7BbeElp9blnisO2NwnGhSUgLjwolwv3gPvaOc97N2vuPCGugXq/GnvdahF6h j/NMHtbvET7GZjf8GnQtWwy/mngddxtxVwoVwpvCAaGavX3IFpPbRrATmyew Y7ld5OB4SrFXiVw5Z5ZLoVeBXAm9qqP29fBN8E1ZtaxD1rk1Z/WvBbsNnDXi I8VZCf4dYw19202uNeSbIr4K1lXUowK9FHk3kk8PvWimNg2cp5DfC63Av+fQ 81kLjpJvLXQ7djN6NcTnWJ/R/BWJPhtifj34df8GhHZiraJfubpgW4WHhTzh OSFfGJP+BtGroilm2zO+lhhLiesL4YzQKXySjHLvhci/H6LMEeR8dhDZKp1t En1RtBLee3+EGM/voq+FWPvXRXcJheK3iG4W1ol/SvSvEGP+R/Q3eO85n23k NKp1geiI6ITtiB8X7RZuOzbRx5LRpvP6XOtboqdFfxIekvyPoiUh3slS0XLh cfcsxFgd868hvjvu3auif4YYw9+iPfiyT8+M87X+Wnyuo45dzO0W8n06xLns Y07PQr3eSo7OtYu5P0a/e5nn1iw9oz+5cp/7mYlB5iLDDwkdoJ29fnRa6b/j di3S+LV/v4WFzGc7+p7LMubeb0MRa/Mvhzjr1SHOhGfjpPBuiDPzTliZ1zbm 7Qw5FuGvDL6QdQf3IHMfOrBZja+aEPdP4u8A9tu5D22sX2H2PION1NT3ze+L 75Xv8EXyd+5fCeeSce7zQ3xPi0Lswyj98lt7SbgsPMEMb+audGLD+fmuDMNf wH5x4FvgWeUebgpRZhi5D0PU/SDEez+SXPkGXMnqv+lVcJazcWFeuCn8J0zA J7PeBn9/fRf8Dc5lP5ET43b8X5JfmtrMY3eM3J234/Ls+w7UENsoMeSF+M0p DFE+nVWvEXSfRMayCWJwjB+FWP/DIeY1Rq6O6Wdq65wGiWkIfgJMsjeJzhB0 Ev1fsGH+mjBFjufY93lLiL1oDrEf/yJ7mNhOsD/M2QCxDNK/a9icIu+L1GWW Xl1m/zr8DepiOg0/QO6Zug9QB5/PUOsL2O7CzvUsW9PIjCJv/3P4n4Wfx/YY +3PYuETsV9C1fGZW3KsR7PYyR7nMkudslfiQE+nN5Moses/zmGQGc4R72POZ 414m7hz058nHMS0JC/Qt08tF+jVJ723rFnuLrBey5BfYv4E9+/ssxB6eCtHf HP6dc4KZ9DfWc+533v8nfjv8bvi99/+OvzlVUK/9vvidaUEnc267c9TAc+m3 K/OueUY7qbP9zlCLu/Rghv1Z+pHE1jj1ncBOZt7vULcp8nYtXO9v+W76+7lM HdZr/UOI9HvR74QHxX8DXcLeenjvOc/95LWKfubT2238f5zm+5sO8U7cJp58 5PPQKaDf9zIThVm+z/O9vYPuEnl5bflF8ivImrtlYvVspomhi7xt3/9DfSHq fx2i3gbOAvF4fYrZ+DTEM8vb1/9haI+3 "]], PolygonBox[CompressedData[" 1:eJwlkksrxGEUh///6STXT+BS4zLFDIoVGWLhVigLlyyUQhYGY4esXFZK2KKw VEQuSYmwwEIWLPgAfAYWnl9n8UzPvO97/ue857zRkaneVCQIgjgY3PATZaEJ XvAkxMIgyIQavAeq8C7oN0feDQNyaMZbtIbvwDeewfcO8HsowYvhDi+DLPaz IYbvwk/oMYo9gnzO/vF/H/8wr60R3vB3c0/CK74Nv5z9gi18BQ7xJ1g1X9Pe J2zgDaoh9DvqrmdQEPGcp/gYTLKXgnF8TjnwRZjBr6CIs4VwiU+b7w3DKD5h HrsGafzC/KxynOND5r1TDuWKQw6eCwnzmlW7erKJd0Bl6DPoxMvNe6eYCvOe q/el0I7PmudWDxbwJbgO/Q7zeJ35WfWgHm+FROg52vB1814pZlmzN68tD6rx R8VHfKYPcvO3oplGzWem2Wkme/it+ez1xvTWjs3fhr5xgg+a905vqA9/Np+t eqxe15rnVo2q9R8C2UoH "]]}]}, {RGBColor[0.2490739767751266, 0.259186989656799, 0.7808286874232488], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNl2mMl9UVxv/L+YNAomyiYJVFGKHVViCCoKCsLomVQgWGGXawaU0AcSnM DGjr1iaK45LWYaBN6vLFIqYbM8OHpq2KODAsH0CbajcRZETBhammJj5Pzo/I hyfnvuee7Z57zr33Hbps9exVpUKhsKJYKJRFfxuFwvlivCj6lnj/E/4u1Ii3 QFgvnNb3m8JhoUNyN4j3H9EnhS/Ee1r0uOgeoZ1v87eK/liy64TqUs5brlPo wqZtr8OXZWrwWVfKeLqIaWClUNgs3oWiFwvNGg8W7Sc8o3Ff0UbJPS68VMwY ZworhY8Vx72ip1jjm2fZ/Zz1zi9lrNX4X0Dce7Hn2Pvi69xKys8rpd1tzFtu ob4bhEXCz+Rvn3g/j/w2f4OwUVjMeBF0Mfz7hCXCOGG81ysMLGU+L2TujGw9 Nu2zlu+F2FiK7FK+7xd+IixjXEOOa6H1jDvk52VhOzm5l7yY5zmvZzl2bO9k ZI4/isxVB7rbyYd5S/FpndORer2Uw97CVo1HVDJGr8nfVcJ0YYZzS326TqfB HwGtYryHmrKvlez7CvLqOtlSytppJl9tkmulDiZ7z4Tripnz28j7bvm7SvT1 SHj8t0jbrq2R+LmMOF0LVwtzhV9K7oTsPU+9ub52ChOQc14nID8Pn3PxW4U9 272glH7H4XMUftuI3bYbWNcG9nAza9wYuWf3iR6id1uKmd+N5OQJ9slyp+iR zkie59xPO4qpb13vmfeuZyX3zLaGi3av5P52E/0wMvcnRLtJp7twrJA15r5y /zwSeU48HBn3FmI6zL60sL5W4m5jrc7hQ5H5bBRtYr1e93+pQ9djHX6aqO0m ZLZxPrleuiL7+zPRo4WM1XEajvl90XrRWqGO+hgqDPHZIp1zRWeKToqUv1a0 j2hv4TvgymLyrkfXNmZJbqzo90QHU3+2OQwZy34g3x3CXqi/TwidjM0/rsP7 DdFToh+KfiTsF66Q3aJsnC96AP5JywkHGdvvJHwfgOc529mHr2Oyu9tz5fS3 B/8dzO/D3z70JrO+Iay7L2ufG7mmatFlQo3Gt0XK19J7i1i39Vdpbr3PGPI0 xrkqJs/7UHOWjuXnR+Z6XiQ8vjXS9iTkJzM2z/k4QOyOcbTQzzqMHXt/eGd8 zy5mLH2ZH83cWGRHoz8L+TGMx2DH8wsV0xzHLfpd4VKNb4mcOyN7I3zPz+V8 8JnQSf6Pew+0H+2in4qWqZuAXsr4k0Lm3vFapkRtXRUZz3j8VJD/mProTf32 gVdGbxg82zV/OrU72vmO3P9vR9p7r5A2qyLjHiH6zci6HUWvWcayR6HuvcHU jmv331rbLs29K/oucRzBrnU9/kZkPBeLXsTYvDJrOkJdu0/PKyY9ST8MqOSZ 0F806JOKz3lic1yXVPJcGib6ZTnrvCCZz8q5F6dFu0X2TXfRcyJj7RFpYxdx flHOnvl/Oe3vwkd/5K3Xzt7arnvaZ495uzmPzBvCPhZZh9d0Zs9O8T0UmSHk 9hg2roms08miR4jjaDnn38d+O2PH8To5sK5jLFFHI7mXfO8top4XR95TA7ir 3Js+Nxvo0wZ69THuoUcjeRvgr4wcr4ns71p69ll9D5K97ZHvJ787fhFpsxYf a4Q76c819N5q4SnuF98zs+F7/geRfXq76CbicVy2MQc7v4t8U7xMnJuFZmEi 99kE0R8JazW+I/IOcG2NjbRr+zWcYc8Uc003R+7PTaKf8ib+JHK+CZn1fK8T /X7keTUj0vcW8tXEuuuIqx7eHPLgmMZwH/leujNSt461NGOnAV3b8BvN930j 59Bq8nV55Dn/LdGBkX0/KLLWXfO9It/azusm/Hts3t2R74d7kGlkvhh57pYj /WxC5yX0fD+vZe6H5Ni6ttVKvH4bdHEnfV7Oe849MUB0aGT9Do/UW4vf1si3 017RvwpTNH6FfO8gh+9EvsPedq4iY7tLtBTZsz6T2jS+VjLtkW+SnezN1fSX ++z3wkTJ/FH0gUj7P8XeNtb5Nr7+wXwLMbSwxib2qg379ZG+HqQeWpnb47tV dv4MfzNzv/I+if9r55JaXEWf+h/C/zzLeWdOp6fP4e3pO2cg9854xtbxe9Y9 6Pf9IOT8hh2EjL/9vl+OzS2R/3bNxFKFj1f1PVX0tcjzpKfQg7fuOHz5LPH/ md/91h2Bvv97vF7/M+2P/F85JPon4RqNd0SuyTH4DfpBMeN2zBN4d3tv/F/k GKbAq4Y/tfT1P9MUfC0GS+AdjPzHOhxp1/8c9uN/yQvI7Ql4vcjtSNbYgxxc hi/7mcY+rOBc7UXcPcnjNPL6L94E/4y0YVv+l16GjG21UJ+uU+fR/4yOxzzn ZwG2HbP/lxbAr2YfRuHfaxnAnlQjM5E6c07+gh/r16A7Ev1OYref33CG+yx/ IdL2HyL31fvr+niO+nDNWrfHWTXh7+PktouYvgJatQG1 "]], PolygonBox[CompressedData[" 1:eJwllXusz2Ucx7+/7/fzPUqbjNPJ0ZCiTbkchXJcJjSXWFJILm0uy2XrcMit XErMH+Y6cjlWWfmnkS7C/CUijuM2y9ZaJayQSziMaev19v7jtd/r93s+3+f7 PM/n83l+zcdUDH4nTZKkEgJuZklSzecRqMX38+OLBPSEH/Ht0BKvA5/jB8Jj veAgXgOt8D5wFP+LOX5irkPwN143T5IPGFugOfBqYrriI+AY/i8xhxOv4RJe TMx6xtZBw9wxih0Jx/FLMAMfBmfwfdARL4FtWqtimOsiNMeHQ49CkoyGcXiL 8NgFeBz/Dh5KvYfd4d80Vof4Z/HfYShjQ+A3vAQKjKXwKP4gnCP+PNQNIz8I KT4SBhP7GowKP6Nn9UwxnsMJ/CQUhfegvTwCW/Frmc9SZ3QRb6Qzw69DKX4r c+5q4HbmpB7j4zgUdHbwCu8rgzfxX8N76QSHtffwuzWn5lZOlVvl/JtwjGJ1 xofCZ66z15n8gT9BjqrwjdAEz8Lv1p4C36vzT11TP+DNcsdugFJ8J791SV0T u/B+8DBrrQd98I9gD/4LLMJ3QHnqZ77HN8Fdxkr5/hneARrwvSF0xNvCFdZy GVrjz4fHiuEFvAyuJo5pp9oM574IyvEmcCPxnJq7KHctz4cc/zNc++PhrHoB /klcg0/hs2Adz86GCtUfz2xKfWZN8c7hd+XQKbwH7aUxbMbHhp8dAWPwZ8J7 0TuexjeqBhg7Dcvxl6Ab3gx6493De30OBqkWoB1eH17GByiHBffI0PBvGlMO +msvWkPqHr6Fn4ZR+Gg4pbXAuNQxil2j/uLZalitWguvXWt6HX81vBb1hHpD PanenAvjwzWqWtUa38AnQoXWDhPwt8K9VAmT8IHwZMF70F5+Dt8VWuNJfEW4 du7ASrxxuHeU08fwpXqGsZ2wMPwOvUs98za+OLyXrVojfkf5YO5ZcBufEl57 FUzVeOZePAp38fbhXOjOaIPPCceqpt8Lz6m5l8H7+Ffh3HeGr8PIVfPf4l+G 7wblvApvlLuXdGeW5M6JcqOeO4K/CyuJ3Q7zVOvhWlXOruCTw2epmOn4tPBa dOaV+FrdJ/hl+Fi9ADNT38HX8XOZ7zrd+ecz16BqUWe6LHzmOnv16CrlPtzb 6jn13ofhs7/fI/j88Fr1ziX4F+F3647egn8S/i96AD7Fa8O50JpuhntIvaSa 6BuOUaxqUrVZL/d/i3KoXKqH1cvqyfr4vcy50x36H/4/3Y3iaQ== "]]}]}, {RGBColor[0.2685397574479682, 0.4926730661842848, 0.7987099310638586], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNV3mwj2UU/n6/7/2EXLITl8k0U1mmcFVompIK1QzX1WASaUa0GVmu/mlB TZbItZVKV7Jzy3XdS9m3UlOTcW2XsReSJWv2nmeex0x/nHne5Zzznu097/fd 1Xdg9pvpKIp6pKIoBn6FyWpQPmgJ5pNAeaAp2C8CTQXVwF4LUEvQvxBaj/0y 4BnsVcZaFVAxxtNAy0BLsT8ZVAiqj3km6AbGbwfxjQB+F+k8nnUdVC8lXp5V 3ec9DL4L2HsIeBZ750CloD9xdgnWjwMnYb4EVJiSPadt02rINAeuCtJFnZyX 2f49sXwttK3NzVMtrfUl3suGfGvofAK4EfPZoA2R/Jzm+FDfQa9/FGTPu8CK oM1YqxBkH9d/B5ULilECPBRJL2W3peQnfaS+Q14/bB7Oq9pGxmIZZUClRs6L Ip3Fc7aCGoBuRspBpsc3HPP6zksr2HEemBWU823OY2R+6mCeJkbK2ybbQ7su II6Lgedj6WC+dlgX55lEyG93/pivPMfiL8gsBM8Z4Nwg3+YBV4AaY1wEXAVc CdoDmm8e8v4BmfmQPQI87HpgXawGjcZ4OnBDrHxtBp4ALcL4n1h13AWUDVoM XVnAAmCfROf0Bl7CfBrGl4HPYb4d42eBBzAfivFB4DbQMxgfAT6JvbUYtwc+ DlqD8WPAvb5f9KM75ruBvYDPg3Zh3A3YBbQD487AjpbpS17bTz82gaZg/BNw Vax8rAEeABWzNoCNYMcljE9ifArxzUjrPjAnO52Xnc7RxUg5KXa9sU7ngeZG mhe7BkYG8Y0DNrR+nlPZunnGHNcD6+KdoPwOBd6WqL9UTGQ37f8FuBQ0gfUa S3a25Y9hvgB4lOuQrwTZ2UF6N9u2pa5x6qKP5KEN+2LV/37r3GT+vyE/Avsn aXOQ/1WAGR5zrQD4SSSbBgbd6+G30He8LahNSn2zG2gwaEhK9rKGx4HGRKo9 xvFjr7PmhoEvF9TdeqijZ0o13iQtH3pYP3mapRXfpqDamNcCtUqpl7FPrQy6 cwW2ubb3H0zJBp4/30T7xkaKUVPr7eqext42xnzkmWp/aWsV8zazjRm2s8h1 Qd6WvkNZfhta+F4xlt+6X9CmHMdsSFDcXnP/n2g++s3+39pvQBvHaYrPyXW8 etg+xoN1WDMlX0c719tcy7RvmOVzrbOe9WbYH8Yi1zoZc8ZxfKS4Dvc6998I 0tUn6M7U9NlDXAN5roM89zbGo6tjMp7vF3UDc0CPMA7AF9hzMO7ifb47fPc4 Pu85+z/7L3t+jaBeWxtYN6jX1+FdjFUDF2Px37QMxwc8vyeo11cPkqeeWkF7 B/wWVMN8P/BqrLflvHv1j75LW3y3+M6w12x3LynxuNh759znmYOS//Gu91kH Lcc1vg1pv498J6v7XJ4/LehuT7XttJH2pYLe5Sio3lkHWa6tHOejc1COHjVm ma+7888aezWIv3dQfbayPGuOOco0NvC4reuPa4tdJ4t8xxd5Ps73nWvsi3x/ 6cP1WLV+LdbbXtVv9w3HhH7V9xk8a6tlqaPAb9OGoPu5wOe0D7LtyaA+ONl9 cavl+B10DHuDIHs06C3hm/JSortZ4Ht30b2RPXIIMI/fPqAQ9O0TAz/A/BVQ PyPnH6bFP9gyrBv6cQM40etveY9jrjXG2YXA+4BnaTfj4HN5Jt/UZkH12xx4 B/hmYC0BDkjrne0E6mA7OvoNptyJoHeb3wll3qeN/UFjgvrC2CDZW35M8N37 HNgzkdyLiezNsf0zYvXHfGAv31ne3cNBeg7xOyTIvqvAekH34E5gu6Cecy+w iX1nDOr4/t4OvBZkZ9VE3yvsY1/G+ubgt0flRLGZ7PiMcvz7ORYd7WNZUN/d DZwTqwYXx5pzfRfw06BevhVYIVFOygOnppWLIlB1zEvYi4CzY9c0cGbs+osV lxz3uGWg4rRsLW+dAfiN409bBzmW5J+V1h7XZ4JGplV/+Z5zvNT2TLZNU7w2 y/5/DdrnutkfFHfG/0pQrAoteypI/2nX8CjrGGkdozye6Xl/x5O1wVrifeE3 W0aiOq7kWBXZ70LbxbOO+67xzhXE6geF/B4OkrlgXOZY9Q3qJy8Dfw6K517g D2l9H7IW+b1Z4vhmO46M4XLQTtCKtPjLXPffW5ZrHWBrKbAdsG4i3oaJ7hLv VDng06B1GD+VqJb4Hjax3l3WR//5/TbD5+7w2cOC31ZgcayesjwWL2VWO5ad rPM9/1e8D1wfq19tjBXzAeZ73e8s39vl9p3nrXV+mKcs20zbd9pO2rvFMWQs GySKwd30y3FgPGhHY9u1y7GijzVdry0S7ZGng89jXfI7fq3/FdcBf3Mf+ZX/ KbG+YVbG4su374wl+xXv2xdBb/vCoPyXOqelzjHHnwW9DdODfKXP62wTbWsO rJUoLnX8b7HWNu5wrKgrM5FPjYAPJKrV+xPVxyrnsVmium0KvBLrHbgc69x1 viNNnRP6kONYZwP/Aw6/Qjo= "]], PolygonBox[CompressedData[" 1:eJwtlmlsVkUUhue7dy6IFJFCUURKNBrXqqhEDS6IYFwTlmIICauJcQtERcU/ bhgjq1KWuiJGi2xVaUsRwVJBVDQaTSmLFFpbiAIRAVuKBNTn9fXHQx5m5pvl zplzet7EycMnJSGEuRBhPP88lQthFEzAz89C+IwB66AQ7wCL8HehI34LY3oy 9iwYGP0b/fYGGIH/nobQHjxGY1Oo4P+rIIevpv9V/DWoxv+Cj/GPoB3/kzEL WGshtOJXsOb7+BdwLX4lVOGVUITnQzW+Brrjl0AFPg+6ZkZeAl3w75nzDvxS WIt3o+1l/AMowI/T9mDitpP4ECjkLDdCMf4TFNF3N9ThG9hzCXufB7X4etr6 0ZcPy/U94EV8GhzCz4GtjK2DXvqW0II3QwH+DnNMx2fAIrw7bafwRsjHv6Kt DF8CX+ORPc9l7sfhAP0L4RB7/RGm45NgKl4Kk/FauDrxHmvwFcwxi7lma068 M/MtTrznY/S30lZO30o4iB9J7SvgAP4tfBi85xp8LyzDl8Iv+OHUY5fDb3gz VONroAUfzHq1rLUBbsW/o20BfVWwG2+ATcFn3onvgo3BbeprhNXBczbh97Pn 0TmfWWf/NfXa2tM+fCZtdfRVwfP4SrhGsQXl0Xemu+sGy/Dy1N9mjmIUH8ce d9H3M4zGn2PMKuYqgWfxxanvbia8p7PT1iPxGlrrJG2fBMf8CXxL6rvUN9S3 /BLmB3+Dzdp76rl0R2V4Req96A1V4uuYs2vimHwdP5s9farYhl74EdrmJ35T R/G+mfv0xvvoLLQNx4fpTPim6G8xAr7BG2EK/iQ0Rbeprxi24Huj38JDsA8/ lvotK2ba8D+iY/8lOIxfkDm3rIcL8WbaHkj8Jn/Ax0Ex37I/jNX9wWOJ96i9 Hozei86ks52IXltvVm9Xa2gtzdmCPwJP5Dznw/jTyi8557xH8R3RZ9eb0Nt4 ITo2/hujtaLvVnNMwduic1MptOP3cIZ6fCvchd+eOVcppofgQ2Fb4jH34hOg IXEMjdfY1LlDd74RXxode0dZ7w3FJmNWJ855V+GF+sbBObavco2SeM45arDO ovvDC2AofnnmXKmceBl+E9Qk3sOd+M3RYzXnAHxQ5rNoTa094P/12uB6/Lpo b4X++G3Rub83DFIswvbg32ivF0f3KYddpG8bnXvzYAmeB9uCf9MFnwX1jG+F 2fhu3V/iGNyjt5Q51yvGe+L9Mudu1QjVitMz1yrlMOWyMzLflWqEasXU6FxY Dc/gDdGxrDW0Vl7mWqGc2gnvHJ2rlY864n2iz14P50YjV07vrVwfPbfOME1v izm2J46BYZlzsnKzcsYr+JvRd62cNAMfw5idjN0B9+EjM7vmKM6cE7UX5bw9 +NjMuUi/GaW3n7q2qr6vVT1K7apRn+Nv6f5yzklv42XRd6GaURr95vT2FENj 8IGZc7NiRrGjGqVapZgrwv9OXZua4J/Uf1So1ivHnUrdpj7l7ON4Rn9l8N8E Mfqb6jxq6xCdE5Qb9DfHmfhptG0OrpE98E6qgcFt6lOMKFZ0pjnRNUe1R2MS /j8yunarJkzE96euPYo5xZ5qpmqncsx+/F+XIUT/ "]]}]}, {RGBColor[0.35353462387888923`, 0.6468248844653867, 0.6576544782464631], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxFVntMl1UY/vE73/dHmw6ttam1irllrVKala6bZpetJiIgdLWgpREIP7yA 2VarjRJrAbVCpauJXWhaZhc1QySsVUtAZmn6A6Ka062V2oWUpOfZ82z98ez5 zjnved/3vO973vNl3Z/Kr0wmEonDQAC2A9uA/cDEOJHYiMUscBXG+UAecCRK JBoxfxRcBl4FlAOHoKAF6wfBHwK1+G4ALwEXAIuBQmApsMz6qjy/E2gH1gFr ga1AM5ALVAJzgWqgyHsLzRwvsv2njXL7lG/dtM1DPgukkvKHPswDhnCGlZg7 CU7ZDu29ibm3gDrgbJx/A3hsrLlVnm8AqoB6j6mH+0Yi2cqA/C7oesNn+wmx WAMeDIprg/e+A/lscGukeDFujUG6qJO2y2yDtuf5TDzHJuuhvnbbYgwHsH81 uD8otn32Ybd97AQmxdp/YaycNzvu72FuD/A+cE6smE4A74v0zbk5kKtwfnJj 6Z0DPonxKeAQ0I25zUAXkMa4zfOr4dNy8BpwKXgl8FBCcpttNweY7VzmmBfZ ry7LlFumzDHq9NmyXLcXgEeCcnAaPBnjDsxfHism9Id+TcW4F/OzwNn+nuqc f269a3H2MeC3I9UA7fDMl0CuB3wp+Bffh5/BOazLhOK0FrYfBr8EPtc1dKV9 SDs3dUCZ4/Aa5FaAW8BD9p/nWO/8cpzGuAn8DXh0rLhlxrqXzClzeBoYAPqB fz3u99wI8GNSNULfqGtspPyccH6avHYwUp0fBidj1TZrfMA6qet34Biwl/UJ mb/AheB2yM3F935wd1CN1YI/C7qDO3xW2qEvPdZFPbdh/wnmGDzoPDAft2Kc Bl8X6zx9Pt8P9pP+FrMW8V0CviGWzE3edwoYTup72PvPiFVTo8DfBvWgPeAZ sert+li97SngSfv5m31daP8WgAv8vdB10W253dBVg32dQX7T9sxYfvfZjy7H p9s9gLle77iwbzBOedjzJ2TzY8Wv0H2Mse913L4Lqu3vg+LV4VwTg45hLu8r UJGUjRafq9Y2+b0h6I63gg+4t7PHN7rnsM5KHRPe4Tz3z5RR5blM1+fF4HVB 9+L1oN7HfKXsD31hny6C3N/g+byvQX1/F3sn8joZ859GkuM+1lZb0P35Grwv qP99EtRTp/icV7lHsVdt85u0NUjfbPeYbMvSlzsgNwS+N1bcOnxvNgWdbWPQ Pai3H8cdf+bhLuz5B3xfLJ/o21fgLUEx+SDIRqX9P+r3NIoVxzr3gfMjvcPn gR8J6g+PUUdQf8kFzw+KeTG4IKgf3wO+JlavvBp8hfse+18NdG3JSCSeAOcH 9ae7wWdG6kNnsccDxyDTDF4Q9I4+GBRTxnY7eJl7dzX446B39iPwdOybBhQB 9ZahbG+kOPdE8pv+3wm+2Xf4FvDoSO/PKPCSoLd9KXg8dE3I0LsyCWvD4Isi zU/3Gt+d8ZZpc89h7+HasN8kyozLkFwq6O4sDlpPW2aW99wYaZz2m3Wt48m4 lgTV9QP2bZzPfFms+zcFPDGSvTH2c5p9nYnxEOZnRAK/fw06J8/7KPOI+dsh W2JmLKuBcr8pjF2r/xl2gB8H9mL9mUjrFX532oP+kXa6LjjPf5svg+rsi/C/ jeJIcWf8j2D+uaAe8Dz4RfeuJt5dyLwA+eWR6pL1mQk+7p7D3vNqkK+v8B8m yOa7zDni8gdrPlYseC7a7nOcmYfSoH+bMvDLfhv4HvK/lLYOAOVBPa+SufP/ G//j+vwm8m2sCbpDK8D/AcD2iBw= "]], PolygonBox[CompressedData[" 1:eJwtlXmIVlUYxu93zz2QkKWFJBJkCplZuZAREZlLpeYyzpjZYo0b2jjOTJbj ApWCe6RmpeO0kKWVibZoYabjXomlqUij1WS2qKBF2jKpaL+H5/7x8P2+c97z nuVd7rUjKosr0iRJpqEMlYYkKeJ3EBoO3x+T5B8M/kVD4CmMPc5cGZoKPyEb eAiaAJehEngwGgcXWPM8a7XJb2wwgv/n4B9QH/grbGqwXYq+hrejWfBydAi+ B5sfsT2C7oU34qMTPBBtgh/Epj+2A1Ax3AObA8ydRr3hiuCz6IyV8KWMfcDc h6gp3ArNg+eiq6LXaO0Z1BcuQn/Bf6NB8AC0E96B7oPH4LM48Z3Hwo8y1sjc f+gheDNjTzH3JNoEH+LMlcxVocPwKGx+gi+iMfBodDT1mOYWsmYGa2eiF+DH on2fRaXRb6K32YZugTOtgd9Hl8D17FGUek/tPTx6rWKgWDRj7Cy+v0fN4ZfY YyJcjV6GnwmO9Tj0LDwem4kF7FB55pgqtuOVRPLN/9nwHO0Bv5jHcyyaL9/B rByqhp/DZj++/kTz4OLot1bODYYXBd9dPuQrMDY/dU6l8LDo3NSbD4U/Vk5i W4XWwvvw2Y+5m1EN/CVjk/L77Qy+k+6mHKqCl6MpiXNSubkaVcIV6O3gN9Xb KoeawDW5v8nKYfgC2gpvQefgHcF76U23we2jc+8bdAO8OJ+XjyXwd8G5/xY6 DLfGZnXqO+vuyjnlnnKkBH4Dm/I8Pq/D1+fnW4Pawe8pZoltlsHfojp4M6qH X8vvrxjXwv2ic1853x9eFXx3+VgB12aOVTPml8KfMfZm4hxdF3xmnV1v0Aif RJ/CG9Dv8Ododh5P1fp0fKwtOAemwb+gstQxOwCXogcKzjnl3m7WLM7fS7Hc E9w7atFeeBeak3iPL+CR3OGP/L17RvcM9Q7VRF3mGGhuH+oAzwj2pTPr7NdF v6Vi0BbemteHanoLfFd0L2tA3eE70V54D7ojuqeot7yDrlYvY82SxHdogB9B AxP33GHwxuBeMUFngDegZYnfWG99gTOXp+5ZBzPnmHKtAV3B/67Re6lH3Rpd g6pFvemvqtf8vZTfP8PNsVmRumbPM9+F/9tTj7WAr8zs+zxqBx9HC1L3mBPw scy9TGOaeyW4FlRDryofM69tRfx6wCcYW5/3e51lVPC3Rj10NHwmuBcpR0/D naN7m86ks72bOfc66k3h9cFvpZr/BL6csfo8fpdlllh7NoWP5t8bxeCIejdj txWcYyVwz8xn1ZjmekXHVt+gu+GPgnuLesKa4JpR7Sjn6oJrSrWlmB0MPqPO qm/WSvgUY436tqE2/H84+NulHCiBb4/OHdWwanlS5l6rGqmGnw7+1ioH1atv jM7d/eimaJ/yrTe4Bu6OWhbc49vqLNG2+kZ2iq4J5b9ythv8P2hkH88= "]]}]}, {RGBColor[ 0.48706216811628167`, 0.7210679929906328, 0.47210250965075456`], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJw1lF1Mz2EUx3/+z/9/z5WNUGuSrRKVXqSQl8i6qIskNi8pxQobo+SlXKkZ 8rpMbWyKNi5ciVuZ19k0lkvqQmTjygXzOTvfLs4+z3Oe85znPOec50nZ01rV EouiqAMJSHMiiiZRNME2FBXoTsD6hBvsg19YjzH+Cj/A2ywNwyCdrR1HatG3 mw/tqYQFzPPQF8HRmJ/1ApnL2iCcB5M0Nt1EzH3O+Lb585jvndD+LNZW4DM7 uG5UNmPMB9B/Cn7+rOCxnUXq0HfCVmQl4xZYzHk/sCuB1YrZYq9hvRApEG2+ DdmHNCCbbMz+HFgPz1u+GDfBMvZP42cv/Bv3u9Yw/sz6OPJHcVg8XZZD1oax SYbFwX2XBj/LfHYh14Offw12YzuE3EfS2fMGFsGnrI/ojJPYbYdn4GlkK+NT cCrm9q+RQ9Lb+nfpbb1JdzkY3KfF/Szy84ZUu2H1wKPgdZupz6BodgdU92Z4 JXgOO4LvH5Ldr+C+f1tNEu4nD+5nnou+Eb5C900xL9F97d7dVldseix+pI/x OZiacNs0s2Xehv518Bw/QF7GfGyc8T0l/8ew24L90eB5tzx0IrvVb7uUk3Hl JabaWQ13srYc3Q74ULFZjGNxr9k/mBr3+q+F04rZYl8XvNc2wPlIBuMk+RhQ DFXMl8FaWCgbs12lfl4NLyCNjHthZuT1zUJylc98+DN4n7yHm4P3dyWcJKYe ezPc5abe8g24UTZmu972WP/DEiTf7qKzKnTeAs0XKldWX+uVd8zb4VvVvF/6 O9Lfg7fUt30wBclmnA6XKreZOr888nvaORk6u0Fvx95QlPC72J3WBLcvszvp r7M/L1n5TDPfess5wXvFeuau5VJ/oP2FvcrtZVit2OqC/wfl+hMaNTbdEeXn MLwku4vwqt6CvYnH6rMROCfuPTU77v+X1f1j8DWzeQJL9bfYH7MoeG0Xq0/6 1SsVyon18X/CdbgD "]], PolygonBox[CompressedData[" 1:eJwtlElsjVEUxz/v+PZsKfrSKBKtlqr3WlpzTWmTNtE+jwTpo5TWPLSPqFpR Y2IKQZCoIUEikRi2IqghlIWlYSFYsLIQfv+cu/jn/d757j3TPfcmV3c2diSi KFqKhqIhcRT1YbiJ/mHI8T8y7GgNPIffBZgWorlwK5oCT0ar4GNaB+fQUXgv WgIvRl1wFZoKV6JqOInP58R6gYrgN9ge8u0Remsu8QX0Dh6LSuFJqBAeRo4f 4T+oCL6GrRvOo374HFoGZ9DZUINq+US8pthrVK23UIL/xbHnMoDGwd3me+Uj Dx9G++FWdNC8RtXai+7Bd8xzvYjuwpdRV+Q5XYE3mO/Vno1wOtT/DGXh5ehb wm36djXsz8onnMJ2g29P0V9yP4FtbeQ9P67e8v0J3/pRAfzAPDflfB/uQz3h v2rpNfetGMq1jT1f2Gtwe+x7tPYSGjSvSbXJx23NAloET0Rp+Dd6HPmZDCe/ wth7q3p01uvD+VegNuVuzpqhnHlP1Js61QTvQc1wCm2FZ6Fp4f9suNh8FspQ Ei4wz6UEjYLXEfNrwmtSbc2x9062jPrNmvKwvwnuMJ9N5dgObw/1ad63wXXm LJtqH4mP6/g6hAapNxPy0Yw2mEusO7BJvTaPpTWN8Erzu6McVpjHkH+d6RHz mlWrat4Cbw71K8dOuD72Wf6MGuCy4E/9LIfHh3jyP8F8jdZqRirhecF/Gs2H P5iftc74PTzavJeqYQx8QHcq3K/X8Mtw3zQ/A+Yzmg335TxcQ4wfxPqJauGq 2O/Wd1QdewzF0sz8MveZD/fllfkarZWP6XC9ea4taCdcaz4repNmwjPC+alH NfBu87dH57UDPmW+VzN1Ur0M86fzTuktC++ZbBXmMVrC+7ELHhH73dKZ6+xL wvyo56XwvvDeqAc98JnwfsjHafg/AXWZJA== "]]}]}, {RGBColor[0.6560142259465636, 0.7431583220589835, 0.32907901780555154`], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwtkskuRUEQhjvasTJzucS4MMdMuOaZxBBEImK4cSVCTEsSwhUJIrwBGxZY 4TEshXfAQ0h8larFn+/v6jpV1X26NLY3u5vgnBtAHi0Ezn0TmIcVrIfRCOph Mwy74Qzqxs/BSdSFn4aNKBvfAJNhDUpBEa9+zOLVtpfltUcIrqAhfBNsRzn4 NtiCQvhmWIUy8ZWwEKXiCyQXVeJzYZ/k4XvhAMrD93vtLT1H4anNHPfaT/q2 wlKUgS+HJSgdXwaLURq+CK57vY8d+ISW8Y9e1xLfhpdoFR+180lc5gvbbHmw DmXha+E46sRPyCxe72dQYigX3yG1Ub78DxiDa07njlqvGOxx+l+W0CfrO/gB j6z+IXzwun8Pj53mnKArrzVv4AHqwO9bTcmXc8ad9pL8mPm41ZKcM/hsdc+9 fi91pryuJX4Bk7y+sQBu8M4S4Wag+7c2U73dnbyRN699XuGLeYn9JTr3Tp12 vl1Ev/hIoOcYtvuJWHwp0Fzp+4O+7H7knm7s7Nde9yRHZtyy2WTGf+Y9Rzg= "]], PolygonBox[CompressedData[" 1:eJwtklkr5mEYh5/mxhFmbO9r34qxZGuGse9LGEIkhfIqZRKnipgZB5jxEThy IDU1voZD8h048wmU69f9HFz9r571/v/upyq1t7D7IYTwFdKg3UIY5TsGHfg3 SOAFWoNfwCaegr/myH/Cf7wcPuLZUIafwzG+AWf4Dazhq3CNP8IlfgS3+HJ6 CM8UdA9vFPTA2FXwNa/4DvMvzGWoNnyH73isdxv/F+/Tnif8i3nt+dCGl0AW 3ghd+Il5LX3w2xx5L/zCa+BT8H+qwOsgF8+BKvwAevBu2Mdrzee0pxKfMz9L Z86b16haleEfvAjq8QYoVpbmWSnTTfx7PF9nzODV+od43xS+GOvthyX8B5mk m2e4gm9DmvmY5rr5JoP3tBNvNc8mD5rxgVhPne7ES817qcyUXdJ8TmsKlS18 jusT+Kl5L9UD9X4MivEiGMbvzN+K5tWr3nieerilf4HC4DX24EPmezXWb/4m lZ/ubMFHzLNTPYPmmSk7veF184yUlTKcNs9Y6zP1JlRL7I/mD/HJmK9qHsdn 436NaW7C/O3ojFG8yTw7vYl6/B0BMUAI "]]}]}, {RGBColor[0.8158282765970009, 0.705610548324564, 0.2533417728401284], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwtj8sOAUEQRTs6Iggi8Y5HCCZhMSussfNIECwsxmRshS+wFHyK3/FFTqVr cfvcqq6pud2O7rtbzBhTRxYFHHN4gR8U4l/wiQL8EZ7QFO9ZNyfzETygFn4P z8bNP1CFOgXLcI0a+JXunhm3a2Fdhg5cqpfeJG5MAl7h17p9P/jW7yWjp3mG sIDS+BrcoiZ+A8eojx9ZdyczVc0ZaoYSdRIWYVezydty1D2Y1770pM5onYW+ 7pf/DLQv93//hhcp "]], PolygonBox[CompressedData[" 1:eJwtj9sKQVEQhifjYqOcj+WQwgVKKQ+ASxSS5GLTfgCewC1exVv6plkXX/ub vdb8M6ufPI+PlIhUIQ1vFbnxfcEPP0Ms/u+Cf+Aears7hyG+hhjfQgdvw8ay YCXe88VP0MO7cMBrkMEjqOATWIr3TPFEPdtqyyqFeSMo4w3IimfU1TOicD7D 8zAQ7ymov8F2txlXfKF+187tLeVQW0ZRfQebbRljfK++u71xh7cgJ75DE/8D FmUTxQ== "]]}]}, {RGBColor[0.9012356232284956, 0.5672964663021194, 0.21358605951683496`], EdgeForm[None], GraphicsGroupBox[{ PolygonBox[{{777, 33, 776}, {783, 6, 782}, {856, 64, 854}, {810, 35, 812}, {812, 35, 811}, {33, 63, 64}, {33, 64, 34}, {858, 64, 856}, { 804, 33, 777}, {35, 5, 4}, {34, 35, 4}, {786, 7, 785}, {784, 7, 786}}], PolygonBox[{{854, 64, 63, 901}, {776, 33, 34, 778}, {811, 35, 34, 807}, {807, 34, 64, 858}, {778, 34, 4, 780}, {782, 6, 5, 781}, {855, 63, 33, 804}, {781, 5, 35, 810}, {785, 7, 6, 783}}]}]}, {RGBColor[ 0.8797782202997353, 0.30406465119632464`, 0.16261058012250681`], EdgeForm[None], GraphicsGroupBox[{ PolygonBox[{{804, 32, 855}, {780, 3, 778}, {778, 3, 776}}], PolygonBox[{{776, 3, 2, 777}, {803, 32, 2, 779}, {777, 2, 32, 804}}]}]}, {RGBColor[0.8573590000000001, 0.13110600000000114`, 0.1321280000000002], EdgeForm[None], GraphicsGroupBox[PolygonBox[{{779, 1, 803}}]]}}, {{}, TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{803, 779}]}, "75"], Annotation[#, 75, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{780, 778, 776, 777, 804, 855}]}, "72.5`"], Annotation[#, 72.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{784, 786, 785, 783, 782, 781, 810, 812, 811, 807, 858, 856, 854, 901}]}, "70"], Annotation[#, 70, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{788, 794, 793, 792, 791, 790, 789, 787, 815, 822, 821, 818, 862, 867, 866, 863, 904, 905, 903, 902, 937, 978}], LineBox[{802, 842, 843, 844, 845, 848, 849, 852, 853}], LineBox[{1388, 1335}]}, "67.5`"], Annotation[#, 67.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{936, 935, 931, 930, 899, 898, 897, 896, 892, 891, 888, 887, 846, 841, 838, 837, 834, 833, 830, 829, 827, 826, 824, 823, 820, 819, 817, 816, 814, 813, 809, 808, 801, 806, 800, 805, 799, 798, 797, 796, 795, 825, 840, 839, 836, 835, 832, 831, 828, 870, 877, 876, 873, 906, 909, 908, 907, 943, 945, 944, 940, 980, 979, 977, 1007}], LineBox[{1336, 1277, 1367, 1369, 1386, 1385, 1384, 1387}], LineBox[{1371, 1337, 1372}]}, "65"], Annotation[#, 65, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{1006, 1004, 900, 976, 975, 974, 973, 972, 932, 927, 924, 923, 921, 920, 919, 918, 917, 916, 893, 883, 882, 881, 879, 878, 875, 874, 872, 871, 869, 868, 865, 864, 861, 860, 851, 859, 850, 857, 847, 880, 895, 894, 890, 889, 886, 885, 884, 910, 915, 914, 913, 912, 911, 948, 955, 954, 951, 981, 984, 983, 982, 1010, 1011, 1041, 1040, 1059, 1089}], LineBox[{1278, 1237, 1307, 1306, 1303, 1308, 1333, 1334, 1359, 1358, 1355, 1363, 1382, 1381, 1380, 1383}], LineBox[{1280, 1254, 1281, 1279, 1282, 1283, 1312, 1313, 1315, 1318, 1319, 1320, 1338, 1339, 1340, 1342, 1343, 1347, 1379}]}, "62.5`"], Annotation[#, 62.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwV0LtLFXAYBuBfpFBwjqLiWuhiapppa6SmlWJQRwsJynPOXLbVWmv9AyYo OdjlhA2FouStvFaTuHgpDS+VQvvBI+rT8PAO3/K+X1HyYazzWAihi9qsEC7x 73gIxfI0p8glhygRdtx/s8kGv1hnjZ98Z54ZpvnCZyaZYIxRRhhmiEE+8oH3 DPCKd/SToo+X9NJDN+N84ytzzDLFMj9YZYU0hxyQId+OAko4Qz2XidFKgjgP uM9jHvGUJzznGd284A2veUuKUcYYZ5IllllhlT/8/f9LdsnKDuEEJ4kQJZdS yijnLBWco4oa6rlGMy1c5wY3idHGLW5zl3bucYcO4iRI0sRFaqmjgUaucJUL VHKeagrJY1//NHtk2GaLRRbo4hNHLgVUUA== "]]}, "60"], Annotation[#, 60, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwl0r0vHHAAxvHfuTsvd4k0da5eehpSo6FJhURiYqdhQxM2EpZKWEhYSGi3 dmBloZ0s5i7apP0LtHVeQqq4444Qkn4Sw2f9Ls/TODzxZjwSQlgkGw2hJBZC ggrKSfGMNNW08Iouuumjn2FGGGeCKaaZY54llnnPB1ZYZYNNPvOFr+zwje/s 8ovf/GGPLKfkueSKAkVuuKUyHsJTqkiRpoZaXpChiQZe0swT4pRSRoIk13r/ OOOcC3IcsM9PfrDNFuus8YmPLLLALDNM8o4xRnnLEIMM0EsPnXTQThutvCbD c+qpo5YakpRRSpwYUSIEHux7zx233HBNkQKn5PlLjhOOOeIw+viP/1x9R0A= "]]}, "57.5`"], Annotation[#, 57.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwl0Dkvw3EAANCfpB/EP1GJI61U0oSwumnSwVGxiDoWlM2xOVaK0W13NI5Y hBQDiUaEr+MlHd4XeNHkQna+JoQwQV0shIg49TTQSBPNJEjSQitddNNLH/1k GGGUHONMM8MscyyxzBrrbLHNHgeccMwRF1xxwztvvFLmhWee+OSHP775pcIX HzzywD133FLimkvOOeOUQ/YpsssOm2ywygoFFskzxRjDDDDIED2kaaOdDjpJ URurfv8D2gsvoQ== "]]}, "55"], Annotation[#, 55, "Tooltip"]& ], {}, {}}}], {{}, {RGBColor[1, 0, 0], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQzXV9cYEt13F7Jemouts739qvc39YJbLuuH11hdgi 1/tv7IN2yLW+Djxh/+Tr3Z03Vd7Yf9OI6T/09YS9X3bmsoCW1/YzweCkfWzT JfltP17Z24INPGXvExr5Tb7ulT3INPeHp+wDTa05SwVf2QMNA5p42n7RtrcX HDa8tNcEGadxxn7p5KKNkyJe2p+BAPviXOMp9zle2heADTxrr3zlUPf7/S/s RcAOPGev4DvR/WTNC3uw83acs3eNZfm2zO6FPdi4mPP2uTskJF+xvLBnAIML 9vaNe/YLn38O9c8Fe1Zt65+75zy3XwK24IJ9oq7X+d7c51D/XbB3W66j4ez4 3N4D7IGL9r/6nB4tEH9uPwvs34v2sp5zVhd/eGb/BuSd1xft45pMlvWffgb1 /yX7iR2p4WdXPLMHO6f/kv3Mk9cyOTueQcPjkr2S8z4F5cxn9sZgcNneftH0 TpkDt/cDANwcylI= "]]}, {}}, {{}, {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[ 1.6], PointBox[{{0.19241254592405, 0.7611301531311999}}]}, {}}, {{}, {}, {RGBColor[1, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwd1nk81dkbB3CKSJSRNdolkuVerTIee6USKVSSMVqoZG8dGTRGhRhJQhtJ iEsRqcl6Ldd2bosSWfK91mTJzxL9njN/3Nd9vf+43+85z/Ocz7nLXU7vOTJL SEioGT/0e6s24/erBBc4fygfFd82AEc3GbK853FhpH1J0LDFAPxlEtv/UJIL rq8FTz+ZD0CFncXv0gu40NRX5cQxHQCLSw+tOxdyYc50felBGACzhqOaYYu5 cEm8kzzdMABG3oK2N7pcaCtVFT27agD087p3nLTnwh6efKHJ7AHoEI5cqZTO Bc05CqW7C/thlbCdn/4EF1Kl/x56eqYf5rm6efDNK+H3M5ai/I398PDKMrfe uEqwdNteqDLaB59cx1v8mEqwOLRF/XheH3Bn+e69pF8FJUWtu9T9+mCfiIG3 UHgVcO7fMH25oQ8CClQlxj5UgUOWiefUdC84sjkP3LSqQebeEaO5Jb3w1skp 3+ZCNbiUf9H852ovDH+19+Zwq6E51DT7pn0vlJp8145cVAN+tptDypb1go5l 7pH2YzVg0/67ucJgD1jLySVxXtTArzuCNzUX9oCcWekfE1I8WDTqdHt9WA/4 qUW/f3aAB4odlamHHHsgjCei9y2TB+/S3kbZaPXAJrU48TtTPIi0EF/DzOqB BNP6zzW7a+HQ8pB3ke+6Iblsj5Pn/VqYJ9P8OjOjG7ZOjNmFDdbCtOab7IWh 3XBnyNBmmWkdOBT7V/Yc7oaoxNRyzag6ODXLIO+jQTesznRsf9JSBxZOLUFd yt3gHfhsJku3HuwWd1kWTAjAQUwndlVAPfhu/S3GplkAIzY7dZRIPeRp8pun XghAUah5o4lMAyyu2N7VnCQAUdYyuZxNDSATIDZH/bIAeKYbR5xdGuA+R2S8 zV0AztlO8y3DGkB37tRQk60AKqzWTntkNUDFygORGYYCEKuv6SdNDcCsuhNl riEAubQLSl4/GyDW7fJlrrwApl2nLaw0GsG6tSrDXkQAuecjOUesG+F+uGXQ g1EGtpRwB5/7N4LRQLZMGsNAYl+j9o67jRCoUdco94GBWo/+xwrcRrCKHC4V 1DLwnt+0euVQIzzOiBBzL2WAvUTZvJK69TbbDB1x/JDLqeFGkE3IO7MEbTbd npA/0gjqBbLW/BIGctT6ftk51ghmF302G6Ijzk1P+U41wlG1F18VixkwX7qi oUKUgKGET2f7KwZy3U+cdV9EwEz68vfiQgb8x+4FiCgTWPZPystk9KagppAk dFuVV0Io+tUt8yiiQkDeVippF7qyculj/aUErN5Ycz4WMNCq9qZZQpWAePRc xYnnDIh3GkC6FoHASWPGIp+Bag8fc3NtAuzJpuC16PDJtB2f0dWZyptk0DIy Cg4LdQk80U3+0pLHwGLjIc8LbAImKcW7/NHsOyn3d2wkkLNd2zn9GQOOB+fP 6TcikHCp7rLaUwYeam8T/8eYQNxgyrQk+ptwkIS+CQHeO9XrI7kMhDz6Pv9v UwIVEkqixeiM758UVC0ILJnbrH0IPR2ZruG4A9d3uPzP+BwGksq27eLtIyDj pbdKg8NA982g3T52BBy5E0MyaPaJIptF9gQ+xhz78CObgYpfdO2OOxA4emPz eAP6q5PCYZGDWL+1+X7n0TDR5WngjPV/puhJshho0wqOyXDH/Wj6ucQ+YSDK hHNp2wkCzr3yZSFoE/vP7l/QJsKjBj7olMAtxiqnCMRsdPa1RrvzRwaunsb9 VwhNzkOPnnXdesKXgJCHi3NoJta/zHxSIwB/35F6KzKDgYImn65ytHbq045A tPvAvYbfLhHYWfbDxBtdKz/z8FYg9l8Mtu9DR7vl2c4NJqCYdfWkClplwerM 7lAC3n+bz89KZ4B1QNw5NYrAFectr7oeM/BY7LK+UTQ+z61X4yN6xTNhuQ9o daOB9Dq0rPRUlUQMzovD1+F89Fj5gJ5HLNaf3XrtKrqQxRdbf5uAyDXfbxvQ 7M+7O2rRTf7OxWvR6dd4RUcTCFTq3H20Ap0gKPeKS8T+SCoXzkcHJD5vnrqD /fOY6RakYf3mJmWVJBN42nTBPwldmLfoysEUArEpyRk30HquN11H0UlGyyeu oVX/va6klkpAsl3u7QX0HL/g4LA0AgE1/XEH0DVtx+2tn2D9LWysVdBmEV2s HvT173l9suiiLS6SQVkEHnt7Jkqhn8QeLM7NJmD0vtX05yMGru+00lTIJTCz PS2hE733ud7Plnzs/9vRP7KpM3PfBj8n4L+cPZ1GfV8vQ6OAwMWI/NgH1Nf0 9vsVEryf4hVvUjvr5Uq+JKD2vsT+EvW+3LActIiWcdo5aks9Z4dXBFSTxeR8 qdfpSSX/S2Dt2Mktbmhbcb1jW0oIuGrcKt2L3jOd82s72jHMQbCbepgtG1pK IFrCedUO6k/sYlJGoM5z6zdj6my2sjuXgDvvTLEudUrO0IJKXO+Gs/lrqePZ lc/Q1cWvuerUIWw/4WoCmwzWbFxO7cCuj+OhXzvZLKTelZNiWIvrWXdXSZra hH3xC5pXpfFDknotW0O3nsBJBzlpMerlOT/fopNtzhiLUMuz311owHk9uTxc mFqIHcxtJNAgYuXzIxX9nbP/FMH8Cm6QmqTuZeku5OM8rLhd8j/qN6wWpzcE jpeLXxihruLkirwlUFiZHjBE/Yp15THaYiA2YZD6EWvj2Duct3jz1f3UiRyp hPcEIlbMjemljmZ9MW7C+efJKvdQh3IKBWjJm8eLBNQXWVHhH7AfwSJnGWov zjG9j5hf17t3dVEfZRl+QBv+K2v4hfogR/ZSM57fBWHbOqmtWX2qnwgcCDQ/ 1UFtzimuRhMZy4x2an1WnGcLgZCKWNH/rMPxkG8lEHRb81wbtSrLvAhdGCUu 9p+VOMoun/F9aVpZn6nns4bF2nBe2+O9/vNsTmUmeo6BtRW1zbjuHdt2Atb5 u8ypn2unOH1Fjz2/tZd62RGlJWEdBPQVKs9Th94Ob1nZSUCFNOVTf20UTnyF jumpmUffv0/c33H/F8z/Q/f8qYsMe5VH0a7a+8epV/o5NUd04Xk+OHKd7udK OonXYAjc7zptRPc/1G5xoIyh9a6bQ+vjoPhC6bAA82aB9Bfq11Y6HybQ0ll6 TbSeqy8/iIvpxvlN39xJ6x3xQsFBpwffJ7JClPZnbOiqQjX6R0H/r93oMiff 2J+9BCb1NUZpfzVvdO+L78O8n3Pbi/Y/usZRbn0/zqf2oOhXtPMm8xj3AQKW MYY+dH64HgW2ol/xvJLNO+l8aadoLbyLTjqpYPAdPf2LfPTbQQJO+eecJ9Cu 267YeH7DPDk2EzOF5gXMSM8bwnr5HmmbRsf3MZFGwwTWJX98MQvnfUN5fnj6 KJ7PA79dlkInTmnusviO6x0c96TnSYR9V7IdXdbu7UPPGz/p76vy/8N6NUu9 VEJ7nt0f9ucE/h9Y1eayGv3+Se02lUkCe+9cEdVEG3YZi+ejZ/wU/tVGS+5Z E9o/hfmyucl/AzpNcyrEfgafLz82boGWdjltNozO88vdQ/PjbFzn7PCfBAxY tqU0XyxEeUElQnxY82pzjwO6ozUhUGs2H6x1Hmw9iVaJNrw4W5wPHR4CK5p3 w58XbMlGayu5liWiK7XaJxzn8mGR5BG7ZLRvVfCZPAk+5NWM1HPQNUJV3m5S fFiRY6ZUhz5/2tatXoYPDcpPRSQxn61fqqpfXMiHot1+JjS/1eaNMeqyfNDn FSbQfCcP41yD5Pgw/w55qIXWaG05vF6RD93p63+xQTftPG53ezEfjrpUGSbS vI/fLLdtCR96l9abpaJDuiXejKIl1PYf46B1QzJtrJbxQVpyUrgCHfpieKfw StwvnA7/ht6w5g/TY+p8eGiyetoS7zPJs1azZDX4UBLmVWOH7ihfWvwaHaBk lOeCjvitxHCRJh8KZdzbz6OZODH9Wi0+uJ4cCs9AFzFN4+e08fnjh4wK0NHr Huer6fDhDc9qQQXasGHn+kBdPjzZ/XJWG72flywZXcviw8y0/uoBdO+JwZwP 6P5Rg+OT6NcFr73+YvPBY11puRje/zfEonX19PhwvagW5ND/B7FyFCw= "]]}}}, AspectRatio->1, DisplayFunction->Identity, Frame->True, FrameLabel->{ FormBox["\"Ra\"", TraditionalForm], FormBox["\"ktf\"", TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic}, PlotRange->{{0.18, 0.3}, {0.5, 0.8}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6151153516164265`*^9, 3.6151157447354918`*^9, {3.6151161001067815`*^9, 3.6151161187239943`*^9}, 3.615282495898391*^9, 3.615374396918355*^9, 3.61703651293937*^9, 3.618239095549923*^9, 3.618291344403616*^9, { 3.6183123086289606`*^9, 3.6183123094245267`*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQmUXVW55rHurSGpSlIZKqlMVZXKUJkr8zxBIDKPkTAJiSEFCQkZCBkw EEIkCIIgGGSKYASEJ09UMKjwROU1NoIdli7F1bzXLN/qZejnUnstXjcL6dW7 97fP/k9999Z/9x1OyGN199JbpE7de+7+/v0P3//vf+9z9prt16zbtGb7+rVr 2j69bc2Wa9avvb5txeZt9lLmU1H0qWvs6/K2CP82USQ/jP2/WY8fuFL83z91 /8lE5tiRaN+ho+63KvezLjp6qCvad+RY/LeurqjLvfZFhw7Z11HzCN+hT84d 3OvooajL/37syL74Tu5vx6Ij+/ZFR46ZKOcWNXm3OBod2nckOmZMPJ5qd5cu GkePO2RyhlrlftYlg8i9ezKInDv06gmDhovfIZT4zpnuO9vXw3yb2uBtvlFs zLl3frz02TyR/+4gLeEZUSevxgvgUHQ0RyBdAtjqUwJ4pJ+KInd2f8+6d9Qk 2pX3mdayb5Vxt5L3Z+iaDG9EiuGxcdhrlQ5PbKpKGV750pPPuwmJtBmJIfcu ek8/A/EtanO0OP+jmViLxol6wFvIXbr/Xe2/OF97ch2KHUCX+9vI8N0yYnEe KiBmwh+p+I6519rKv02NXItVhea2cnw0H5Cg/XuKOxaYgxGl3LEhB1bOjOof q8pVlwLfHVKXnDCQqy5F7uZUN090AeUL3i2Tc7eMcq2llNtUq4PKdxF4DS/l djXq7exkVylKOKJyqSlzUORutT7KyJ8LvE1Rj27/leiCTAGrR/zJbKxr8E+x vrWE71TjnWw+yVHeGo0s5VaZnFtllGsl3aYuz84TAckMloSrOucuMpGiC/zR EZUMyuQLuwi0HI3q6sqJgMrbS3MVsYjr4w8eOdrDZTgVZT9kh1/ENFlXMa7K /EStIuaMcq0kw6nNFZJg8tZcEp5sDp5Dhw5pHLXcwSjCLSKWxOJIpwu8NcrT gAIhJSsaIMrYRbOvf6S0ANzQQ9+huQ53CpLR04py7nroqNhncpnmJXjnnuTA 34K9vxhey7/vWMuWbUV3zXWbhelIh7eQPHKbuPQeOtnjra365UQ3Pe9K0t5c op3DqIO3qgvcKicR428YGbpjTaE7srMS62ypdGzOyDWPExxbeYIrMLjqHpfJ KHq82+cz7hsqzKgn4T/G2JsuwI8sXY0yuJKAzyjXeivXen2C3vdJGssn/X3a taxyrer/q8j/q+/7mFSk8wRcm1re0Ad5uZRZfOIkOP+j2rfNTo+y68033wxe 077Doxzo/lNR2STAfrQpnl3iYNNcKwFokSRKgIbSt2rc31PJWW+88caiV199 VeSEa8tffvnlyb/5zW/cb33ia83Hjh1b9fTTT7vf+nUPfd4vfvELvLy6ZbIf ffQR3jfoT3/6U9QcjzkHon1NO3r06GVPPPHE5BSS8sPH16x99NFHG//6179G 7fG1ug8++ODKxx9/HP+NahPA2Z5yVLLgHGJLmU1OMlfoY6qfaHj//ffN/inN 5j+fOT5qMH84e4J935srxpo7Lmozf/zKnKiv+5kxd18yyvzo8fnmrReWRf3c z4w5cmieufbGOeaJly6MBplv/WSlvXb9/gVm3cE1Zs8Pd0XD3M+s2fX97Wbl nvPNkm3bzSWHn3zAXPrk0/atFxx80Jxx3Wlm/SPronb31oy57olrzfqds90t s7hlTcVKlwjLuZN93atd6vpV3sdUYS175ZVXzPOLRzkxibDu7BxqfrVvmhNT Hy+s726eYB66rTNHWK89u9jsuXaceewH5yXCuunLS81n77yUhBVLAFI5444v RYtIUufeez9eUZVZvudmK5uTdu42865Z714zP3tlrZly4cpq/BbVmIWbNuNd 7nXa/gPus1bwJ/vbrXr8m+4t9qsTwW/4+tVuLuOBlSb4kurLvDJQ7COa0GGz ELUTd70X+otLR5nHrhqbI/Tff3Gm2X3NWPOr7y2NGr3Q79g50dz9+KcdqoEe 2xcfPsVctPfCHKGvufcKJ8iVjxyK5jop1TopQXAQ4oING830yy6HjM2EM2+0 kzDp3FuqzMwrHrIzMftzj5mF133fvZbteKXWnHLzm9X4zerI/A3P4l3uNe2S e/Ex0/mZVe5m+MKTb9zDM7TEzxC+84Ld58JyolF+jLAqWBdQVBWZodjfFch+ eudkPxx51bxLiemi+9ZpOOfxzp0zE0dx72XtzjGw7j9z36xk6DIN93zzNAfx xh/sSKbhkttWOb22kohmOVH0cpJZsW+/Wbx5q5m1+nNm2sWXOilCogs2PmdO 2vXzaAREbpXD/tvNwqzVj+ZI29qHm0KI9awvfdndf4EXNX4/a+vpZtvfbfai zprLvnixueUryzDSIoLWKFiOiA7PazHPb52Yo6kvXj/J3L93So6IfvrUQnPV 1hnO8YmIvvbsWeac6890WjDUi8iKy4nNiiSa7kUETYUSLdu+08xdd7XTUkCf ftn9VsmeMUu3vxx1OBHVQUGd2CC+KRcecOKBL8DnrfbP81K58MFHnFQ2fmN9 ooD4WjGmSkRSr4QXEYnVIHND1xhnvCIS+2+zf+t4c/CZMxORWO9purbPNNuf 3ZKIBOEFYrIzGXWS8Z5+4IsOGjQG2jDnqsNm8ZYjVmwQRY2zTVyHdsz53FWx 0R18cA55SSjN1Q+ujdpI+vh6OzOpRHD3tGHm9b2dOSL46mdHm+cfmZujFY/e Ps0FCYAf4EVgNcSNYcu3NiUisOJwQeO8+x+Iprjx10DJEUSc4cDddK66G5Dn efRLtv3IKYF1Z04CUJ6zv3zvLI8en8YnrWdM0ONb7DeDM0TVFaDv7dH/5KTR 5sHVY3LQv7Rjsrl3z+Qc9OAbQMpuAzEKsQojavbjspJw6OG9J3v0MGuMH5M/ 9TN3OjtYvuf1xR49zAD6MPn8/e4teKv1NDM9ejghCcyt3d/S9u6773bDKRN9 L4/+n88a70jDW/un56g/TMKShAT9699Z4gjDoe+fm6DfcWChWXvf6hz0lj45 q7f6Gk306O1EOrYFaLByj365R3/yja+5S3AS8KmwFDvh0yn6wAUm6Iupeiah sALyu4vazFPrO3KmGAEbkYCnGFOOgMwKDs8rX99MwQ+2DM89wQ2z2o0amos5 nNv1FFBFpzuE1XB5TuGh+IBz0aHHo2ke3qk335IQgBb8dEwjW6Q85/5UR3O4 d9IQF/gEHuwZ7orhwZ6FVQk8uFC4UoYH/oH5wgDHu5/ZBB5gWHU9xyPD3DlG Yf+Ej0DpOz0yfESQjSxl4kIYn1nQap7dNN6ha/AY/+We2ea2la3m1WcW5egp eBeIrWB8+LmznUUiuAtG2BPsCkPt0DFe4DFaVXUzij9h1sF7pyoYR1SKsdZj /N3pHebWC1qAK5lHROsHbp2aM4937Z5k7jy0wqHr7zEe/uH5LmIjFAlGDAzq hqGO0zGuchizLvrA/sACLb4pCrzhaeEx+WggV4PpstOWwHv24Gyz9Zb5OWqK LMxGfzeQwRT+MDg7yGist0IECvAzCTEWYnSZxwguBowIo5ZRTFYwDqsUY01g CuF5Dt81w6Hrq+RfA5T8a4jHiEQVA8RQR+dhxDSCVIFzXukxgkzBh0K1rQue pGAcmhbjY3NGOtLI82jDh8NTTE3ve+p0x44Yo59Dwph1IYPwrXXwMi65wWXw TQ1bc6XYqgNsEOTgOUvEeP5YR9kE11w33ex4bluC7eJbP+PILIba7rFZ7+8i PCKFxdblpw6uFHARPS1zmujhYaaRiSQSSwPvqzOHm5/fODVn6vA7MtN89QQU CylRz+tumuuiO5sg1FU8TDvNB1TQhvRog8dmia6ZePZNopYTKLSLxg+uFFtW mTqOEKgVvfzNBYlaHtg+waV7PHW3fvXkRMgatlF+6pCIwEXCtdj52kRqCcio kkwg0oZAips1lUdbsoHZ4ngQUkabpjhDQ8wTROBqINbdiGL6AdKNAsEWP1tI XMFS4Sitso73b8WvQnYHlcdUMkXmCC4TbLMvJVtIwOAetQgniGw25EwJA2yj OYINzfjsAwjd1/s5Es+IaNFBSZVk24Mq1b+MUnprCLh+zB70jWeL65RNVAMT ktmWN1tIHHeQ34A+Qg72veP8Wy0Tc6QH6frASrFVKTlSg5IkCzZrZy5HQt1A sHGFS7AhR4IdIUto1edtt583ZAa4bP8cCTZUYc7bcbZT7gFpsR2Y2uzCF2Pj 5ECwgU0jfAFVo8dms6FEyIINeSkS+G5ssRPvOH2Hm7c9HhhSXgBDoUCAIVQg ZOBO/SsFFjmNlDlLwhiHaM1zNFJGD7p13RPX5mCCNwG9b8nLyW3MivZ6TNBF ZHgoCo9THGFjSkx+rtQqRZ+A72BqNSivUHPBwQcTTDAazAli160eE9Ib2CHm c6x/H3RX6Gi/FJg0u9LiMfuMRoVKCSZQYhgGUpQWMhboo9W36AseE+g+cGI+ x5AzhC7Dv6bBpNkTfD58A88T+4pGhUKJ7gEP6CBGOZLsCVQeSfYBjwlJNnAC u2CSwiHss28FmHzVf/zbb7/dY560SKz5COZNMk8oKMCXY5QjFHu6g+wJOMF3 BRNqSZKx9ymZWDCSd++a5TDUByIwCC9Gzkhu+9ryxDsJEiCDdTASEFyxors8 EjBb4R6jFfrXgJ/ZXB4U0DMtPWYHgJwSpSoZOiq1K645xUWMQYqjlqFjbQtD h7F82Q/dVWrj4JoMnR1AfaXGEmJAYA2771hcUJMGksXDC6DWKiBgLdAaJL/3 UhgVNtGuUITUILSZQBpxxbWdOSbOBSeZCc4Ah1MoRIYEE7+POFw+CE7/elcK QiwBloGKEs8E+95+FCMBDH5KQIC/SdVMQEDjUdTH8L8aAIHfZWZ7pQWhzQSc Lcgzq9Pn71pirrz78hx1skzY2QQGJyAACjaA4Z+Gn1UuW8i4wpj91f3hdAXd KPIH0DNIq2J0vQPGwgurMkVYroLrh8WzsWAg4JKMDtU9DH8hUWpUi/xaaRbW ZN8K5t2+tAsv+5v9WWXGT7gpqjOjT9ogf3Bprlvps5Qcn5+1+lFNXssC8sI6 CQo/GHRdWnlp2qA5d66wDVTscpgiL1m9kVVOJI2guWOWb4Jkqkzn9INZM3fB d0A5Fr1glp78C7wsKPysNvMWfg9/NTPnHMZbzdTp6CiATGsSmUKeSAkgKCvA JQG5wUkjI8TgayuVWy9Fzziy7L2uwy24NSrpzUDFFWhym+V+9nJyQ+0AuiLK ZdFDDmbW3CfNgsUvWqcOWdU6WU2b8aCZMPEWJ5t4teRRF6kWeaHg/vK9bYrx pRaKpkwcqfopPE5zLZpQZriftU4oEAhAQhhTpt3rFMQqkOXfsTCgNBDSuI6d TtmgeLgPSqHzA8LgYFFTXlGmroheSMohegGRSNozQPE/IgL0XGAeMehp3p5Q gMG1cZ++3okA8Jec9I+TPfrFy37m1GPS1DvM2FO3ONXB2xEq53r08e97ctBz Aae6PL4l6HlhVNCjt8j3J+R4XyBlq+Ba6FCigPCSGHSnX28BVUESCWiY5IVL Xopmeo8BL4Jr+BsCKyjOHA8Zv8v9W4ninHbtChcFqitfg+qZxTQEKA67Upl6 5skCPl6ouN8NfwotFcLdAeDEKQfM7HlPWzcbg7cqYGbM/rpTCwgIUWW2B4/f kRkweGQYsnSZrXz1pmda2idAjZjfCXhm2kPJFGHmGP4kr/ey0gafP3bc9c7f LVr6k8UOfxaycOYAfbdvm+mh41PwhqDAAh3JFHg82hJSQ+cqg8w71hkvv2aq m3eNFYrSg5sjA8ewmimDw3x1Q886pce8wqatqz+Z9B2X8CdwMIvVd4zEySGk iiRecFsZONYTf3nFCz09K0Yhb89L5DLlIJbifwQ38pK4OvR6NJEW5TCf0HU7 1Ss8bmvzZnLnXQ43IiQ+Mo0SfWkxaFVCf1Va3Lzg06C4+H5KUjlAiXKCG/OP VAYgJnjcqP7hGvTZTvIZXsWtCFzAA26r4tOI7cB7434tFNjl2yuGXE3F3G1r RxedahQLRc4DFBUfQnm0FGjG07ICLB5Be878b59DkKHieLud2k4qu8nyS4sv EZNDKwK4oo7+bH5Hv3b4RVUxUXLNP6Q9WKERUxVRMnEcQvMMdUeo66AEBQKC mlhycIETZcbRIk8GIpEjxCqzM9LLEd4RURF+OSzHkppr64J7Bux1bV93QTlm lfWFkEoircV6QlIzt9esB3aLPXARQygkoGyDGrzIEa4FCQuSDxtdV3qVRKAF y0Acsio5xYsSCgzbRvtOC/lyCXclyLHIjmyWY0a5VhUrGvYkoMVfRMUd3iGV 4wKeqBwSTSScrHJMy8dSZ4EjHtY7WZO92Ksc0hJROZETfDokzabruSdGjddx 3GZQ4LrWxO35bmEi/9Q9M11XG8TVV4nqIjSwaPHHIjRQT6n1jKWqJxI2UNjL FOWyNj2Z3gpCyGVuvyfBjT3Q4ljS1oP6qNDWA+16wWZrkd5Pdk1xDR4cMMAV QPxZepwGiXUiDYL7AXEZQsQFrgoxcgzZG6Q0fdYj0ZV5+mbV03OnmADCLpFW iV1aro1ad/fAU/g3bfNA7jXN8nPEpaUOXIXpG6AUvFgwmBZrABlBYQyZHZyZ FVG0xisbUkUEV9+wMNG/Ff0YsFCwFFE2Oxtua1ARiQWb+WuDzfzJJmu6XjAM VCmNjKJoqMEgfBZTNCZjomiADUlBEKOJa4CIWWlFV3lFQ84N5UN9ZaLCSZzY Klt3LswyuUwbUgmmXKISnEq3560f2fgWXe2BLVj8ogM2f8Ozno3GFoRrWAut GFjklN3tfLGBRy3OhiaLezkEEzBi/IwJugs1R1lxvccEnzpx0n7E8wSTrK9j 8kekxOQ5nVpO1+aJPR2ugTEMJj4HpUStSjA5HjL+RgTWaKPHhEAr8WS8ooDD U2BC7Nu8uj2HW5U6T+iTkkDVRNwK8RAViVF5vQAWR7TZY0L1QpL+DkX30mDi 2qRWnQnNE/ij6IrME/oWMC8YZRvpFKIPqjJbyVFIdteh6N6wUjBRES7jWMmr zyzKQcKlltDssGeQ2UHejREyErhAuDwwk+s9EpuUJfl5h6JxrnRTUs3Qx8gx 77zzjuu3K1Q50TiWIOGKWZNiOzwn4rxvUJCMIz1D7yhscWgFesbbLmVLWYOS lwgm7ilsVJjPYCUgtSqYdgYwoY9DZNRcqe2Io0a2gIYmDL9PYGKgctI6LxMD foKyZSEQuwMgYPygfwmZrgSEtrQlM8FLNI2UIUIbYKECAnQbg8HgNBCf9yBQ h5T63Vh6HzTzuIDgNpK+SporILiiLiDgdhAiMawWBcRN5LbEFQsILiIPrhRE iMtwcbiRfK9ITkBwLqWB2KuA4KxBZjY1CN4RFJoJgBLJDVKclQZinweBKrfY joDgbLCpUhD1gShY6kxwKWCkAmK/B4H6LWrYTKt5JlKDeOzO6a5jgWeCG2JC M8E0UgPxBaaRnvNrMzGovFBeH3CsvECmyV+GDmaFa9g1qw39gB86CuZgJii4 avIfVHLs9t0D3YcqYDmLpc41YM0TydB5eWuEHxJ2OmImQDu+qBjxaEXqAytV nd6KEfdRWKAWE9iIUfZCTBhBcoWaAMSdHgSSbLGTdkX+FYPoRfW8S9ZNyTFi 7uBpVOi5gEBaJcY5PI92Y1n9S6T/UCIomzYTA9KC4K33GsUIzQQoAgbM6oSA hWiM4d9FFSKpJMlMYMkI9eDjAoKjc58A2eMNJALCN+LmzASSDCR7GP6XlZjQ TmDFs/WvFESdB4H8AlIvFNj6KRmsZtgCApQDPsmqUHSvB+HyC89sR5HvEh+X GgRvSO8TCGzMWAeSYaOMAIc5XDHsryiOVWYCv4Ms4k6NaUFo0YEDW2gm0F8o rXkCArqPhSAM/z7FxcpMcO5QMYhaJU4ICIDCgIvNBCQJiTIIpJ1YlMHwvyoU Y9J+N2hOYzmpKwlEd/SrDUQH3i8gQ0fehn5yHjqb87C8zBqDPuiHjjVOUTaR P3fo9CsvOtdQTMCqLbbpiRGj7Qp1T1YdTqVl6NyEMIz0HzOBMtQSX0FGudCV OLAa37Gzj2kbdZW9jPYMXIL3tTzkFCrwCHFvo7tiP24CtLK1+Z75ncwWr6TK bPGugdBscQRZ4JsTYT1wwFC49tEbzIrGc8yFAy83q5uuNZuad/cxu4YfiGrN 5qGfd5fOHXCxexsKeFjYQWHyZC8PrHXLV7YpfrxvWnnwJluRB5/L0E/hliIP bsEReYDDgMtg+HO9PFy+awMUANrZN2f2X2kuHrTWrBuy1WwfdmuTl8e1zTvN 5U1d7s+j2q924oM+dGtTvEItTLxNcUQVy6NaoUnMMFBxQp+7RlgHENeGM0HC JvIAc3CTaOPabAeiJunDGjN2i5v8K5rWA/xIL4cdw7/gRPOZgVea0WM2uY/7 TqZokeLLWhVflloOvLNL5AA9kb7ifgrTGqjE96F5TVZYXJrlm3SwuARgkAPA bhl6s02bIIRq2InTEfgJOHLkKgsopMIbgqGJEjDN7JMWPJeyBTwf1SLguUkp pAQcjWZ48HDpsHaAB9Btw26Jxnvw1ijMpYOucuCnz3rEKc98KutLWZmLTGKc FYPPKvVVznZOWXdyQT4hM891l6FKPJue154F8DB5Czia7MBnIQizauAaB956 jnkUAiWRkklnHtWQFreWW3BnmuDmdSYtMjTT+oXbGW3J4DRqx0Ol45R+ZznX b03d/i3GbbXfeQPIylrJ3MB843dhQalx8372PgESgGqDCHuAQgJkvt3GBRvw MfypngQAN/oYTms8z6wdvHm2h7y++QZzev8LpHlvtjLVrUQCxM+UBLmbCGVI seHaC4V+AYozC1EFLTbB8L/ww91AM66tGoiuHnK9tVigzACwWHI0OzCrWGIR ylFfHqHLBHSYk3yByBszZC65yNVMXhueFjo8hfpPYLvnD7gU+rvQzyV8FswW 6msncGZgLpFxyF6++krVNxPw1UhMfW9avG0zirfrgkVyoAJrkCjaTLYl2fRk AgFc1mSjpX5WobsgNNhjMVOJylKxRcUKipsKbFWAnWgqzCc1yPxymsQ+CvML ajGZKBbU1TKS6CQPFr4JYFHsmeHf52za369Vcci904LVKAgvWQpYgJf1HwHL i6/NRBEQTTH8SVQnAd9EAFruwUKTMdtz5n87Acs8vIWiutRnUoPVskhEYfAr VmOotaiTgEUzD/r9YWPN5C8RXUEdJnoQ4FtQUUs3ohUEFlEHYKcr61MtFMWl J69isJGLOZx2ClTejC7zyvUvgcrUUqBi8w78LgY/gZQTCmt5dHSahwpeLVCn UcUS7onXWOD04CnQ/Fk5VOefpK6RZNdaagUShX0mjNOdYWg9B0Y0hFge9JBx SryxuWR0RgCn2xHmdwkJTs4jexXBWU4/dPI4jPJPOGfR4UzR2762PBGdZg0c qjVO0kyhFUvHEEaHHsfOUqTXSf4fBsbS4+1hxaRXxsnpyhPOyjlmmAUIE0P3 bsjGtDQWjTjo1mXdY67TQbYjUfHcgPQ4Ko5UomKp0ityMnZu+68p43h2d9q5 XoPkeNOXEh8kQ/APIjMU9hBIWekQDP2u1URmkAVye0jrPJLZ2f0vcnWfqQEX DD8lfqIOP6sq7IQu8CS9cg5cFz3TKuga++KGZy1Gh/QMbAwlEkjrAgpbwr6m kD7CSlEkFZkhGRGiW3cc9ezQoe4u1fJPYBfpccNzg5ceDptEqbgQXe+v1Bk0 jRtHFVUUVyC3lUTnEElQVBHp8QKkWCnnmaVK7/g+G6vYYf8ICoUK7yF75SCh 6Z5ID0ED/gyJ+kXE/KWgMZneJy1yvMwuVZli0gt2RWdznystzyYr8GQpVVh4 DkSPzBCn5yCCFjNULSCwqo2lzmCQEZDpi72wYLiSTk0KGepnVjmVxjfWVkC6 PE48TyOpZjQEqlcc+MSk4FzhZAspxVji0TAf1Csv9TihJLIOMClgUrydqhKc vuOu534cAQagWJtkYLxHXJvAMXkRHanfZR4YynEAixRxUkDbuQCbGhgXW0Uz sSNaMhDNCWo0WWYMBSaUYQDpcg9szeBNyUrFREUzR5IGyPJCxcB4KeHkzy1z bSMyY9xxIcC45VaA8VKTzBjyV1SPAekKDwz5rCzgTlRUcYTCwVIDg81hzaxQ YiPAuJVksDJjAgyJDZg5IF3pgWHBTNZSJgZUEeeEIyfGN9aUVysM8T5eAhM4 nHpr8zSaXCOKn4gjazwcVMukHjGBFBAHUuB+AofrgjXl1QUFDndm9FXSa4HD K3qDSU1QSWA4Lm22M4G083PkKPIrDqBo0kwqasfHLJQ0Oxowce3cIyBqxy3s AoybpAeTxxL5jyY7gWMApLWBeeL6rQBjtpQaGPcccwkTus3A4OolNRVgKGBg QRkzIcBQkccaNCBdpcyYAOPEQ4Dx7vHUwPioUgHGSyoCjCs9g0nCQibaFcvq UmZsPAVtWBYD486C1MBQl8UMMTCNuHODtQAD68CaGAOD7WBJHJC6AjPGpUkB xmyqulJg9UqrqdgYYpi42MaAKvLiX7vi2q8JzJhmY1xgTg2Mm+60ipLMGK9q CjBe5RrFztvODpZy1yszNj5gY1yMSw1Mo0+au2di36Q4D5kxVA+xTAtIG5QZ 6wjYGLoQZfdpxcB6B+gTl/9FFaH7EkZlxsA6wAN5xmBz6M6B87iWWAbWP1gV 2cakxYxXsUoC1h2xBQ4v3YScPGerAodLmgKHq0sbPRxUlnJLn7lscDhZqtDr 6vJYRu+APXHrmMDhwo+oHVai0OwCtRM4SE/g2gFkEy2myiwKHG52FTjcsZta 7bhjvW+AtfMqsQDjhihtngQYqoAQAGoyHeQpsbrBwDhmpQamlep4nT/k2pnm tikzttkDA+sQTzmO3idrh90ecCW+zX1jtlJgvTwwHCAHR1HMspjwah5QmzEB dvWQ611TAwPTPCDXbVMD4/bkkI3xvpsmxQNqM7YloIr4HarHqsgb71ID0yp3 mo3xypgA42DcpszY1oAqcooynHyrZFypgWnBWLMxrj6xKsLuMBPajG0LqKLm 5LkcnhoYE94+ARtjJi/AwDpkwNqMbVNUUYChk04OKhBgXH2qGFidUoIP2Ri3 jwgw8ESU3DHUVmXGtiuqODbg7rnJoCRg3RFb4HDbZsiyMG8IwwyHExOBw+sx Agfzll8m5V5dgcOrptnyWIbA4X4mgcMpv9gT97sIHLAC4XYCB6wdKoaq9Q20 QCI1D4EDMYh9FoSTRu00R8GJXGMgZnFmLMA45d/hgSGuIUZxqY1Xtz8WYJqj 0IppWsxiliHAwMbRH8zAmObKjOE43FP8ecnDjiewWmVhQWaMW6+0mDVIYRma o9jpgaG6C4LLwMAwxFIFGIK71FBSA+NqrlbLEFVECUDojswYp/wCDH0W6Hdl YJrLgM2JoHg/jCQmqYFxQ28oGHPG1USuWLq4W8h5LOv7aZdA7lISyLGkstpG n+MGjFMUsTEsfMKBsCryKT8CjHd8CTBeNt7tgWFTBgCz8+A9eh8LMG5FDjkP rvCKjcFGYGOFnIcAg83lr4XxhvTjCqyGahnLrlxS1HlwWBZgvCrZojiPGxWW IcCYF1YMrDti1yhVQoHDi6xiWdwpIwrIlfgWxWUIHOyJEAssC045W+MKkyaN ZWiOQrMnMAzUAhkOr0Ae19kJAdPoE68ZCzBeMxZgcPXCHkYSLcJ2BkD6vFKk OWHANA+opSPM2sWemBfKjDF9EmDc+nHCgPHinQDTytQay+DqUwsNWNa4BBg8 Yv4SrAaMl4JSA4P3Q4xiYLwUFGIZmssAewBzZ2DM5EPAyuGFchxt3OXV5c/+ xc9MzkmirYUEUB3gj3xaowiAjy4QAeB3HFVQyBb3UAaNwH08BVCTI4AYcHsx sNx+KmD5sBUBy6stApaZx0jFPm/yYLG7dKl/SMjoAFjeO10MrPRgxefEJj1Y 9e5ymR3RaU+I7tn2EyKxXGcXh8C9FppDEElCjSTxD0mynPpEHHtrY/FQDyCf wFvnrhRpI6wLtkqXe2C0iFXr+dDyb141E7FiMQiMpZA7+jjFWlLfan5TcCKq rNhy4WOiRUB8qoT4a96PEgpE7K/FgkElkDxBNDcHBKRR8R6VzB7N0AkwMsYG VRYlN0iXe1S0CI4bLUVw3M7Gy5Z4bA27Pl7nE8HB76PRspjgtOSMF5qLaZYc VcyH8mbkJ/m32lI0sL5g53RZB0iLTHk7iMiUj78P5Rtc1RSZcsIbkqmWyXNT Z1lOkGRIaliaE+xVuJe6lJOlRY5LLl8E6eXIkfe1a4kO17CEW4jX4+qwyBFG LnnDaPKO+aWeclbKNPPu4+GV00VdrR45XdCks0rjWSjd5cWPUAzGYghWcVhs GpuBe/DPgUvEBm4szTipTLoU7potk85pJEQrX3CCHBIAF3X5cAkpdBVbE5dZ 79abbv0ZUwy0VhXQmJdGEdwD7qbfXzAC7lVASwMOrz3IrHP7bsWNANlAXVSr CqClAskyA+PV11CEwuxilnk20b0n3llLnlMD4w2Xoboo25UA01IsLUxwjinA ePFLK9GnBlaMjIWSZ62Oo/ntUoFxOlVmK1S2TIrE4TwUhngxWeDwKvlomk/J NgUOdyiX2QolcLixRuDwErLA4UMXBpFhi9QFDpgcik8MB9VRyTkEDu/zFTjc zZBa7TS6oNEuXqQUYO7k/fE3FkySBBgveYVyAKYLFQPLBDqGuGcyFNC1eLak 76mu9sLA0PUqO9U1PqnFs4r7kjMBpsLL/wKMV4a08qE4CtRhAI5jFi+gJIF6 9IZk3UKAcVdeamAaA9EWKXlZWYDxWp5WPdurMFcJxrxePow0QGw7NTCtx0tb e9Aq2VqezStDoorYQCtLYzJjiHVSZtRce2pg2qYGjT5pa3kay0Aswm4nBsaV bAHGjTWak08NTKNPvPtJgGmVEV4tGkkDlhZ5AcaLKgKMW6EEGHflpQamdeVp NTENGO8w1Iq2AoxX9ULuntOcMrd1CRxt8wn3nQocTjIGUbTJLxpocHgnqMBx a0ueNosv5Ebe2vJYhgYnRG7TwNE8IHe5ah6w4t2EmcBanlZprASYlGJ5LU/m iXdmaKXY1MD40b4h1s4N1+Uugmj2pDkKrgSeMGBalytnvCFgvLE1VOKE4CRx TQ1MW33VEpNKgPEanfSCyRqdRp/YZRQ7UaAoMC1FKZZxhYBxzBJg3OMlM8a9 /5rzOGHAOPcKAWOWIcB491MolWTnkRpYqevlaYBpTF5boOKSd2pgpSaVvCs+ lPwzMGkE4OqT2BjXoDn3QssIzgksdjJRAZZRKpxS54n5u8DRkn+tSsjFtF6V sYzjDQf508n9zsiBo7l22Jdk2po9lTQ7JwKYqN2ivu4IwZzWQk3ttJjF9vTv Cozpk1abF2B8sIvMGHihnIYwTLGnik/T+7iA8R5rrRk0lEAelxMRPy5gfOCJ 9CWX2uN1XM61PB7AuP4uwHgr8i4lGGv0SbOxFAd2Fi6rlQqsWMP1TuKFqEjh 7B0BptXf2cZSnDFbHjCNF2rA0LyA3RmFev/H0Mzml66ZF54wYBqT520oAgxr V9g8zsA4+RdgnPxr1aeSgFXOMrRUUuue5K0MOyh6yekFYwi2zPtwckFS6yr7 6OrCcLRzQbSUX9v9xH3+NwQchZYZY6FCumsrPl89BEw7y0pbgeQdu63ksqVb b7syT6G9NHwYwwkDptUGtU1CnBkLMLh6WTSXGeMytaaAqYFhGSh/v5rWcK0t hvPinbat63rFtcuM8YEnmipW/GiHUGasldW4/q4RXgEGd4GFBEDapvBCAcab xzVVPGHAtANP4BuRkjAwXm4VYNwMNoZimySkmip+LMC0Cq+2dZLpUyt5O9QH AWmrEozHkpPJ54WsisWeLxOfZ1lfUne0OXYk2pe0/JV0qmWOjLRjLLWiPj/s LLS9FL8jjrOMtB1ifFZbPPnVrNXuteHgg0X9UZGTU7VGt6rwRwp2r2nV2pDI tN2CzB1EZNzHtCWgVvwcuVhkNWwv5nvnnAuJmLc6O4uxoiJdz3HPH9rzWfHC p/R2dzyLnLQt2dq6nnbEAbeEyxEHTEo2K6olcuJDKWLzq+N8073+tanJyepv 1dXmyse/6RKack+EFikVbKfPfXtRvdLW10rdXsvdIW2Ku7pO2TU3liJs7iMA a12+fsYdX0rkdceO3eZ3Eyaap1ddUpRyF1Gu+JO9cpSrwFsLd5KKzLhDrdzz DLj4KTLj1rtNxA+hZ2AbcowGL7EKe7kobkTxv8U/kUXLg1OKPSKxiCsTuTmV OtTjzzn/Lio3bWm62B51ObsI+QvyGJYb0jRs3YbE5PAsbtgRXeMn2ojcvrVw tbPFX45ZEGUpKZHjIIvJrcDxz+L6uXE53jFUk+haudFSO6SL95wJo+AzBrRo KWJDKEBeBYHJEWrcqqCd2hKLLWveaxzmxPZhtsacceNronHH5fGooZ4T7m8P nd2FaC6NaG00/aCCSJM3BMxLDgPE0cRyv92X3mfeaptpHl2+MTEvZlUVP9A2 1DnENYHQyTXcxDaKfISUEdcrNiFguT7aS/El/fw13rWTGqzW/6Xln9pxc7zh V8DyqtE1iiZ3UBAXTalTHEC11+7Lvvx9c/3XH3KvO5/bmzGHX+mycemX7yww b707M379lxnmjd8NMb99b4L5139rsrLDXTLmf3xYb3733kS87G/xz7f+2Gn+ /tcrtxhzj9+TePz6AbUDFbQDWPn4mFEKp+lSDKKD4pKk7XU+RkNEfzlroDG7 IvO/bs2Y1367xMnlX/7UFvV2cLLm/Q/6uGtv/n68OfrPLf2cOKrNO38aK/Dw eteYtqJi6VlE03bgYleRrLJr53GLMLjYKcLgKm6XYjCxMHrzM1Hc67wDrzg9 eeDFbeZbP18tQqjx+mD/6S795NcroiqnR1lz27cPJOplP16tOM8B5ZXitB7f UNMXV4BFKNxYyeeiolCK8/LXKeuXsVCqzQUrD5mN+1eab//ocmcl7/11mMWJ IdcmWvD8Ly8EfrP78H0O+UV3/siOsacrHVipd9E6uEUI/AhnrWynHYEjPVOc VcrJ0lh6koeej/ZCOPOcl8znb7rDPPaNteboWzPM++832HdiyDXmb/9a7YQA DYGm+Knn8CwNPanxa0eG80ORQ3FTO4Ca3YScgI7aEdwEHi8Yx9es+ezqp83t d+wxL/7wTPOHP7Rm/Pz/+c8DzWu/6DQPPLPc/OVC6zGaE9qQ88wzMdxBafFr qZ/20AjtQHv2DNr8C35e9R5B+O++Z4f5h5+cCtAx/t7mt7+dbL797Cqzb/+t 5vyVLltMAhHRCuli4PPwUotCy+o0CgUKKeewav6Ae7akuiZn+3PT2lAvCuAU VUhEkTWv/3Kes47NWw+aU0/7WbZgbaH7/EQ8+qUprRi0hENbodBO62WPwI1Q UhaWZzfwFpUh/n1ruw6bhx5Zb955Z6z3BNVOHSCDl1etcLzj9YHzrH/oyTy1 s+lTC0I7f0Crj/NCmnY2PS9Cy4qGPJ2DH1HU5N8Ht/i9758PXbBRMFaGY8eG umv4m1WGKq86x+qGxplFVY05ddnPqilZEU4jokEEE6eeWjTawWnMJ+SROpxd aV5DdISzDXkiC5YO4DnwKO0BHi+iBlwDvMaHH9ZUed4AU7n/4BY4lUQ9bui8 xxztP8M8NHp9VE1fA2mzyvDa6+C0ctGeasWUIvScBl7dG0MTKVmnPIKHD7vq 598HucCFvPqPS7ztZPBvd83+zX5vz6UXEQDvmypJAD13tfEZX/0CJIJTlNBT UWDacBl47sYliufs6+klqYIbqCUR7ndch0gQPc5f9EJ/nn5f0hhBXy8pwZDy eKS2RV/bIizoUaWT7FEeooIlI1mV4YU/qWytoiVdQd/gfta6wICYAdQYF6Tg 0UcSLZ5svSJxnI2S7dKDCgsqQeQqSnUffPBBN+AyjUI7FiJUitGeS8XnzEpl intjVpKzgGHg4dP1/n2Iqwgo1ndG7CnEKGp0J9pXWfTSnMWQ7vWWWW+88UZq MRV7YkjIp3LcHUtGJE+5upDEBHZm/Yc1n1iNYCwQi2SZCDUQmxWfTdR7OtO+ dH9nuNtfTp7hw1mZqBEaM2winv3oo48qSuhFPtrmI07oRT5c9NHMjB/jJk9U OZ+YOkwPz/Ws8/KBGj351BWOmouZwezWb3wk6fXkql9IV+AA19x7hQOXRha8 QT8UZ5iqiiy42ieFLe5JOJeoCWSBh2HXelncsPMe52JEV2zm4szJUpKoSswu XuQhihu37IKAsOcFRUKhxOpLIh+vK+7BF5XEYZGP9iwXXqAR+XDXmsiHF2iS 55lSgfBs6jMEP8GzOYVgWDm4rMbKJXE5Xlf8O3q65WEBt8x8Nk+HHKo0MuKd wCIj6JRfTMp5+Jys/0oKyr2YXAkGBsvto7PyMn9kvtk8e5KwBbsSf1PAJTdT cpn/RBmoEYZjVceLKMtqBGCVSKkmENw5KRSvw4xOs7QORUpnUDYEKSEJiDWk xmVD0ByxNGRC1tI0h9xMt5aESHu0qUiHFCitdLQFdt7/L9LhBXbNzvjpVf6I mOR55kiZcA2pVJWXDqgPqkYiHfgka2OiitxjKXqCkAkX1K0n3c9VtBNsb12C LLp5YU1gWVPLhNjTaFY0Pk8/8ET3+OH1vR319UvB7oUkEPog0QgFk1WXfkdU DIENgZgfrseFEkGP32WJzKEv//hYXmULPZlT8yF8UMyEPPSW3kXLPXosViIO efrr4g3ijhB+1Acsncsq4Ycrs87AthxJJIIqGuYe670iEayhotsN+pBJaxva c8i5shh67CwGJ42Ok0ip/UPco6VeNuArOEYCazxIGyAb8Dfxq0iKrWyqlbAj BTtOCUU2XGHVwk5q2Wixh0+hGEAqKoWMZhpc/iNose6AWIxHki12sunl4jXK 8fDAmlzAWWr1eNOmxBuRDe+H0GhLtlLZ1AYq8rzeJ7LhdElkw88bkWc2Qy/A c5EHLPCygU1BXuA1t92+Q5WNFmpEMPBacDH8aGPm/prSpBYMHwXED72WLQED /Zdyv6rmakUwSAjgFVY3XRvN9YJhg9qxayeKkT0EM0XxKi0BwoYqCMgntKM6 rRC4Oqs9CVR76nwzDU4qTFO85gMEFqiwmmc9yyzvWMR4rlq3LQm0JAOprEwJ OBH4MOgEAm4z5WYyhalFwV0AISeihV52sJ20qIlAg9A73cmhzpF8XLvgM5vM f3x9ThJyfdCpUhyr+CQu1LcEwjBsRnKVmrQy0Z4BrjkPBGR5AjQvpkjHY6dX DxTvEZDhQCwRm+LEknX+AxqzYOFG8+OXFkuqAyLiV208ke3hWiXSM0kR6XAt TtOYiqUjT2jhjnd+XJr0fQ2kL5VUTNOY6X4RE9IBMcM2TzSE49k6Hd6ToDcA q7+woslTNpuHHj43qVOCrlrCptaqmQpJeaWVSudi6Jr61JbHYbUn8oR8Ch92 pSnNDC8WOFZ4BFT0oSUo47YTYwGjRxUKYoPvufOujUl1BbzWMvlZtGYiDdqi Jny+XDORKIFQWx6XrQt4Vs2d8EYjPrFAnh4/y0sBuQxcCkIJNoZZl2p9I6RQ 7+pwcLHgc2goBkyQDeQ1EnIQky3Tj2YrizoiCk5qRBQgbuIW69JajEZiuegm FsPp71Al3MzxiRuKqiAdmHqoBtZHrY8d7OTSt4dc8FbfU+Ici9SewPtRM0Ao smFItIVLtmIz3IvFeR9YgqVZ1lJTioi5bKMXERyK5ECiN3zgO+/CRw0MNbZ5 vrgP64HegFo4neq73IkLfA0iQzaIigFEZ+VV7UTXx4kOl/BCdRxvQ0kPH3M9 SvY2OM9MRNqdTvdyopRyDFYZZe2Ew9oMctwYMiJHK9FOeVyCqCFKj1KurVjG vZQuDVFDboLVbJOf5SCceJH72cfJGGuQkDPySvzddahYAUFQcNoQHP7rBWeF Zd9h7Rp5mKv32viOe2Duqr3Nw34lN/WerFAgnEYlD0zzsh2vJPLUqBPnGL3T ypPPgBd58lqDFgj5PB3Jv5aTUkAWqIU2eFnk2+vd9+xI6qQc8Kb7a3xcQCt9 lySiIgiMUQ5NSi0IrZDOT1MZSE41/8Qk5BiuN8Va0vkeNIq/eZYUzVdIsgDk x1EIQIRd8bn1aQFyG2SjEtsFIKxG27sm9ctzPED07UjtCZoODV9ABFo8nADE RkG4WtCrZnK/CCDb/m6z1ZYwwOOzw6qLHgHQU1baY4I1BiCy4mom700HPQQD OMvLCtEJlW7QPrysm40WKtlBm78HH2nXTN8lrKSYrFLusOKHcxQ78r+3kpOH +AE7Zula4k7sM7zIsFAiDhSLklevPJSIDNEdNoiUQUTGhziIyFAYQfcBPGWf EkUW3F6VydkBI9cCT5LQnhQuxsf7qkQ6XALkh/PKAxE+7X7WubgMryLZOJZu KUbPDwgK1XaQNNjhUIU0O0Edr31V5T5AoreybCfy4k4BzRvzA8NBtbGIssL3 h2C5UhILLKYIr8kLxXMDcgPDRii2U5bIDawjZ69F5QoWf7Iub/9ej+dEFHRd 9V5yyPllmUrskHvVBvmhcxsrPwRVdpot93YIScnyEyRoJRlllOCtiW5UIHjD D8A2bYyNx1m5O6uRP/Muq+5HQmg3zhEZ91uEjJPbdkYoxnmSF5mibNHigHi4 VKhZZDHxlL2ZKpOzmaoqeRpCt+YVfHaQyIx3GYUMFBEeJVdutOMceWlAzZbk Fd9ZZpoXY2tsrJQu1Sv1s0Ylnokd8cKEAORTLBZTPJPiOhryoBRLiALkA9Tc DdtM/0oBNijNWAKQW/V4BqVAKBVdPpt4QR7HwXf92/v1WGnxs5vLcdoVpyAA mdGnBshlHAHIJE5mkAvkvEYMFUW7wnxfsQDhFUbyx58Odx35NtYuCWDULBte RBKNAWkxHnzmTHPW1tO7A7ediF0/3m5O/+2nzaQ/TjCLf7PQTLv6krjP12uQ ND7yOpYsq8/1/ALVfSGr+HdenFwUwKxZJr4WhoPl1IGVYu6jRLgGXw5u/XOL fWf3/3r/uZc5+4GvNClTLLB5u/osX/5ApiodcKi+YcpBEzjQCXZk/vnY2WiH KTpdEvbuWmUfJUDViyb/8lJBa3+Lf455/hR8aQ++LTPeQlxZekhnKEELZoz1 LTFfVCbgz+znojEU+GQBW1PtQeXVXgUq95MLVChzPtSmf+hIetw0Q9agdpKn wgIFx5plVL9AL4p14QlUPrtK0+imSjW6r6LRvaV55tV1PUAveHJe0pQ1SJnf VgX0FA961aXfSdJ1qDjij4BGFRBqixUGAc3n4Isqw6ylySc1aO6Xqffl+hVv L88x487/OkUWrZIuUp7lViUeTfJVNvTGoADjXdiyvGVOEDkrM4HL5ReBy4XL pu5l5lSt0H2VcnoDTTnMet1/WBO34eRF5EEUkYVTtSkSGE96/vwz57rvB/VA hUamHEvgqLNZLxiNpfoo6nzw3CIDVCEwTqTQg/2YrImPf/vttyuWQT+lyiIB GrXInH07eRRLwzuOVPxP/6nJfddffjAgR8XBu932mi1HErxIf6DS2CwleNH4 A7vGgoDghffeest8B6CSXl3By0+iFrwwe2k+alLmd5SCd4wnJKLh//uDTxmz JQnOSylAwUuDuAlkFOFQXEI9ebiysNpEw0L+bVlwRa2l/RR+0r9bfRIvJpA5 j9cgt3vIWG0Xdb7/s1skKC+hQAWtRqAaRzEZkK0VJZC54U1mGVEH0QcDrwRy Y0CreeFd/Bgn4BrkVsqMpPEC/2WtRkcPSh2WwiV4UX/E8rC13ARvTyvOOkIB YmFHjVeZkH0F58wXXnghkVpfRc/7K35Mm/R2RQIjvcvm1MkqAHtyLMFgcq2p dCh5xTAlWst8Y46wmnT4h+dHVaVIwP3F45529OhRkV6Cm4tWgps7hGXmucjH uGV7y3APEEsIiF6wcWvr7Mow6TZCW1ffk6IMV6K1gIYSIPRgwA50SQzNg0bg c23QT7x0YSQWzgtymlMT0CimSOP/aBo1Mg8UApopaEkhABQc3RFLvUBcq4h9 P7ya9WTjie5IUifgIXPRwcE0F9DNeODl67zEujt2TnQtRzz3XOCVueeHTokY uHNiNMVdTCj24jR5R4fmVWQjQtkgEiuaJXm6D9ZmPz5BIW3DycqkC0Akgbwf HduYyGwKSTx7cLZ7dAlLAqvgILTwNf0VhRhCYUdWFGNJZJ2vhnS8UgzwOuEq 2/Mi87f/Vu1GYOlcohPgrlhuAXSrWxMUPieS4PY7kQTaBnHt4efOjqpTSOJX 31tqLlk3Jcc0+KEuIZ2Ad8JEIt6PVXSiv4f639c1GgPq+dfIbN/yFdEF9B4h 6IHR2ltMpPw2XwLMbobQ6jmqeRhzGgm89cIyc++eybhXIgFmuSFd4NNGxuq6 0NejlcTtf/66l3lq6eWL/WVEfiyrQo42Gk4i14BjEPE1IwJ+0VO8OPinFMLz j8xFI1UkhGDNddOxwFlQDWj7YHJc4zhFDeoVQiCVxEUkBrQHwSJskjRZ8ZAi Bu7I1WJibcViyDoxwCIQLOy9+gWcpKYOIMCSj3Yo6mCTlzoPmItyTz51xaK8 xjPIAakDOLAIA7/nC4MrF0OUWFmxMKogC/uH+/dOcccIsKdEiVkaOQYo+Y+I A+wNjA6hc3yeYkyb8WCyVwo9J5LxWu6wMK83EVsfkThDFlOIdogeiizQRwjO jmGJLFA3RT0VA69LK4sjh+a56IObhXwlfDNUg5tfeB9jLItqx3hxDZMNDtXd 0BRzKIwBcrHyWeAvg0NBk6BlNlR0Ki1iIwI+E/ET9XOMvVfJ3NFzrVgIN3SN cS0ZrBDsLjWFaCYPJg0yccCrc5kd+BRmGfWN574bcygYh+VQ87wygDhILyI8 rtWjqJMyB7BnKwHLvbtNEXzVOswEPdpiEDPt8KPeJZPIHPSP3j4t0SeNSbIK QBexNZRXDsH50ScVq0AvPnvNnHPrj82vfj/Bfe/Pf95uli1/0KnEHC8CsEhI CJKCxOBlplGyCFOzpClHBCArG75+tR1Dz2Sxd6X2IMJ49ZlFLmtkYfCRI6IK vJ+uWfENcdBo4LPZ3IFj/3RsnPvev3/tUledh5aLmlhhTKeOTFyCGYGpIxZZ eUzPKx0gr2zx3w5+IYVp0Q5UzLBDGzjqKxVN1otm/9bxiQ8WK8EZE3CbyWJC lLudSkTDVDsmFTXJAYx/m1lt3vtLnFLe+/zujP8zph+wAR9VYGSiVnUmOgnV Os1BdIXnwCmkbvHXvh2aOJOKSpgQlBtaKLJLqXOIwjga0orpmftmJdmoVm0S DeIFzKHEA6SeOsZ7VByw9E8XjzMfvl9rPvyoxux96i4LH3+rTTQIAoCMEGZB wrFU1u6Xj0BDcA1hR9QJYRdRy2rqbFp5gi/DconIituchtCw4W5BrvuklRXx kkRWHIlFpfjsq+Y8b4h6yxhPTHAsHWT05/cHmqsfeKreeySICWIFK4cIYHDo cUJVDg2S6E5p9stOiNC4hhY7ZHUQK84MwmeRyEC/5hGtxxBQtBSZcTlrCPEq eE446b6VyqxaYS8iM274GkBfih4/DG6o4q7bvcwefWmj+x4c82c9VKOPYWgM QEoIugobggwgOy+3GggpysgZ7z6Ux328qGdDhG5F0ooYmoekCGLHSf4I9Lgl eAJSRdSBF/jRuKfJ2EAAM7Uz3EL+Q9oJhlA8gq+xPikWRBqpvvzNBS7osVS5 hjRQoQBDFb/f5nHAv+N7cGLeeQdeGUyO20vVujj7oShuMIRY7Mt+ED9rXckZ t3QlODsD0DxYKNLSpXlBwBpG1ErJmyzZNZPx5ChMJXKq8XLac+04J5dCZGGA QhaG0eCktWKk925n3PoaDpZ034X/2t+jjbwYHu9fzAGICgq8gwCEO8cKFkbT mBbgU/fMTG4mAHlPmygCGoKku14AoryDONR9KH/WHa6J8yTxXc//8sJN1I0g 6x2tRPZBOdFSItiQHGMnENxt//LYbQ05WSmHSB7MDSeCiE9H0qZMO6e7yqO8 6M4fJdTGOpSNROHwcWsx1jK6Kz/QDEaJXBfXsMQxoDwWW+tRPnDrVJfTFjNg fJW0Pg8nlLI6M8APnQ/VFZQgcO/9dZj7/juf27uRaAb0FERVUKLEivlFpiIo wdUxv3ZYdjgV6mmt4rAalTAgeLnoLXhl7yXw9vf+Pu84bIRPd+4pwunuw/dt pJCH9kXQhBBW2D8UyhJzqzgVYq1TmCfPrWTGAxWnwxm0YG3080hnVppNDz9W BaD2rfafiWKvp1IHQr+PRxrkoUrxLjXk5x6c46aTp5f3hwhkFLPAIqHO+ZAR 5fsL5MP3uanElNqpvZYahBBDzrjjS9Eo+jimmLFxub6pUmy9lHRbY32D/Jfy 4eH52KzN+YO9s2DEDhtMc819z24gKgGKASzW6YzK87JIWQQeJwBN3dJOtbIu aA/fNcPNXKGZFLS8FDuC1AxowZD6eFjW8TBf25AXLE+9+RZL7br9mgSUoUpA EajYb3PX7hhJJYvqvQKRhjPEQeQIobRwIpLZo7QDi0IRpD4PKiKLjaNskyBG eLud2PY8asBoQUtQ3kKC0USeY+91HRhtaHE57uTtXcIeF3Q3d8Wdu7XUkN/j 8QiqGvlW+55BTATIhVoRIEK39PXlV4csVfTH4GfdYdXEQtdTwRJpIIpLo4lh C7EaSrES+oO8JZZe1hkq2AMKJXbQlXeKxwuZDQWfXVLu44V6KxUcVkIQAext krYKZvJcQ5E9RDV5MgSJs+z0Gn8Z+ZEr2lmR27SKxYhAwGKEuiMsYV2riUYE MzxyaF5UVaIgQ48P8oJM9ntg05UXZPGnDuFf9V581g+4ThEWH6prUgBrIrYo B4twvUCqPNm8RChHfN17pK3R2uy9Z5I3jL5G8g2RHYqVqLJgwE523Rt9Stsh E7+r3u+I6epWM1Pw6UPqI2Fmx9ewPye5Njq+1myOde/bij+bfcyY1fgH/ltn zAdVysc7U1ybnVqFnNqwzXl1Cn6suEza42u3m127MJgXzWmn+YFlIQeWS/bE y6SIfyr0jKAy/JN2rVO5Fsup7l3T1oYBfmDq6urMBx9ARi8ac5rISAvR2u1K vTa1kEsNBcYeW1yq9ctV+mXt/pqYeivXep2A98XXak8zL774ilm2bJe5/fb8 aVDJw+ASr50IDMf7faXiKJMtf5KmPX6fCyU83bfjITG1n/Dp+aS/7/9KVcni mqjJLcbsrfuEz8In/X2VaInBX+bjRxyEouhT/wecMnQW\ \>"]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"valRaktfM", "=", RowBox[{"Table", "[", RowBox[{",", RowBox[{"{", RowBox[{"Ra", ",", "minRa", ",", "maxRa", ",", "dRa"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxi", "=", RowBox[{ RowBox[{"Dimensions", "[", "valRaktf", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6145084113115473`*^9, 3.6145084487531967`*^9}, { 3.614509341415949*^9, 3.614509360306342*^9}, {3.614512050317747*^9, 3.6145120577730126`*^9}, 3.6146070342563925`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Dynamic", "[", "Ra", "]"}], "\[IndentingNewLine]", RowBox[{"Dynamic", "[", "r", "]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ra", "=", RowBox[{"minRa", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "dRa"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol2", "[", "ktf_", "]"}], ":=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ RowBox[{"y2", "''"}], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"intersiV", "[", RowBox[{"x", ",", "Ra", ",", "ktf"}], "]"}], " ", RowBox[{"y2", "[", "x", "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"1", RowBox[{"(", RowBox[{"1", "+", "1"}], ")"}]}], RowBox[{"2", SuperscriptBox["x", "2"]}]], RowBox[{"y2", "[", "x", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.199"}], "+", RowBox[{"0.5", "/", "27.211"}]}], ")"}], RowBox[{"y2", "[", "x", "]"}]}]}], ",", RowBox[{ RowBox[{"y2", "[", "0.01", "]"}], "\[Equal]", SuperscriptBox["0.01", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "0.01", "]"}], "\[Equal]", RowBox[{"2", "*", SuperscriptBox["0.01", "1"]}]}]}], "}"}], ",", "y2", ",", RowBox[{"{", RowBox[{"x", ",", "0.01", ",", "20"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"root2", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"y2", "[", "10", "]"}], " ", "/.", " ", RowBox[{"sol2", "[", "ktf", "]"}]}], ",", RowBox[{"{", RowBox[{"ktf", ",", "0.8"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"valRaktfM", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"Ra", ",", RowBox[{"ktf", "/.", "root2"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "maxi"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Ra", "]"}]}], "Input", CellChangeTimes->{{3.614508300659214*^9, 3.614508401623047*^9}, { 3.6145084741937194`*^9, 3.614508639869157*^9}, {3.614508696405898*^9, 3.6145086964996495`*^9}, {3.614509368856405*^9, 3.614509439151228*^9}, { 3.614509477463411*^9, 3.614509477595504*^9}, {3.6145099058591366`*^9, 3.614509906289442*^9}, {3.614510346007234*^9, 3.6145103862547703`*^9}, { 3.614581385290084*^9, 3.6145813950460014`*^9}, {3.614585624932725*^9, 3.614585625043824*^9}, {3.6145858653502073`*^9, 3.614585865619379*^9}, { 3.614607040636917*^9, 3.6146070480051193`*^9}, {3.614607078467719*^9, 3.614607083338192*^9}, {3.6148552079019203`*^9, 3.6148552128684444`*^9}, { 3.614856703622433*^9, 3.6148567082587185`*^9}, 3.615115610074892*^9, { 3.6152811556477184`*^9, 3.615281156843567*^9}, {3.61537478250266*^9, 3.615374783061037*^9}}], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`Ra, StandardForm], ImageSizeCache->{24., {0., 8.}}]], "Output", CellChangeTimes->{3.615115351713476*^9, 3.61511612740716*^9, 3.615282495942423*^9, 3.6153744127415686`*^9, 3.6153747841107817`*^9, 3.617036512970605*^9, 3.618239095590952*^9, 3.61829134500004*^9, 3.618312309506585*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"valRaktfm", "=", RowBox[{"Table", "[", RowBox[{",", RowBox[{"{", RowBox[{"Ra", ",", "minRa", ",", "maxRa", ",", "dRa"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxi", "=", RowBox[{ RowBox[{"Dimensions", "[", "valRaktf", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6145084113115473`*^9, 3.6145084487531967`*^9}, { 3.614509341415949*^9, 3.614509360306342*^9}, {3.614512050317747*^9, 3.6145120577730126`*^9}, 3.6146070342563925`*^9, {3.6146071877692165`*^9, 3.614607187881296*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Dynamic", "[", "Ra", "]"}], "\[IndentingNewLine]", RowBox[{"Dynamic", "[", "r", "]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ra", "=", RowBox[{"minRa", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "dRa"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol2", "[", "ktf_", "]"}], ":=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ RowBox[{"y2", "''"}], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"intersiV", "[", RowBox[{"x", ",", "Ra", ",", "ktf"}], "]"}], " ", RowBox[{"y2", "[", "x", "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"1", RowBox[{"(", RowBox[{"1", "+", "1"}], ")"}]}], RowBox[{"2", SuperscriptBox["x", "2"]}]], RowBox[{"y2", "[", "x", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.199"}], "-", RowBox[{"0.5", "/", "27.211"}]}], ")"}], RowBox[{"y2", "[", "x", "]"}]}]}], ",", RowBox[{ RowBox[{"y2", "[", "0.01", "]"}], "\[Equal]", SuperscriptBox["0.01", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "0.01", "]"}], "\[Equal]", RowBox[{"2", "*", SuperscriptBox["0.01", "1"]}]}]}], "}"}], ",", "y2", ",", RowBox[{"{", RowBox[{"x", ",", "0.01", ",", "20"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"root2", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"y2", "[", "10", "]"}], " ", "/.", " ", RowBox[{"sol2", "[", "ktf", "]"}]}], ",", RowBox[{"{", RowBox[{"ktf", ",", "0.8"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"valRaktfm", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"Ra", ",", RowBox[{"ktf", "/.", "root2"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "maxi"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Ra", "]"}]}], "Input", CellChangeTimes->{{3.614508300659214*^9, 3.614508401623047*^9}, { 3.6145084741937194`*^9, 3.614508639869157*^9}, {3.614508696405898*^9, 3.6145086964996495`*^9}, {3.614509368856405*^9, 3.614509439151228*^9}, { 3.614509477463411*^9, 3.614509477595504*^9}, {3.6145099058591366`*^9, 3.614509906289442*^9}, {3.614510346007234*^9, 3.6145103862547703`*^9}, { 3.614581385290084*^9, 3.6145813950460014`*^9}, {3.614585624932725*^9, 3.614585625043824*^9}, {3.6145858653502073`*^9, 3.614585865619379*^9}, { 3.614607040636917*^9, 3.6146070480051193`*^9}, {3.614607078467719*^9, 3.614607083338192*^9}, {3.6146071811205025`*^9, 3.6146071845009193`*^9}, { 3.614855222690407*^9, 3.614855228501527*^9}, 3.615115612641714*^9, { 3.6152811606042547`*^9, 3.6152811615759463`*^9}, {3.6153747646199617`*^9, 3.61537477915326*^9}}], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`Ra, StandardForm], ImageSizeCache->{24., {0., 8.}}]], "Output", CellChangeTimes->{3.6151162148132124`*^9, 3.6152825639487014`*^9, 3.6153744993035183`*^9, 3.615374889241414*^9, 3.617036591476678*^9, 3.618239205167938*^9, 3.618291346357006*^9, 3.618312432352686*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListContourPlot", "[", RowBox[{"contour2", ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"valRaktf", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"valRaktfM", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"valRaktfm", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Ra", "/.", "fit"}], ",", RowBox[{"ktf", "/.", "fit"}]}], "}"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fktf", "[", "Ra", "]"}], ",", RowBox[{"{", RowBox[{"Ra", ",", "minRa", ",", "maxRa"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6151145752836323`*^9, 3.615114575408719*^9}, { 3.618310765110567*^9, 3.618310776035343*^9}, {3.618313910675928*^9, 3.618313912402157*^9}}], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxt23kglOv7x3FFRItKJEmrFiVJm5JLqUhZUp2oUNqESpvSqkWLTmmTdkqW dm3aQypjH0NaRGYG80yr06r995y+fbrPPPPzx3HeJx5jXjMT576uDv7zPWfW 19DQCG6gofHve72H8SFD9LJI49dbJaE9r5pFvBjL+jj/z4fxrD92mxJ15wNr Z+nylmedpH/6wP5/31i/HPvvBVnb//oX2Z/mL8ZfkfX/Lsfa5teb/E/zN46/ IOtf7x6y7v7vzetW9adX/Hu55azz8/59Y93u1wWr//SCf7/dENa/bt4d1r8u 17LmT8/69cb61913lfX/3iv+9K+bN4X1r8udZf0/D07gwQk8OIEHJ/BQCjyU v78O80bDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1v NLzR8EbDGw1vNLzR8Fb14AQenMCDE3hwAg+lwEP5+zqiP95oeKPhjYY3Gt5o eKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt6q HpzAgxN4cAIPTuChFHgof38c80bDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8Fb14AQenMCDE3hwAg+lwENJ v97tz/7jjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3Gt5oeKPhjYY3 Gt5oeKPhjYY3Gt5oeKPhrerBCTw4gQcn8OAEHkqBh5J+fVtDcv54o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca 3mh4q3pwAg9O4MEJPDiBh1Lgofx9vzJvNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vVQ9O4MEJPDiBByfw UAo8lL/vt9w/3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3qoenMCDE3hwAg9O4KEUeCh/3y95f7zR8EbD Gw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbD Gw1vNLxVPTiBByfw4AQenMBDKfBQUt7/3v54o+GNhjca3mh4o+GNhjca3mh4 o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4q3pwAg9O4MEJ PDiBh1LgoaRfnxaS/8cbDW80vNHwRsMbDW80vNHwRsMbDW80vNHwRsMbDW80 vNHwRsMbDW80vNHwRsMbDW80vNHwRsNb1YMTeHACD07gwQk8lAIP5e/bXfDH Gw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbD Gw1vNLzR8EbDW9WDE3hwAg9O4MEJPJQCD+Xv28W80fBGwxsNbzS80fBGwxsN bzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS8VT04gQcn 8OAEHpzAQynwUP7+uoV/vNHwRsMbDW80vNHwRsMbDW80vNHwRsMbDW80vNHw RsMbDW80vNHwRsMbDW80vNHwRsMbDW80vFU9OIEHJ/DgBB6cwEMp8FD+vq74 jzca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GN hjca3mh4o+GNhreqByfw4AQenMCDE3goBR74/+nMG616XiIWnJcwb7TqeYlY cF4iFpyXiAXnJWLBeQnzRquelzBvtOp5CfNGq56XiAXnJWLBeYlYcF4iFpyX MG+06nkJ80arnpcwb7TqeQnzVvXgBB6cwIMTeCgFHsrfn8e80fBGwxsNbzS8 0fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS8 VT04gQcn8OAEHpzAQynwwPkJ80arno8xb7Tq+ZhYcD4mFpyPiQXnY2LB+ZhY cD7GvNGq52PMG616Psa80arnY2LB+ZhYcD4mFpyPiQXnY8wbrXo+xrzR8EbD Gw1vVQ9O4MEJPDiBByfwUAo8lL//e9EfbzS80fBGwxsNbzS80fBGwxsNbzS8 0fBGwxsNbzS80fBGwxsNbzS80fBGwxsNbzS80fBGwxsNb1UPTuDBCTw4gQcn 8FAKPJS/3zNvNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1v NLzR8EbDGw1vNLzR8EbDGw1vVQ9O4MEJPDiBByfwUAo8lL8dmDca3mh4o+GN hjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GN hreqByfw4AQenMCDE3goBR44H5UIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8 WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lgvNvieD8 WyI4/5YIzr8lgvNvieD8WyI4/5YIzr8lf7xVPTiBByfw4AQeSoGH8vf9zLzR 8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR8EbDGw1vNLzR 8EbDGw1vNLxVPTiBByfw4AQenMBDKfDAeTjzRqvOOzBvtOq8A/NGq847MG+0 6rwD80bDG60678C80fBGq847SATzDhLBvINEMO8gEcw7SATzDswbrTrvwLzR 8EbDGw1vVQ9O4MEJPDiBByfwUAo8lL/vx+I/3mh4o+GNhjca3mh4o+GNhjca 3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3mh4o+GNhjca3qoenMCDE3hw Ag9O4KEUeCjp6ftdmU1XZdEN6b2p8wIryX2jPEZ/F5s/32G9rkuvMer7Bn/r /h1uYsC6j4Z1hOd7/vMntdhQuJXNo6fIb06+sTSLnAyaHH/iL6V13m1Lj7ir 7yPsijWcueOHlGzndLxm1TaLShqGfWkk439ffxDeKcmIza+n9ouZ/SZRfV+h 1qNFo6d+cro7//DykvgssvlYF79jmIy6z/BNK13C5tuHy/NvNZ6aRXcXr9GZ miqjsjapSbOc2bz7wNFnpUfNs8j085kv4eb89Qa/25NhxubfO23olDXuGJt3 16yThuXEZtHp0bVDrCrkdHiHexdpBJt/99t0qf2d1VnkcTPhzRGHKjKb+2jD zblsHv7exmORmpPYPPwZ7QSpxEV9/yFh2OGzzvs5arPyaIlLG/V9gTeNl+t7 9akkpxvND16dkUVnn0QPiIqtorMz9B72H5tFrvZXjwz+WkXDxJMKowzZvHGi zYKxeY5Z1CkqftbTcdWkad/QZqSD+vx9l7Znts5uI6WBp388Ma3JovOhrn63 H1dS8crPW4/ks30EnYnGg/Xt+Pv38uvQxBPVtKDB+c7LBqnP7+8/vbmrTx8Z jfjnVNgh2yz6FJc5JfdbNQ1M6TdxnS2b7//nVUX2DlM276y/+f7frfjry5tM 8ApzraFFnW1nrBrC5v8tZ2ob3/qWRT0zzcW970rJ227q3iPP2OPHz2eqrwX/ /W4rS1xcdrCGbh/pVh4+Un1fYHOTnXrHrsmpzaRgrQi3LFoXnZbYmqshrTgv l/jxbJ/gwg7H+cdHsfnqA/Hjl5X78Le/+/N/vPooqG/4Kosvs9m+QUJoiofp SBHNlPfMdIyWkdnBi+VDWrN57M5JBs5vQrLoqF/3qBvLFRTSbuXb/eFsP+Fj pn5NPS0R6X84uMquoZzONw77WPuSPT6HHHrkuGITf38cnmk0LUNBgdZRTfYe YfsMYz7GRXfIy6L+Ld9aGIfKKe2BTbn8Ltvn8K9cYeF0NIsSL/ZJnqXNUfna GN8pTbNo0EHH3VlH+b8/ZlGX6fps/8HYd8u4w9ZZNH+m8nALGUeuc5P6XLZT 34eYWO2x+59OHB03dY5v7szmxUWtHdZNm5hFyrTTjUw7KKmewdz1CfPZ/kTY HYOk6zZsnvzUjGtrJnZm8+SayXeN1q7JIjPrLfc/+SopYbjPgmHJbN9iVpSL e8FCEYnyGrZfPrSSVj5cudK3gj1/5g2UPZRMY/P4J6N9Lh/ifQoTtp/bHM72 FXa3Mix6Nq2SQnXaDljYW0SDE/IXbSnnf7839nM27CCir+NHh3QaUE2WA5P3 NDRR32fIyT5fkztBShuGHdzumMzm+wfGlRzTMhbR6lFWzjHbqmn6rNVjXrVk 8/Avm29f+Wk2f3/1zTROtpPSRMNV2Xq+bB8g4GGzNSL+4wfUWD1rL60m88o0 3c6G6vsSVYWHVi1dxz8+JxvYvDUSUcgU18hP1jUkt6ztmmPC5us1R+n6a6az fYLm6VFpbcxEtFFmOcotvIbm+DT+/NWczd97LV1rPTFWRDdOJuRfN5KRofth U991bP/gteiap6K7iAL3XtEan1dDq7v4Z5b0V9/PaFZ/kPeLSVV0uCjv3g9b /vmRM0ZsY6SgzZMz0ua5snl+61D71gZuIgpOudDD0FdB/Uf9s3lMCdtf6Fb8 xMVVJCKTikUPXo2SU1jPU2cOnWD7DM+tH9++mpZFfTM7Tm89iiPtVgff6N5l +z2D5ZY9Q3eJaHpTpfJuqpw8ztV7cX0923/obu60LkyWRTVrIzce38LRwyeT Ii3/Yc8HfD9t0ktOdZ6joNAfIz68nSWiVtdW6C00q6LiBd32Fvmz/Ykje2zL tBry/vV7++WIOPIuCHRb35ntG8TsPPDKgn+8jbczKzumzfZL9rkElQf0Z/Po E7SNV5zyU1Ij179O5aWyfZMd8sstf7qx/QO3zrmzaz6IqO5tA7N7/9k3mbYu 8GEN3xtvW9Qr/n/2UUyvb4mblyylK/4DvHa5s/0E8Zbtbe2aZpPlnHDJlG1S +hnWZtXj+mxfAZ+/9p9u3f0/y8iu3MZAtpLtKzQc0C21ZVA2bbwRZXhxvIze 3pze7bw92184ZKtv4tskm7a/vc6FPZBRkF5Hw54N2D5Dpvb7eZ0CRLQk7mNE 3TEFnb51rV90MNv3SP+43sx7o4iyp7raZFcr6HWKq65iF9v/qB80bE9dkoi+ VPz9vaoLR5cameypl872Qfq+8R3rv4ntQ0gnLd6dnicin9gW64NncdQkutSv 3nu2L3L1gX1Dz3XZJGpgpn1WJqetwRuXbJ3B9ifuzxloFsp/vJ1H4bBVxzna blmzMMsrm3q1UD7wHVVFNZVVd2Y6sf2KFkY/vx2fLKKAC5FeRcOU1DjYPWmr n/r+SdniS7dcEjmyS3X93qE328cIbxbdsdaM7WOE+Z2//PJvEemM9KjXeqWS Trl3T9NJUt9fKfy81ilHv5LmRrZICbfNpuaHFtx8dbKKFh5JbraxUzZNcxmx s1SnmuaYPtlV/oPtsxzq/dapzjCbjtimfdk8tZpy4/Om/zRQ3/9ovVones63 Sqoz2eyy5WQ2OXFVqS6vKqmim/Hqiji2D1OyXDSjabNsKs5buGDO5WqSNc41 W62vvj+SV7XOeZSJjOZ4PCs1aJ5Nk0w2DpFo839f3/r6cH9ztl/yvLrfl90G /9mv0LoZOcuYv96y1ICWE2pod+SSvmtM2P5JgwbbTZ+9yKb+pvY+/nekNNNE GtX1Ltu/ufA1veMSc/7rXZYcXRZXQ62+TnjvbaG+r1LvjH136wtyOnjhhset Adk0oMV7fQdlDb2Y5vdq/FC2zxKj4zw2h3++NorLa5lgpaDpnx42OODH9ls+ Tr13SWnG5v2d6rjNNoHZ1KDS5EfZIgUdb5Vs5RnB9l9O7Uo3mtQ0h06mxr6X 1Mloq0GcSFHN9n+ul6YPPbglm8xO5CcapCrI2KOr9oVb2TSyWaN1LRbJyaXW 3G3LBfX9oCdXPifJJAo6+Wyc7jr+8XDIdapEVsHRSaN7HVb1Z/szR5Q7aOSE bHofPtXuZSslbevjcNl3LdunWW/Zq3cQ//XHxfQedc9dSdud7Lf3SONvb+sX +k2bV5JkzfhtE8+wfapN7gM2as9U36850+fD8iXzWa/sq3+yNERK11xyt+0S s/0Ln05Diuek5tDVkqyV1o2k/OtF+6b156rv34S1CqnzvSaj3k9aXjt8lu1f rJ/iort6bQ4Ft7YLnTBXRhGTBnncncb2MVY07OEz4Bz/+uU8wMz6g4J6l38v HJnK9o9s3Uyctz3Jpvq+FWcWWHNk79p6Vfd3bB9p3tBXGy/nsP2MjlmX9rfR zaHKx1Z6RsEcbbI0sBphy/YZUs6O7XD2Tg690ZVoTqyR0/CJ/mNPxf1nn2Oz bsbBQfz9ZX18xdAEjtJKXejh9hwa1Ov9Z0vPKpqg0flg2Sr1/Z70ZW6iHskc jZ7afOkuf7b/EZbsoWvqzvY/rLdd5Sz550NBO72F7hvYPH1T06jg+ruUZGKi oRdRzvalLEya3v9QyvZnyr++1DszJ4e+Fw/dfza1ilrPaHh57Ngcsn7kmZ3V ku2PPPhUe+UEx3/8uKRWw0ewfYsn18ds7zk8hzrOLJSOmFtNGy3Or73ryPZR 2pGuxzOHHBpbpq/9KL2aKk+3NXrkoL6fkrJEb1nXRjLatTyp85CROfR8ybO4 ls1qaNljk+/HRrL9lb0lf+VFBLL9jTo3b3PHcTnUcHiC+arJNdTysGvAggls vyUk7VTyMeJv77ngoxNvSsn4ouvTrAZs36ODS1DTFrNz6P6PQf3XxvO/f7g1 WBM1V30f5rpdM4vl5+W0z7LhRy48h6aM2Oq0lv99RHvlPa9RUWxfxvCa3pP2 vH/tleQnYgsFOQ7N/fT8OtufKf4ur+x2N4fk+ZOmXA1UEI3tqXnage2PTGxf +iXFIJdyjP9p/jxITg+jHiTpaeQK/n9aDu3TLT94ea+CxkmfPJm2JIeChjx5 l/2Yo84L9uSURrP9mpaVqxvWXsghn49d/F83Zvs1njrp8Y97K+lh9l7r+Bz1 fRpDo1anjoax7vSt5LZNhJSyfI+lL5Cp79M0ezCcM6uWURd69apXDduXiWn3 NLnH9lx6NLWwX8ZT/vms5RFqsIXtzwQfbR4a8DqHAi7JjDYkKejenVsLM9+x /aJied+Cex1yaVPumzfpzxSUZz79QrED2z+59bFT+wteuTTji9GY/kZsv2RK ZnZcG3uOuge029bxA/98DfxwPH0I/3yYf82vXIvtn0TlftA90YTN4xfXPu7W so7t22y7sG1zDv/4uft9Sk+vQLa/UJU3PORn20pa/L7B/q66eZQcvlN68WkV bem3e9vk97k0f9+c4Aa21dT/6Nat31/lqu1v7Hp+fmAo//t86dP79qEhbJ+h /7ltWl1e59Jzg0apjbZXU68Vs+2+vGH7PU2HZp7pwF/fXTNq1uen1bQiLtg7 /gfb98H1z+l/z2zsLSPvKcOm+2vl0TfL1zvudqmhGuNjDntN2L7A7D6mCu+2 eeT0td34vsE1pGgyc3PmWPV9mJEVY3p338z2U148nF+dt66G8nJny3pF55KV yCBEzv88n9O1ImRHHNsHCu/Y6OHFBLYf8WnusdphT3MpyMrw9fBlHNUViAfs 7sj2Cdo7Tzo2emseWdackOR8ktOM/Zp/nZnB9inKyzT6RJnnUU7KBs9I/vVU f7XD/sA+ebR5/YSnXUKryKdo0cxFVur7NSWDS1PnJPGv10Hn3LS28c+nx4EF idFKuq/jHfA4mu0flY966ek2R30fJXfKU3/KqqThDmkRXEe2n4A/L+yakvfo jZSiH2jPmvCA7ZvMKxyS18oxjwyrz9Q4nKqhIf3T1vQfo76fUbjE4pXzGTmN PrpzxPeFeRR2qeM522r+55mYPi7Notn+xpM1OruuJufR+lXa251MFbTkx6KO R4PYvoKZZvqYvKn5NMXDq85ssJycO7ZYlPBNfV8leqSr3b7BCnK1SriYuSqP ZlDR3sm5bH9jlum2iztesPn+WcfarbOKqKRu7Q+tT29WQM5r3l8UjWP7GJ9N QzvEH5XSlspnfdI2qu9jZNRlNFVayelBky4XQpR59Oi1oeZDVwUNto9JnlaP 7Se0G9p3cFVzNq9dYtw28d6AfDrZwbbpvmVsX+HxhG2Fx/coSD7idFDm4zwK DH5JTm84qpq27+qWf9g+StTWzkmVI/JJUc+9a+dGbD/Bb23V56WGSnL2Evmn tVLfR4hZvPf9cU/Wjlz/i3UBUoq1DDTYfUR9H8HS63l5h0oZOfs1jjMyKSCn jhcKwipk1PnriQ9NduRTScDOIL8jCvphd9y85D7bv8i4UzSi25d8mjjkkGjI DTafH5vQY2d4hoK02mln7kvLp9W1K4/YtGfz9uWeP5/LLJSkfN/cwtWokAa5 Pqp+1ZHNz3926rLotBXrXpHNS3OGSqnqmY3nClEBXQjvNG0/sfn5V606rYxN kdFC3zELxQ6FpFWWEtjwsIzO3/f5+XQ1//Hv3tcW5LB58h3x3qVahfzr88z5 McNHF9CcBrNtR/Vk8+G30k616NlLSTEPr3oZPymkfnvii9+1YPPe/nNtPR60 Zv1h2lmPiJ5SWvz88wmNmEK6aeM3aJgFm/euGN7Lx3+/jEJujB6l5ArpYZX7 BsUBGWXcXJCQ0r2QvqXoxntksfnnB/IuxT6ZCuocUj/mxvsC2jXwpn1YdzbP nBq9vDiNvz/tCmY2OT5ETEbPry51asnmk1+tEPl3as76VFKUT9uuUpow4vrp bm3F9O5g+uwICzafHDnq8bjwgzJSJj6ztu8rprrivit1z8jo2/2UpsMyCtXm dXs1Lx6/MFZBsweuaJ9YXEh3/jZb86YRm7+tbjEv+pumksZEBXS7s15MXtIS acv2bJ725urGQxIMWTdqVhmQby2loHGBlbH+YrIaaXXtc38pPXY9lLxwD5vP 290saHFhrJi8h7qevDyazdsmdTX63v+qjNICAm9fDRTT4hzR4uUiGWU/8E28 so3N4+k6ijTTbcWUoNV66fjFCjK414kMDohpYZdeYY1esHnciCqvw+38FXRt T3/f9ybq86f5cp+CrFI2r3YrcoezR7CS/MTn5ry7I6YYr9PmhX3YPOlbRRet 4K6s7Uen6A51ldKAH5pRZ0rEpNO4uGVmAJsnjbK/+2P2Oxn5jYopMIlj83fW CR19tm4Q06pjt9tu6a6gE0eOxuZPZPN4+0WVDa0z+OuXRfV9bCin5kuTpJse sfnD7Hvtv62vEtPUvfPuLxjO5ku1HS0fBDVQUP0LfgM6xKjPY/Z/bR+bv58j r4irAXbfxVQ7+c6pBS5sfrKsX9TTv0dWUuiUqjKlHpvXEW1N1Iu1LiJJk3fb v8xmH9/vvPhrxEop7Zi863QP7SLSmD19Ze8tUnp2Mdd+ugmb14mecLgosU8R uZovfRp3ls1fRp/1LrLxk9PMNHOj+GI2rxgy03PDlfpF1Ojc5Mzuy9g8ZZu5 TsuTl9VQlOPQVl8asnkdxYUza0a9ZvOJ880m32nepoh8zy7Qu8H/vNzP1rzs ezc2zzM1/9QJjd5FlHaFkq+8lpNWca+p26hIbV5z+OdvVp1cOIp5PHPWE4ci ejL9eEi2VRUNNfO7FHFLfZ7xR/s2QT2XVNKBBS4v9/vz91/l3D4vNlfSuWOh Nncj2LyTS+iyNXtHsHmgtot3P7+7o4g67HW8dup0JVmYNQhoyf95lEb4+iGL qqnk9OurHn3V5wE1Zjm8KMqQUo7OeI2knkXkUOgesre8mlKulYaON2XzRD1q 151tqFlE1rHk1N67hlYt7Wfw7TubF83f8d05anIRzT7W73n8QymFa48bXxL8 n/lJ/bWb8sKLyP6puLenFpuPXJOUojPam80zDrr8tmaTXzWZJvabuKSP+jxh p1vfzJ/JFfTiYkCRZHQRPRqaHnmT/3lJpOWaOHYMm6d6nDMt7rkpmzcqdZt2 JsNDfX7SLuGbp2db/vV90/jBG9zU5630z7yNPT5NSbLAdgnz+M+3cexm1/hu FV3S2dyqmP/4i74VbrtbsXk7S71EPYNLlaS/r9pPfL2I1lo0y95aUkldZjzV Cylj82md3cNLe8uL6HaPPQ+NfrD5RPdQDcsLnfm/r1qOfLE8voi6Rll4RtnI KLJxQcatE2w+LYuuxzzLKKLppg8sjGbLqHb06oGNH7F5tQavNkjDK4ootGv3 WVMPyWic4vvP0UHq83uJI24XJ05TkPaAPds+BarP54kvG0T2u83Rnk2f5V26 SejEuvK0UYZsvu5W0BCHIB0pLY18+r1KR0I3k//q59aDf35+O2m2qC2b13jR 6KpvloWEDjzb7z1xEpu3m2Hv1qAd/3q9KHnKrp8KNp9mbflS4lddRIscxw5Y eruGZk1+5h58l82rpUZPe7A8ln+87v5yzekvBbUINDeOPsTm1zYMHql57hPv v3NjdtsHMproeFFr/Tc2v+ere3SYaxMJpa9w0Q9qLqe2t5rN8DNm8x8GXPa4 pe0l5DPBYX1PDza/l389XKf2bA1NP/563oBebD6kbEIL050KNg8n22z0saK3 hCqDW8xK2Sknv+y1EW14j2cOE8wm+HG0aplHTOQZ9Xm5icPfRipGs3ma5dlO kwPClLS1XFM76Qabl1MGtL3yyF1Cid6PFqynSno/SOYzroX6/NzR+yUKiQX/ +934j97JfmzexirSIrHnEgldqFXqtAlmHz9knOuNPUuk1H313o9uVmwepVmD Td869JDQmy/LNCtKqmlr6vPQz23YfIrO++uzBo+WkPjc5dKCrVKyrR9ycOE4 Np8TbV11/FBT/vGxcVClm2MNmdsXvh2hxeZZ7ltOnSYJkND0XlbTOqVLKT5f f1z5GvV5vZTvnVqXSuREy+5WvN8gIbtDyoCXH9ifrwo+1XH84mqavOVgtnFr Nt/yafKIT83tJdTWs/7zgFI5Ff+tXdTDns3zpCRssEocKaHUdGn/9HZsHq93 rUX2hdsKmtdXfDTaic377LDzOHbbjs3DLPdwMV7Pf//2BYOKC4KrqF28e98O Y9g80N4ApzmZgyR0OOdF9vw6jjrmuL2Q/ixSm4+bs+BpfOZ7jr7bDnL5MJrN D52L7ZU2wInNDz0vW+ttzl+//dcOrYxvs3myWGeRpfk2/u9feZ8ibp+Ebrlr +LscqKRTz+YvfcN//vlznqttW1bTVM3+/Q7GsnkrG6faNZ34+2OFxj9faudX U3FLh/VN7Nl80gLbts6V13jvC31D7HMrad6KLnNsHrD5LMfnvQ5kPpbQnmtD 40d+Z/N56dfbrbFqLKNLf33c0vuIhFqHlg471EtG4peHP446zuazDPNPxZdd kpDeVTr7dI6MCo/Ndeh6h81rrc6tHbMkmM0zdfb6OyM2W0JjqlcZaiXJqKL2 +Ln6ZWyei4u+cu+yq4Q0b2p4Fx5WUMrB+VE/RrD5p+WiuC6uT/nXJ8vN/YbV sHm/0L0RI1bxry+56Q8qCheoz7v19ykY5riIzcMY2Kaa+M1TUlDzb8/uL2Xz Tx+72e1s07qYd/10tJUJm187OWzH+k56Ump21HDyu4/8/XEjbHb9PlKa4VjP wKU+m3c6uLhf0I8y9vzaM/IvX78WxaTIn6hcy/98aEIv94d1Z/NQxk16rGz/ RELlbawNjrWpoaEfdv3UuK8+LzZqz/xzGV9kFDjNw2Zez2KaHrRyv2+clMRy kwPlvO/S737Lxdtq6OzrD28Wn2bzZe10n2ls+Pf1aMf1fYb8/RPbMyRuyX/m C7saXe1w7YWEXsVEpWV0Y/NxjWTib0nfqunaRUvP2lfs9bUy1cU8O589PwsU q8LG1Elo32ruZet5ciq/OKuf9jf2+nrGuWFF3RUJ9e3TWOzWnaNboyZ3/+sY m1dbPbzDrh78/TfoyXTvLqlyandNuausAZvfahaZUl9Pt5i+jHk316Yem8eb kS829XikoDnFBiO2NmLzXbu3uim2Ny6mbM3FTQ+4V9F2qzq93k3YvFfk5tlf V59n82/5G2YsrdIrVpv3k/pFvvH6wVHZ4U/SO1psHuxEwSFJqrb6fFxZ7otH Pg6VNNSnYpcn//XnPq/PZRytopGrRRfLdIrp+toBYzrXVVG/iojMgz/417Mn +zLcx1WTuXObSdVf2PN1cEZ+5PM3/OvJuflrXl6spksmqQdnvpKozZs5rBt5 b3uKlHJHr11/ohWbH7tadf/vVZr8/Vfe61DFVgXFOEXrlL6XqM2THdqyfUEn Q/7niftm/esZsfmxQn3rl6/4r9dwD401VfK/H3mtddpRI1GbJxs19S+Z0zz+ 9TPdqe1LIzZP9n/MhSj0 "], {{ {RGBColor[0.471412, 0.108766, 0.527016], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNlslv1VUUx98rVwMKiXuxtqUt2ioSTUg0ghEqpRMmLozDwtKBByI47VSG YksHaiIaltLXgQ5KgkMcFmVooYNDojFGF1LohC1/A7T4/eZ+XvoW35xz7z3z Off+fvl1b790KCeRSDyQTCRWiS6L3hWmhTJhh1AHb1ovNIZE4g3RhhDXDcIL yNTD1yajzBHhqHBM2CM8z9l29BqFnUI5/F787EB+D7zl98nfIdH9IdrI2D4o 7BbeElp9blnisO2NwnGhSUgLjwolwv3gPvaOc97N2vuPCGugXq/GnvdahF6h j/NMHtbvET7GZjf8GnQtWwy/mngddxtxVwoVwpvCAaGavX3IFpPbRrATmyew Y7ld5OB4SrFXiVw5Z5ZLoVeBXAm9qqP29fBN8E1ZtaxD1rk1Z/WvBbsNnDXi I8VZCf4dYw19202uNeSbIr4K1lXUowK9FHk3kk8PvWimNg2cp5DfC63Av+fQ 81kLjpJvLXQ7djN6NcTnWJ/R/BWJPhtifj34df8GhHZiraJfubpgW4WHhTzh OSFfGJP+BtGroilm2zO+lhhLiesL4YzQKXySjHLvhci/H6LMEeR8dhDZKp1t En1RtBLee3+EGM/voq+FWPvXRXcJheK3iG4W1ol/SvSvEGP+R/Q3eO85n23k NKp1geiI6ITtiB8X7RZuOzbRx5LRpvP6XOtboqdFfxIekvyPoiUh3slS0XLh cfcsxFgd868hvjvu3auif4YYw9+iPfiyT8+M87X+Wnyuo45dzO0W8n06xLns Y07PQr3eSo7OtYu5P0a/e5nn1iw9oz+5cp/7mYlB5iLDDwkdoJ29fnRa6b/j di3S+LV/v4WFzGc7+p7LMubeb0MRa/Mvhzjr1SHOhGfjpPBuiDPzTliZ1zbm 7Qw5FuGvDL6QdQf3IHMfOrBZja+aEPdP4u8A9tu5D22sX2H2PION1NT3ze+L 75Xv8EXyd+5fCeeSce7zQ3xPi0Lswyj98lt7SbgsPMEMb+audGLD+fmuDMNf wH5x4FvgWeUebgpRZhi5D0PU/SDEez+SXPkGXMnqv+lVcJazcWFeuCn8J0zA J7PeBn9/fRf8Dc5lP5ET43b8X5JfmtrMY3eM3J234/Ls+w7UENsoMeSF+M0p DFE+nVWvEXSfRMayCWJwjB+FWP/DIeY1Rq6O6Wdq65wGiWkIfgJMsjeJzhB0 Ev1fsGH+mjBFjufY93lLiL1oDrEf/yJ7mNhOsD/M2QCxDNK/a9icIu+L1GWW Xl1m/zr8DepiOg0/QO6Zug9QB5/PUOsL2O7CzvUsW9PIjCJv/3P4n4Wfx/YY +3PYuETsV9C1fGZW3KsR7PYyR7nMkudslfiQE+nN5Moses/zmGQGc4R72POZ 414m7hz058nHMS0JC/Qt08tF+jVJ723rFnuLrBey5BfYv4E9+/ssxB6eCtHf HP6dc4KZ9DfWc+533v8nfjv8bvi99/+OvzlVUK/9vvidaUEnc267c9TAc+m3 K/OueUY7qbP9zlCLu/Rghv1Z+pHE1jj1ncBOZt7vULcp8nYtXO9v+W76+7lM HdZr/UOI9HvR74QHxX8DXcLeenjvOc/95LWKfubT2238f5zm+5sO8U7cJp58 5PPQKaDf9zIThVm+z/O9vYPuEnl5bflF8ivImrtlYvVspomhi7xt3/9DfSHq fx2i3gbOAvF4fYrZ+DTEM8vb1/9haI+3 "]], PolygonBox[CompressedData[" 1:eJwlkksrxGEUh///6STXT+BS4zLFDIoVGWLhVigLlyyUQhYGY4esXFZK2KKw VEQuSYmwwEIWLPgAfAYWnl9n8UzPvO97/ue857zRkaneVCQIgjgY3PATZaEJ XvAkxMIgyIQavAeq8C7oN0feDQNyaMZbtIbvwDeewfcO8HsowYvhDi+DLPaz IYbvwk/oMYo9gnzO/vF/H/8wr60R3vB3c0/CK74Nv5z9gi18BQ7xJ1g1X9Pe J2zgDaoh9DvqrmdQEPGcp/gYTLKXgnF8TjnwRZjBr6CIs4VwiU+b7w3DKD5h HrsGafzC/KxynOND5r1TDuWKQw6eCwnzmlW7erKJd0Bl6DPoxMvNe6eYCvOe q/el0I7PmudWDxbwJbgO/Q7zeJ35WfWgHm+FROg52vB1814pZlmzN68tD6rx R8VHfKYPcvO3oplGzWem2Wkme/it+ez1xvTWjs3fhr5xgg+a905vqA9/Np+t eqxe15rnVo2q9R8C2UoH "]]}]}, {RGBColor[0.2490739767751266, 0.259186989656799, 0.7808286874232488], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNl2mMl9UVxv/L+YNAomyiYJVFGKHVViCCoKCsLomVQgWGGXawaU0AcSnM DGjr1iaK45LWYaBN6vLFIqYbM8OHpq2KODAsH0CbajcRZETBhammJj5Pzo/I hyfnvuee7Z57zr33Hbps9exVpUKhsKJYKJRFfxuFwvlivCj6lnj/E/4u1Ii3 QFgvnNb3m8JhoUNyN4j3H9EnhS/Ee1r0uOgeoZ1v87eK/liy64TqUs5brlPo wqZtr8OXZWrwWVfKeLqIaWClUNgs3oWiFwvNGg8W7Sc8o3Ff0UbJPS68VMwY ZworhY8Vx72ip1jjm2fZ/Zz1zi9lrNX4X0Dce7Hn2Pvi69xKys8rpd1tzFtu ob4bhEXCz+Rvn3g/j/w2f4OwUVjMeBF0Mfz7hCXCOGG81ysMLGU+L2TujGw9 Nu2zlu+F2FiK7FK+7xd+IixjXEOOa6H1jDvk52VhOzm5l7yY5zmvZzl2bO9k ZI4/isxVB7rbyYd5S/FpndORer2Uw97CVo1HVDJGr8nfVcJ0YYZzS326TqfB HwGtYryHmrKvlez7CvLqOtlSytppJl9tkmulDiZ7z4Tripnz28j7bvm7SvT1 SHj8t0jbrq2R+LmMOF0LVwtzhV9K7oTsPU+9ub52ChOQc14nID8Pn3PxW4U9 272glH7H4XMUftuI3bYbWNcG9nAza9wYuWf3iR6id1uKmd+N5OQJ9slyp+iR zkie59xPO4qpb13vmfeuZyX3zLaGi3av5P52E/0wMvcnRLtJp7twrJA15r5y /zwSeU48HBn3FmI6zL60sL5W4m5jrc7hQ5H5bBRtYr1e93+pQ9djHX6aqO0m ZLZxPrleuiL7+zPRo4WM1XEajvl90XrRWqGO+hgqDPHZIp1zRWeKToqUv1a0 j2hv4TvgymLyrkfXNmZJbqzo90QHU3+2OQwZy34g3x3CXqi/TwidjM0/rsP7 DdFToh+KfiTsF66Q3aJsnC96AP5JywkHGdvvJHwfgOc529mHr2Oyu9tz5fS3 B/8dzO/D3z70JrO+Iay7L2ufG7mmatFlQo3Gt0XK19J7i1i39Vdpbr3PGPI0 xrkqJs/7UHOWjuXnR+Z6XiQ8vjXS9iTkJzM2z/k4QOyOcbTQzzqMHXt/eGd8 zy5mLH2ZH83cWGRHoz8L+TGMx2DH8wsV0xzHLfpd4VKNb4mcOyN7I3zPz+V8 8JnQSf6Pew+0H+2in4qWqZuAXsr4k0Lm3vFapkRtXRUZz3j8VJD/mProTf32 gVdGbxg82zV/OrU72vmO3P9vR9p7r5A2qyLjHiH6zci6HUWvWcayR6HuvcHU jmv331rbLs29K/oucRzBrnU9/kZkPBeLXsTYvDJrOkJdu0/PKyY9ST8MqOSZ 0F806JOKz3lic1yXVPJcGib6ZTnrvCCZz8q5F6dFu0X2TXfRcyJj7RFpYxdx flHOnvl/Oe3vwkd/5K3Xzt7arnvaZ495uzmPzBvCPhZZh9d0Zs9O8T0UmSHk 9hg2roms08miR4jjaDnn38d+O2PH8To5sK5jLFFHI7mXfO8top4XR95TA7ir 3Js+Nxvo0wZ69THuoUcjeRvgr4wcr4ns71p69ll9D5K97ZHvJ787fhFpsxYf a4Q76c819N5q4SnuF98zs+F7/geRfXq76CbicVy2MQc7v4t8U7xMnJuFZmEi 99kE0R8JazW+I/IOcG2NjbRr+zWcYc8Uc003R+7PTaKf8ib+JHK+CZn1fK8T /X7keTUj0vcW8tXEuuuIqx7eHPLgmMZwH/leujNSt461NGOnAV3b8BvN930j 59Bq8nV55Dn/LdGBkX0/KLLWXfO9It/azusm/Hts3t2R74d7kGlkvhh57pYj /WxC5yX0fD+vZe6H5Ni6ttVKvH4bdHEnfV7Oe849MUB0aGT9Do/UW4vf1si3 017RvwpTNH6FfO8gh+9EvsPedq4iY7tLtBTZsz6T2jS+VjLtkW+SnezN1fSX ++z3wkTJ/FH0gUj7P8XeNtb5Nr7+wXwLMbSwxib2qg379ZG+HqQeWpnb47tV dv4MfzNzv/I+if9r55JaXEWf+h/C/zzLeWdOp6fP4e3pO2cg9854xtbxe9Y9 6Pf9IOT8hh2EjL/9vl+OzS2R/3bNxFKFj1f1PVX0tcjzpKfQg7fuOHz5LPH/ md/91h2Bvv97vF7/M+2P/F85JPon4RqNd0SuyTH4DfpBMeN2zBN4d3tv/F/k GKbAq4Y/tfT1P9MUfC0GS+AdjPzHOhxp1/8c9uN/yQvI7Ql4vcjtSNbYgxxc hi/7mcY+rOBc7UXcPcnjNPL6L94E/4y0YVv+l16GjG21UJ+uU+fR/4yOxzzn ZwG2HbP/lxbAr2YfRuHfaxnAnlQjM5E6c07+gh/r16A7Ev1OYref33CG+yx/ IdL2HyL31fvr+niO+nDNWrfHWTXh7+PktouYvgJatQG1 "]], PolygonBox[CompressedData[" 1:eJwllXusz2Ucx7+/7/fzPUqbjNPJ0ZCiTbkchXJcJjSXWFJILm0uy2XrcMit XErMH+Y6cjlWWfmnkS7C/CUijuM2y9ZaJayQSziMaev19v7jtd/r93s+3+f7 PM/n83l+zcdUDH4nTZKkEgJuZklSzecRqMX38+OLBPSEH/Ht0BKvA5/jB8Jj veAgXgOt8D5wFP+LOX5irkPwN143T5IPGFugOfBqYrriI+AY/i8xhxOv4RJe TMx6xtZBw9wxih0Jx/FLMAMfBmfwfdARL4FtWqtimOsiNMeHQ49CkoyGcXiL 8NgFeBz/Dh5KvYfd4d80Vof4Z/HfYShjQ+A3vAQKjKXwKP4gnCP+PNQNIz8I KT4SBhP7GowKP6Nn9UwxnsMJ/CQUhfegvTwCW/Frmc9SZ3QRb6Qzw69DKX4r c+5q4HbmpB7j4zgUdHbwCu8rgzfxX8N76QSHtffwuzWn5lZOlVvl/JtwjGJ1 xofCZ66z15n8gT9BjqrwjdAEz8Lv1p4C36vzT11TP+DNcsdugFJ8J791SV0T u/B+8DBrrQd98I9gD/4LLMJ3QHnqZ77HN8Fdxkr5/hneARrwvSF0xNvCFdZy GVrjz4fHiuEFvAyuJo5pp9oM574IyvEmcCPxnJq7KHctz4cc/zNc++PhrHoB /klcg0/hs2Adz86GCtUfz2xKfWZN8c7hd+XQKbwH7aUxbMbHhp8dAWPwZ8J7 0TuexjeqBhg7Dcvxl6Ab3gx6493De30OBqkWoB1eH17GByiHBffI0PBvGlMO +msvWkPqHr6Fn4ZR+Gg4pbXAuNQxil2j/uLZalitWguvXWt6HX81vBb1hHpD PanenAvjwzWqWtUa38AnQoXWDhPwt8K9VAmT8IHwZMF70F5+Dt8VWuNJfEW4 du7ASrxxuHeU08fwpXqGsZ2wMPwOvUs98za+OLyXrVojfkf5YO5ZcBufEl57 FUzVeOZePAp38fbhXOjOaIPPCceqpt8Lz6m5l8H7+Ffh3HeGr8PIVfPf4l+G 7wblvApvlLuXdGeW5M6JcqOeO4K/CyuJ3Q7zVOvhWlXOruCTw2epmOn4tPBa dOaV+FrdJ/hl+Fi9ADNT38HX8XOZ7zrd+ecz16BqUWe6LHzmOnv16CrlPtzb 6jn13ofhs7/fI/j88Fr1ziX4F+F3647egn8S/i96AD7Fa8O50JpuhntIvaSa 6BuOUaxqUrVZL/d/i3KoXKqH1cvqyfr4vcy50x36H/4/3Y3iaQ== "]]}]}, {RGBColor[0.2685397574479682, 0.4926730661842848, 0.7987099310638586], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNV3mwj2UU/n6/7/2EXLITl8k0U1mmcFVompIK1QzX1WASaUa0GVmu/mlB TZbItZVKV7Jzy3XdS9m3UlOTcW2XsReSJWv2nmeex0x/nHne5Zzznu097/fd 1Xdg9pvpKIp6pKIoBn6FyWpQPmgJ5pNAeaAp2C8CTQXVwF4LUEvQvxBaj/0y 4BnsVcZaFVAxxtNAy0BLsT8ZVAiqj3km6AbGbwfxjQB+F+k8nnUdVC8lXp5V 3ec9DL4L2HsIeBZ750CloD9xdgnWjwMnYb4EVJiSPadt02rINAeuCtJFnZyX 2f49sXwttK3NzVMtrfUl3suGfGvofAK4EfPZoA2R/Jzm+FDfQa9/FGTPu8CK oM1YqxBkH9d/B5ULilECPBRJL2W3peQnfaS+Q14/bB7Oq9pGxmIZZUClRs6L Ip3Fc7aCGoBuRspBpsc3HPP6zksr2HEemBWU823OY2R+6mCeJkbK2ybbQ7su II6Lgedj6WC+dlgX55lEyG93/pivPMfiL8gsBM8Z4Nwg3+YBV4AaY1wEXAVc CdoDmm8e8v4BmfmQPQI87HpgXawGjcZ4OnBDrHxtBp4ALcL4n1h13AWUDVoM XVnAAmCfROf0Bl7CfBrGl4HPYb4d42eBBzAfivFB4DbQMxgfAT6JvbUYtwc+ DlqD8WPAvb5f9KM75ruBvYDPg3Zh3A3YBbQD487AjpbpS17bTz82gaZg/BNw Vax8rAEeABWzNoCNYMcljE9ifArxzUjrPjAnO52Xnc7RxUg5KXa9sU7ngeZG mhe7BkYG8Y0DNrR+nlPZunnGHNcD6+KdoPwOBd6WqL9UTGQ37f8FuBQ0gfUa S3a25Y9hvgB4lOuQrwTZ2UF6N9u2pa5x6qKP5KEN+2LV/37r3GT+vyE/Avsn aXOQ/1WAGR5zrQD4SSSbBgbd6+G30He8LahNSn2zG2gwaEhK9rKGx4HGRKo9 xvFjr7PmhoEvF9TdeqijZ0o13iQtH3pYP3mapRXfpqDamNcCtUqpl7FPrQy6 cwW2ubb3H0zJBp4/30T7xkaKUVPr7eqext42xnzkmWp/aWsV8zazjRm2s8h1 Qd6WvkNZfhta+F4xlt+6X9CmHMdsSFDcXnP/n2g++s3+39pvQBvHaYrPyXW8 etg+xoN1WDMlX0c719tcy7RvmOVzrbOe9WbYH8Yi1zoZc8ZxfKS4Dvc6998I 0tUn6M7U9NlDXAN5roM89zbGo6tjMp7vF3UDc0CPMA7AF9hzMO7ifb47fPc4 Pu85+z/7L3t+jaBeWxtYN6jX1+FdjFUDF2Px37QMxwc8vyeo11cPkqeeWkF7 B/wWVMN8P/BqrLflvHv1j75LW3y3+M6w12x3LynxuNh759znmYOS//Gu91kH Lcc1vg1pv498J6v7XJ4/LehuT7XttJH2pYLe5Sio3lkHWa6tHOejc1COHjVm ma+7888aezWIv3dQfbayPGuOOco0NvC4reuPa4tdJ4t8xxd5Ps73nWvsi3x/ 6cP1WLV+LdbbXtVv9w3HhH7V9xk8a6tlqaPAb9OGoPu5wOe0D7LtyaA+ONl9 cavl+B10DHuDIHs06C3hm/JSortZ4Ht30b2RPXIIMI/fPqAQ9O0TAz/A/BVQ PyPnH6bFP9gyrBv6cQM40etveY9jrjXG2YXA+4BnaTfj4HN5Jt/UZkH12xx4 B/hmYC0BDkjrne0E6mA7OvoNptyJoHeb3wll3qeN/UFjgvrC2CDZW35M8N37 HNgzkdyLiezNsf0zYvXHfGAv31ne3cNBeg7xOyTIvqvAekH34E5gu6Cecy+w iX1nDOr4/t4OvBZkZ9VE3yvsY1/G+ubgt0flRLGZ7PiMcvz7ORYd7WNZUN/d DZwTqwYXx5pzfRfw06BevhVYIVFOygOnppWLIlB1zEvYi4CzY9c0cGbs+osV lxz3uGWg4rRsLW+dAfiN409bBzmW5J+V1h7XZ4JGplV/+Z5zvNT2TLZNU7w2 y/5/DdrnutkfFHfG/0pQrAoteypI/2nX8CjrGGkdozye6Xl/x5O1wVrifeE3 W0aiOq7kWBXZ70LbxbOO+67xzhXE6geF/B4OkrlgXOZY9Q3qJy8Dfw6K517g D2l9H7IW+b1Z4vhmO46M4XLQTtCKtPjLXPffW5ZrHWBrKbAdsG4i3oaJ7hLv VDng06B1GD+VqJb4Hjax3l3WR//5/TbD5+7w2cOC31ZgcayesjwWL2VWO5ad rPM9/1e8D1wfq19tjBXzAeZ73e8s39vl9p3nrXV+mKcs20zbd9pO2rvFMWQs GySKwd30y3FgPGhHY9u1y7GijzVdry0S7ZGng89jXfI7fq3/FdcBf3Mf+ZX/ KbG+YVbG4su374wl+xXv2xdBb/vCoPyXOqelzjHHnwW9DdODfKXP62wTbWsO rJUoLnX8b7HWNu5wrKgrM5FPjYAPJKrV+xPVxyrnsVmium0KvBLrHbgc69x1 viNNnRP6kONYZwP/Aw6/Qjo= "]], PolygonBox[CompressedData[" 1:eJwtlmlsVkUUhue7dy6IFJFCUURKNBrXqqhEDS6IYFwTlmIICauJcQtERcU/ bhgjq1KWuiJGi2xVaUsRwVJBVDQaTSmLFFpbiAIRAVuKBNTn9fXHQx5m5pvl zplzet7EycMnJSGEuRBhPP88lQthFEzAz89C+IwB66AQ7wCL8HehI34LY3oy 9iwYGP0b/fYGGIH/nobQHjxGY1Oo4P+rIIevpv9V/DWoxv+Cj/GPoB3/kzEL WGshtOJXsOb7+BdwLX4lVOGVUITnQzW+Brrjl0AFPg+6ZkZeAl3w75nzDvxS WIt3o+1l/AMowI/T9mDitpP4ECjkLDdCMf4TFNF3N9ThG9hzCXufB7X4etr6 0ZcPy/U94EV8GhzCz4GtjK2DXvqW0II3QwH+DnNMx2fAIrw7bafwRsjHv6Kt DF8CX+ORPc9l7sfhAP0L4RB7/RGm45NgKl4Kk/FauDrxHmvwFcwxi7lma068 M/MtTrznY/S30lZO30o4iB9J7SvgAP4tfBi85xp8LyzDl8Iv+OHUY5fDb3gz VONroAUfzHq1rLUBbsW/o20BfVWwG2+ATcFn3onvgo3BbeprhNXBczbh97Pn 0TmfWWf/NfXa2tM+fCZtdfRVwfP4SrhGsQXl0Xemu+sGy/Dy1N9mjmIUH8ce d9H3M4zGn2PMKuYqgWfxxanvbia8p7PT1iPxGlrrJG2fBMf8CXxL6rvUN9S3 /BLmB3+Dzdp76rl0R2V4Req96A1V4uuYs2vimHwdP5s9farYhl74EdrmJ35T R/G+mfv0xvvoLLQNx4fpTPim6G8xAr7BG2EK/iQ0Rbeprxi24Huj38JDsA8/ lvotK2ba8D+iY/8lOIxfkDm3rIcL8WbaHkj8Jn/Ax0Ex37I/jNX9wWOJ96i9 Hozei86ks52IXltvVm9Xa2gtzdmCPwJP5Dznw/jTyi8557xH8R3RZ9eb0Nt4 ITo2/hujtaLvVnNMwduic1MptOP3cIZ6fCvchd+eOVcppofgQ2Fb4jH34hOg IXEMjdfY1LlDd74RXxode0dZ7w3FJmNWJ855V+GF+sbBObavco2SeM45arDO ovvDC2AofnnmXKmceBl+E9Qk3sOd+M3RYzXnAHxQ5rNoTa094P/12uB6/Lpo b4X++G3Rub83DFIswvbg32ivF0f3KYddpG8bnXvzYAmeB9uCf9MFnwX1jG+F 2fhu3V/iGNyjt5Q51yvGe+L9Mudu1QjVitMz1yrlMOWyMzLflWqEasXU6FxY Dc/gDdGxrDW0Vl7mWqGc2gnvHJ2rlY864n2iz14P50YjV07vrVwfPbfOME1v izm2J46BYZlzsnKzcsYr+JvRd62cNAMfw5idjN0B9+EjM7vmKM6cE7UX5bw9 +NjMuUi/GaW3n7q2qr6vVT1K7apRn+Nv6f5yzklv42XRd6GaURr95vT2FENj 8IGZc7NiRrGjGqVapZgrwv9OXZua4J/Uf1So1ivHnUrdpj7l7ON4Rn9l8N8E Mfqb6jxq6xCdE5Qb9DfHmfhptG0OrpE98E6qgcFt6lOMKFZ0pjnRNUe1R2MS /j8yunarJkzE96euPYo5xZ5qpmqncsx+/F+XIUT/ "]]}]}, {RGBColor[0.35353462387888923`, 0.6468248844653867, 0.6576544782464631], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxFVntMl1UY/vE73/dHmw6ttam1irllrVKala6bZpetJiIgdLWgpREIP7yA 2VarjRJrAbVCpauJXWhaZhc1QySsVUtAZmn6A6Ka062V2oWUpOfZ82z98ez5 zjnved/3vO973vNl3Z/Kr0wmEonDQAC2A9uA/cDEOJHYiMUscBXG+UAecCRK JBoxfxRcBl4FlAOHoKAF6wfBHwK1+G4ALwEXAIuBQmApsMz6qjy/E2gH1gFr ga1AM5ALVAJzgWqgyHsLzRwvsv2njXL7lG/dtM1DPgukkvKHPswDhnCGlZg7 CU7ZDu29ibm3gDrgbJx/A3hsrLlVnm8AqoB6j6mH+0Yi2cqA/C7oesNn+wmx WAMeDIprg/e+A/lscGukeDFujUG6qJO2y2yDtuf5TDzHJuuhvnbbYgwHsH81 uD8otn32Ybd97AQmxdp/YaycNzvu72FuD/A+cE6smE4A74v0zbk5kKtwfnJj 6Z0DPonxKeAQ0I25zUAXkMa4zfOr4dNy8BpwKXgl8FBCcpttNweY7VzmmBfZ ry7LlFumzDHq9NmyXLcXgEeCcnAaPBnjDsxfHism9Id+TcW4F/OzwNn+nuqc f269a3H2MeC3I9UA7fDMl0CuB3wp+Bffh5/BOazLhOK0FrYfBr8EPtc1dKV9 SDs3dUCZ4/Aa5FaAW8BD9p/nWO/8cpzGuAn8DXh0rLhlxrqXzClzeBoYAPqB fz3u99wI8GNSNULfqGtspPyccH6avHYwUp0fBidj1TZrfMA6qet34Biwl/UJ mb/AheB2yM3F935wd1CN1YI/C7qDO3xW2qEvPdZFPbdh/wnmGDzoPDAft2Kc Bl8X6zx9Pt8P9pP+FrMW8V0CviGWzE3edwoYTup72PvPiFVTo8DfBvWgPeAZ sert+li97SngSfv5m31daP8WgAv8vdB10W253dBVg32dQX7T9sxYfvfZjy7H p9s9gLle77iwbzBOedjzJ2TzY8Wv0H2Mse913L4Lqu3vg+LV4VwTg45hLu8r UJGUjRafq9Y2+b0h6I63gg+4t7PHN7rnsM5KHRPe4Tz3z5RR5blM1+fF4HVB 9+L1oN7HfKXsD31hny6C3N/g+byvQX1/F3sn8joZ859GkuM+1lZb0P35Grwv qP99EtRTp/icV7lHsVdt85u0NUjfbPeYbMvSlzsgNwS+N1bcOnxvNgWdbWPQ Pai3H8cdf+bhLuz5B3xfLJ/o21fgLUEx+SDIRqX9P+r3NIoVxzr3gfMjvcPn gR8J6g+PUUdQf8kFzw+KeTG4IKgf3wO+JlavvBp8hfse+18NdG3JSCSeAOcH 9ae7wWdG6kNnsccDxyDTDF4Q9I4+GBRTxnY7eJl7dzX446B39iPwdOybBhQB 9ZahbG+kOPdE8pv+3wm+2Xf4FvDoSO/PKPCSoLd9KXg8dE3I0LsyCWvD4Isi zU/3Gt+d8ZZpc89h7+HasN8kyozLkFwq6O4sDlpPW2aW99wYaZz2m3Wt48m4 lgTV9QP2bZzPfFms+zcFPDGSvTH2c5p9nYnxEOZnRAK/fw06J8/7KPOI+dsh W2JmLKuBcr8pjF2r/xl2gB8H9mL9mUjrFX532oP+kXa6LjjPf5svg+rsi/C/ jeJIcWf8j2D+uaAe8Dz4RfeuJt5dyLwA+eWR6pL1mQk+7p7D3vNqkK+v8B8m yOa7zDni8gdrPlYseC7a7nOcmYfSoH+bMvDLfhv4HvK/lLYOAOVBPa+SufP/ G//j+vwm8m2sCbpDK8D/AcD2iBw= "]], PolygonBox[CompressedData[" 1:eJwtlXmIVlUYxu93zz2QkKWFJBJkCplZuZAREZlLpeYyzpjZYo0b2jjOTJbj ApWCe6RmpeO0kKWVibZoYabjXomlqUij1WS2qKBF2jKpaL+H5/7x8P2+c97z nuVd7rUjKosr0iRJpqEMlYYkKeJ3EBoO3x+T5B8M/kVD4CmMPc5cGZoKPyEb eAiaAJehEngwGgcXWPM8a7XJb2wwgv/n4B9QH/grbGqwXYq+hrejWfBydAi+ B5sfsT2C7oU34qMTPBBtgh/Epj+2A1Ax3AObA8ydRr3hiuCz6IyV8KWMfcDc h6gp3ArNg+eiq6LXaO0Z1BcuQn/Bf6NB8AC0E96B7oPH4LM48Z3Hwo8y1sjc f+gheDNjTzH3JNoEH+LMlcxVocPwKGx+gi+iMfBodDT1mOYWsmYGa2eiF+DH on2fRaXRb6K32YZugTOtgd9Hl8D17FGUek/tPTx6rWKgWDRj7Cy+v0fN4ZfY YyJcjV6GnwmO9Tj0LDwem4kF7FB55pgqtuOVRPLN/9nwHO0Bv5jHcyyaL9/B rByqhp/DZj++/kTz4OLot1bODYYXBd9dPuQrMDY/dU6l8LDo3NSbD4U/Vk5i W4XWwvvw2Y+5m1EN/CVjk/L77Qy+k+6mHKqCl6MpiXNSubkaVcIV6O3gN9Xb KoeawDW5v8nKYfgC2gpvQefgHcF76U23we2jc+8bdAO8OJ+XjyXwd8G5/xY6 DLfGZnXqO+vuyjnlnnKkBH4Dm/I8Pq/D1+fnW4Pawe8pZoltlsHfojp4M6qH X8vvrxjXwv2ic1853x9eFXx3+VgB12aOVTPml8KfMfZm4hxdF3xmnV1v0Aif RJ/CG9Dv8Ododh5P1fp0fKwtOAemwb+gstQxOwCXogcKzjnl3m7WLM7fS7Hc E9w7atFeeBeak3iPL+CR3OGP/L17RvcM9Q7VRF3mGGhuH+oAzwj2pTPr7NdF v6Vi0BbemteHanoLfFd0L2tA3eE70V54D7ojuqeot7yDrlYvY82SxHdogB9B AxP33GHwxuBeMUFngDegZYnfWG99gTOXp+5ZBzPnmHKtAV3B/67Re6lH3Rpd g6pFvemvqtf8vZTfP8PNsVmRumbPM9+F/9tTj7WAr8zs+zxqBx9HC1L3mBPw scy9TGOaeyW4FlRDryofM69tRfx6wCcYW5/3e51lVPC3Rj10NHwmuBcpR0/D naN7m86ks72bOfc66k3h9cFvpZr/BL6csfo8fpdlllh7NoWP5t8bxeCIejdj txWcYyVwz8xn1ZjmekXHVt+gu+GPgnuLesKa4JpR7Sjn6oJrSrWlmB0MPqPO qm/WSvgUY436tqE2/H84+NulHCiBb4/OHdWwanlS5l6rGqmGnw7+1ioH1atv jM7d/eimaJ/yrTe4Bu6OWhbc49vqLNG2+kZ2iq4J5b9ythv8P2hkH88= "]]}]}, {RGBColor[ 0.48706216811628167`, 0.7210679929906328, 0.47210250965075456`], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJw1lF1Mz2EUx3/+z/9/z5WNUGuSrRKVXqSQl8i6qIskNi8pxQobo+SlXKkZ 8rpMbWyKNi5ciVuZ19k0lkvqQmTjygXzOTvfLs4+z3Oe85znPOec50nZ01rV EouiqAMJSHMiiiZRNME2FBXoTsD6hBvsg19YjzH+Cj/A2ywNwyCdrR1HatG3 mw/tqYQFzPPQF8HRmJ/1ApnL2iCcB5M0Nt1EzH3O+Lb585jvndD+LNZW4DM7 uG5UNmPMB9B/Cn7+rOCxnUXq0HfCVmQl4xZYzHk/sCuB1YrZYq9hvRApEG2+ DdmHNCCbbMz+HFgPz1u+GDfBMvZP42cv/Bv3u9Yw/sz6OPJHcVg8XZZD1oax SYbFwX2XBj/LfHYh14Offw12YzuE3EfS2fMGFsGnrI/ojJPYbYdn4GlkK+NT cCrm9q+RQ9Lb+nfpbb1JdzkY3KfF/Szy84ZUu2H1wKPgdZupz6BodgdU92Z4 JXgOO4LvH5Ldr+C+f1tNEu4nD+5nnou+Eb5C900xL9F97d7dVldseix+pI/x OZiacNs0s2Xehv518Bw/QF7GfGyc8T0l/8ew24L90eB5tzx0IrvVb7uUk3Hl JabaWQ13srYc3Q74ULFZjGNxr9k/mBr3+q+F04rZYl8XvNc2wPlIBuMk+RhQ DFXMl8FaWCgbs12lfl4NLyCNjHthZuT1zUJylc98+DN4n7yHm4P3dyWcJKYe ezPc5abe8g24UTZmu972WP/DEiTf7qKzKnTeAs0XKldWX+uVd8zb4VvVvF/6 O9Lfg7fUt30wBclmnA6XKreZOr888nvaORk6u0Fvx95QlPC72J3WBLcvszvp r7M/L1n5TDPfess5wXvFeuau5VJ/oP2FvcrtZVit2OqC/wfl+hMaNTbdEeXn MLwku4vwqt6CvYnH6rMROCfuPTU77v+X1f1j8DWzeQJL9bfYH7MoeG0Xq0/6 1SsVyon18X/CdbgD "]], PolygonBox[CompressedData[" 1:eJwtlElsjVEUxz/v+PZsKfrSKBKtlqr3WlpzTWmTNtE+jwTpo5TWPLSPqFpR Y2IKQZCoIUEikRi2IqghlIWlYSFYsLIQfv+cu/jn/d757j3TPfcmV3c2diSi KFqKhqIhcRT1YbiJ/mHI8T8y7GgNPIffBZgWorlwK5oCT0ar4GNaB+fQUXgv WgIvRl1wFZoKV6JqOInP58R6gYrgN9ge8u0Remsu8QX0Dh6LSuFJqBAeRo4f 4T+oCL6GrRvOo374HFoGZ9DZUINq+US8pthrVK23UIL/xbHnMoDGwd3me+Uj Dx9G++FWdNC8RtXai+7Bd8xzvYjuwpdRV+Q5XYE3mO/Vno1wOtT/DGXh5ehb wm36djXsz8onnMJ2g29P0V9yP4FtbeQ9P67e8v0J3/pRAfzAPDflfB/uQz3h v2rpNfetGMq1jT1f2Gtwe+x7tPYSGjSvSbXJx23NAloET0Rp+Dd6HPmZDCe/ wth7q3p01uvD+VegNuVuzpqhnHlP1Js61QTvQc1wCm2FZ6Fp4f9suNh8FspQ Ei4wz6UEjYLXEfNrwmtSbc2x9062jPrNmvKwvwnuMJ9N5dgObw/1ad63wXXm LJtqH4mP6/g6hAapNxPy0Yw2mEusO7BJvTaPpTWN8Erzu6McVpjHkH+d6RHz mlWrat4Cbw71K8dOuD72Wf6MGuCy4E/9LIfHh3jyP8F8jdZqRirhecF/Gs2H P5iftc74PTzavJeqYQx8QHcq3K/X8Mtw3zQ/A+Yzmg335TxcQ4wfxPqJauGq 2O/Wd1QdewzF0sz8MveZD/fllfkarZWP6XC9ea4taCdcaz4repNmwjPC+alH NfBu87dH57UDPmW+VzN1Ur0M86fzTuktC++ZbBXmMVrC+7ELHhH73dKZ6+xL wvyo56XwvvDeqAc98JnwfsjHafg/AXWZJA== "]]}]}, {RGBColor[0.6560142259465636, 0.7431583220589835, 0.32907901780555154`], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwtkskuRUEQhjvasTJzucS4MMdMuOaZxBBEImK4cSVCTEsSwhUJIrwBGxZY 4TEshXfAQ0h8larFn+/v6jpV1X26NLY3u5vgnBtAHi0Ezn0TmIcVrIfRCOph Mwy74Qzqxs/BSdSFn4aNKBvfAJNhDUpBEa9+zOLVtpfltUcIrqAhfBNsRzn4 NtiCQvhmWIUy8ZWwEKXiCyQXVeJzYZ/k4XvhAMrD93vtLT1H4anNHPfaT/q2 wlKUgS+HJSgdXwaLURq+CK57vY8d+ISW8Y9e1xLfhpdoFR+180lc5gvbbHmw DmXha+E46sRPyCxe72dQYigX3yG1Ub78DxiDa07njlqvGOxx+l+W0CfrO/gB j6z+IXzwun8Pj53mnKArrzVv4AHqwO9bTcmXc8ad9pL8mPm41ZKcM/hsdc+9 fi91pryuJX4Bk7y+sQBu8M4S4Wag+7c2U73dnbyRN699XuGLeYn9JTr3Tp12 vl1Ev/hIoOcYtvuJWHwp0Fzp+4O+7H7knm7s7Nde9yRHZtyy2WTGf+Y9Rzg= "]], PolygonBox[CompressedData[" 1:eJwtklkr5mEYh5/mxhFmbO9r34qxZGuGse9LGEIkhfIqZRKnipgZB5jxEThy IDU1voZD8h048wmU69f9HFz9r571/v/upyq1t7D7IYTwFdKg3UIY5TsGHfg3 SOAFWoNfwCaegr/myH/Cf7wcPuLZUIafwzG+AWf4Dazhq3CNP8IlfgS3+HJ6 CM8UdA9vFPTA2FXwNa/4DvMvzGWoNnyH73isdxv/F+/Tnif8i3nt+dCGl0AW 3ghd+Il5LX3w2xx5L/zCa+BT8H+qwOsgF8+BKvwAevBu2Mdrzee0pxKfMz9L Z86b16haleEfvAjq8QYoVpbmWSnTTfx7PF9nzODV+od43xS+GOvthyX8B5mk m2e4gm9DmvmY5rr5JoP3tBNvNc8mD5rxgVhPne7ES817qcyUXdJ8TmsKlS18 jusT+Kl5L9UD9X4MivEiGMbvzN+K5tWr3nieerilf4HC4DX24EPmezXWb/4m lZ/ubMFHzLNTPYPmmSk7veF184yUlTKcNs9Y6zP1JlRL7I/mD/HJmK9qHsdn 436NaW7C/O3ojFG8yTw7vYl6/B0BMUAI "]]}]}, {RGBColor[0.8158282765970009, 0.705610548324564, 0.2533417728401284], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwtj8sOAUEQRTs6Iggi8Y5HCCZhMSussfNIECwsxmRshS+wFHyK3/FFTqVr cfvcqq6pud2O7rtbzBhTRxYFHHN4gR8U4l/wiQL8EZ7QFO9ZNyfzETygFn4P z8bNP1CFOgXLcI0a+JXunhm3a2Fdhg5cqpfeJG5MAl7h17p9P/jW7yWjp3mG sIDS+BrcoiZ+A8eojx9ZdyczVc0ZaoYSdRIWYVezydty1D2Y1770pM5onYW+ 7pf/DLQv93//hhcp "]], PolygonBox[CompressedData[" 1:eJwtj9sKQVEQhifjYqOcj+WQwgVKKQ+ASxSS5GLTfgCewC1exVv6plkXX/ub vdb8M6ufPI+PlIhUIQ1vFbnxfcEPP0Ms/u+Cf+Aears7hyG+hhjfQgdvw8ay YCXe88VP0MO7cMBrkMEjqOATWIr3TPFEPdtqyyqFeSMo4w3IimfU1TOicD7D 8zAQ7ymov8F2txlXfKF+187tLeVQW0ZRfQebbRljfK++u71xh7cgJ75DE/8D FmUTxQ== "]]}]}, {RGBColor[0.9012356232284956, 0.5672964663021194, 0.21358605951683496`], EdgeForm[None], GraphicsGroupBox[{ PolygonBox[{{777, 33, 776}, {783, 6, 782}, {856, 64, 854}, {810, 35, 812}, {812, 35, 811}, {33, 63, 64}, {33, 64, 34}, {858, 64, 856}, { 804, 33, 777}, {35, 5, 4}, {34, 35, 4}, {786, 7, 785}, {784, 7, 786}}], PolygonBox[{{854, 64, 63, 901}, {776, 33, 34, 778}, {811, 35, 34, 807}, {807, 34, 64, 858}, {778, 34, 4, 780}, {782, 6, 5, 781}, {855, 63, 33, 804}, {781, 5, 35, 810}, {785, 7, 6, 783}}]}]}, {RGBColor[ 0.8797782202997353, 0.30406465119632464`, 0.16261058012250681`], EdgeForm[None], GraphicsGroupBox[{ PolygonBox[{{804, 32, 855}, {780, 3, 778}, {778, 3, 776}}], PolygonBox[{{776, 3, 2, 777}, {803, 32, 2, 779}, {777, 2, 32, 804}}]}]}, {RGBColor[0.8573590000000001, 0.13110600000000114`, 0.1321280000000002], EdgeForm[None], GraphicsGroupBox[PolygonBox[{{779, 1, 803}}]]}}, {{}, TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{803, 779}]}, "75"], Annotation[#, 75, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{780, 778, 776, 777, 804, 855}]}, "72.5`"], Annotation[#, 72.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{784, 786, 785, 783, 782, 781, 810, 812, 811, 807, 858, 856, 854, 901}]}, "70"], Annotation[#, 70, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{788, 794, 793, 792, 791, 790, 789, 787, 815, 822, 821, 818, 862, 867, 866, 863, 904, 905, 903, 902, 937, 978}], LineBox[{802, 842, 843, 844, 845, 848, 849, 852, 853}], LineBox[{1388, 1335}]}, "67.5`"], Annotation[#, 67.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{936, 935, 931, 930, 899, 898, 897, 896, 892, 891, 888, 887, 846, 841, 838, 837, 834, 833, 830, 829, 827, 826, 824, 823, 820, 819, 817, 816, 814, 813, 809, 808, 801, 806, 800, 805, 799, 798, 797, 796, 795, 825, 840, 839, 836, 835, 832, 831, 828, 870, 877, 876, 873, 906, 909, 908, 907, 943, 945, 944, 940, 980, 979, 977, 1007}], LineBox[{1336, 1277, 1367, 1369, 1386, 1385, 1384, 1387}], LineBox[{1371, 1337, 1372}]}, "65"], Annotation[#, 65, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[{1006, 1004, 900, 976, 975, 974, 973, 972, 932, 927, 924, 923, 921, 920, 919, 918, 917, 916, 893, 883, 882, 881, 879, 878, 875, 874, 872, 871, 869, 868, 865, 864, 861, 860, 851, 859, 850, 857, 847, 880, 895, 894, 890, 889, 886, 885, 884, 910, 915, 914, 913, 912, 911, 948, 955, 954, 951, 981, 984, 983, 982, 1010, 1011, 1041, 1040, 1059, 1089}], LineBox[{1278, 1237, 1307, 1306, 1303, 1308, 1333, 1334, 1359, 1358, 1355, 1363, 1382, 1381, 1380, 1383}], LineBox[{1280, 1254, 1281, 1279, 1282, 1283, 1312, 1313, 1315, 1318, 1319, 1320, 1338, 1339, 1340, 1342, 1343, 1347, 1379}]}, "62.5`"], Annotation[#, 62.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwV0LtLFXAYBuBfpFBwjqLiWuhiapppa6SmlWJQRwsJynPOXLbVWmv9AyYo OdjlhA2FouStvFaTuHgpDS+VQvvBI+rT8PAO3/K+X1HyYazzWAihi9qsEC7x 73gIxfI0p8glhygRdtx/s8kGv1hnjZ98Z54ZpvnCZyaZYIxRRhhmiEE+8oH3 DPCKd/SToo+X9NJDN+N84ytzzDLFMj9YZYU0hxyQId+OAko4Qz2XidFKgjgP uM9jHvGUJzznGd284A2veUuKUcYYZ5IllllhlT/8/f9LdsnKDuEEJ4kQJZdS yijnLBWco4oa6rlGMy1c5wY3idHGLW5zl3bucYcO4iRI0sRFaqmjgUaucJUL VHKeagrJY1//NHtk2GaLRRbo4hNHLgVUUA== "]]}, "60"], Annotation[#, 60, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwl0r0vHHAAxvHfuTsvd4k0da5eehpSo6FJhURiYqdhQxM2EpZKWEhYSGi3 dmBloZ0s5i7apP0LtHVeQqq4444Qkn4Sw2f9Ls/TODzxZjwSQlgkGw2hJBZC ggrKSfGMNNW08Iouuumjn2FGGGeCKaaZY54llnnPB1ZYZYNNPvOFr+zwje/s 8ovf/GGPLKfkueSKAkVuuKUyHsJTqkiRpoZaXpChiQZe0swT4pRSRoIk13r/ OOOcC3IcsM9PfrDNFuus8YmPLLLALDNM8o4xRnnLEIMM0EsPnXTQThutvCbD c+qpo5YakpRRSpwYUSIEHux7zx233HBNkQKn5PlLjhOOOeIw+viP/1x9R0A= "]]}, "57.5`"], Annotation[#, 57.5, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.5], LineBox[CompressedData[" 1:eJwl0Dkvw3EAANCfpB/EP1GJI61U0oSwumnSwVGxiDoWlM2xOVaK0W13NI5Y hBQDiUaEr+MlHd4XeNHkQna+JoQwQV0shIg49TTQSBPNJEjSQitddNNLH/1k GGGUHONMM8MscyyxzBrrbLHNHgeccMwRF1xxwztvvFLmhWee+OSHP775pcIX HzzywD133FLimkvOOeOUQ/YpsssOm2ywygoFFskzxRjDDDDIED2kaaOdDjpJ URurfv8D2gsvoQ== "]]}, "55"], Annotation[#, 55, "Tooltip"]& ], {}, {}}}], {{}, {RGBColor[1, 0, 0], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQzXV9cYEt13F7Jemouts739qvc39YJbLuuH11hdgi 1/tv7IN2yLW+Djxh/+Tr3Z03Vd7Yf9OI6T/09YS9X3bmsoCW1/YzweCkfWzT JfltP17Z24INPGXvExr5Tb7ulT3INPeHp+wDTa05SwVf2QMNA5p42n7RtrcX HDa8tNcEGadxxn7p5KKNkyJe2p+BAPviXOMp9zle2heADTxrr3zlUPf7/S/s RcAOPGev4DvR/WTNC3uw83acs3eNZfm2zO6FPdi4mPP2uTskJF+xvLBnAIML 9vaNe/YLn38O9c8Fe1Zt65+75zy3XwK24IJ9oq7X+d7c51D/XbB3W66j4ez4 3N4D7IGL9r/6nB4tEH9uPwvs34v2sp5zVhd/eGb/BuSd1xft45pMlvWffgb1 /yX7iR2p4WdXPLMHO6f/kv3Mk9cyOTueQcPjkr2S8z4F5cxn9sZgcNneftH0 TpkDt/cDANwcylI= "]]}, {}}, {{}, {RGBColor[1, 0.5, 0], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQzXV9cYEt13H7sFff1s60eGe/zv1hlci64/YZuTY5 OTFv7YN2yLW+Djxh37PriMm6BW/sv2nE9B/6esI+w+uRG8//1/YzweCk/Uwv ObGOotf2tmADT9k/fRSvo//9lT3INPeHp+yzxU+JPex8ZQ80DGjiafuQ44aR Khqv7DVBxmmcsU8Pfm7HfOGl/RkIsD853WHl+/qX9gVgA8/aX3Cv0Hlu+tJe BOzAc/YfahjKnT+/sAc7b8c5+7Tc1p/Pt7ywBxsXc96+4vrpjb+rXtgzgMEF +3vBlp5/XV5A/XPBfnvo2detQi/sl4AtuGBf/+WKqd3j51D/XbC38n9k6Z7J e8AD7IGL9vPTvybr9T63nwX270X7IAmWWd9Sn9u/AXnn9UX7D7+uL+N2fA71 /yX7Gwt42d3kntuDndN/yT5wPsubxr/PoOFxyd7qzLHaefee2RuDwWX7uUkx nbUHn9kDAMUTzoc= "]]}, {}}, {{}, {RGBColor[1, 1, 0], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQzXV9cYEt13H73IUKYSV2b+3XuT+sEll33J6LMf31 sweGB4J2yLW+Djxhf5b/1eqsNa/tv2nE9B/6esK+0+dTyn+e1/YzweCkvfBJ l1VBTa/sbcEGnrJvPvHBupnjlT3INPeHp+x19vmdq5vz0h5oGNDE0/YRcQeZ r1u/tNcEGadxxt7uwzqV+U9e2J+BAPuAqsk2AVNf2BeADTxrHxuacmGLzwt7 EbADz9lH1fZLX+N8YQ923o5z9hLhSzI+nH5uDzYu5rx9p1/TybRJz+0ZwOCC feXiC/y7Y57bQ/xzwX5i8L/Vjxf12C8BW3DBXiRbsKb09zOo/y7YrxH8dPg7 /9f9HmAPXLT3VGYo3bT0mf0ssH8v2j+/ESs+ue6Z/RuQd15ftBfc+nzbjshn UP9fsjcKvyDyx+yZPdg5/ZfsNesXl1uJPYOGxyX7LLM9P4K/P7U3BoPL9qZZ fT+1bj21BwASxcxl "]]}, {}}, {{}, {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[ 1.6], PointBox[{{0.19, 0.6982441803388993}}]}, {}}, {{}, {}, {RGBColor[1, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwd1nk81dkbB3CKSJSRNdolkuVerTIee6USKVSSMVqoZG8dGTRGhRhJQhtJ iEsRqcl6Ldd2bosSWfK91mTJzxL9njN/3Nd9vf+43+85z/Ocz7nLXU7vOTJL SEioGT/0e6s24/erBBc4fygfFd82AEc3GbK853FhpH1J0LDFAPxlEtv/UJIL rq8FTz+ZD0CFncXv0gu40NRX5cQxHQCLSw+tOxdyYc50felBGACzhqOaYYu5 cEm8kzzdMABG3oK2N7pcaCtVFT27agD087p3nLTnwh6efKHJ7AHoEI5cqZTO Bc05CqW7C/thlbCdn/4EF1Kl/x56eqYf5rm6efDNK+H3M5ai/I398PDKMrfe uEqwdNteqDLaB59cx1v8mEqwOLRF/XheH3Bn+e69pF8FJUWtu9T9+mCfiIG3 UHgVcO7fMH25oQ8CClQlxj5UgUOWiefUdC84sjkP3LSqQebeEaO5Jb3w1skp 3+ZCNbiUf9H852ovDH+19+Zwq6E51DT7pn0vlJp8145cVAN+tptDypb1go5l 7pH2YzVg0/67ucJgD1jLySVxXtTArzuCNzUX9oCcWekfE1I8WDTqdHt9WA/4 qUW/f3aAB4odlamHHHsgjCei9y2TB+/S3kbZaPXAJrU48TtTPIi0EF/DzOqB BNP6zzW7a+HQ8pB3ke+6Iblsj5Pn/VqYJ9P8OjOjG7ZOjNmFDdbCtOab7IWh 3XBnyNBmmWkdOBT7V/Yc7oaoxNRyzag6ODXLIO+jQTesznRsf9JSBxZOLUFd yt3gHfhsJku3HuwWd1kWTAjAQUwndlVAPfhu/S3GplkAIzY7dZRIPeRp8pun XghAUah5o4lMAyyu2N7VnCQAUdYyuZxNDSATIDZH/bIAeKYbR5xdGuA+R2S8 zV0AztlO8y3DGkB37tRQk60AKqzWTntkNUDFygORGYYCEKuv6SdNDcCsuhNl riEAubQLSl4/GyDW7fJlrrwApl2nLaw0GsG6tSrDXkQAuecjOUesG+F+uGXQ g1EGtpRwB5/7N4LRQLZMGsNAYl+j9o67jRCoUdco94GBWo/+xwrcRrCKHC4V 1DLwnt+0euVQIzzOiBBzL2WAvUTZvJK69TbbDB1x/JDLqeFGkE3IO7MEbTbd npA/0gjqBbLW/BIGctT6ftk51ghmF302G6Ijzk1P+U41wlG1F18VixkwX7qi oUKUgKGET2f7KwZy3U+cdV9EwEz68vfiQgb8x+4FiCgTWPZPystk9KagppAk dFuVV0Io+tUt8yiiQkDeVippF7qyculj/aUErN5Ycz4WMNCq9qZZQpWAePRc xYnnDIh3GkC6FoHASWPGIp+Bag8fc3NtAuzJpuC16PDJtB2f0dWZyptk0DIy Cg4LdQk80U3+0pLHwGLjIc8LbAImKcW7/NHsOyn3d2wkkLNd2zn9GQOOB+fP 6TcikHCp7rLaUwYeam8T/8eYQNxgyrQk+ptwkIS+CQHeO9XrI7kMhDz6Pv9v UwIVEkqixeiM758UVC0ILJnbrH0IPR2ZruG4A9d3uPzP+BwGksq27eLtIyDj pbdKg8NA982g3T52BBy5E0MyaPaJIptF9gQ+xhz78CObgYpfdO2OOxA4emPz eAP6q5PCYZGDWL+1+X7n0TDR5WngjPV/puhJshho0wqOyXDH/Wj6ucQ+YSDK hHNp2wkCzr3yZSFoE/vP7l/QJsKjBj7olMAtxiqnCMRsdPa1RrvzRwaunsb9 VwhNzkOPnnXdesKXgJCHi3NoJta/zHxSIwB/35F6KzKDgYImn65ytHbq045A tPvAvYbfLhHYWfbDxBtdKz/z8FYg9l8Mtu9DR7vl2c4NJqCYdfWkClplwerM 7lAC3n+bz89KZ4B1QNw5NYrAFectr7oeM/BY7LK+UTQ+z61X4yN6xTNhuQ9o daOB9Dq0rPRUlUQMzovD1+F89Fj5gJ5HLNaf3XrtKrqQxRdbf5uAyDXfbxvQ 7M+7O2rRTf7OxWvR6dd4RUcTCFTq3H20Ap0gKPeKS8T+SCoXzkcHJD5vnrqD /fOY6RakYf3mJmWVJBN42nTBPwldmLfoysEUArEpyRk30HquN11H0UlGyyeu oVX/va6klkpAsl3u7QX0HL/g4LA0AgE1/XEH0DVtx+2tn2D9LWysVdBmEV2s HvT173l9suiiLS6SQVkEHnt7Jkqhn8QeLM7NJmD0vtX05yMGru+00lTIJTCz PS2hE733ud7Plnzs/9vRP7KpM3PfBj8n4L+cPZ1GfV8vQ6OAwMWI/NgH1Nf0 9vsVEryf4hVvUjvr5Uq+JKD2vsT+EvW+3LActIiWcdo5aks9Z4dXBFSTxeR8 qdfpSSX/S2Dt2Mktbmhbcb1jW0oIuGrcKt2L3jOd82s72jHMQbCbepgtG1pK IFrCedUO6k/sYlJGoM5z6zdj6my2sjuXgDvvTLEudUrO0IJKXO+Gs/lrqePZ lc/Q1cWvuerUIWw/4WoCmwzWbFxO7cCuj+OhXzvZLKTelZNiWIvrWXdXSZra hH3xC5pXpfFDknotW0O3nsBJBzlpMerlOT/fopNtzhiLUMuz311owHk9uTxc mFqIHcxtJNAgYuXzIxX9nbP/FMH8Cm6QmqTuZeku5OM8rLhd8j/qN6wWpzcE jpeLXxihruLkirwlUFiZHjBE/Yp15THaYiA2YZD6EWvj2Duct3jz1f3UiRyp hPcEIlbMjemljmZ9MW7C+efJKvdQh3IKBWjJm8eLBNQXWVHhH7AfwSJnGWov zjG9j5hf17t3dVEfZRl+QBv+K2v4hfogR/ZSM57fBWHbOqmtWX2qnwgcCDQ/ 1UFtzimuRhMZy4x2an1WnGcLgZCKWNH/rMPxkG8lEHRb81wbtSrLvAhdGCUu 9p+VOMoun/F9aVpZn6nns4bF2nBe2+O9/vNsTmUmeo6BtRW1zbjuHdt2Atb5 u8ypn2unOH1Fjz2/tZd62RGlJWEdBPQVKs9Th94Ob1nZSUCFNOVTf20UTnyF jumpmUffv0/c33H/F8z/Q/f8qYsMe5VH0a7a+8epV/o5NUd04Xk+OHKd7udK OonXYAjc7zptRPc/1G5xoIyh9a6bQ+vjoPhC6bAA82aB9Bfq11Y6HybQ0ll6 TbSeqy8/iIvpxvlN39xJ6x3xQsFBpwffJ7JClPZnbOiqQjX6R0H/r93oMiff 2J+9BCb1NUZpfzVvdO+L78O8n3Pbi/Y/usZRbn0/zqf2oOhXtPMm8xj3AQKW MYY+dH64HgW2ol/xvJLNO+l8aadoLbyLTjqpYPAdPf2LfPTbQQJO+eecJ9Cu 267YeH7DPDk2EzOF5gXMSM8bwnr5HmmbRsf3MZFGwwTWJX98MQvnfUN5fnj6 KJ7PA79dlkInTmnusviO6x0c96TnSYR9V7IdXdbu7UPPGz/p76vy/8N6NUu9 VEJ7nt0f9ucE/h9Y1eayGv3+Se02lUkCe+9cEdVEG3YZi+ejZ/wU/tVGS+5Z E9o/hfmyucl/AzpNcyrEfgafLz82boGWdjltNozO88vdQ/PjbFzn7PCfBAxY tqU0XyxEeUElQnxY82pzjwO6ozUhUGs2H6x1Hmw9iVaJNrw4W5wPHR4CK5p3 w58XbMlGayu5liWiK7XaJxzn8mGR5BG7ZLRvVfCZPAk+5NWM1HPQNUJV3m5S fFiRY6ZUhz5/2tatXoYPDcpPRSQxn61fqqpfXMiHot1+JjS/1eaNMeqyfNDn FSbQfCcP41yD5Pgw/w55qIXWaG05vF6RD93p63+xQTftPG53ezEfjrpUGSbS vI/fLLdtCR96l9abpaJDuiXejKIl1PYf46B1QzJtrJbxQVpyUrgCHfpieKfw StwvnA7/ht6w5g/TY+p8eGiyetoS7zPJs1azZDX4UBLmVWOH7ihfWvwaHaBk lOeCjvitxHCRJh8KZdzbz6OZODH9Wi0+uJ4cCs9AFzFN4+e08fnjh4wK0NHr Huer6fDhDc9qQQXasGHn+kBdPjzZ/XJWG72flywZXcviw8y0/uoBdO+JwZwP 6P5Rg+OT6NcFr73+YvPBY11puRje/zfEonX19PhwvagW5ND/B7FyFCw= "]]}}}, AspectRatio->1, DisplayFunction->Identity, Frame->True, FrameLabel->{ FormBox["\"Ra\"", TraditionalForm], FormBox["\"ktf\"", TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic}, PlotRange->{{0.18, 0.3}, {0.5, 0.8}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6151163260751963`*^9, 3.6152826194361143`*^9, 3.6153747540264225`*^9, 3.615374977395997*^9, 3.617036659012621*^9, 3.618239299051756*^9, 3.6182913488998175`*^9, 3.6183125392523565`*^9, 3.618317168986534*^9}] }, Open ]] }, Evaluator->"New Kernel", WindowSize->{667, 669}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.4399999999999, 841.56}}, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 372, 9, 112, "Input"], Cell[933, 31, 1384, 42, 92, "Input"], Cell[2320, 75, 1372, 32, 52, "Input"], Cell[CellGroupData[{ Cell[3717, 111, 1231, 26, 72, "Input"], Cell[4951, 139, 19662, 335, 244, 14848, 255, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24650, 479, 168, 3, 31, "Input"], Cell[24821, 484, 9951, 200, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34809, 689, 597, 13, 52, "Input"], Cell[35409, 704, 12459, 216, 244, "Output"] }, Open ]], Cell[47883, 923, 572, 15, 52, "Input"], Cell[48458, 940, 616, 15, 52, "Input"], Cell[CellGroupData[{ Cell[49099, 959, 574, 13, 31, "Input"], Cell[49676, 974, 2740, 56, 250, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52453, 1035, 182, 3, 31, "Input"], Cell[52638, 1040, 11145, 221, 75, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63820, 1266, 984, 24, 72, "Input"], Cell[64807, 1292, 22430, 378, 250, "Output"] }, Open ]], Cell[87252, 1673, 871, 23, 65, "Input"], Cell[CellGroupData[{ Cell[88148, 1700, 399, 9, 31, "Input"], Cell[88550, 1711, 428, 7, 31, "Output"] }, Open ]], Cell[88993, 1721, 190, 5, 31, "Input"], Cell[CellGroupData[{ Cell[89208, 1730, 323, 7, 31, "Input"], Cell[89534, 1739, 804, 21, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90375, 1765, 885, 19, 52, "Input"], Cell[91263, 1786, 331, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91631, 1798, 1439, 32, 72, "Input"], Cell[93073, 1832, 10154, 177, 250, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103264, 2014, 1226, 29, 72, "Input"], Cell[104493, 2045, 37666, 668, 252, "Output"] }, Open ]], Cell[142174, 2716, 786, 19, 54, "Input"], Cell[CellGroupData[{ Cell[142985, 2739, 1901, 39, 212, "Input"], Cell[144889, 2780, 678, 11, 31, "Output"], Cell[145570, 2793, 681, 11, 31, "Output"] }, Open ]], Cell[146266, 2807, 307, 7, 31, "Input"], Cell[CellGroupData[{ Cell[146598, 2818, 1314, 27, 72, "Input"], Cell[147915, 2847, 37217, 655, 363, "Output"] }, Open ]], Cell[185147, 3505, 653, 19, 72, "Input"], Cell[CellGroupData[{ Cell[185825, 3528, 789, 20, 112, "Input"], Cell[186617, 3550, 346, 6, 31, "Output"], Cell[186966, 3558, 349, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[187352, 3569, 339, 8, 52, "Input"], Cell[187694, 3579, 9663, 198, 75, "Output"] }, Open ]], Cell[197372, 3780, 559, 15, 52, "Input"], Cell[CellGroupData[{ Cell[197956, 3799, 3307, 80, 382, "Input"], Cell[201266, 3881, 711, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[202014, 3897, 516, 12, 52, "Input"], Cell[202533, 3911, 1600, 39, 230, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[204170, 3955, 316, 8, 31, "Input"], Cell[204489, 3965, 2189, 52, 172, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[206715, 4022, 489, 12, 52, "Input"], Cell[207207, 4036, 1561, 37, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[208805, 4078, 415, 10, 31, "Input"], Cell[209223, 4090, 471, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[209731, 4103, 931, 22, 72, "Input"], Cell[210665, 4127, 6082, 112, 239, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[216784, 4244, 1211, 31, 132, "Input"], Cell[217998, 4277, 65580, 1127, 363, 41576, 732, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[283593, 5407, 586, 15, 52, "Input"], Cell[CellGroupData[{ Cell[284204, 5426, 3470, 84, 394, "Input"], Cell[287677, 5512, 341, 6, 31, "Output"] }, Open ]], Cell[288033, 5521, 638, 16, 52, "Input"], Cell[CellGroupData[{ Cell[288696, 5541, 3472, 84, 394, "Input"], Cell[292171, 5627, 320, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[292528, 5637, 1706, 44, 172, "Input"], Cell[294237, 5683, 43057, 760, 363, "Output"] }, Open ]] } ] *) (* End of internal cache information *)