(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 167869, 3400] NotebookOptionsPosition[ 165943, 3331] NotebookOutlinePosition[ 166351, 3349] CellTagsIndexPosition[ 166308, 3346] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tan", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Large", ",", "Bold"}], "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "10"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z0", "/", "z"}], ")"}], "^", "2"}], "-", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Large", ",", "Bold"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", "Automatic"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Thick"}], "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"P1", ",", "P2"}], "}"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5", ",", "10"}], "}"}], ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "2"}], ",", RowBox[{"3", " ", RowBox[{"Pi", "/", "2"}]}], ",", " ", RowBox[{"5", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{"7", RowBox[{"Pi", "/", "2"}]}]}], "}"}], ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.810192820539834*^9, 3.810193094881299*^9}, { 3.810193186063257*^9, 3.810193321525538*^9}, {3.81019336194764*^9, 3.8101934707939463`*^9}, {3.8101935255500813`*^9, 3.810193580601263*^9}, { 3.8101938541968403`*^9, 3.810194122542102*^9}, {3.8101941543419437`*^9, 3.810194231634392*^9}, 3.81019432543858*^9, {3.810220333872024*^9, 3.810220334217305*^9}, 3.810220484978569*^9, {3.810220573620215*^9, 3.810220602330409*^9}, {3.81071242793675*^9, 3.8107124282729473`*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, { GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwtk3k8FfgCxblycS0TovQiW5O0h9S4Or/qTYu8mWi3TLpoHYWMNyERSZ+y ZJuIaCEtupZmMmQrham5LskuwuW6Lu5+XUs9733e+XzO5/vPOX+dzzFjnHP1 pSgpKf0y5/9SpYrGGrC7ucXv/1w2UulgknwOi+/PhFjNcapwrU9H0iVIGU5e lORL4Cw4OflHUgIa6kpH3JIT0Lkj+lVuUjYsJaEldqnZ+Hg0aXlWEhParND+ 3kwmXH826ryVVAWjoFHRh/Iq3BR5lKQlNWIXxfWGszEbcQYZ9GptNk65HLFZ dZyN5qIrS+1c2Uh8eL/NhsmGO8+DY9LFhu5KNXrl1iacddcMEPGbEOxi9/7j yWakOJ6MTZ/fgqrn91Prq1rQq2z+YvhQO5bxNbaPpnXA8o52hkdmO4a37Zk8 P9SBk98pwpr62hF44G7e1o2dEAWyt5Wf6oDPMzf7wtZOzBsMZ8WHdiI4+u+O ycXdsH7bxbHL7sZQDrt7U/EnOLxxom073weWjbjIXK8f81vyGu2T+1Dzgn71 GL0fg/2U1NUlfbiQURHPPt6PeKXypUbiPmzI3dy69WU/+h1W2gkCPyOvRH1j 9KkBxBZret0J7MdGtevs5axBtGa//30qYBBWsTqVIW+G8eSZVajg5iBScuIu bJIPI6IimgwVDcLuxC+tZAUXK7ro75qEc73nFwvs4rkIMyzoyw/gIG3LyBGW +wgs4uI0DwUMQcng9Ysq6ij8Q344VuLPhcw7xobzYBxOZ+n56olcuMZaq679 PA4LhvWEJ5OLoAOW60eNJ9C6m3pRfZwLGxr7Zs2tCTgaVd7yPDMCxbhPmpaT ALTS1Wy14zx4XNL9JsVFiMEn/1joeYWHvlpfXsV5ISqzNX4qfsDDOQpTe32a EAFXOaMeAzwkHjIQyruEaD+YpVbsNYpmnTKZ9RkRcqVa8HDn4+uRRO996WKE j0xdKQrh4zejMUNmtRiHe7jvqRl8zGz63vc0VwytN7VuRe18GApqr1E3SxCY EhZMPTgGDWUHU2qvBMSGX1C4dxxNUVl9jZBh8fJOiar/OLycx4bmnZVBvLje wT1hHCuqE4P/zJQhj/KgQZU1DuddSorH0zJoN7tz3PZMwLCJESGvksOv1Dee YiFAuH33y0IfBdbsdjFVthXgVev6zQM5Cgg66MVf/ylAR8z+kYEeBYKm9Vtn jguQEcHjMNymELLllbH8sQCK6uj8Qc9p0BsLmNJyAcxZDesM7k5j9mj6Vsl7 ARpXXFQ4cqYREenvKxwXIHPaNCPRfwYxtSYFoxuECJyJSptInsWuAzTwtgvR Y9bBSOudhcaQlM3dLwRV70vKmVVfcEPtbwknWIhHj6+/rm74gmSnUHpfmRBZ J7Y/VKYpkRx227uWbSLYWmS+K/q3MmEce+35YZ8Ib7yGPb99pEwsRM8mmnxE iA1yoVzpUiZ5+jH6jTFzOz0zal6ynUIKDtq6N/wlQqZvyaE4ExVydnjpWF2X CFNvH8UsP6xC1v2qeektX4R7eq9+4yepkOfp/fde64jBcKblm2jNI2XdibwK VzEKSkNTf9BRJWF+YWEvvcUweJ/gcspVlTh+OaFTHiSG/bVoqcYtVVK9FBtK 08Qo/Ktb18CKSuoYYxeKO8V4ahwxRPFUI7Hids2iUTHM4rBa8UyNOEXXZjFn xChr/HGvgqJOWLm3a56aSLC3O23t6SJ10sLdrfGQIYGdeZRfijWNTKRbfR8V KME+Jbv712JphLZHLfLoZQm8764sEXBphBTUTi68J0HNnXXdoUWa5EkAuLGf JYhZJjdk+miTt+Ymlr5CCVTpHU/3dWiTvg8zR7cqS9F7u7LM20WHGG4sa1OY ShHxK7X3pPM35PKUbd1pLykMDV9OXP1zPsl6oq+y01+KdJ7uUdV5uqTUQ7TF IkKK14ET15VddMlYJfOPrmwpiODS5VmRLlH3jxe9YErRspmvv3OXHjE381uT UiWFY4KXz/0cPXI4yjrPuVeK9bG9zJ3u+uS8rUa/1YQU5qltuqIKfRLPGTZW /SqFVohfYZDlAlK7Mze1wkQGskglQTq7gPRORjWlr5HhQ7x8XkiAAZl6xNAO 3iJD6pELDoMjBmStlumVNT/JUP0qUr+cZ0icKr5U0+Z+pXzj8e2B8wuJz9me maGLMnzbVhN5RmURyWBnBGVnyWCQELAn1N6I/B55oTC0QIa9C65e1esxIuwN h/mHKmTg5QRMWl9fTKipBj7ze2TIbMpm56ssIWY7JNl8vgyBIVTRg8YlhC5v 7qqfkUGVWxd94KExOZhftDBXSw57zY89b66bkIAjifsil8ix/ul3i8zDl5Ib tHMJnqvkCBqpNfsEU5JX/q93m+lytNZp7dFoMCXdxprbRe5yGFdE1E/LzYic NRLOOiPHJ8/WAx+zzYleRH3Z49C5vDk/y3G/BcndYRNYcE0Opf/JkvwHTU2t 8A== "]], LineBox[CompressedData[" 1:eJwlVnk01P0Xno2xDDPfsYRkyfYmCZXoxOemKKUSoTJpmnZbuzJF9CpLm1eR kkSRyBJCwvebClNJb9l6RWU3ClPGaPLO/Px+v3vOPfc8557nPH885zz3GvMO eu2hkEik7Jn+7xQEfw0bWi1DpP+VEnHtS/yF2+tk6HOgSarndzqhODsnLJIj Q4/bnx8IvkknhFe6PZwjZejgYwWUIFUkSsI3/qp5JkNPnH/Gh75TIEzLgvrS 38sQW2gwwUhQIFJGY5sjemXoh0fKI3tXBYK/i8h2UpAj7WoX8SROI1zW23rV rJGjsxLvhW0vqURZ7Hqn9K1y5FjgZhqWQCXM6w78EREoRxHH106t8qQSKkuz ZMsvylHdgTnv3D9TiA9GGvnVzXKUHbLxu0yZQrj5L0y59UWO3pbnJBm3k4nK 5HXRp0VypJtD3WCbTSY2KNTNv61MApnD7NHplWTCji8lB8wnAcEfpCVfIBHS XUGFXaEk0FEXHv19SoZzsZ8nq8NIUJ3/pSlzkQx/WctfmRZJgmNa2qNe3/7F E3UTOrZcJsELe6+Sau6/uEVzLqWlgAQFm87IVXym8c3LBnxffSPBSv+ItZR9 UrxqMMT4wQQJmjoE9+utpLhhsngkdpoEwpGAta4/f+HCMVq0K4MMu5YM9+08 +wuPzjbJJ+aTYU60ceej3Cm8kLVTXh5IhlO3m0desiW4Zu2QIPkIGXRcp54m 9kzi4UGHrh3jk+GC5Fx4T8kkvqr+zDy7BDJcnbXgGstnEu88ddu74AEZCr9b JXtniHGlwc77d4fI0Px2f9E59wmcV+PrmbiXArJwZ/zKoAi3K9dh6x6kgGMO xdbjmQinFP3zIfMEBQb/ljTz0kR41p0Av9I4CtwIydyc6inCe/7cG9CWR4GR vqQUae04zlsbFqw/RoGX9esqmjaP4bz25LjcE1RgZRrNsdo3gtu981trG0WF QS/1jfZWIzhFoMuoiqNClNj8R55IiGdVpV95fYMKL0fs6U0RQrwnPTtl9CkV lmRIDzXeHMZ5ux/fW0yiwe5tVsh7YBDfJWohiDgaVGPDzoVVfTiXn+hXmUiD 6NJzxy9d6sM5VI/RolQatLFzXXK4fbiv1vPZGbk0qDTojI+m9+FrHB+FRTTS QJRPFQj8enHr6EtWy5QUYAtPGEWm9OBTLLfU0lgFaKOZLdEWdeMXbSoO5pxX BGWN3UG/M1pxClGxNIavBCejcF6XtAzHLNe9/ZyqAiFHqWo2JQ1ogJ6BNd5R gVcsOnfukkZU1f9jc3GuCsxa11vsWtmIdmfe7IyqVIEdmAJuggtQpY5wyLhD BRL3V6ltb36NAujx1N2zVGHL13y/emkzethX7zCUrAq/ojkciUsLiq7TO/0u XRU8Lxscy4lrQb53QvHKbFU47erxJvptCyJxtN3iH6vCbeOtDGJbK/L+sMfb snVmH6rwOvR4G5I+o4UGazLgwh/bh5eVdaA1GS53x5MYEGg3/NVoexeKbXzX dTaNAd7cmIG1xV2oXhSgo3WPAU/fSGsbqN3IddWpS46PGRDkdKOnNr8buQyX njjbzoBrLyvS6uWf0fJFZh6a+mqw8JZhaSnnK7JpoIuXZquBbo6vYa5zHzo4 nrzwVYEa9OXNyX4V2ocKdU0DOeVq4FPhuHhhRh9aEAyfoxrUYKveTu86Uj+y xMIFgmE1uJm6scKqoR+Z+gvT/a3VoQY/Y0PmDaJZY2/czlSog6httMG0Q4hS /8J3DuPq0N6el1+EjSCdxSWnvRvVQbfd1DNz3QwOv15i8VEdCundjjgxgvSo PIN3UnU44GHarlH8DRnMkoiNnJkwIOL2FtwbRbefDLMuuDHho73D92P9o8iQ 82m+eAMTZpXfUifMx5BR5rOdgh1MoN+vcRnJG0Nz519sOhzNhBz/ck8hZxyZ I+PsuhdMaMWD5Sp8Ecr5qkFYNTFhrpuJokGGCJnHKHamtDKBc67bJ/aFCFkI RlhBA0xYxZjdy2P9QNfm+dcq01jALVpuGfjwB0opNbMsMWNBpSDZwknyE7XR MpYOzmNBs+um55FzJ5C2r46rvjULvJcz+Ys2TKDrUyrc8/YsaKioVJTnTKBU p/HkbatZoPH6CHdHgBjdbKgiUw+w4MXikAVnBibR+Jfi8LFgFuxbFnM0TVuC VktzRJ2HWLBo01AhrJagCaurX8tOssCsxf2FTZ4EbUgKerY3jgV81bSUybAp RNmuH/3qPguqK3t9W6ylaEsY+1d5Pgv8ezIYI/ulqOiK0uG7RSzofMBl4Xel iFM3wT1dwQLRYQG/aPZvVG7RBNYNLJhYESaZrzWNgn5EkJIGWGC3M4rXbidD darHTkYKWZB7i94l4cuQjlngeOAoC4hfE70WL2So3s/3y8pJFvSOrbD9e+bO GNVYE2IFDNqx47Wx7iQIazN16FHGgBl3vcPhyExOj+kVv1XD4GHt5PYraSTg z6Xfua+FwZ3hQ7+cxknQEvv5zFYzDIobF3qZZJHBMrNV4joPg23eXmVR78gQ XfX6oN0CDE4YcHl5cjJYf6/YoboEg+pI3eRwLgXivBJRzSoMLMyTg8qsqLB8 zgq50W4M9IY3FHSLabCG03KEt39Gf87OpguOCrA5bd/A3WAMoGLK+WmkAgTp Xm4yP46B+/vMhA41Rbip1ZlmdR6D7gVxXRVAh5zNoczQBAzeJ1JLDZLoUHKV /GfRZQxUT1y3S+ingwD7I9DuOga0Ya7psyQlmFI77uCQi4GEv/mElbIK0NYr PQx/iEFr3SPxwhAVYF1MM3xajEHEnrJl0x9UwEKlTtH5CQazlEknQvJUwc7d h3+mBgMffdutvnoMcI4b+k48w0Dj4zXjxEsM8FVktq58hUHBw/xNKZFqwHPN WnPuLQbpOzSZT6bVIDRmSXX9ewwsG5sbPkaqwzkK5657JwY3sNK/eq4woUyW e3jjNwyWOxh8rBXP+Oq0vD9xHIP9j8u6JlZj8OZ085b3Exh4vP99zCodg16p GPn8i8HVIh+h1yY2jDrGl6aQ2cD1XPzpbjEbpCf1LToU2DCgfN7pqYYGsCUu 6v7qbJDvFXnaDGiAgX1b9C02G8TzrWI0fTXB8vgBcZc2G+aa2Ho0vdKEFT+v fOIasuHqPJKE+UILPOxMPLNM2FAhiOD5uWvDlsPlz3st2PAgxsd/vEUbDo19 yttrwwZHvCFBTtKB09aHDHIXsyF74+7k+CwdiAuhJg07sEGi6rAg0UMXMkbm hQevYAOhzyn8Vq0HeZY13wpc2SDU7hL1xsyG8gOe3DF3NhQk+z66s0Uf3g6G rT7ixQaXTyvXdVsYwD/mKk9LfdkQxnlcKDYzhP496dbibWzQq7/MOK9nBOP3 bLLsd7DBdkhj9Gi+EUz3Ptc6uWuG/+jm/kY3Y1Ay8Yt/so8Nf8PV9YXfjUGT J5yWBrFhdkD/18jMuXDOUMdg61E2/P9/NIX/AJVZvK4= "]], LineBox[CompressedData[" 1:eJwtlnk01P0Xx2csIWEw3xljZr6FpEjZilQ+VyQi26OFytaiJiXJ0oO0oXhS eVBUlCUlu0cofKdCepJEMSEyWbNniUF+8/ud3z3nnvvPve9z369z/7gqnj6O R0RIJFKWMP9b/2T6r5xWpQLpfyHJVW+pN9dWo0LTc9nG9DkJ7rxoCB6sQQVJ k/GcikcS3KcHmz/SdKjwIFBxlCkqwZWUjzayNaWC/ejd1KBGcW7nViOFe9up kOS7/K/UKHHuM07P4IAVFXJDCeoxc3HukSqUEu5IhTuhG6Kul4txXwVOilcc ooJTXpHRlwpRbkjHwSatCCo8Skgr6RSQuZM7tt4/EkWFizX6D/RryVzvApZX SgwVHsvtc/ZLIHP3X2kTKNymgvrDeoe7G8hcY01nVUEmFaoMvHM6Qkncwr+N hvSzhfus5wR9cyBxNRfoz07mU8G3tcsmeRWJq9zQbNVVSgX5tDW6Z9MXiVl/ J9/at1SQMOz/1On5mzjdqb9ZpF7I53ZA0T3sN9FvqSi+pZEKKdUXNKLeLhA8 ZuOdvFYqvDRaE80zWCBKX9pxEwapoJ8V0xaiNE8EyFjLHZHB4NMJvyuesgJi JEDzS7I8BnGughHKx1ni6DepNB6GQXuRpNiNuFliT1HtRhtc2H/doqOPPUts cLZw1V+PwRHsg/vfm2aIyXTTHLIDBqVetAbOrWnCW1YlcPNuDKT8Ey5ou00T 3YEkU39nDNwsD7y+rD1NNO0kPvV7YKCN+2/vfDdFFI5tmf9wBoNT5+qtxOSm CN8tRtbJcRjwXRom6rMnCNKpuLAbdzAo4+VleIRPEDEpY0UX7mFAVrMpcXSd ILJEnrAOpWOQWe0WayU/QfBrGSMa/wj1SRrILfgn4bR77mZBEwYK0k1Rw67j xMZTlc1VCjQwqAh+q/VshKhKUZZ+RqPB+/VdsfXnRgjHjwEoU5kG0seCzfhb R4hTBusfX1OlgVunUebuN8NEpiDlnK0eDbLuupuhziFCKfIii+dAA+NjvPR3 KoOEIMXcc/AmDVp7AtaG9fcRJr+2xurG06Dcb/9Lj6I+4qKt4avARBpkJx9a ded8HyG5sEZVLJUGafSDvnNYH4G5yPFZRTTYqbkl9U/LXkKH2uph+5kGJ4xv 091fdBNHrvp4FDDoMPmVnf7uYxfRcDrJPTCVDolmFpmbVn8hNG9S5s4+ooMg 1EArpYNHXM6LiD+TRYeGda+ztsbziI0jZ/49WUiHK4VD9qqiPOL+CWuDw6/o UOTXftevq5ngHJ2XcODT4cfIQklk5idC7IBrnqaqEqhe8op3dWogNu1Q/f31 oRK8KbW00mVwibfbNz2Gewz4ZORvVv6sEgW9Ob8u7AED9AMDzDn/Emi1VdU/ FekMuK5L/Knjw0URNnYvjXMYML7hpHXi5ZfI/I8jrQaVDJBRsnfbm/sacd1v LVvzjQEvEjPls5bVopLggdPyK5UhtVTvICO4AWUUJG7iP1WGtt17Qtv7vyDO 3H5NXp4yJB0SYZTrtSKd7TizvkgZWBdq8lpCWlE5L3W+7IUyXJ15vLVGvg01 LT4lbr1ThkpxSU6iSTsi21ZuNx1UBsrDtIbu9A508Aff4YEmE7QkW0QjPnch VYOMbQnrmFCXsPhbbbEL9Yd66f+lx4TI7NaTY6v56Kz8EDXImAlbtOM06aF8 FG001WK3kwl8fv6GXI3vqCxCwnXxOBMMxF50JEV0I0xtLcf1CRPiF7ZQXpzu Qzdjo/c8yWGCWtZnlycZfWipyOC2yQImfMQM2wdb+xCp6wkz6jkTThiUJJ+x 6EdDyRrvi98xoelDtXq2ygCqUlbTkRlhguTntNfSP34gFHWJte8nE1hPZV2/ rxxEz2e7JNOmmVBi1hS8yn0Q5fMedBktMmFXzGnKdMsgupeA/32YwgK74/dW DNUNobMKytMv9FjgsnBYvOP9CBq9eI6/xJAFR0tTym0oo4gzzqt32MwCL+fv pyz+GEXuDbcz+8xYsG/WgdHdOopsYjBnxd0syCi2sY8IGkNqS+XLOYEs+KbX 4Z9/fxw1kiUvMcpZ4Oy+/ffMukk0kpPoas9lgXpijhTfZRJJuWhtjqxiQdCh zOOmkZMICm0nJ+tYUPsz2sq7axLlesYfbfjKgrLl34niu1Mo+rWqdeQiC76v jK720vyFHvn8o1EpyobuyrnXA66/0CumhdiUBBt2HeI4y8b9QgK/4xWeFDaU i4aq7CLNoGMr89ebqLAhe2QwWaJrBpmHb6VObWPD/biD6eQ3AuSu+2FMawcb dEKylkRIzKHgr+7vPa3ZYGXGyh23nEOFG65ENPzBhoWo6da4+jm0ovffmaeH 2ZAs0GLk9cyjLbEHPvOPsaF4YuAXZd0C2msyUsA4yYZbORuUowMXUEyC/IlI fzZcS3FO7Zb5jeYt9n31jGCD3uriAbLVIlKaGChLjGLD72Mtf80mLSL9lOCE hhg29HF111iNLCLOr2Q7k9tscB/taI2yIQEvs+cl4zEbHhiaVpuQyFAs6feo 4S0bQm+qOjndFIHekIvDle/ZoOBTbDz7SgSUxm8Y5HxkQ+/SpNxr0yIQ8iX7 1bUvbDhzNWTJNXdRMM/q7dg2wIbh4Za6JhCDAHxKXXeYDVcMxN9kBIvB41jR k8vH2eD12D4vtUQMpINXzM3NsKHsoUm4mb44NFq70IslcTjeJpplbrwExLjH XNOW4dBcTyPdCFsCGw0CM25RcFjn4HnhQM0SSGLF6Z9SwmHYUYFesk8CPIbf 22msxqFp0Xvd0lhJiPVoT8DW4mBevJgu1SMJVZ9/fBXVwcF/74e2pcZSsLpS wvubIQ7qm3wzPH5IwViM6dXEHTiEV6SY1hyVBlVR+w+R1jhYX7T20K+TBqdA V1qAHQ5Se3wiXA2WQalbcLrjXhwcd6pae8nIwI+ma4OwH4cY8xMh4edlgGV5 R2+9Gw7J8fZK33/KQJhOMVfaS7if05d3Ez2ykJ/+WkLAwcGtZq/jzGE54Cs1 2vafwiFKxvB8Z58cWJBH26sCcNi/wkBbOpQCso2rZ0MjcPDAPOQUnsoDWBiC d5RQv9R2N7YgD2eeb490icHh8qcbmwQOCtCc6okZJuBwFHo/LBNXBEm67wH1 JKH//XKGcYcUwTg6LE0xWciXM2dSUK0I9/3u6Y5l4BC3qujs1Xgq1PdlBXU8 wUGrg04uF8WAdKCMqMsR8nLVbgsKwOCwefOuJ8U46PbW+FVwaJBQ2h13uwyH 6cXBK8NDNKhdO9EWXoGDw9dyyuxZOqzFKBzPaqH/4YVldneUQDHvRXbGW6Ge OteCuo0BAkuv0f73Qn43/eXFphjQxVfQW9uIQ02MfuD3AmWoDak869OMwxWf 5/ox55iQR+OUFLYK76U6R15gw4KEfEww1YHDGvXcHmNtNhzu9g4L6cNhTKN6 hwljOVifV3pFDAr5nabI/1JcAXpKVWKiYzj4lsha5qavAEahzw6LSeG8TOXB WqQCJBtm1LUZHLqnwwmfXhXo66mpq5vHoeV6O1pIVIX6sDNyFPJy4N3JDyQf UIMZWYEpElv+/390JfwHJwPS7A== "]], LineBox[CompressedData[" 1:eJwlVns0lHsXHoZxVyhKJu+Y91dSoqScXH6bU4jCUUkXkZIOwiRiEoVihNJF N8URUUkSupB3jpAklGuEkhQi4xoxvvm+b6+1117P2s/+Yz/7+WOz3P0cPcRp NFqGKP9bj+ZZ3pzdSQDtfyHNXzn7lRu1iwCrBKeVLn1S/BX63Hen9hBgs/ma QD9Zir98n6J2+F4CFCLrTlfZS/G1X65tDHEn4K9nSVFzixl8dnS0np8XAZWb 3811zpTkH2laE+buQ4B0yu418p6SfD7qqt7uS8ALB/1AeW1J/t4yEy+TIwTI iXkxKx9I8K+LDafLcAkQPpqI0XpF5/c6pIxMHydAu7WyTuc8nW+Uutli6AQB RcbaH9buovObzDI7m04RIBhgHjARiPOVQ/eop/MIcIrzNDHREefveyPz95Wz BNwvSDFMmRLj56o/eRIbT8CXoRnmuzdifLtnSts5iQQkttzNPusvxo8drzhn do2A43OZ3W9KaXxxzirJD1kE/GN1olJKYZb6i9+xtfoeAfvPereseSmkUufE pVHZBKT5rS4+yhVSZjk9+E4uAcaGLyxVfsxQ3P4b3ICnBMQpN+pqtU1Twx6M IYVKAvi7FB3ffpmizAsem4lVibDs45JTWVPUeYl98aNvCBD3mpcxdniKWnm7 SKetloCQzMedcr8nKa9P/h5ZzQR8m1MwN4Y5SXXtamu1+EZAg8UZR/7JCUre dEemWy8BlhNa7TdsJyhDzfqAsH7RPNmjq642QcV8qZJ//pOA512GbwUPxyk9 n+dmq34RoHH1zvn872NU6IlraZoyLKgNynBiHB2l7rjO9zOVY8HP2tSZLKtR qtY80Xi3AguuehyULl00SmkxeA1JSizY91QhyK58hKpMCGYoqrNgC8Oh/jJz hJqfusNrWocFJ1rXbNL7LKDMIurXquuy4FVIhtKmIgF16IA93UiPBSdbuE5F lwVUsbZVcoABC+zl1OC2rYByf7S2ps+YBQGrk+t2FA1ROaXzV3/YzILVy/Of bXH8SVl/rZ8s8GWB/iF9mws+/dSJ5QnHH/qz4IG6/dSIYT+Vx7GeyTrCgqLT CSqPZvuoRcJiWnIQCzrvoL+MLvVRg6p3pCLCWHBv9632Hf/2Upesg+fbJbBg NrbatV7nO/XpvsaqngcscDSMi/M2+EoFH/E4pDrAgp79BbGhLZ1UjO2g5/qf LBDLy12wJrKTukIe89wrEO2TQd+9cWUnVdgUc/DOGAvePfKs8DvdQY2szz6w VsiCpLinmfx17ZQvfcTNaY4WnLwWTv/zfiu1/9LJnUmrtEDn46cxiYpGyq7w ho1qkBYokERYns5ranDaK5Q+rgXecsYbEhKy8T/Np/J9A9gwZBObv6WlHveU 63cmBLIhRXed+LhWA16R3ynz8Bgb9o4y7OsON+DC86auP4+z4cbofufFEo24 etOkjH8UG67foPhGBk34V5G/K+cyG1o/tTIMkluwXaqr7NEnbPC+prQJpbbj SwmKhpeesWHhYesnPcPt+EPoC9f8IjZomb1KmdrYgQ/sXFQwSrGho7CnbPFA Bw5RbnYNrGTDgJ3Gyxean3B6lF1B0Ac2SBxfqt7M/YynDpm6hfxmw4yrBLVw Zze2KdKBwBk29Hc4p78+3Y1vKCwgOLNsaA904OXldWOTvOHOQ3QSJu+e8V2t 8BWH/c50dZYjga7WoSRW/hXTE5Rd1y0iwWPAhXMFvmH5x99cxtaTYBk1Xu/o 24f3SDaaCkxI4OSERnbf7sMPdpQyB8xIqC7oHav50IftppPbuy1IuLqTYfvY sh+f3+jo0mBDQmWds1In+QPPayne83gXCc8cNLniowOYOZO4m8MlQXWpi2zI 6BC27try7EooCY2ZUrQlCwX46CsZtZIwEjQ2Jl5baibAVYmn3stGkqCAm/NX 8gQ4aAlnU/pZEpgral2D2cO4zt5hXXMyCT7ZDaXHvEbw7zXyl2dukWBtWaix 9vIIXqJeOcz+h4Rpt6FID/4IDu3GOf4ZJLSkDGoTC0bxshA9JJtDwsn80qwN b0dxRJqiiilFQrapeXaowzh+EF3lv/9fEnq7gif9Isdxi8+ZGt5LElIvIEdh 4TheuU7Ia3pFQq10vfmk5gRuezNA868j4ZAGzHs9OYHXjFUPpn0m4cKUy4Re 3SR2bY3Z/PoLCTKNOcYXFadwLLXh3s+vJGxVL/R7v2UKf+IVe5j0kWDUvYoz WTOF4xdnf2wcJkG/92JR1MffuMfqbJW0BII3hw2VpHSE2N3WjUAMBN+WRZVH HxPidjvDIHNpBOcCeH4WFULcsL2TxZVH4J3rVXnGcxaX7jcI6Z+HIFqsbpmW Cw3MPKVrpdQQtFgJGzfyaPDMq50kFyKoyGorXl5Ig1xOdN0eJgL5eGS2TVkM boa3La1BCBhPy/VLGsRgQWTuib6lon41M+6qlDhcOnO6nqGDQEFaV8XTWBxi 4/XC8UoEidrLeMIMcQi+EdmUu1bE3+CgPBVNh9FbziveGiHItSv/4fSSDn5p uhG96xGIpdiH/Zilw8G7zbpaGIFOW59Xf6gEbHuy/PRFKwTuR/x7g6Iloe45 re3hJgTrPS8YNL6VBNuSRv1qWwRly517quczwKI8/KOEg0gvrLal7B4D9Ovr DYKcERyENLvUPinIbsriXdiFINVsvOQCloalrSc6c/Yg4Lj/iLqfJA2LPy89 +80NgQu6L33XVgbkfx7vcv4bgazy+xhevSzEDDsYBXqL9EjXtXcxkQP6OEpI PIwgZYGLim6WHExN1/5RxUEQpcAfsuHJQxAt41xPAIKmCG7kF6E8COjcr+JB CMonfHYrBCvAd1ky0ZiLwCk2r7ksUBEOKE727AhFAPFBmY+mFKFTqcbkaBgC jRG9+MHIOdC0IPh7dgSCA396TzAd58LLJdV48VkEdbTgfbcTlcAmodNGNR7B rSixrL4uJagbG96ueA5B9YivvOw6ZegoW+gjvIAgiDnqfuS7MhxYoXts/BKC 0qtlp1QsVaD/IkQMJiGwUOZkm2aqwC93z6sd10X8yLvBkoHzIKyKe7spWeQn SQlz9a55ILk6IafmFgIZNdPNmVvng7JYQVlJGoIIT73tWzeqwtVDlbWF6Qio Vauc1CpUQbOurTXnDoL3vfrMlM1qsCJFXHDrHgJz8+i4mz4LII+hOp2ULdK/ pN1vlrEQ/vBdJnUuB4HbFms1YdZCsDR1YIbnifytNpJvyFgEb9P3ax/LF92n l1b1unQRbJM/ZuBXiOD+STfvAp4G7Gu7ucn1OYJd23R/G6xfDN8tHm3bUYxA N/802Y40wfdemat9CYJgzpxwmbkEjCm1eFnxEfyq+VLGvExAaEh/IC5FkDP/ ptq4FgvEPwtPritDIBER/CP4OQt41spxehUIrGnbPR7s0YIktT/SNKsQbLMY TJhbwYZ7rw4yc0X4//8jCf8BAHymvw== "]], LineBox[CompressedData[" 1:eJwdj3s0lHkcxmdIo85RiKhJ47K9v3dUziCXYte3rRNFhRo2nVJWSyZSaS2V sm6Ztgsrx91aSaaSMTmFdr6vNpdal1xSTG0uKW1uMe5i7T7nPOf54/Oc55zH yOe4+xEVFou1c97/5dBnk4aw3ylg/S91JnbY8Zgsl4KOJUf2GjVwmGFXf4k0 jwL/yMovwZEc5i+NAqqwgAKX8sTV2z4tZM7GmfLypRTM3CP+/CY1prdnx4E8 GQUVFO9B0lU1RrhVlJ5bMt/vMR4/vEuNMWPf0futdH4vu9h0tGEB8zZ8vWZq BQUCcab1605V5tsgAftSIwWVM8d0u21VmMJaV4f4Zgr+vHVBOc1RYbhrT5yL e0FBjlCaNvCSzSg/SCej2ih47rs7dHs4m8k7bDl8tpOC+BKQbqphMepC6+6g zxRsWJ/3OHXRHIbIPIwCRyhYFq61eqN8Fju1Qr1FoxQ4vfJnj5+axbL6Bwq/ SQrU+GVzxV1fUOS0seUQm8DdkOLJ0NoZrLezr3TXIhDBEhRa1E6h+OHp6W3L CDzUueqhnzCFjlb3zO10CQgiqsSPPKaQMTPOMllBYGhrbaHg3STKjNRDlYYE fK20og5yJjGF00InCwjoNUPCC9E4CqM1vMUWBAI5He+mNo2jNtvxesQGAi3j bzQki8fx0lQp28+WgGG3+en022MY0Z/dbgMEVsqdLWJGRvH7ZtEvbbsJPC9y XhqWqkRD17zHdW4Ebs7GWhgHK/F17d8TFXsIqO9SqFo4KtGjyu2IxJOALcVL ihgbQadSm2/OeBMI0FJtTN83gmbZqkOrjhOw55t3xQmGcSIgfc+hKwRe7Tzl WaU3hFfDcznnrxHQT7wXmPppECnx7fLMRAKxuZ7brG4NorCg3ESRTKAevYY1 TQax+INiRJhNwKnxhHgFbwCP+a5Kci4iELXP0iPLrA87DmS2WDcR6DebWNqW 1YuhgXkXhS0E5EkBYWpHe3HJubv2Ia0ExurMb1207MWvM/64IW0nUPopcNOV px8wrf1NyLpuAlX9NbmnJt/jXs/VusbK+X87uJW5fj1Y45ot1FhOg3/6R0/f H7sw4EmPnKNPw/5BgxQXly7UsF1Hq6ykwbE12MvXuAvdeaVTYwY0fJSVdfAa OlHR35TdsYaGpQ9jq0tMO3FAvPAfmRUN2V6bde83v0XdysAILyENPtGH1yao K9Bno31+fhINbtfNFg8YNuHR/rrR18k0VJ0cPlPU0ojBOd5btVNpSH7Brc65 2IjnF0V1ns2k4eDMwH6Nz88xo+0p1/0mDc5L2nQ64hqwNczz2swDGuxE4w7O Xc9wR9nJMDcFDfFH+7g/VFegW9CCmtg3NHy15bZbkE0FfmecvPzRWxqexPds ycln0E9cKqPe0TCjnWGtqoUY7cUamO6jgX1F30Y9pQzlU5d9bs7SoHduuYFE KsXKQp5UweKDgz3XW369CGt9pHOaqnwYam/9aWykEBXPWjLOcPjgMvjofnWM BCfSuC9dNfkgTBludLqTg3O77q6J1eaDdXTizJO+LFyo6hBSrsMH0c/b67ZE pqGOyEeLWsGHrH72jQlJAnJ5Su/93HleWrLO4oIYjZtjCq8Z8OG9wFIqk0Si aZzel0oeH+Llm39lJCfQ3K7AedqIDxnml+u7rRLk/wLHcFk8 "]], LineBox[{{10.997760032355126`, 10.}, {10.997792213606662`, -3.}}], LineBox[{{7.852038388556892, 10.}, {7.852082864005298, -3.}}], LineBox[{{4.712928315917085, 10.}, {4.712976139872513, -3.}}], LineBox[{{1.569483343183151, 10.}, { 1.569535306154377, -3.}}]}}, {{}, {}, { RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwVlWk81AsbhsfYKx17NVnGNv9CiGRJPU84Ea226bQIJ4VEZCnRopLoOJPo lRB6CYWGQiF7UXYT2cmSCJOmaQzx9n64fven68v95VJx87VzJ5NIpOTf/H+X j9xulpz+CldWKm8evKCJ/nGhQSJO02DjWxhFp2giGnzNfXZgBrp9u34Y7dyI Z0rcY8hqbAjakmjvUkSgzu6DVIEtbFB3yFVySCaQ3W1WsGzJBhurFxKh1wkM WJDpXDzJBua9v1rc7QkM2VGt+DOHDfzH14v//U7DiFql3Cn9b/D6e2d1qRkN U1u73rPM5+BeXExPz4w6urnWHOuwn4MemQp7y151VJvLm207MQd1rBustrfq mCkTIdMSMQd3zhi70NPUMddpy5GGd3MwWUWXJzup46s+xmS53XcQcB4UiahT Q9bEbvHHbhzgTjZUi5Sq4uz9DX9e8+cAxfn0d4enqrjCVvTq8XAOSJ79WfYy WRUxt5a3Jp0DVguHbd5cUcUnfjAROcwBtYXq8jErVQznb3nr5fIDPFHZX6ZH BXVXUW/oOHMh4Daj+NsqFbQpX6pc4cMFI2GtohKSCp7w6V8cD+OC4x6jDgaH iomtiQEPk7lQIHXn47k+KorEy52Q7OcCfSrBUCCXin2KKy3mjvyE1vcXk9cf pGKULpdU9BcPlmQDXk5YK2NI8G6tcS8evFdPqo7QV0bPiiRH+VAerJ5N41oo KKP1foucoBQe+BQq9VDYSijqy7A3GuFBPts41uC+El7P08ws8Z6Hzqb7a3vZ inhp03Hb0st8ONCRkx/4XAF9AgsCpxh8kD011B6RpoDHyoVT16fzYe2Q1sZn MQpotvcp52ItH4y/hj+38VTABe/5ZDPxBdj3I35XorICnn96l10euwCZWk5t oYz16KdVH1+ZsQh2BnMcvXAKjrqPXkktWoQIRmnnTn8KOqWSvK+8XYT07rDN 7m4UNJUzMccvi7DFPLz1kzkFycvZMxXav4B59ZdpkRAFY9ujrSoKf0G9r9Gn 9Oh1WHBh/3x51RIknmzY/y5jLfL/Pp3X70PC0ZU+iw3Ca9BF6vv5siASQsv2 0+f48lj3OsTiwSUS/iO3KpyYlUfGuqiPh2JIOLChwyv/ozwSLVlkVi4J9+g9 uGH2VB4dTMed3n0l4YoxvjI4ymOepOtykZcAapu37r2RJ4du5U4HGCfJaEz3 0He+KIv6RWul1/mSMQHvSkT4ySI5v6cjLZiMtJSQD0WnZDE91ZleGElGRqc6 X99BFj9dO+ncmUNGXTtX87hNsuhmE+StMEvGrZom/uxhGXTrio/MChbEI+Mq +ZUHZPDvb6zKykghZPqr9EdaSqNLCINewhDC6wNHDZW2S+NRwT0z+QlCKLdk QLw0lEYnuZr1D7OEcNNkdfkyTRqtTZhBYfVCOLJzltwiLo06V//RNhUTRk7O K7+zrVLIk9yVUHhTGG+HMr/EuUrhbb1i38wIEazJvvqXXqwkkiuLja6HiKFi zbGwQ06rUUrTtnkwYQV27dEkFb5eidYPzR+xY1ehaQNnqDlLHNfMNu66XLwa tVfI9G56JoqJb18JCHpKYvXKWyOBv4TRTHHnMvWEFFoA73FInBBqDUmOhgVI o4RJ2nNTQ0HMzZL2eOEvgwlQ+MhQgoyhA8c6tCJkMYbeaFr1hYR+Zsa2KXFy GFXVNlvasAz8h5ZuUwx57LkfXZArvgStZxNdgtPXIGtfSQDdehFMrFSX+tPW Iq/ZYOt/qvnQ8KdJFiatwxLNmeaho/OQwbxv8ukJBVUOCW2rZP8EOTVtL+fs 9fhaz/xHwTMutAuIha8rU8AG08QcpscPeCF2LrO1QRFn+5nFp404oC0n6eVW p4Tdui5/vCW+w2wMV9agUxlFyXTvLIk5ULt5U9fXi4q9podEL0p+g0+He3vM P1OxMU6g9AqVDdZjHfMvfFTQlyda0WQ1A+f93T3kp1UwxKEoLSr0K+wremAj H6SKjBBPhnD8JMwseoUKclWx6R6PaGJNQFrX1ec+59Rwa9GRJFOVz8D32O5y YUEN3566tTF39xgo/rpzxC9EHbWr/wjJiBmBcavod2JCGqhRMLSHnzEMNbRG UIrWwM4fgxc2ew+Cl1imkIo4DWtqpidCU3qhOFV9e80dGr4Xe993UKML1Jct L1bdpSEl8LRbmkwXMI65v6yIp2GmxFnyhEAXeFAyDcvu05BzVdf48EAnUOII nRdpNJT5J4fbcq8TQm9qKj9m0tCruSpiSrgTzH30BKLbaFj2RU1Jo48FeY0H 4FYHDQOH9eo1GliwXssv7OYHGlZwo4QpRSzgfGbOX+umofDNmay+f1mQ4Wow FzpMw1UOw0FvzFkg5rh1xOcbDcPfZ1PEMzugeZtZnZ3U7y6ZLeuKubZDVEng wi4ZAp2k/9Ri7GkHK8P8zdvkCOzk57qJGLdDpY5qito6AnOK194uW90OhSpi wRwqgb8CPmRZl7ZBgihrwz09AqNsNlLTJdvg747Tt7v3E2hhOm0m59AC1AMZ 1U0HCbx2jHI3XKMF+hoHeFW/uzhKu5TzgtsMTm8OuufQCVw2uzDgkdAM1i+N dlw8TuBlg9mBkY9NoPNQkK3gS2BcpV271N5G4Hk9sHeJIfADU/vOFLce/g15 JHqZQWCQwqbsQy/rgRb1pDQ5lkDpqvmKbRfrwTG7VK333m8/lRCz//UWCj73 fnd8SOD2u+L2Fvw34H1CIc72GYHF53eMabTXgmCAurVXAYHjrd4lp27VQuI1 7cXI5wT2W0drlUAtNKSbnXhTQuBwQaDN4ewaoA0f3bKzisC28y1au32roZx9 YuJ4DYEmkukp2YrV4EA6k3SpjsDwF3S5nHdVcE05TKisgcDkQysfmVKrYOhY MmtrO4FvFpxP9Z+pgOAzGZGOLAJDQ0r06fmvYXVYrllAJ4FVG3IWrb+Ww/ak 8v8yewj8Y3q8dz29DFhP6g619hGYTnnzQ+l6KXiXNq2aHSBw5zM4+jHnFST2 9AdojxA4qDFu2/mpBDZPjm2wHSNQ386OGj5XDPXz032enwl0ObkrMo1XBD/X Llk+niJQ4lGbV8en5xCzQWS+bppAS0Wh3ftqCoFmvDp3dJbAg07mj6piC6Dc St5VcI5A8W6Vmzl7meBAV5JT5RDoeSk1DwfyYeokrQG5BCr45E03DT6F8CCd sOO83/9RUhLFbmUDJWLr5kt8Ak9er/3vXmYGMON3jCUtEvje5oOUJDkNrDN2 3S9dInBSedCa3xgHH3NH5caXCZw6ciFpz7Vg+B9XGJAc "]]}}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, Frame -> True, FrameLabel -> {None, None}, FrameTicks -> {{{{0, FormBox["0", TraditionalForm]}, {5, FormBox["5", TraditionalForm]}, {10, FormBox["10", TraditionalForm]}}, None}, {{{ NCache[Rational[1, 2] Pi, 1.5707963267948966`], FormBox[ FractionBox["\[Pi]", "2"], TraditionalForm]}, { NCache[Rational[3, 2] Pi, 4.71238898038469], FormBox[ FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], TraditionalForm]}, { NCache[Rational[5, 2] Pi, 7.853981633974483], FormBox[ FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "2"], TraditionalForm]}, { NCache[Rational[7, 2] Pi, 10.995574287564276`], FormBox[ FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "2"], TraditionalForm]}}, None}}, LabelStyle -> Directive[Large, Bold], Method -> {}, PlotRange -> NCache[{{0, 4 Pi}, {-3, 10}}, {{0, 12.566370614359172`}, {-3, 10}}], PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}], TagBox[ GridBox[{{ TemplateBox[{ TagBox[ FormBox[ TagBox[ RowBox[{"tan", "(", "z", ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"GrayLevel", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}, { TemplateBox[{ TagBox[ FormBox[ TagBox[ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["12", "z"], ")"}], "2"], "-", "1"}]], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[1, 0, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[1, 0, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}}, AutoDelete -> False, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]}, "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.810193055467882*^9, 3.810193095972412*^9, {3.8101931980894947`*^9, 3.8101933221534567`*^9}, {3.81019336681499*^9, 3.810193438401299*^9}, 3.8101934712720137`*^9, {3.810193540218067*^9, 3.810193582757532*^9}, { 3.810193856999297*^9, 3.81019387536077*^9}, 3.810193923213236*^9, { 3.8101939546288643`*^9, 3.810194013722102*^9}, {3.8101940572533197`*^9, 3.810194232040711*^9}, 3.8101943263212557`*^9, {3.810220331162429*^9, 3.810220335121714*^9}, 3.810220486818245*^9, {3.810220575248172*^9, 3.81022060310401*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"3", "/", "2"}], "/", RowBox[{"a", "^", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"L", "=", "3"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"x", "+", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "a"}], ",", "0"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Large", ",", "Bold"}], "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick"}], "]"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "a"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Large", ",", "Bold"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Thick"}], "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"P1", ",", "P2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", CellChangeTimes->{{3.810405081775209*^9, 3.810405262460474*^9}, { 3.810449240980317*^9, 3.810449251081586*^9}, {3.8108823794368563`*^9, 3.810882380862311*^9}, {3.8108825208589163`*^9, 3.8108825213683767`*^9}, { 3.810882585148596*^9, 3.810882586356929*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, { GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwVzXk41AkYwHEhRY605eqwlTYkOSpnXk2PamMrUtqOFWpNJGyhVs0zholU Mo2rdU21KiNGB0vZfd12mKeVZBKNwRzG9TP9soNlbfvH9/n8+V0bHOl3Rl1N Te27L/1vtvmSyfl5Al9MWzsldR3zqJo1bLwyR2CH6k5BUIEzvO82YU/PEBic lqrcVLAXzDK+sScnCWz011ppWHAU8hZTImQjBFJdG3kaBVTgKC9JBUICXTev n5nNvwTcBtm7uzwCtR76FU7np0BNaH2lYyCBr4KHlar8HAgbXjgpLh9HvbRr 7uqPisFA7JS6Un8c25f+ftxf/zn0bBtgJJ8fw/ppSY/Iqhrsm02mztWNor12 xeg4H+Eqf0djn/ko6pnl3gydrQe/RYSuIGoEm+q3hJsdaYYDRSbVisZh1I1f OWLJ4QOl0q4mw2IYDev6LhU+FQAueOdWHatAa70roU/U28GhNnRZeOcQcukX TXekvwGB6Cef/duGcDLeJO+fFW9hwklHoyRFjn10GaOnphN0NNOXZspl+EjA iYrc0wVlOvd/mXKWocE6Zr0FKYTL0TYpt25J0XN+uXRRdje4ehcJeGMS9F3P 0i9c0wPMQO4tb08Jqvk65QW09EKzLL/oYsEg3m7i2zUeEgHr8WpXY2IARWsb lheriSGxdYXDCGUAP1jETV97K4bwwFm6z/1+9PK+1++R0w8fbSN9Nn4WIz1W HJ8cMQBe0e3nb/uK0bop05S7dRCKN/orfE/3YbWQUzioGoSefvPxOB0RGhO1 wtI2Ccwk/MmpaulFqVXAV34sKdhkX/cZPduDjLPqC5JDZfDknBsyln3AhREa wg4XOZhatvY5drxHFfvn8qk5Odw9Gj0tjBViNWq58zqGQCtysjbLoQsV+tpt cFcBdV5hB6o+d+L82iCK/PgwpLNUXYLctyhxeR1uvmUEvBuCdGe/70DnmKc5 9p9HwDRM4rpmrh1PVhTHdfJH4fFYsm3l+b9wwsTkmC9rDGqSLWMmCQFSPXst pP7j8PeSmVIzt1YsP1dxT9uKAO0TTErMixak1miuW0wQsCtrJ79C1YhxKVu5 bcETYObb9/HVnnoszWD9tkYwARm8iLzxG4i5z4qbf7BVwk4WLch+1Uuc8BPY ynOUwNHREIkWV+CcJjfnxKwSXJn7Yo0NynEu51nsx5OfwPOxXOrkV4SneU2l D1s+gXiYkmdDy8JEIVt2wpqEswd8CEeLLNzQZVuywoaET88PU9xaM7Glkx/5 ejMJmlepQ98aZaJex/wU2JNgaZC2NbSMjdmC8CXrnUmIcuwW3BOlI7dul53C i4R5lWhmM+0avikhL8cEkbC0Tslxb2XiRW6ah20ICetSNfd4GzHRqNhKQ36a hN2rrNnUskQ8/jDw5lEqCWmeMZseiOgo5bQVuEWS4L7MuMqOFovTmQ8aFlwl 4dSv7pr7jWIwN8Mj5SWNhKTtwQfDyy6gB7vb5wKdBMGx0qEiURQy0g26JIkk VO5OdthO+xF1b8QPtaSS8G9YR2tUWQjyrhuV0m9++d9eHVIiOoV+KU+jXdJI 4PJCN+6kHcEspnyGyyLBdWouoFJ0EF2SGBjCJuFOgqVhAG039jJWJ63KJCFk A1fCoG1HWkLV3ndZJOw7M/SmVnH4j6/ph/TSckj4D5wWoEk= "]]}}, {{}, {}, { RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwVj3k0FHgAxw2KkrtNM0Vp6S5p5Uj17fCqJcVgpVzPFWql2C2qJz0kRjxR k6koahuzTBaljI4hImdDWNNgyA6G34xxPLZY+8fnff79fIz9ztIDlZWUlBzn +d/2gZKWt4Nue1ZfddG8yVRA9QAtvJtqgTkrskX1jgI/ZTPvFVPtICRJR6Mz FXBoaP/rPtUVTB9+alC6Au4BUxXp1ADowlwPDAW+mF0/kEKNBGVWy0AWo0DO D8cSkqhxEF+qW00/pUCsevG6G9QM5F7YZ7HMUoHjHg+5MnkeXktNlH/5OAaN uVjPQ0ZcGDs5Nj49NQZT51FJZXIJ0lvs18oWjOFCow2Y4y/Bat5tSlhyGJTo iiiUN5BW/LaGYiPHc/GB+qZdfLStz62ua5CBH3p/hYe0Cg1FjycTA2SYWLtb u+DXGizZMGJyQlkG5WmOzgrTOnywdR1/b0ZgOef73KWwHmrKx1nfg0dRH2fR WL2xCf6qC08YPRnBqrThafZoM0Yo2UGFn6QYnuoWtW37BHXhu7MBmlLkDZXX ad0UwK2oqfqG1TC0DP8g/f2t4PGv72AGDoERUhqUY/IZJc9qc+ofDmJyL6c/ OKYdwruTHuENEkRurypZVtmBTJ8C7Z1qEnQXViW3GP+NK6uP6Uds+wf/hray NkR3IdaQtTXTawCb9qnNBpULsWwq/OAX5lccemR8qshAhK6P5n9mVPbjgqHP ml7Pbphfuax1/lsfNkvdNNode5Abei7R2qYP+toy9aqZHti5ODuFBYqh+obF /fFeL35fXr60LrsXpy3KOxc5iNHRob0us7YHnJ/9cl5PisHJN3yUPtqNiWGa zsDtPtR4mpGDQSKUuhxSybDrh90Cg45OnhAxh+OzSwb60Ruk96rMrAvGX+w7 cuO/4sVev48h+Z3YaRWXQd0+AKlO4sVplQ54GjVNUwQDsMt6Z9QW9RkTdSni 8Nj5b2qLb2pjK5iq3pF0EwkE9HFWJgTQF5U+Uq6SoE/lzMKwshYsuBLranNu EM6cl0tMdZqhxPbmivWGUGNgudxJvQHns7gpevwhsN/nHdUvrEXFpkR13bBh TPrz+qL9q6Frf37zNS0pkiL/DY12roRwS7MgiifFi756l7CZN3j2ACb93iOQ 8OWlBpUv4cW11DWcHYH8WnDbIk4xrsY/jBXmj2LGOuyDdGU+CiSGLK0jBNah dC8HBguJ9+N9RUcJnr9Lt6QZsRBAHzEtdCbQogq0B7lZWMnjPXN0J6ioceEn CO4iKfVkNcOPIMTUbR2fxkSw5V354iiCiB53uTU7A2vilh5We0KQX/BqsSMj GbPWlzXbnxJ4eNpWDHGT0DnS9+kJh8Bdg3c2UXADae7FXgeLCFRCKloraYmY 20iPiOcRaJq8fbCTHQdhS+oDFQGByCI50IlxCWUJU/6CNoJd6Yy6ZEEUMmx9 NuR2EGSRFLMa2kU4PN5asl9EMJafNr2bHYlXFxtqYwcJluzfvMKdcRq3t+xI dZYSfPi29WsDLRjnxPdcjcn8X5k5144dgPVHznS/HSfo8g5LCGCchCqlNS9t ioDeGkGjs13RU2ob6jtDcOvWmGcMwwG80Fyzbd/n+7/PLCpl2OLOKo2JuTmC kumNVnGfT+z5Dy44by0= "]]}}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, Frame -> True, FrameLabel -> {{None, None}, { FormBox["\"x\"", TraditionalForm], None}}, LabelStyle -> Directive[Large, Bold], Method -> {}, PlotRange -> All, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}],TagBox[ GridBox[{{ TemplateBox[{ TagBox[ FormBox[ TagBox[ RowBox[{ RowBox[{"(", RowBox[{ SqrtBox[ FractionBox["3", "2"]], " ", SqrtBox[ FractionBox["1", SuperscriptBox["a", "3"]]]}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"GrayLevel", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}, { TemplateBox[{ TagBox[ FormBox[ TagBox[ RowBox[{ RowBox[{"(", RowBox[{ SqrtBox[ FractionBox["3", "2"]], " ", SqrtBox[ FractionBox["1", SuperscriptBox["a", "3"]]]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[1, 0, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[1, 0, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}}, AutoDelete -> False, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]}, "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.810405225810485*^9, 3.810405232278349*^9}, 3.810405262865556*^9, 3.8104057217598743`*^9, 3.8104061459243107`*^9, 3.81044925238235*^9, 3.810449850979768*^9, {3.81088238551315*^9, 3.810882404782361*^9}, 3.810882522473596*^9, 3.810882586960493*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "x_", "]"}], "=", RowBox[{"4", "*", "L", "*", RowBox[{"\[Alpha]", "/", RowBox[{"Pi", "^", "2"}]}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}], "Pi", " ", RowBox[{"a", "/", "L"}]}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}], "^", "2"}]}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}], "Pi", " ", RowBox[{"x", "/", "L"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"P3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Psi]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "L"}], "/", "2"}], ",", RowBox[{"L", "/", "2"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Large", ",", "Bold"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Green", ",", "Thick", ",", "Dashed"}], "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.8104053064695253`*^9, 3.810405313663208*^9}, { 3.8104054029778137`*^9, 3.8104057176015377`*^9}, {3.810405811615376*^9, 3.8104058122704887`*^9}, {3.810406121237278*^9, 3.810406122844633*^9}, { 3.810408015442829*^9, 3.8104080436212263`*^9}, {3.810449232524654*^9, 3.8104492327231083`*^9}, {3.810882374733842*^9, 3.810882375547614*^9}, { 3.810882473415189*^9, 3.810882477718009*^9}, {3.81088260219776*^9, 3.810882603672802*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {}, { RGBColor[0, 1, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwtk3k01fsCxRGpFG4o5OHw9Dj1iiJ1le3ePJcbuiSRoZPoInIroZQQjukQ maVIpsiQUurqa4oMD5Ghok4y5MT5cX48Ren1hr3WXvvfvT5rfRguPtZuIkJC QoHf+5/dq6SlE19GEZXsy2MGOZGw3xL6aKSAIva2F5aUFqKhPXwj+l0ORTyC 7VRdn8eiMql1bnc6RdhfRI++8ovHM3Ve4stEioT4XlpovX8FV42lUg/GUOSI ZJHPocEEMKK3deiEUSSiuaFYazYRt3Y77eIEUqRkuWL7iEkS5vKDclt8KXJ6 SKPzy/5k1DbnFvzDmyK7AvYbR/mloNe2wXj4OEWEvM0lx/9IRdIIdWHIiSJB nIrfHbvToMaUuVdtS5FMk/bcLbx08H/d+VBvP0WecufkH0tnIiw2tPbvRhSh ZM2WvXDKwl2p9c//okaR0SfzH0W+ZENynZHg6yifCGter9VNyUOjWqLuE28+ UVzgeaS1lsKyj8NLdeOT0Wgp5j7PMgxERWWfcuKT/jWKc0ui5ZicDl6tYcEn ydcN71fcKocM8RmJ2cwnkrVsvfUjFXBxsEiy/zhFFkQUdwy73INQ0orZWfcp wo801A9gVcNA7FLlJtdJYtPaoNR9pw5JRvr6P13kkcOXUkx3fGvFsWt2o7wb HwhbR7+kT7obnQXKK4UzxoiZUQ7LT6wfyqvLdUjVCMlU79Lalvcaq1THOidu D5OJhCdSWjZceNmEpxUWcsldp5SGry3DEPpvuESbsVI2Lu09WA1v25QTh0jr 1a4Qltwo1PYsWT0NeUmsBsxszyaOo8i98t3jql6yka2hJz86AU+6wjEm4znx MDZientMYkuQmP1y9TbiaOE4sHyYD5lzLyRSMhuIOcvbdH3aNPpdvZhl76vI Jkb7VtGBGTwZ+k2/Kr+KTLOCvpUOziDfVs+4xqOK9Gdrd9q/m4Gv6ZJTG3Wf RKgmnyzjzUB685WE8cV7ZErF+c7hrzMwoys/qchWkjzlaWaFmgBnl81zGFGl hKEku9HZWwDjOVKwVaqUfHNomltxWoC145F1e5LvkN7MgKeVfgKUtirO2eeU kIgNQ64rgwUYSzB0TKy+TYYU83PvJQpgpxrBXMbLJ3kKOxkSDwXwP8+Ma0m+ TjTWOyo9FKFhyZ/uK8vPIlftg8/uE6ex0eWBSsqDa2TFtVsdbyRo9JoZV7i8 zCDDqlPBYnI0tis4v1hUSiWpzKBR67/ReOOjrudoGk+UDLNLp/bR4Bwqb9L0 5JCQ4EbxkN9o7MYeu7mYGPK5/gNL9iCNDMlDgXGdbDLwi46MgTMN2zvRdbW2 wSTFqt4/8g8aq5hb8xVnLpDlSWNdG87ScP9s2lKpe45c7FvFLDtHQz3tgtTY 41PkgMOBwd5QGiKdm92Wlk6Quix/PQ82jRpvVrF2hCvZxs2M+xJDY0Ze8/1T xcMkW612PP4Kja4S5bc21iZE2m3ESD2ZxsRxQVfBuqrHw5W9mj0pNIq23PRf /cgaJ+1GdbsTaaQHZM319LLwTa7utWEcjaGXHmU5lu6I67kWWhxFQ81gh4dP sw80EgK05MO/87EMSVDOPoPbljZdYcE0/Mss9k3KB6K3RULZ2Z+GIne75oHe ILiwxxtbT9NwXsERGTINgcC44YT+SRpCu8683SsWjvW156ul3WgYZyD9h6BY HK+asGmwpnE7fqfRLe0ssOLz6jkraYg23vhTXPc6ujtsxFJFaRz5tHzXCf0b MJMUNc3+JkB0OU9e4UY2mByXf96dE8BQofoHbt5NCMeoDPS/EyCfd3DZycp8 FEakTzEeCRDAiR+L6ihF10WOfJWnAHEeIX2s0Aew9Tp78k3bDNbMmhuUWDVA XVZWzj13GlzfJl2/sDb4emw8qtPIB7/aot7/2XMMOau/tbCYRD47h+Ua1YvV vBrrQSEeNP5VLBOQ+RLNxxXKH4aO481dlRoD9yHon1u7THzrKET+5zN0/+/z wVRu5McrXCxhVZb0+DCu58XWmKcM49dP9aru3lyIOnhPiZ0bQXrsNt1juwfR wSoqsA4bQ73E0YWEH/txf42i07zXB9hXtRbf4nRjYwbjg7g5D58Tj/U5TLdh wS/sa/GBSaRe0vuSt1SHjwsbJAt38qEQsTjt412B3U1s8zdGfPiNyRkuKFUg LoGOljXjI89EOyasvRzamm3iIfZ8GIm7aaRvKoffwfPCh8/zYbY2qzKs5w6E ygdmJf7k45Pc3nCt9kJYBxpv//k7p9Q+fxXDTYXINSk/FdDOBzO1pNo6ugAm Q2z+yCAfP8mv4wea5iNmlf6Hmq98uG+YsO1ozMU6t+TXPqCQa6hsNXY+C79r Cyvm/0LhFWGHS+26hoeLXnaD+ynI/DxTvXM+Aw6Jxr2mLApNexvVYs6kIZvQ HYwQChmmnrNbva5CEH1kjV0UhdCWHk17ZiJ+nLrsPp9AIchZqsdz4AqSGPrR jekUmtMs1A9ZxGNs8uazhRwKxRmqsUUtsTBi2PKaiyh4+O1fuel4NBz85Hp9 733/x1qcd2Gw8cpy7HLWIwqCnPSmbMNw7JnkRgrXU1A49Fc7q8VQ/BvqJPAt "]]}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, Frame -> True, FrameLabel -> {{None, None}, { FormBox["\"x\"", TraditionalForm], None}}, ImageSize -> {362.3948317307702, Automatic}, LabelStyle -> Directive[Large, Bold], Method -> {}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}], TemplateBox[{ TagBox[ FormBox[ TagBox[ RowBox[{"\[Psi]", "(", "x", ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0, 1, 0], Thickness[Large], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0, 1, 0], Thickness[Large], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}, "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.810405716534116*^9, 3.81040572921735*^9}, 3.810405816421412*^9, 3.8104061524841423`*^9, 3.81040804842805*^9, 3.810449260688889*^9, 3.810449857032651*^9, 3.810882430437715*^9, 3.8108824822352037`*^9, 3.81088252932959*^9, {3.810882593811783*^9, 3.810882608153976*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"P1", ",", "P2", ",", "P3"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.810882455734729*^9, 3.8108824569562283`*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, { GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwVzXk41AkYwHEhRY605eqwlTYkOSpnXk2PamMrUtqOFWpNJGyhVs0zholU Mo2rdU21KiNGB0vZfd12mKeVZBKNwRzG9TP9soNlbfvH9/n8+V0bHOl3Rl1N Te27L/1vtvmSyfl5Al9MWzsldR3zqJo1bLwyR2CH6k5BUIEzvO82YU/PEBic lqrcVLAXzDK+sScnCWz011ppWHAU8hZTImQjBFJdG3kaBVTgKC9JBUICXTev n5nNvwTcBtm7uzwCtR76FU7np0BNaH2lYyCBr4KHlar8HAgbXjgpLh9HvbRr 7uqPisFA7JS6Un8c25f+ftxf/zn0bBtgJJ8fw/ppSY/Iqhrsm02mztWNor12 xeg4H+Eqf0djn/ko6pnl3gydrQe/RYSuIGoEm+q3hJsdaYYDRSbVisZh1I1f OWLJ4QOl0q4mw2IYDev6LhU+FQAueOdWHatAa70roU/U28GhNnRZeOcQcukX TXekvwGB6Cef/duGcDLeJO+fFW9hwklHoyRFjn10GaOnphN0NNOXZspl+EjA iYrc0wVlOvd/mXKWocE6Zr0FKYTL0TYpt25J0XN+uXRRdje4ehcJeGMS9F3P 0i9c0wPMQO4tb08Jqvk65QW09EKzLL/oYsEg3m7i2zUeEgHr8WpXY2IARWsb lheriSGxdYXDCGUAP1jETV97K4bwwFm6z/1+9PK+1++R0w8fbSN9Nn4WIz1W HJ8cMQBe0e3nb/uK0bop05S7dRCKN/orfE/3YbWQUzioGoSefvPxOB0RGhO1 wtI2Ccwk/MmpaulFqVXAV34sKdhkX/cZPduDjLPqC5JDZfDknBsyln3AhREa wg4XOZhatvY5drxHFfvn8qk5Odw9Gj0tjBViNWq58zqGQCtysjbLoQsV+tpt cFcBdV5hB6o+d+L82iCK/PgwpLNUXYLctyhxeR1uvmUEvBuCdGe/70DnmKc5 9p9HwDRM4rpmrh1PVhTHdfJH4fFYsm3l+b9wwsTkmC9rDGqSLWMmCQFSPXst pP7j8PeSmVIzt1YsP1dxT9uKAO0TTErMixak1miuW0wQsCtrJ79C1YhxKVu5 bcETYObb9/HVnnoszWD9tkYwARm8iLzxG4i5z4qbf7BVwk4WLch+1Uuc8BPY ynOUwNHREIkWV+CcJjfnxKwSXJn7Yo0NynEu51nsx5OfwPOxXOrkV4SneU2l D1s+gXiYkmdDy8JEIVt2wpqEswd8CEeLLNzQZVuywoaET88PU9xaM7Glkx/5 ejMJmlepQ98aZaJex/wU2JNgaZC2NbSMjdmC8CXrnUmIcuwW3BOlI7dul53C i4R5lWhmM+0avikhL8cEkbC0Tslxb2XiRW6ah20ICetSNfd4GzHRqNhKQ36a hN2rrNnUskQ8/jDw5lEqCWmeMZseiOgo5bQVuEWS4L7MuMqOFovTmQ8aFlwl 4dSv7pr7jWIwN8Mj5SWNhKTtwQfDyy6gB7vb5wKdBMGx0qEiURQy0g26JIkk VO5OdthO+xF1b8QPtaSS8G9YR2tUWQjyrhuV0m9++d9eHVIiOoV+KU+jXdJI 4PJCN+6kHcEspnyGyyLBdWouoFJ0EF2SGBjCJuFOgqVhAG039jJWJ63KJCFk A1fCoG1HWkLV3ndZJOw7M/SmVnH4j6/ph/TSckj4D5wWoEk= "]]}}, {{}, {}, { RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwVj3k0FHgAxw2KkrtNM0Vp6S5p5Uj17fCqJcVgpVzPFWql2C2qJz0kRjxR k6koahuzTBaljI4hImdDWNNgyA6G34xxPLZY+8fnff79fIz9ztIDlZWUlBzn +d/2gZKWt4Nue1ZfddG8yVRA9QAtvJtqgTkrskX1jgI/ZTPvFVPtICRJR6Mz FXBoaP/rPtUVTB9+alC6Au4BUxXp1ADowlwPDAW+mF0/kEKNBGVWy0AWo0DO D8cSkqhxEF+qW00/pUCsevG6G9QM5F7YZ7HMUoHjHg+5MnkeXktNlH/5OAaN uVjPQ0ZcGDs5Nj49NQZT51FJZXIJ0lvs18oWjOFCow2Y4y/Bat5tSlhyGJTo iiiUN5BW/LaGYiPHc/GB+qZdfLStz62ua5CBH3p/hYe0Cg1FjycTA2SYWLtb u+DXGizZMGJyQlkG5WmOzgrTOnywdR1/b0ZgOef73KWwHmrKx1nfg0dRH2fR WL2xCf6qC08YPRnBqrThafZoM0Yo2UGFn6QYnuoWtW37BHXhu7MBmlLkDZXX ad0UwK2oqfqG1TC0DP8g/f2t4PGv72AGDoERUhqUY/IZJc9qc+ofDmJyL6c/ OKYdwruTHuENEkRurypZVtmBTJ8C7Z1qEnQXViW3GP+NK6uP6Uds+wf/hray NkR3IdaQtTXTawCb9qnNBpULsWwq/OAX5lccemR8qshAhK6P5n9mVPbjgqHP ml7Pbphfuax1/lsfNkvdNNode5Abei7R2qYP+toy9aqZHti5ODuFBYqh+obF /fFeL35fXr60LrsXpy3KOxc5iNHRob0us7YHnJ/9cl5PisHJN3yUPtqNiWGa zsDtPtR4mpGDQSKUuhxSybDrh90Cg45OnhAxh+OzSwb60Ruk96rMrAvGX+w7 cuO/4sVev48h+Z3YaRWXQd0+AKlO4sVplQ54GjVNUwQDsMt6Z9QW9RkTdSni 8Nj5b2qLb2pjK5iq3pF0EwkE9HFWJgTQF5U+Uq6SoE/lzMKwshYsuBLranNu EM6cl0tMdZqhxPbmivWGUGNgudxJvQHns7gpevwhsN/nHdUvrEXFpkR13bBh TPrz+qL9q6Frf37zNS0pkiL/DY12roRwS7MgiifFi756l7CZN3j2ACb93iOQ 8OWlBpUv4cW11DWcHYH8WnDbIk4xrsY/jBXmj2LGOuyDdGU+CiSGLK0jBNah dC8HBguJ9+N9RUcJnr9Lt6QZsRBAHzEtdCbQogq0B7lZWMnjPXN0J6ioceEn CO4iKfVkNcOPIMTUbR2fxkSw5V354iiCiB53uTU7A2vilh5We0KQX/BqsSMj GbPWlzXbnxJ4eNpWDHGT0DnS9+kJh8Bdg3c2UXADae7FXgeLCFRCKloraYmY 20iPiOcRaJq8fbCTHQdhS+oDFQGByCI50IlxCWUJU/6CNoJd6Yy6ZEEUMmx9 NuR2EGSRFLMa2kU4PN5asl9EMJafNr2bHYlXFxtqYwcJluzfvMKdcRq3t+xI dZYSfPi29WsDLRjnxPdcjcn8X5k5144dgPVHznS/HSfo8g5LCGCchCqlNS9t ioDeGkGjs13RU2ob6jtDcOvWmGcMwwG80Fyzbd/n+7/PLCpl2OLOKo2JuTmC kumNVnGfT+z5Dy44by0= "]]}}, {{}, {}, { RGBColor[0, 1, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwtk3k01fsCxRGpFG4o5OHw9Dj1iiJ1le3ePJcbuiSRoZPoInIroZQQjukQ maVIpsiQUurqa4oMD5Ghok4y5MT5cX48Ren1hr3WXvvfvT5rfRguPtZuIkJC QoHf+5/dq6SlE19GEZXsy2MGOZGw3xL6aKSAIva2F5aUFqKhPXwj+l0ORTyC 7VRdn8eiMql1bnc6RdhfRI++8ovHM3Ve4stEioT4XlpovX8FV42lUg/GUOSI ZJHPocEEMKK3deiEUSSiuaFYazYRt3Y77eIEUqRkuWL7iEkS5vKDclt8KXJ6 SKPzy/5k1DbnFvzDmyK7AvYbR/mloNe2wXj4OEWEvM0lx/9IRdIIdWHIiSJB nIrfHbvToMaUuVdtS5FMk/bcLbx08H/d+VBvP0WecufkH0tnIiw2tPbvRhSh ZM2WvXDKwl2p9c//okaR0SfzH0W+ZENynZHg6yifCGter9VNyUOjWqLuE28+ UVzgeaS1lsKyj8NLdeOT0Wgp5j7PMgxERWWfcuKT/jWKc0ui5ZicDl6tYcEn ydcN71fcKocM8RmJ2cwnkrVsvfUjFXBxsEiy/zhFFkQUdwy73INQ0orZWfcp wo801A9gVcNA7FLlJtdJYtPaoNR9pw5JRvr6P13kkcOXUkx3fGvFsWt2o7wb HwhbR7+kT7obnQXKK4UzxoiZUQ7LT6wfyqvLdUjVCMlU79Lalvcaq1THOidu D5OJhCdSWjZceNmEpxUWcsldp5SGry3DEPpvuESbsVI2Lu09WA1v25QTh0jr 1a4Qltwo1PYsWT0NeUmsBsxszyaOo8i98t3jql6yka2hJz86AU+6wjEm4znx MDZientMYkuQmP1y9TbiaOE4sHyYD5lzLyRSMhuIOcvbdH3aNPpdvZhl76vI Jkb7VtGBGTwZ+k2/Kr+KTLOCvpUOziDfVs+4xqOK9Gdrd9q/m4Gv6ZJTG3Wf RKgmnyzjzUB685WE8cV7ZErF+c7hrzMwoys/qchWkjzlaWaFmgBnl81zGFGl hKEku9HZWwDjOVKwVaqUfHNomltxWoC145F1e5LvkN7MgKeVfgKUtirO2eeU kIgNQ64rgwUYSzB0TKy+TYYU83PvJQpgpxrBXMbLJ3kKOxkSDwXwP8+Ma0m+ TjTWOyo9FKFhyZ/uK8vPIlftg8/uE6ex0eWBSsqDa2TFtVsdbyRo9JoZV7i8 zCDDqlPBYnI0tis4v1hUSiWpzKBR67/ReOOjrudoGk+UDLNLp/bR4Bwqb9L0 5JCQ4EbxkN9o7MYeu7mYGPK5/gNL9iCNDMlDgXGdbDLwi46MgTMN2zvRdbW2 wSTFqt4/8g8aq5hb8xVnLpDlSWNdG87ScP9s2lKpe45c7FvFLDtHQz3tgtTY 41PkgMOBwd5QGiKdm92Wlk6Quix/PQ82jRpvVrF2hCvZxs2M+xJDY0Ze8/1T xcMkW612PP4Kja4S5bc21iZE2m3ESD2ZxsRxQVfBuqrHw5W9mj0pNIq23PRf /cgaJ+1GdbsTaaQHZM319LLwTa7utWEcjaGXHmU5lu6I67kWWhxFQ81gh4dP sw80EgK05MO/87EMSVDOPoPbljZdYcE0/Mss9k3KB6K3RULZ2Z+GIne75oHe ILiwxxtbT9NwXsERGTINgcC44YT+SRpCu8683SsWjvW156ul3WgYZyD9h6BY HK+asGmwpnE7fqfRLe0ssOLz6jkraYg23vhTXPc6ujtsxFJFaRz5tHzXCf0b MJMUNc3+JkB0OU9e4UY2mByXf96dE8BQofoHbt5NCMeoDPS/EyCfd3DZycp8 FEakTzEeCRDAiR+L6ihF10WOfJWnAHEeIX2s0Aew9Tp78k3bDNbMmhuUWDVA XVZWzj13GlzfJl2/sDb4emw8qtPIB7/aot7/2XMMOau/tbCYRD47h+Ua1YvV vBrrQSEeNP5VLBOQ+RLNxxXKH4aO481dlRoD9yHon1u7THzrKET+5zN0/+/z wVRu5McrXCxhVZb0+DCu58XWmKcM49dP9aru3lyIOnhPiZ0bQXrsNt1juwfR wSoqsA4bQ73E0YWEH/txf42i07zXB9hXtRbf4nRjYwbjg7g5D58Tj/U5TLdh wS/sa/GBSaRe0vuSt1SHjwsbJAt38qEQsTjt412B3U1s8zdGfPiNyRkuKFUg LoGOljXjI89EOyasvRzamm3iIfZ8GIm7aaRvKoffwfPCh8/zYbY2qzKs5w6E ygdmJf7k45Pc3nCt9kJYBxpv//k7p9Q+fxXDTYXINSk/FdDOBzO1pNo6ugAm Q2z+yCAfP8mv4wea5iNmlf6Hmq98uG+YsO1ozMU6t+TXPqCQa6hsNXY+C79r Cyvm/0LhFWGHS+26hoeLXnaD+ynI/DxTvXM+Aw6Jxr2mLApNexvVYs6kIZvQ HYwQChmmnrNbva5CEH1kjV0UhdCWHk17ZiJ+nLrsPp9AIchZqsdz4AqSGPrR jekUmtMs1A9ZxGNs8uazhRwKxRmqsUUtsTBi2PKaiyh4+O1fuel4NBz85Hp9 733/x1qcd2Gw8cpy7HLWIwqCnPSmbMNw7JnkRgrXU1A49Fc7q8VQ/BvqJPAt "]]}}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, Frame -> True, FrameLabel -> {{None, None}, { FormBox["\"x\"", TraditionalForm], None}}, ImageSize -> {485.2524038461549, Automatic}, LabelStyle -> Directive[Large, Bold], Method -> {}, PlotRange -> All, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}],TagBox[ GridBox[{{ TemplateBox[{ TagBox[ FormBox[ TagBox[ RowBox[{ RowBox[{"(", RowBox[{ SqrtBox[ FractionBox["3", "2"]], " ", SqrtBox[ FractionBox["1", SuperscriptBox["a", "3"]]]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[1, 0, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[1, 0, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}, { TemplateBox[{ TagBox[ FormBox[ TagBox[ RowBox[{ RowBox[{"(", RowBox[{ SqrtBox[ FractionBox["3", "2"]], " ", SqrtBox[ FractionBox["1", SuperscriptBox["a", "3"]]]}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"GrayLevel", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}, { TemplateBox[{ TagBox[ FormBox[ TagBox[ RowBox[{"\[Psi]", "(", "x", ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0, 1, 0], Thickness[Large], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0, 1, 0], Thickness[Large], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}}, AutoDelete -> False, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]}, "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.810882458054287*^9, 3.81088249859225*^9, 3.810882529530562*^9, { 3.8108825967131863`*^9, 3.8108826109797077`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "\[Psi]", "]"}]], "Input", CellChangeTimes->{{3.8104087451277637`*^9, 3.8104087464392033`*^9}, 3.810883840588571*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{"Abs", "[", RowBox[{"4", "*", "L", "*", RowBox[{"\[Alpha]", "/", RowBox[{"Pi", "^", "2"}]}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}], "Pi", " ", RowBox[{"a", "/", "L"}]}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}], "^", "2"}]}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}], "Pi", " ", RowBox[{"x", "/", "L"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}], "^", "2"}], "*", RowBox[{"Pi", "^", "2"}], "*", "t"}], ")"}], "/", RowBox[{"L", "^", "2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"10", "^", "2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8104081494108963`*^9, 3.81040815557548*^9}, { 3.8104082338547564`*^9, 3.8104083423086987`*^9}, {3.8104087350969133`*^9, 3.810408753809844*^9}, {3.8104089729009542`*^9, 3.810408979974028*^9}, { 3.810409046416073*^9, 3.8104090706690702`*^9}, {3.810409284466462*^9, 3.8104092869633636`*^9}, 3.8104093957174673`*^9, 3.810409538189829*^9, { 3.8104497843940153`*^9, 3.810449793243252*^9}, {3.8104498899691772`*^9, 3.810449891075129*^9}, {3.810450102862315*^9, 3.8104501039183197`*^9}, 3.8108838385091343`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\<\[Psi][x,t]\>\"", ",", "20", ",", "Black"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "L"}], "/", "2"}], ",", RowBox[{"L", "/", "2"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], "/", "2"}], ",", RowBox[{"L", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.3"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.810408468741015*^9, 3.810408481015411*^9}, 3.8104090950958633`*^9, {3.810409230089258*^9, 3.81040926492175*^9}, { 3.8104094023652067`*^9, 3.810409424500876*^9}, {3.810409558320652*^9, 3.810409559952014*^9}, {3.8104096462391977`*^9, 3.8104096587198133`*^9}, { 3.8104096952052507`*^9, 3.8104097355455427`*^9}, {3.810449832712302*^9, 3.8104498352558727`*^9}, {3.810450050878851*^9, 3.810450051290146*^9}, { 3.8108826757565536`*^9, 3.810882676194989*^9}, {3.810883802975696*^9, 3.8108838914381123`*^9}, {3.8108839843217793`*^9, 3.810883991010318*^9}}], Cell[BoxData[ StyleBox["\<\"\[Psi][x,t]\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->20, FontColor->GrayLevel[0]]], "Print", CellChangeTimes->{{3.810883854104352*^9, 3.8108838919266644`*^9}, 3.810883991508684*^9, 3.8108951971624727`*^9, 3.8108969846670113`*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 0.9234997374890188, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0, 5}}, Typeset`size$$ = {468., {153., 160.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$26439$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$26439$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ $CellContext`\[Psi][$CellContext`x, $CellContext`t$$], \ {$CellContext`x, (-$CellContext`L)/2, $CellContext`L/2}, PlotRange -> {{(-$CellContext`L)/2, $CellContext`L/2}, {0, 1.3}}, Frame -> True, FrameLabel -> {"x", None}], "Specifications" :> {{$CellContext`t$$, 0, 5}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{525., {226., 234.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.810450107983425*^9, 3.810882680435422*^9, 3.810883804007826*^9, { 3.8108838547089863`*^9, 3.810883892143392*^9}, 3.810883991728037*^9, 3.8108951974205437`*^9, 3.8108969850862293`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"3", "/", "2"}], "/", RowBox[{"a", "^", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{"Energia", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"2", "/", "L"}], "]"}], "*", "\[Alpha]", "*", RowBox[{ RowBox[{"L", "^", "2"}], "/", RowBox[{"Pi", "^", "2"}]}]}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}], "Pi", " ", RowBox[{"a", "/", "L"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", "*", "i"}], "-", "1"}], ")"}]}]}], ")"}], "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Pi", "^", "2"}], "/", RowBox[{"L", "^", "2"}]}], ")"}], "*", RowBox[{ RowBox[{"\[HBar]", "^", "2"}], "/", RowBox[{"(", RowBox[{"2", " ", "M"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.810449205591442*^9, 3.810449225465446*^9}, { 3.810449285037424*^9, 3.810449353596936*^9}, {3.81044940652636*^9, 3.8104494657917852`*^9}, {3.810449506940233*^9, 3.8104495289414682`*^9}, { 3.810449568632769*^9, 3.8104496323878613`*^9}, {3.810449662797099*^9, 3.8104496667416286`*^9}, 3.8108827749322567`*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"8", " ", "M", " ", SuperscriptBox["\[Pi]", "2"]}]], RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["\[HBar]", "2"]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["\[HBar]", "2"], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox["1", "2"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "2"], ",", FractionBox["3", "2"]}], "}"}], ",", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]], " ", SuperscriptBox["\[HBar]", "2"], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox["1", "2"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "2"], ",", FractionBox["3", "2"]}], "}"}], ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]]}], "]"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.810449634265193*^9, 3.81044966906046*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", "Red"}], "]"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"\[Xi]", "^", "2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.8106520749741697`*^9, 3.8106521214014606`*^9}, { 3.810884005883635*^9, 3.810884086125165*^9}, {3.8108841288657513`*^9, 3.810884131843706*^9}}], Cell[BoxData[ StyleBox["\<\"P[E_0] = \"\>", StripOnInput->False, LineColor->RGBColor[1, 0, 0], FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontSize->20, FontColor->RGBColor[1, 0, 0]]], "Print", CellChangeTimes->{{3.810884037488744*^9, 3.810884101789034*^9}, 3.810884139504788*^9}], Cell[BoxData[ RowBox[{"Erf", "[", "1", "]"}]], "Output", CellChangeTimes->{ 3.810652205943139*^9, {3.810884037490258*^9, 3.810884101790422*^9}, 3.8108841395063047`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Erf", "[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.810652184304428*^9, 3.810652209683897*^9}}], Cell[BoxData["0.8427007929497149`"], "Output", CellChangeTimes->{{3.81065218913904*^9, 3.810652213339487*^9}, 3.810884108590438*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", "Red"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "Pi", "]"}], "*", RowBox[{"2", "^", "n"}], "*", RowBox[{"(", RowBox[{"n", "!"}], ")"}]}], ")"}]}], "*", RowBox[{ RowBox[{"HermiteH", "[", RowBox[{"n", ",", "\[Xi]"}], "]"}], "^", "2"}], "*", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"\[Xi]", "^", "2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.810652484654883*^9, 3.8106524872308064`*^9}, { 3.810652520510766*^9, 3.8106525508250303`*^9}, {3.810883390394946*^9, 3.810883405440714*^9}, {3.810884071291676*^9, 3.8108840804811707`*^9}, { 3.8108841348795137`*^9, 3.8108841368959093`*^9}, {3.810885340269147*^9, 3.810885362017887*^9}, 3.810896059285385*^9}], Cell[BoxData[ StyleBox["\<\"P[E_n] = \"\>", StripOnInput->False, LineColor->RGBColor[1, 0, 0], FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontSize->20, FontColor->RGBColor[1, 0, 0]]], "Print", CellChangeTimes->{{3.8108840762900667`*^9, 3.810884080862472*^9}, { 3.810884111443585*^9, 3.810884137282044*^9}, {3.810885343605023*^9, 3.810885362811631*^9}, {3.810896041846559*^9, 3.810896060501202*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"19634522823", " ", SqrtBox[ FractionBox["21", "\[Pi]"]]}], RowBox[{"640", " ", SuperscriptBox["\[ExponentialE]", "21"]}]]}], "+", RowBox[{"Erf", "[", SqrtBox["21"], "]"}]}]], "Output", CellChangeTimes->{{3.810652535743844*^9, 3.810652557269189*^9}, { 3.810883392809229*^9, 3.8108834064470167`*^9}, {3.810884076291225*^9, 3.810884080865733*^9}, {3.8108841114451036`*^9, 3.8108841372835283`*^9}, { 3.81088534479843*^9, 3.810885362978508*^9}, {3.810896042111945*^9, 3.810896061882268*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"19634522823", " ", SqrtBox[ FractionBox["21", "\[Pi]"]]}], RowBox[{"640", " ", SuperscriptBox["\[ExponentialE]", "21"]}]]}], "+", RowBox[{"Erf", "[", SqrtBox["21"], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.810652566940852*^9, 3.810652571256349*^9}, { 3.810883400645528*^9, 3.810883412503736*^9}, {3.810885357689746*^9, 3.810885369507065*^9}, 3.810896072575863*^9}], Cell[BoxData["0.9398561855094282`"], "Output", CellChangeTimes->{ 3.810652571885418*^9, {3.810883402015497*^9, 3.810883413491302*^9}, 3.8108841160051622`*^9, {3.8108853586899223`*^9, 3.810885370462105*^9}, 3.810896073564003*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "30", ",", "Red"}], "]"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xn", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "n"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"N", "[", " ", "xn", "]"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Pi", "*", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "-", RowBox[{"\[Xi]", "^", "2"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "Pi", "]"}], "*", RowBox[{"2", "^", "n"}], "*", RowBox[{"(", RowBox[{"n", "!"}], ")"}]}], ")"}]}], "*", RowBox[{ RowBox[{"HermiteH", "[", RowBox[{"n", ",", "\[Xi]"}], "]"}], "^", "2"}], "*", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"\[Xi]", "^", "2"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{ RowBox[{"-", "1.3"}], "*", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{"1.3", "*", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Xi]\>\"", ",", "None"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.810882850434371*^9, 3.81088288159825*^9}, { 3.810884144916223*^9, 3.810884462430031*^9}, {3.8108844978873653`*^9, 3.810884527406261*^9}, {3.810884562157515*^9, 3.810884572020781*^9}, { 3.810885410633155*^9, 3.810885462409992*^9}, {3.8108960928366756`*^9, 3.810896092984082*^9}, {3.8108961972781153`*^9, 3.810896214862103*^9}, { 3.810896252469842*^9, 3.810896295905016*^9}}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox["\<\"Probabilidade Cl\[AAcute]ssica vs Qu\[AHat]ntica\"\>", StripOnInput->False, LineColor->RGBColor[1, 0, 0], FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontSize->30, FontColor->RGBColor[1, 0, 0]]], "Print", CellChangeTimes->{{3.81088417940585*^9, 3.81088420735007*^9}, { 3.810884269450004*^9, 3.810884335423645*^9}, {3.810884370766508*^9, 3.8108844628459*^9}, {3.8108845007752132`*^9, 3.8108845278826857`*^9}, { 3.81088541196951*^9, 3.8108854631444902`*^9}, 3.8108961288331957`*^9, { 3.810896198766487*^9, 3.810896215561091*^9}, {3.810896253530863*^9, 3.810896296873225*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n=\"\>", "\[InvisibleSpace]", "100"}], SequenceForm["n=", 100], Editable->False]], "Print", CellChangeTimes->{{3.81088417940585*^9, 3.81088420735007*^9}, { 3.810884269450004*^9, 3.810884335423645*^9}, {3.810884370766508*^9, 3.8108844628459*^9}, {3.8108845007752132`*^9, 3.8108845278826857`*^9}, { 3.81088541196951*^9, 3.8108854631444902`*^9}, 3.8108961288331957`*^9, { 3.810896198766487*^9, 3.810896215561091*^9}, {3.810896253530863*^9, 3.8108962968745832`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"xn=\"\>", "\[InvisibleSpace]", "14.177446878757825`"}], SequenceForm["xn=", 14.177446878757825`], Editable->False]], "Print", CellChangeTimes->{{3.81088417940585*^9, 3.81088420735007*^9}, { 3.810884269450004*^9, 3.810884335423645*^9}, {3.810884370766508*^9, 3.8108844628459*^9}, {3.8108845007752132`*^9, 3.8108845278826857`*^9}, { 3.81088541196951*^9, 3.8108854631444902`*^9}, 3.8108961288331957`*^9, { 3.810896198766487*^9, 3.810896215561091*^9}, {3.810896253530863*^9, 3.810896296876899*^9}}] }, Open ]], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {}, { Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw12nk4VN8bAHCRJUv2nezLzKAIkfIeKqRSSfm2K4osRSGVSoWQRGTGbpAt S/alco+slSRkC0UIoRCJ6Hf74/fPzPN5ztx7zz3b+77PMwqnL1ifYWVhYREl P/59x//3SfQqQcO89W4+66efwS6WP6ZnntNwo7+2zrPMZzBzj7tfvJSG5e0T ntxWeAax4pJXXufT8B1D7+peZiWMa+nnr0+l4RX+W9rppRXwsHK75WA8DWdr rTTO7awAQ7MDw1HRNHxAsSvv4WA5BB13l14MpmG5ozRCVLEcNozdKM25Q8Pp ahZu5o1l0Ol5f//J6zT8borIPnKxDFRDs+/WutOwpvQ7K/H3pdAsXqF42ZmG N4jZSO8MKAXv1IYXFAcavuZ18p3LllKoqxyaDbOl4RCvS2veFJaAq9lsmMl+ GrZYanhd7FECIq2rqD8tadghe1pyTKcEHMbW2R02puEl28iNec+KgVXicJOS Cg1feZOayfhSBNmpjo4d62i43+2R+NOCIti/3ps1WIKGNTjrZbfdKoJks0iD KR4azozc+jVSuQjA621a+QwVn8IzhapXC2GEpRdcJqh4q5b7NVvrQggLHe+R HaFiA48zlmG0QuhP5RS8003FWrsZTYOfC8C31eT6HkzFl9CTb5KHCkD5xD4J lkoqbnHpu+GkVwBNYyeKCouo+NBW9NZTtACkV/mOiWdQ8ZV7PQvZnU+hcn3p wcH7VGze8aux3/4p/Aqlal0+SsWpUj6bMzXzwSn1uZ75QSommv/0hP3Ng54K q63ie6lYeqeklmVrHlSNXNxdZkrFwiXlBqpX8yAQPXP+RaHi22ifW3trLiwc 2nOxQYmK3S69NyGyc8HZ7dMVuiwV/3rRZHHgTi5YxbIFbxKk4hs1J2cc9HNB 7OeujMsLFMzBq/a+IjUHgrj788xnKLiYcOP38cuBRXn3UvEJCg6/feYmcTwH +vdE1ZV9ouD3FRx3eiVz4HFG75df9RSs612/6Rf9CegedZP3eUTBbTm3a0yy siHd46+axQMK9h0+qKZ3PxskgiLWSwRTcDN/JNtdj2z4U1xiXO5Lwci7VcnY KBtq1q4cW7CnYB4Xfe261iywfhkW46NDwdpKb7sqBbKgtkueaaFBwRp1ysHV vzNB/3thpoQqBWe4KvrxfskEKZnOsnJJ8vq+TRTn0kwY9JLrWGChYHv5rmBF u0zwoDwVuvJOHVNbIoQjqjLg9XHVB0Wv1HGYR01sfE4GKD6M55mqUcdafclE e2wGtC8GrbYvV8e1ubelGi9ngH7TqfndTHUcGaR2MXNjBiydF+6Rv6SO23gm FuoK08EmNfjQUTd1XGV4ynJvajrkdP5tfeSojm8FhWcsRabDCTTxhvuYOl67 LizomVc6YMG6Fz+3q2Na6ZG7rzenQ0CxN7NRTB3bn21nf/n6MfSPTsiyCapj ISHfXTtePAZ9WfvYrTzq2JSlKn8o/zGMBuyNLPyrhofOjh73fvQYLG3VA+JH 1fCeap1LH089Bv7Fbif3SjWc8OXAk9N/0yAGtm6QOKGGrQcms4/vSgP/Li+u Dls1HHvKLegrpMF5j7zPkfvVcEH4h7q7umlgmioXwb9DDY+4Le/iXpcG4xys Mxwaanh5ld4mgZlU2NxcXzT3WxU3GCfEjCakQs+xfZvaHqniDSmHYnawpULt XBB/xANVvF89Mkl9MQXywqq/WgWr4jvcrnrS0ylwG+swXvuq4qvxoee0PqUA VVn0d7W9KubS+C+I63kKXP3WXflUWxUXoQIFZ58UkL5qbxz2VgWvc5Gxn15k wsQGv3ulDSoY8cyorMwy4fnX+K7+ahV8fCD1jcgkE04c7Li4vlQFHzGgO538 xATmhp0ZLYkqOPGnYrRjLRPUvmoJCLur4DlL5qJ2OBM22iwO0IVU8B2dT1Ea WkxYzSO+HvOq4O3u+mz71JnQXr3Rd5RDBZ/bospzTZEJ3uvdxAyXlLGMedaT r2JMqOD+bNnzRRmPn9oWKcnCBKiuK5IpUcaXjygntbUlwy6tiACmrTLm7ztu sMMvGUYuaMPX/cpYosmx/Mi1ZLhd8H5BY7cy3h9+YMnLOxnKdYVcy5EyFny2 lfnCNRmUjSKt31GUsT3Rcij8cDL8MX8kt7ykhBeDPNiMdJMh51RMxX/JStgj fFfk254kME81vJQYq4SL4xlOO1qTYHCoW2MoSgmXCnCG179KAgknqeQLwUpY 1YoaM1SeBP7n4wIDLyrhuHdav+7Tk+DYtYQDxduVsMxeE/vgQ0nA94g5yT+m iAMKvu+t60mEzUar2boHFfGiyHXH7NZEODtwViKlVxHbrucIZLxOhCpNjW26 LYr4vNpwwoPKRHCvL2X8V6aIdyZzZX2NTYT2X2+2MQMUsfbeXeIbjydC7JH5 GB1FRWxzVKO292sCqMvvMjt4VAFbGRoG/RFKAKOhiJaggwpY591mXU2+BLDK 7DryfK8CXr1zfqc9ZwJ4bjh7QWm7AraZnYn+tBQP1egWY1pDAccd1V0QH46H I6fKxu+vyGPa1tk1t8vjITRF6UE9Ux6bxumf4rePh8GdC/kXWuSwWcQWzvd1 cUCL4/btq5HDvvBY7RWOA88JGYtdZXKYm4++UvcsDjgemHxWTZTDFiVnKt4W xAG1PUSg30UOO98RrBdJjINLJ2Q9dnPK4Wf+n7x9L8fB6kumOhTjdTh+nerC fc04UIsPLR58IoP5lr04ix7Hwmq29MP3kmTw6jBtr1pmLAyeI1Y2RspgduUb +7oTYiFx04xFwFUZvBD40oQvOhZE2mz71HbK4KHBudyEwFhg5VbicBuRxhx6 caXHnWKh93KF7S95aSzmLfVlm1YshB8YWeSJlsSNsj6fWGtiwGi+ITg4RBJn hHI28+EYGGFkSXDelMRKs8ai0i9iYEu/qz6rkyTeo/rx8ZayGBh1mvVYMJTE x6paY+KexIDJDZaxoT4JrDR2XaUhKgZmMqU6X6hI4Lk/VcKNTjFgs2JVdKFE DIfmjAkLi8eAonPJ79lMMez2VOabh0gM/PggjXzixfCnjaGcbYIxEJo72uR3 RwxbuSxxxfPGQM2x2yMR+8XwZuukPxasMaDzrESyeFIUK5fzKfFNMUDAR8Zv QUUUTzixNug0MODN9NjuW9HCeOrIwQMJNxlwNkbiek+IMDk/wg1p1xnAamKe u/GmMH56Nfxz7jUGGISn8Y04CmM3eyZL3WUGpGudbLY0FMYSG926ONwZ4OfS vlekVwivuG1k77JjgN5wlXWGghB+L1Z/N2sbA1pCJ2+ziAnhXt+jr76YMMBV V6boMLcQ7mEZjpBDDEi5c0WYd1YQa5dbFMdtIfurqNvuXiuIhbZUqaTrMWD8 RNbBzY6COEHfZJFVnQFJXZH/vc0RwGd/WtA7+BhwYqc50kwWwHJlP6jreBkg U7modj9SAF/tjnJ25GYAI+7Ur91XBbBpwNzYCgcDwk+sj24yF8Dq92ybTVgY sOrVowx6HT/m30ocFZulQ+1ntsQo7bV4wShn889uOqCXzm42EmvxXe2gwAtd dHie+n6LyF8+jDPbTk100KHkbNLHyCY+HNvhVTPeRof0ic2SkY58mHuNlczi WzrcXfCIikjgxYcMRC+dfkkHS4HPIWFreHDV2rzTNjl0+C5zkLf2Bzf2JVos OZ7QIYry+v7vTm4c8702viKLDp9Mi8Md0rmxulHQNeUMOnh6BUVv3saNBfSu CPGk0CGpZ0PKiO8a3GDeIyHNoMPPtFsVxj848bUM6V2mAXSIKZjf7NnJiSPW nDKS96eDcZXL86wqTtxWvPv239t0CO48SIjc58Qqp0cFX/rRYR03tW6cwomF aOIUW1867LzQ2hJtz4Fbsrmr8SU6JBoqjU51rMbSlXTeMHs69L9Q39pMrMa5 xWsvpJ8mrzfVepibuRp/NGidJE6R/bM03OJ6dTXO+llnPH+SDslH94aPya7G AQfWK7sfowPz+jWDIQc2PKxvkMs4SIe06rag7plV2LrJ1abSgg5DO7r7yj+u wpY7UiPnzOmg/Lpfh1G7CjcX/zekTfpx61jvoehVWHmesyJ3Bzn+X/5uaDdc hWuMONUKTemQwa7R3ezHgkevhLdNbqHDgUiuA0GyK4RcyvXLWjp0OIFVP576 tkxMP3yacV2bDs6T2+2NKpaJLR0Ta5s30OG2+a1LUzbLRJyV8a2L6+nwdOl3 pE3oH6KjM2LilQYdeB2+tcsvLRLx2kdjC9XoIBGx5vhi4yIRpBAkJkpaqUpt uC16kcBLv2p9VOmwWcJhLlBnkdCKvFO2TYUOTk29opPnfhMXJpO/fVUk159u 86GKrl/EZ80HNufW0aHl1ET/w/RfRP265+39snT4GMbt6Or5i+AIXbp9kPTM qNllOYFfxOGKCiczGTrIJxD0APN5YmU82Fpfig6+7AVd+0t/EomybK5WYnTQ 64g8Mh45TUhFxmw6wU8H75nWYPEz00SqtEXF37V0KF8rVLFdf5q40eK5JYX0 ZvNw8aSuHwTrrTKzcT46QHlo+wHZH8Tlzr9nA3npEKnLk3B1zyRBG/1YPrWG DmJuwUvt3ycIn+QtpsmkGY85j6x/OEF8Z2V/Y006UWy1+FDHN+KswMGeSi46 ZC78Cd9jN04knXk5Ec1J7q/nU/7yl74SfjfiG2+wk+t1zvXLVdGvRN5rZIRI V2t+M/lQNkKEuMQ9YSVdn/h1JfjPMDG2JBIQspoO7/0++8wGDBFHNjMk0tno YFNxonOP+hAhbuvifYF0x3SvXubrL8S3yybvDUn3nu6eOcb/hRjySLv+npUO I9tbXesZAwTvLal8XtJO1/e9kTcaIFabdc30raLDt5JmyrW+zwRxekXnKekf qm9G1it+Jlqitmbakp4TDKrWse0jHDsLHQpZ6LB42//G17he4mnmx+B7pFl+ +hnFf/5IaCaPZ58hzd1xpYTduYeIVrn1WYb0uliXrC7fTiLntYAE/W80uDp0 z2+u6yAadcyKfUhXaplvT+DrIKycN5geJX2oRvHTqcR2gkt1QUeJdNr9cI3a kTZC4Td+xEV6xnbliur6NuKEoej41Eo0hE10i3wj3hM23psdq0j3lpqf3sP1 nvga+vtBBmnqrZL8/H0txKbt8tkRpO/TFB+NvnxLXEj0L3T6146X1+ceaCIW lYuSD5Kut+l+7TH0mrgsTPPbRnrlejjLEnsj0V/TK6RIOlbINY6IridAh7te iLR+hrm+v1od4X7KyXk16VYjpfcW5TWEEcfM3/nlaDjfsuLCt/MlcVorJXCc NPeZHo7WbkwwkedKP+k9sy7bND9UEY//2Du2kw6UUbpSOv+M4LjmVv2adNWO njyQqCDMNe/zviQ9fz5iqNGwlHjfR1hUktZiWEhZHy0iJvNZvYtIn63+u/ej 71PildyBqFzSxh/ceF5teUKcY81PzSSdp9br/fHmY6IgQCQt7V/7z6jajwFJ xOENtx8xScvFeMSx8EYR8wPzl5NIs/jGD1kq3yKmWj12JZJeGM0szd3qCLei Zvj/2ffHD0KhJhSqBK7U/fPxNuk1rh9j4EEIu2vyv/vT5WJSs8k6IIHBlkq6 eXuBZoRjJuQZbwxN//f7GdOXN5Tz4HdlB/uTf++315lW+qMA3pb7uz/99/6q RXMa74rBbBM0lf4bn+UlIjW3DI6GcUlW/Ru/9u0hUqGV0H/+y6F60iJP7ttE OL8A/8HWgHekp5ALv78yhrFdPY+7SVvnPPAkIqsh9Oxy6RDpUvHi7kXWGugx QxU/SN+Y+pPqMVAHbWc3RfCQ8zl4WGFN7r4GkAidOytF2qxux/lRohFMTL9q UknzxYcZnEx8A+5/fR/sJu3OWZQQy/cWNIs1qSdJt1/sZO3wbYY9B2mlF0k3 K4efTc9tAd1Qako8ab8jipLbz7yHxwwj1iLSOuHFbwZkWqHzRvmB16Sjl7o2 yIa2gV6cxJsl0idaFZYinTvgxA8fXmdyPwx5OerVa3eCQfzasBDS5yRzLyws dEKhtJJGDmlPO4OhY3e7wcePrWqGdPCU1VuVtF646nN4831yf659GMX5n0sf 1PyMYZaSjtLrMQnR6Qdc8VFlgHSi75nSKfwJ0h/lBhiS58ER9qp3H88PACct P+0XaZnOzxOerQMwJCU9TyHPl0+ZbNxr9QehdZZy5jhph907t6PlQZD3DYlv IH0hsr087d4Q6CmMXcwizyt/hW9Mt8yvIMy3uz2FPP/MZvkIDt5R2OV5lecr 6TV1G3qTLoxCos3kKQ0OOoQ5eYu16o+Bt6GUWyXpmPxV9/TrxsE5goVliDxv 87ZKeP4dmAS1Ncp6btx08OA3imDsmIITHSMXakjrDhzP086agq1K/E1SPHSo 8E8dtXf/DiOq1LEm0oNn6FoON3/AucaPlcZkfJjIUUxt5JuBskHnz/8JkOe/ amSIyZYZUMvdYlpJelsy28VK5xn45ng8RUaQDrGRQyinYQacDyqdGCJtcTW9 /8GtWdjT/KfhpjAZ382pUrZzP8EqUChohIxf+6pjV7UozcGXRJcBW3E6/NnM M2ZhPQe515ONXpO20Zoo25w/B04dVrMFEnRgFc07uO7cPDyqzPW8T8bDE4Pa EcO9v8DCyXLUk4yv3MdSfE7wLECB8F+HedIlH4TsOg0X4Imu/7CPHBnfX81q vYpeAOXbb2b85OlQmV/SlLPvN5y78mtbAhmvxa8bcnnWLoL/Po/vHGS8bxE3 ucmaswx37d/OJ5H5ww/XxCC7/mW4luXHso/MLwRfLkVUCazAmeaebavI/MPa tTTtqtcKNLE1+zhupEMbpr2eMf4LdzQ+ppnqk/FG917ItBML+rjh9z5dMn+Z 6vP6MLC0Ch1nU/Lm3EmHG0HKPQKirEj4Z67dJ9JrN7b1gxYrSvZwDi+3pMP6 oA2jCXasKD5FtPr8bjq463xbPFzHitIUsi+O7yXzh0A7+dYwNrQyV+kpZ0vG r/W7XF4qsKN5Ze41d87S4Vj+txfXNrOj2ov7Km46kvmJVqiA3gF25Chc8/S6 Ex0ear4tyfBnRw65PJevO9NBi7aX5f5XdtQZe/Z86Hk6nFU98Mg2lwOZBft5 jnrToUvmKDFhwIXqCgvPxgeR+UT8kmD6fi50L+bH9MtgMn+Tjnc46Uy6rKh9 PITMd6X61rTGcaFPnZypxvfpICBx0qZshQuFKjVenI8g81Nh+7FbtWuQTpmN XUYcOT9rXITF9/GgB5PhOUJP6RAoeO2hqiMPchI8c9WqgBxvyXuC+jd40OAu Dv97heT4qj/hP5jDgzg6u3evKSH3p8U3nkguXrT8WKBWuJIO1wNdVvNX86JM Hvs6h1qyHmBznePQWYuCcpzXLZH1gf2NUpelYAH0KOn3ovQaBqhWVFzyjRZA iWoUk7dk/TE++/zacooA0sp3pvqR9Yn7uZp7f58JoJ+fv46N8zPghk3LE7Yp ARRoeX5TuxhZr1DHv/FYC6JD+b+H55UZ0NQh6yojJYS2SLcm3zFlgP76ANet 2cLoWUD5k1+3GaChhUPGSoTRgzXnH835M0BRcynzUbUwWsnaQZ0LZMBamsfw ZJcw6pBLPvw7hAHDqsdPJHKKoN8b10+KRjIgap3evr8OIijcM74vOZUBM3zD G6vlRJGcvUgfez0D8ia2L21/JIYMOQMl9gvEAH+HDypNFkNFXodqSoViwJ3I CVDLEUN2hbcPrhONgY0PRQS4a8TQxDEvvVnJGCjfNKT87ocYylLv4C5WIuvV 23esDu8WR6bsXJaRm2KgS+Il041NAr3qi3BvtYsBth1gEe0hiTQ7Tz7NqYgB 0zNTH1huSKL+J+Oru57HgF9Agr1LiCSy/rxKiIOsx1fqlm6gVEn0Iy31pHN9 DCyYlZeMt0sieW+ltTZtMTBhoa0EBlKoqLrse+5kDLTvVlr5uiKFOmI69oQp x0KaDWexYagMYg0n0lPjYkHUcMr2HV0Gzd6VtNubFAuBsh+WHFJl0Oe9L2VW UmLBaSRlW3ilDBJwzn7ikB0Lmj7GbSOjMmhG0+PioYpYKI3zmoncIYv6DH3M 33XGQsPglw1TK7Io7pSukoZ4HIy749wUDznE6vRQxyY5DgxCFWO1b8ihK0pm R7c8joO7Gf6BOEQOnepbJ0nJjgPlfouT/alySMtzi7NAcRwc3/VeQKpDDvl+ Nl4Ra4yDUaHpCgtZeTRc7v+dazoOjkyuksW35NHG8Q9bs83iYdWSTiRnkDx6 J6Hus2F3PGRyOazZGyaP0jYL8D7fHw/zSvVzfbHyaNF217Evx+Ih8khI81KR PJo4OH360qV4aGoQ8ts0Io+AGD6cxIwHSFH6kmepgKy+wPljrAnA8tB96N4+ BbT6+jkVHa4EwLdeDDsdUkBX/Lef5FubAOiU7ajiaQUU0tp4uV0yAUzl701G X1FAD/zkuNK1E8AscebXjUwF9OkBh97x0wmwJ7aady+HIqpVY991oDEB1oas XavBq4hcwvkOjTYnQPOVo/xrhBSRUSV15M6HBLA6PCdYI6uIlGt2VjYPJsA+ CYr4Jj1FdL2lSr94OQFsosMV5BwUUWofx3C9biIcfXhS/3u1Inrn7e5pnZkI 1r/U3+Q1KKJXsXWvHucngsWxmZPn3yoii/myFJayRNBVDQie7CL7c8ec921d IvBWZvd++66I9hutW67+kghVA3O3R2WV0AbPsSRVhSSQ1w59N3BFCY3t7y7R SUkCseiDDsybSqi3RHddWHYS8C6t+20XoIQoQ7mpM4VJsFBboPg5XAkdcuEw 6axJgvf/dXr1Zyihh69pzgIjSXDbT1Hm4wcl5PJ49Rp1sWQYflfu1K6tjF6J Pa3YYpcMli0EU8BAGWkHr/HyPJMMeS31PbuNldFz5w/Nhc7J4PO+fXedpTKK Fk4J3+aVDDxtPzaU2iuj2LDa8tKQZNDuUP9Nf6SMxOj17t9Lk+F6LyP46G9l 9CJ65YigKBMGe5Ne0v8qI5wXdcxAmglmfelLbewqaKop65OjAhME+ovddgup IHWD/sLPmkxI/dSyfytNBVlz2T0yMmfCq0EuKbnjKsh9Pswi4xoTRMd8sgex CvqzO8fj2zcmRL2JO19cT94v+pZ00wwThPKqdAKbVJDlPqfw0t9MWHtp9TNK lwoK+u+tThZnCnAsP3jj/l0FbUzpbeJUToF5gYyJFVlVJFLG1ld1IgU6DD5o SV9TRa+v7d/yqjcFbKQXZib8VBGzR36/8HAKtC5LlVUFqqI9L5IDnSdToPml HZx+qIpeald2opUUqN89sTcrSxVFlzg2hsunQqkdm8emLlWkbyqxvs8xFehB 2kUH9NRQ3b2UrcCaBv4cD6VTjNQQO/eqMWu+NHD3n7nzw0QN5b+bF/eVSANL vyKb+1ZqSOaMK5/A+jT4c1lvvt5RDR1uOjW943ganHY0NNwcS7bH/BdFrUoD q+EYZlCyGupa//5u+es0MLJfXNOZroY+tGvV23WmgcjJZz2XitTQfPL3u6um 06Dh0Fbf3CY1pDBgsCVM5TFomJkQ8n/VkPlOEXNa1GOQqGWqXWBXRzwPs0/e S3kM7Kas4S941NHLcwk03oLH0L+1xu6IhDrCYm+rPZofQ4TeDtYobXW09GtV QQ93Oswr79zB6aCOqOfWfYwNSQfMtv/NZKM60npXU2uQnQGD85oN696poySr AwPeLzKAfZy7Zu8HdcSqqig91pJBrs/ayoIBdWQudvKu20IGtMUbZHstks+7 mzIpYJkJI3rywcs0CkrzynDOWcgELsqyv5YOBQmKhBin82cBTabH76QBBUVw SxYMq2aBO2uUT/V2Cmq4qzOy+VAW/G7mdAo4TkHVL+5+OVueBbxO3834HlCQ QZ+YkEZoNmgdbTI1fkRBvtYG1YaZ2bDfKsv4QhwFGRdUcGXWZkO0rr3++wwK kuvewJG/kg1yqzpVHmEKyl+VT8u4/ARMfxYp1NdT0I+omeTf0U/A4Wu47K8m CqIY6gwSpU8g862l6OFuCgpP75ku/PUEdGKrVsvOUNA7g4+9gTdzwOZ+HIvV AgXdR7yFr1NywNvP58+NFdL+b/bH1efAs7M6Pz9zU9FbJcG0af5c2L4x/Uua EhUpGSnuGsjKBdum+y81DlLR7EauhDcrefCQGbhz9ggVHVZiWryi5EOz982W CjsqMuHp9go4mA9mCh79Zq5UpClDD9ybnw+63jaLdneo6JJ/1b1z+k/Bfdee W2rBVGTPk8yqv/cp5MibcU2FUZHFby6da05PQenNJrFrsVSUUONqdDP+KQjJ S+s8KqCitGnBF0PcBWA1J1xxtIyKRj5HF0yoFUDwa16k+IKKejZMX43YUQAs Xit78hupKCj8w5+G2wXw/dXAuVefqEii/MX5aPZCoCb1/HgwTEXWNUui2uqF cNaz7fKhb1R0nMBNCbsKoX9dXcCXeSr6wzZwiP9RITRdymQu89FQ1az0j2Mb i4BrJ1O9VpiG1C6auD44XgTb1sXmh0jS0L21P21HgoqgsvHeC3EVGnJNvFm2 6UsRzCf4b++n0tBBk7GAvULFoHPp+pu0DTQUo/o2ud60GLJkL3Rrb6EhS6Ht IpKZxTA042i3YEJDJvtpVVJ9xSDfaPe1ypyGpsRLIxuFS4Bx0Xpu1wEaarPe Mh0QWAKBDXqCZ51p6J1i2vhN/1J4Ga/F0HCnIcFiEevWV6Ww7KEmN+tFQ8aD DI1awTLwlJHU9LtFQ2FPtktuyi6Dp9OCxWZ3acjtjpOI9FIZTNRzG/Hdp6Ft /OdOndlbDvYefyxiGTTkLFmhoslWAYlmc+/sEmmo+Ev6MyP7CuiRnjqklkZD uglrm9obKsC6/pNDcT4NxdcOa1CTKyEsruvb1RIaysosL60TeQav3N9fNHlG Q2t3ZszlPngG47/3N/gQNPT//0/8D9Bd/Fg= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlHc4lu0bx2UkI4QoK6MknnskFXru+5JZdigjoyRRsiL0yA4hIbvXKJSR lJFCOhtGobesMnpVSGWEFJXq9/z+uI7rj+s4zvP8fj7HeSm4+lgd5eTg4PjC Pv+/A1IvCe32VoeD+2IdBKartBSd9m12PKEOzUnF7YzhWq0XKsI6QR7qEG3p m3cNNWoxIMGv0lUdzOZsc7Q127RGZyJ719uqQ2ZwybO2trdaVqa+ufNIHVo+ X+h+vnWNNslrply8Rh30c4IdY+p8tadCV9K8dVtB0FXx6t2Vm3el/GwZ15wi odkmZ0T0dBrzDO+rD8afSBCsscmvH8xkuol/nHD8QMLrnmlWqtE/TE2c/3PE WxLSSr6U+uSXMBV3SU+mvSFhCzLTDr1TzhTcw5gqHiQhzILRNRZ2i/n2sPlM ey8JUjVX+kTk7zGfebt8GXxJwsFdnUbhy83MWpbv7NRzEq6dw+YV1j9m5sdH zv3pIKHKSSBqJK6NGZ+RNi/ylAT3Z1vMvH52Mv2vFn1VbCVhe/j7LfV9L5mO VbULGo9JINTrzpjM9TENm1q+GQIJPNX1cg9+DTKJp/3f7e6T8Eq75othxlvm uv6JxeMNJIje88kKdxljco4uLYXWk7CPI7bPgfsTc+oL38/kWhJUqNXGR2tn mP3LUr8Kb5OwLuB8sVvfPBP4GMvVN0nwXe/a2SG5yCyXoH4/qSChbMFu1sBs mZmuZP6nv5QElxD9gpz9K6gw0uXvxxIShA6yymgtHsqD8uX4dZWEwqSWeJ4f fJSVceSK1YUk2EjW9ww9EaaYtmmcG/JIuL5D+UPICTFK2a2Ia2suCYdVKvgW GyQpEb9abr0sEhwD6781/JKhfp5t4dmfzuZ51qxn4JYCNZbQv/JYKglHYx5V fMjYRD3PmuANSSYhfurwT1lrVepu8dKqxEQSRi+f4rUQIKmrt/n48+JJyH26 4fO6pG1UUrOUQNU5tk897bTrXTup0x1qgg+j2Hy/eCk3LzGpQ6+Zq3vCSZjl P2xmWrCbMh43ExoPJcGUcXmT9UkDSmPeWXgxhARuG9ksc35jSvavjwhfENt/ ulg464oFtVIwco10AAmb7x7SY22zpmbXpYlifmyf3KVDj0xtqcFNRWLImwSR VgV1Z11H6ol6rfi+EyRY2Jy5+17+MHUTtaw94kGC+DaT6h5wo7JN+yUCj7J5 GQbLjCh4UlH2E5JxriSU8ow3hJ/wprzcl9bluJDwjnFOOdndnzpwik+qwpGE A6eVmR3oNKUTISV9356EKM+9updGz1CqF9Rk/j1AwoSwfrYbFUGJ5zJl31mT wBzp0NO4HE39uWYm99WShFj75huJpXHUxxrnDTzmJGhrbDKPik+iusFHXtKE hNNJD7Tj1VOppq4IhS17SHjpdTqHvJtOXRtMVdxlQMLv7WIDW79mUykTV5XM dNnzn3TrtObNp84s1Gx0QSTonVCLLRa+SrmtaNnkxyQhx7Rp4c+dEspcqF85 WosEJa1DhaLryilN6YnNGTtI6NJ4zeC1raIUVZZUrm8jYVmWSzvg32pKYDuf 6j2SBOf/NpQEpd6hHHgd3w1gJHwSvSHgudhAlQ/czP6pSoJk3fvnJlJA/ahY YSmtQkKMwv6AMs3H1J4wG17mJhKC1pUVXZtppbIsrzc7KpKwsWKjYpBdB/VB 8Wfg2Q0kHFKUWnHX5AW1/Zspli9Dgqp8tU+wZw8V01Yw1ryevY+S4o0NMq+o npz5yyMSJCSezCYnI4YoRS8Daw5xEiI+2miSB99SfnQ2v8IaEiSMdtZf9hul QGTy4W4hElafSvdRlZqghEepEFcBEu490Ni412eScq5LIaNXsf+nQrPTvHtm qcq40YkiHvY+7k2zPWf5lVq231HwhJOE91+SQ3M+fKcy7UQrn/0l4Il54WiY 0i9K43e9tOBPAk4NSd7wFOWgu684JZgtEHDIXv9e+Uou2teQ60fyDAG97qUT b6NW0kKTpcdefCTg+n/3tT/n89M3Lpr3rxkl4GT3NtGG08K0scaCvvUbAk5E vYiPzhClP73OqUl/RYDdtqYE/rm1dPxZpNj/koCjqrufWYytp5UVx1MkOwlQ 9ApsCDgvRz9pTfhr18rup7mwMuyvAu16gvTOBQJykxwldDQ20Rwi/cNDDQTk J6Zse7yoQufXskxk6wj4s1BSqOWK0Ux7hQbnKgIKDvzc/sloKz34u1WlsIwA iogxuGmpQQdf9cp6V0QAj8lkauR/O2kJI9GVSvns/qathy7xMunayfoAt2wC WI8uzvT569BWKU6jJWkENJzUK3My0aNnNbisJpIIEOd7Lg35hnTyQCmoxBFg up1crxRpTDPCzInjkQRwFju9fstnQXcoLuRVsAi4ppYtwKVqRR9vyxGcDiRg Y6FcgB/aT6/yQizclwA3JX0Pu1d29DWR8U8+xwnQGs/OLV3pROvXJdjddiNg TOz7yNP5Q/R7e7Jt3pmAu39/1HK3H6Ej/vRt17AnQKhAe0pR7BgtV8QqDrQm wExi9nLDh+N0k5GCWL0ZAZvlxAV22vnQDlOtkUtG7DyV6UkKOv70UorXrJYu AV72Z0yvUIF05nZRFxaTgHO7s8xnaoNpjcH6rqYdBOj4E6zOu6F0d5gT8w9J gF4lPuhWFUH7KnFVIDUCfp3Dhl+6RNNC7aXrIzcRoJR0du4NK5au9DKPf7SB gMYLL0y6xBJo0zUL37mk2H4NuFR1tZPpz3U5Rw3ECWidMyrfE5VKxzug3lgh Ahaj2z6kGKTTyn/HdNtXEWAVKnthKiCLflKUcJuPiwDBrvJBY/nLtOseUt7k Nw5Ft5/WDNsX0BzTfclJizh4lHk6bZW+Suensn53zeFgfLC9+tGHYvp57mhb 2iQOsd8smrd6lNK/i0zSbMdx2LX07sIK1g2aUVnjKDOCw7GmRoup3Fu04x3p ze9e4+BpHt3lbF9DJz2InivpxiFkb3VXe9wdurF9svF4Jw4yw3mOZjsb6M8v rWOJVhyO2PWfSGE101JDjZYLD3A4/6SqIa7uIW08piR97x4O/YaeHY8uPqFD phPHz9bg8OdStg4+1EaXfv9apVuJg6Nk+EhGaQf9+u/BM7zXcUhuTPyTyvOC XsX3RL+zEIdzbxt47JO66Z2iDOHUXHZ+74fn1wT20e7S6QP703HQ4MUvj3W9 pjM3LhdJJeMge8r/zuS1YboVc/MeicNhRsJuh+b5t/S3HZ2axZE4VK++2JYj Okpv1NHg8mTh4JZZbu38a5y22ftPFxaIg5O+memA5Sc6xoo7e94bhxfmiYwN itN0zUEv13oPHGK+ntoqB7P0e7deRqgrDr3IRFULfaVFvZmLOo44/Io4EU+t /07rBhU/5DmAg766rdpxhx+0X4Rg0jMLHKQm483Oi/ymC88HHLi4FwfeQX/1 iyUc6EXasLyNHg6ZBt8Pd67mQhz/6E+uo3C48/FGdcszHkSU3Kh7swOH5mC1 LYETq5DzTfGIqyQO7Y/7BDf7CqLk+lDjY6o4NJioBlpoiaBmGBNnbGTnUVYR lg8XRdNPTUdmZXEoYzlLyIquRTI9tWV1kjjINw5lDP+SRKbDMgFn1uAwLHXL YLWRNAodj6GRANvPAym9S3/lUMXM1CpuHhzG+luuWOcooMFFm572Pxj47Xih EbqohPhX3M+7sIRBtNJDP4+rykibf5OH1TwGM9GLTXJFW5Cn2AV1ySkMMDMb 6X+4MJQt8215aBwDoZI/qYHHSNS+yamtcAQDXQv7ffnx6mgJb0k9OoCBYETX b44pDbRZE3NU7cFA+8BCFXfOTnRgd4byl04MqhrdZ7uytFGs8e/ZmlYMes0+ 1ZnPUeiO9dHGYMAgZM/WmxWvdNC4Y9c5qgGDUKWzJjYzukjcfbslZy0Gmd7D eLSuAdL3yZNqq8QgKcbyc8mgEQoI5hlPvI7BcsAjMbhvjIoiT1ZZXsFA08F5 y+mvZqg7oS9k7WUMsnbZnRJ8ZIk40yn9wXQMmvJORto1WSH1vBKhgmQM8i9w Xz83bYMOX1s9cCQeg+np8ZT3DrYopSqwSCUKg0D5ugQGvwOCu29OTrPY/GDt fMYKJzT70ECzOhCDE8IbHD8oHULyHZWcQT4YDBX2+nPMH0aWvWu7dnlisJA+ Ev9t5ggKf3M2i+MIBrHPlV0+ybmjTO5n/YQTBpIvLXWOHfRAN9QkJFxsMfix VqZyRedx9MjKdX/yPnY9kZ36nQEn0euQm+n3TTDIddcuEMR80Uzhz54pAwx4 bhQlUOCHuNsNxWR02PNFS/1wPX0KkRIjqWc0MChyUbQc2h+EDCm1l2U4Bs9X fFSpiAlBjm5BIgMqGNBxhx94vmMh/8THFquUMCiO2jWn6hOGzlcLX9wpi8H3 tLMqadkRqHDg4HN3SQyiDo/QB9ZGoTscpasz12Dg/nVKIq8qGr0310la4GG/ v1O7NqUXh5YCkzqUODDYtk8mo273eSSU95rf+icDrjSvDQh3S0Qbn2w0jlpg gO6gpc2emxfQrknf87dnGJBoV1efKJKCrETvt7/9yICHax9kn3VJRR5afKtE RhnwX1NLGFdLGkqPuxLr/YoBkSrWvd9fZaDym9MteS8ZUDZa/SMoLgtBnxZP VwcD1uRyGt7el4Omlbqj1YABTw/cZBlo5yFuE7nHDg0MGFKz1Yh3KEBS/sc5 E2oZULdjK//1zkJkCJyRH0sZUBkmOPpSuwg5TpiDZBEDWMPc3VYJxchf6PJf wzwGfPerOh7zuQQVOG4LK0llwL9chTvH35SiO9Hh93sTGdDwItP2iF856izv WOaKZcCYR1AYQ+IGWlo6wnI9wwApDedMr0tVSEj+VkNqAAPmHy8nttfdQhuN ln+ANwOyL23nY5TfRvsy0oM3HGGAnLJvHFdFDSrf2hI4bMIAoZYq44NcdxHY rakTMGRAgOun7nsq91B/uNOCtg6bZ8zK7B9WDQgxs+vMNRkg2HoymJhrRP8D V1oJkA== "]], LineBox[CompressedData[" 1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAARwV+Ek1DK8AMxm14L/G7P2TpHmBZ PivASkbDdopFuj8CGFnMIyUrwBBXVT0EhbE/qqNnZ9YeK8CeWWSq9MeuP1Ev dgKJGCvA1NJhu2Wmqj/4uoSdOxIrwAcF+xmvr6Y/oEaTOO4LK8BDYI6dAO6i P0jSodOgBSvAwild2YjWnj/wXbBuU/8qwD0aGqj3YZg/mOm+CQb5KsDrX3YO N5CSPz91zaS48irAPrT5N5/jij/mANw/a+wqwM8q2qxEK4I/jozq2h3mKsCJ SEmXkCJ2PzYY+XXQ3yrACpB+ueSsZj/eowcRg9kqwCEBQWmTTlA/hi8WrDXT KsAAlKa6xEYcPy27JEfozCrAnAkyBYqhHj/URjPimsYqwG3suADgvlA/fNJB fU3AKsC157TfVwhnPyReUBgAuirA8GUQuLledj/M6V6zsrMqwAtZpFu7TII/ dHVtTmWtKsCoSslO5ACLPxsBfOkXpyrArE5gEiuWkj/CjIqEyqAqwDuqBqzM VJg/ahiZH32aKsADm4Q1zaaeP7ovtlXijSrARMOcNhZRpj9iu8TwlIcqwKeb av5iCqo/CUfTi0eBKsB5reWl9datP1he8MGsdCrA4NA1LbK1sj8A6v5cX24q wGYjysavibQ/qHUN+BFoKsDbebePsEe2P1ABHJPEYSrAWEJ6rwLotz/3jCou d1sqwBiCcapOY7k/aKO8NUdVKsCXIS5pCq26P9q5Tj0XTyrAUWmx5ZPGuz8Z MRxn700qwAzGbXgv8bs/HF0QRg== "]], LineBox[CompressedData[" 1:eJwUV3c4lu8Xt/fe2+u1RYQk5JRCqciuJBlRyZaMlOy9994zsrPqPSKpJMlX ykhDEVFRZvz8/nquc51z32fd5/l8jpidm8llCjIysiI6MrL/f/NfypMaheSQ qc/FV/FXJ0yEeNx14pXDZz7ea/K0nWCYTRl1gF0Ov7mq+PA+agesT0ukZZTD /DlcRZ02UH4qnfmWSg7ZDQ1u3MlpBZ6VkxU312TxnMiILMO3RohkmKrT/y2L C3g9Nud7PWwQ3Ft5F2Qx4pcHFfXTWpg6nfrkwQdZ3JSVOBP/oAzOOEi9jHgn i+0SncKKk0Xw2L9txPKNLAaPX3Iku5ELqkkGE9IvZfHT98Qo/Z40KKuY+Lza J4u0HLf/o4hPAJ5HrvNPURaTKmx8Iw+FQeQI2XJGhyzmUj8w/5LqBxvfkzec mmWR7bYnsTHkKlwnl6RQr5NFp2qbr+M8xjDF+4CerlIWv9+zNmrz4oQze0+w jxXJIseD2ebQnwrw+Ng4X2WOLPp+KI06nncWVK1cCL5pspjWaTtyv94Nyj12 pI8nyGKg6dk1j4FA4ItMUuSLksWhTSNdr/cREJ0vfmA2WBYDdiqD5wySYKu5 RbvtlixGhrRe0HfJANcX+nqRPrKod+ExlCnlw/THd6fPussilZyORnFrMfSw bF9Ys5dFipefghhMqkFVMtGh31oWu9c1NDXE6qBck3g901IWfwj7UBDn6oHP pNnrirEs1iRQighXNEL0Fb0A9ZOy6PjXOSMTmmHr9lgwna4sPtUpKrtc2QKu adeix7Rl8atLUJbNWCtM12wlVarLova1JLbqpw/A5HF8lq+yLEaZHEqddWuD 3jFC0XF5WSwYuUjpOtAGakuNlXxSsji+x9fA7n0bVFLr1s+KyqLPqJLYZGYb CAi9fdDGL4si9NrdK3RtEKt8lRTJKYtiJ+2GSQoPYPv4Zt9ZZlkM09LnNWBq BXebuEEZWln0OPHsYUBNM3y6ITq6RiaLtYZPEpc5m8AstmGyf0MGR/+pV4wY NUBf8dGZzBUZDAug5mL/rw6qXzmtqM/KoIFDwcnrk+Ug9HV9k+6TDMqkbRTa zxRD/FYM5btxGXztphasK50PZJwijFX/ySBobVA4UmWAh2w9h98rGdy6e9f0 UEoiPLeWSmh6JoN9i71vpRvCgZicy7jYI4PKWVPPDvwLgIA+jkiZRzJ4V/Pt nvtsLjCyEUll37Ybz9z4oJqVOcgr7gTlNcrgq7cttIYHJSDM/sa/t/dkMN6L +VHDGAGmMub9OCpkUJHhgIcHvxmoDdj+PVUkg3IfQiuf0l6HeLIxz4gcGdTm zZVs1Q2Ab6qGS91pMujgeARENcPh8NVe560EGTxoqXTI/UQiZOZpzKpF78oN ylP7VdLh1+t6B49QGbwmbrY005QLBjTSH2tuy+C5I2MSckNFsOnK+Z7gJYPf UvxlC8iqwKwkysLKRQbNdWQdNKPvwb23O8NpTjLovqxyvHXuPlAz+RgN2crg BTYlkU8hDXDx8MILhgsyOJ+oxG62O/+t3nbHdS1ksGJ0ZdCRuxlYq8Z675yR wcOPG/NqqFvgyqThkQ4DGTSOJZcwbGgBZH/ycOWYDM7tSBw5wdkKfHqaGoog g+qiVqKJMq3g4d/QevWgDDryH+WR+9kCz+ukVUpVZDCfIej4YecWIH7Ouz+l IIPie/31hfKaIYCXS55fRgZ/Wam488Y0wcjJ6EpTogxGXn4pFqDVCPJBZJLx QjL4zrngoklHPYQ1+xT188jggFF1vZVIHUzNLghTsstg41n/8gdx1aAmbJ99 iFEGi1XT7PZMlEOC8TseX2oZzP6ok28gUQKzYUYpjTvS2M/ztZyDogAOdzxh /bEujQo+rzbn+DMha1EzVnpFGsMucHGMP06C38RGOrtFaWz56yKdYBkJBpYy Ybmz0khJZ00nuB4IxTH55G8/SSNrnjv1+HdX2CRx3WaflEYh5F+/rGsBZivR GyffSmPPxY8dX1aJcE+G/Gb4a2l0tE6Rp3slCdTWN5fxhTQKdyywEE0t4WLS D7fNJ9Ko3raWOPPEDVqf2C/sR2ks1MkO3Yq+Dawb7664d0gj34fFPqPaSLiy 98xMdbM0KumMamcuJQHa9dnO1EnjP7+KQtcjmeD5ovH8+RJpfF7W88dVrASe 78i8Tc2TxldMdCr7u8tBXLXA9FWGNPILNO3hNaqGW1e4h+iTpZF9FJ7vq6uF kdyYU8dipfHLSZqNG7b1IP+a/Nnt8N14bX5+XGhvgDBqX932IGl8c2i48fh/ jTB1cLF72X83P7e3B/dXN4Gaq4P23hvSuI9FqCBxXzMkFL/vuOImjd+O23Hd c2yG2dEzB0quSiOvUKKYn34zHGZ82jRpL421XkmtRSNNkAWHlPguSqPxg0fD UexNEDp2g27Ucjf+qTcSF783gKtH3XSKsTT+13vw6E+fejjL8K3N+KQ0lim4 rtyKrgWdEtEkVl1plLpWvp32ogrktc5efaktjZVXXklt/lcGPP8lHolRl8YV +lSlD7vzReb6jP+E8q4/ynnDsv4c+E5D8ZtGXhrvVspftXFLhZECjee9ktKo 6Pe6Tghj4JG6V3GwqDR27jssfasjCCpf1/gf5pfGc5lvLyXfcofka19Mtjmk 0VUzS1iMyxxuUQrv6WKSRvH1g+nSt9jAMdec0p9GGh+fnknP99SAM/vjxw+Q SWNN+30+mQE70Bjsa/qzLoXFYw6p/go3QcJpJ6ZpWQpPz5GRRNTCgIVM3cHj hxRyWQieqE5LhLVMdy3Fb1KIbr6aqQEZ8GlfFdePaSmccvFgp6csgIHnHxeq 30vhFXJnvxiXEmi1F3hyZUQKL9MJDvpaVkDhlkme1KAUnogLTHvIVQPRaTE3 vjyVwiVHgo/rrTrw3tt7urhbCg1uM54Mbq6Hi0+3JC91SqFGE9vznYkGOH5p /7ZwixR2pm3R1FQ3gvK6y+h4nRSyulGtGnM1gVByeV1WpRRSRfIQqLibgGbP h3DLYiksP63XbXqvEX728Npw50rh1cpf6ZenGuD9hTMH3qRJochyZP3Lpnro /RPJmpQghXeftNB7e9ZBXXz3N8OoXf+szBfH/1VDpvQGiSlECl988RkSV6qA YFTOfH5rN17/6IKnKiVw/Zyze6SPFJYICiqIOueDxe+S43ruUqhrkpit/CQd DsdMEKiuSeEe8k2rU1kJICfBvd5tL4XXrwrNcxSHANfD06/vWEshLbEr4YOV N2ybh1cdspRCpwN+T40MrWF28dHdzTNS2DIzZOlzRAaGI1bPtRtI4TP2g1VH PPdCF0FJ+eYxKXzpmNh1IMMGytuvMOzXlsKxvB62Pfo3INGk6NPvA1Low0c8 uqIVCv7z7zrq90mheNPN0VqpRHAI5Uhx3SOF+47P7KsmZoCh8ElneUkpvHl8 op6MlA/qrSFHv4tIYT1TX5LCmRIgGnUJ7gI+KuSY94ypVADT7MryZQ4pJC0c abgwXg1/gxQGxJmk0MJwal5eoA6m+R1LP1JL4Yq7XbKmQz08b8y/VbAjiVqw rzPSrgGaT741s16XRPW3M9nxmw2Q/4VVQXBZEmErLqpUepdPBh6nfrcgiafk FvrPfGkAT567k+lfJZFZ0ozeU7UBLtxvbzGblsTwtLyj0oR60Dv+O47jvSRG bzCqLFypBaWPco5DbyTxKrvbUUfqahD0t9eOfymJPIR+7ctQDgtKQTGtTyXx OGHm6NuoYuj6ljs21S2JvUYRZeX5eRCX3y5J2yWJkT/jCPPu6XDRfNRTsVUS Twjud6VoTABFpmWSZb0kqvCK1ZZqhwJZDytzULUkEoe9N1cZfWDIT/58Zakk XjtgbWHWZgtFSicqhvIlcfr9ozg7anXw/HZ5ZS1TEp9dU+EwKOAAnfzgI2Ip kqi6PKh/nWAOnOYF8SfiJPFdTAQN6xF3+MLYNe4RIYkDIzfvPLsQBC2Px2Sy 70ri8nDEoZzNaAj3+3PjccBuPfZqOe95nAIWShw9329I4vn7+hfpm7NB+tte Nk53SbRcvjP0h7wI1vJOWmtek0S3ZPe1r3Wl0G92pdreQRJbH0/nualVQhZj 2GrMRUlM+Zj3t8KtBq49LjrWfFYSH6hRpFDurwNNv0dJEyaSyOrY9YlKpR6Y lManqE5Lop1Ra6PzSj1MfF3do6AviS9+3/ivxrwBavO4/MyPSGLVw6M3OUwa 4LbZvr5Azd36/1FcCd7lr4aMhpzl+yVxlOWaetBuP0UfX7s0qCiJwqefpuzs 1MJP34jav7KSqOzz9QmrXA10K5ZuiEhIooOy5I76dAUkf0V9fRFJDLR12EN5 ohRUzDY+ZnBIovbY3eDnHVlAxciriEySuKIfUjzcnQwj3Sq3ZmkkMVP8O48q YxSU+Z55xkYuiYx1BmtPdALBR9GF5+CmBLofO+GRxeQM+l+j7G3/SKCz1Esd n+VTwJdXXh+1JIEjzZeTBi71ac+a9vxrmJPAUyP/BYSv6UE7w7TB+88SeElP bPQJ4QpEd29lUExJoBiNsFqUVACc9+WfkRuTwLM/+TQdmiNgj6KasumwBDJt 3otNWt3dF2ZM7gQMSCCR/inj5dFMeJnrNlDSJ4F+V3W/j7MVQr5pLP8ASmAo b7NOCKkEXBmqHFc6JJA/MOf3yRMVAN1PmoRaJHBMwOHk6t1qYPP9RKZ7XwJ5 /u7XZzlSC9N7d067VElge/mr2Wn7+9AwI5iTViKBemSfxwud6iE4V332YZ4E UjJ4O3q11YOpqfn+rxkSqOqmSaVYWA8SDJ7BLMkSyLhPIr1HtB5WMP6VWqwE dt854BnrXwdPbtYI2YRLoBcVT+xZ2nuQvrf/akTQrr9nCz4JVFXgOPOl9b6/ BNYJHZnkziyDA7nkVGPeEkh33yxL/UcR0JmKGJO5SSDZ9s+v3Jdz4R29Zr7M VQmsVAy+Kq+YBtVoOX/GXgIJeg+uf5CNA/+b3up+1hKobmtFoTp6F07uTQor spRAR5toDoPvHvDVbR98M5bA2o7rQcTbZyG44fWa/CkJ9N2Y17MSEwHhZY9G T73d89F2snZdKtCmynG97bAEai3GuFmTLoGpT6PktoYExrGJKYdG34DFByYf ju7fzZ8mIFyJMRSi1n9nRilKYL8WxZRfbAJIaKaYvJKVwCMsOc9rrNKBdEuF iVtCAuV1bjNqeObB+UdvnpwXkcCrUlG3+yyL4c+O151CPgkUmOZMjBgvg8Qj XAe/ckjgAZaXdrq8VbAnpPn3HmYJLPEg9Fp+rIG+XrN7HrQSqPtHXKmUuw5s af5cfkC+W7/zEZU3Mu7Dln6a6L9NcbzXAV63ZOshI2r/O52/4rhzyPSyxG6/ lF/8lxz5UxwNXx87u3XuPrxk8jk1+F0ctx8pPFVoqIUrhjw0XDPiWDFyamPt bA1QJraSzn0Qx1TOyWwft0rIf23hV/BOHI+0tE6BQBmMmGUsyA2Ko9nAxUes HTngln6g3L1fHIOozvUPl6cCw9hbm9bH4njnnHWU5NlYKOP35d/qEscfVp0j 04fuwmErvjdHHoijN8uqmgbRA8Zz22IjGsTRvSqdOVncAnymzuq9rBHHuFuV 6tqWHMBOWN/hKBfHwogv2g9SNeCebVb72cJd+wtxwyXy9qBfctArP1scr62c wJjym/Dpyzv5L6m7+lkPsdfxYRAo5f9VNkEcN/U+HEp4mAh8VwQK3aLE0V7w jMXoLt9pquo41xIijlSHp0cPVOSD4fx5zs1AcdQ4Rn3adKkY5uQ3Bw77imPw TLU356VyCHXNCQ/3FMealf1R2z5VIFqveXjgujhmC8tM/0d/Dzp+ja+zO+3m 37nxSvtPLZir3GqytN2tv7V7ea3IffjpLeSSZyWOXoYsLeM37kNMa5fUZ3Nx /NZ99ELTnzqQWrswLXNGHJtdguRKS2uh++C/LFcDcdRJ1JI9l1oDFwLyTJuP ieNsG9fnN9OVsNp1iHlDWxzbA47wrdaVQfL2ZB8cFEejoHmqVLliUDh8OyhM RRx5rRcOydDlQf9dEY0XCrvxxWv2PBxPA/ueR8tsMrvvoaWbEOgYD9tUNrUW RHFMTM78pzEaDFl6O465QuJI1zkcaWXkBaqRBYRPPOLY9IljpuPteXj1DN5L s+/WL+9NTwwzEa4xTqe4MIpjR6wpd6+RClCfDjrdRL37npI24hj320JhPIF2 fYeIHu56bJ1nfUBzCFF7g4gzBwjPG0dDYZTd1j90hYjyavqKtbaJ4GlKrvp8 kYjT0g3DdyUygDmt6AfrHBF1VN70ZJnmg4YmFeW7T0RMWRAi42MvAcePjnzF E0RM19fope8oh+SIZwrOo0RMomhdHvxaBY8U5I+qDhGR0i2gPsH2Hnx/E3/2 3zMipuXcCaYhqwNe/18ufT1E7CsbFj5fXgfHCGYhCQ+J+M6KaZj2RB2497Vm nn1AxFPXOGc7f9yD3Ov8dWINRJSpNWKlramGZxy3er5XE/H3WKTKcnkF/G2b GmsqJeKG70uHOK5SINocWbyVT0TPReeMWKVCMKQupdTLJOKo8451ln8mBNTQ 8LMmE1HgccT7x1uJUGl8de9YDBGvV8x6KA+Fwsjqi6NFYUQ8MTB/U/6BN5Dl 7z137Q4RS+1U5hvunAeFY0muKn5EDP8dwOoczQnnvy+HbHkS8ViUJjHe/wiE J1pkPblOxI9GtmfP6F6BRrX2unhHIjII1FW+9g+EqQnBXstLRKzJZSm/FRoN DCG33xHOE1Ejq/Og+qlUOCD7cXHOlIhHPY0OSJDngsOro1RNp4lIHX9ao2Oh CBJvlPPf0ieijZbb2uWyMugSpFfUPULEbLZPB3C2Ema7nY+xaBKR6Vk3z/it GuC6MnjurSoRHyk9LG9XqYUjLPvcCvcSUUvB+WXsYi24NqeEXpUh4si8Gsds QS1kn/+bpUwkIndK/nTvqXvQR3bu/qYgEacK95YAUzUsl3f29nITcWjIq5qN pgIIp0Xex7ESUVwrJfSdWwmcWg5asqAnomXaMcM5jgLwzfpMRaAkItdgtTjr vgwoAz2BuS0xfBp1QDo9PgGGZyoVG/+KofPX512OLcGwHcOoG/BTDOX/SJnG B3iAnLLr+WPfxbDaunxmadwELMeG3Ji/iGGran3m91+D2qG3VcJGJ8XwvP+l jyYdp6FeIj274K0YbvBKT84IusHE87X7V16L4b/xXxtiZ+8CnYfVk30vxNBo 4h5fzHQcqPI+er/RK4Y9Dfergg6lg+1Dws+eR2L4S4uFMM+cD/H2IdRxbWJ4 LbOJuDZbDB30XwUsGsXwXrbbPASWw9f7x5VE74nhmWvBSjV3q4DDokZ3tkwM bQJPnNF/VAPaW8xWDQViyCKnOepAXwvOxe7u/llieFPHhqPaoBYyj78JO5oi hkI3HmjN3boHvYv7c5jixPDHYFxaWl01/EzNrP8vXAx1w84eGyCrBGHNzSf5 QWLI9+aHGFlZKRh8tB538hdDcYoX+z3eFYJPBP5U8hZD9ckvCjbPsqBYQZxm w0UMOeqdulcJyfDqTZhgj5MYkgfO2SYmhcOW36xSrK0YfhTjeMVMdRNkCCf1 zK1271eCuhBeG9D8kjQUaS6Gt1I2bvJtSYNh5dj5LiMxHGXX5A4yVwbb66Iz Syd2+8XP1Gj3wRa8lRzdxI+JoZixWrxj/k2IWLm3bqEthhQ/H9ZdFQ2H7Lbl kGh1MbRmz5mduJgEdbc0WB4pi2H30FkDp+uZ0H34buYveTEUfDKxxt1TACNU /URJaTGUeUb6ZOpdArP9LLVnxcQw9cyIyufGctiMNT8QKyiGEVMOZ785VgGL cW43iVsMOxY4zqzZ1YAY9+eTy6xi6NgQF5gRdg9U38mOSjHs5ispse7ceQ/0 89wvnacSw6GAt8mpZPfgvO2D73HbBBRVuvRo9VI1uEhue3evEVD4gZhz9GoF BM0d21n5TUC/Grt9mQulkFIbEyXzg4DWjq8JMl5FUO4xzHnhGwG/TZL5GMfk QPt+/vyEjwSMm3jlpnosFQbWbWR6xgn4yrfzzwRvDEw/LG/8+x8B2d4XxdEZ 34Hluz+05IYIqHVDWt3glzPQ6Kk+tX5OQNNW0YqL1wxAgCHAOKl3V76qLPvf xWFthcHu8d5HBDyl3T+/es4YDifTOa61EfDAdc/rmr/dwNTC6OeeJgLm038I z+W4C44C6f42tQSU32j7Efs6FvymJqhSKgioGzwV0XsgDWKLxRP6igiY8TuC if1uLhQ4XuPfyCHgfHrH38DPRdAo11CikE7ApweTxmZ0y+DJ4qqCbSIBX045 swkpVMJYo3ZbajQBPQTX/qtzrIZ5nzCd/lACjstN+r56UQPbGgMDm7cJOFPp VvPv6D3g2OGwVPQj4PpHy5aHfTUg2XPuo50XAW1aXDQ1LlSDekShc7oLAcm+ m0z2ClXCqZPf/jxzIuDJN17hWoplYMO6N+ifLQHb7z4q9uorAs833gz7LhBw L1OReqhmLoRldKY6WBBwOd7s6eZcKmRaUYhmniHgdd49C7eVYqFG9ETVCwMC ahbPst0NCIJHnxNUdo4RkCc3ormc3hVeV4w+VIbd+tl7TFIrGsIXZ+HjjgcJ +PgG6UGXVIj2mqLDcJYKAX99eMhI3WAEjCvVF14qENDkpmpYZI8riLT9+kom Q8DpG4/J3LuCQPmWuocqcbc/lSrB5oGxoHv4zqaTEAE5N/jondjT4CxVX1gO DwET4eETKutccO5nYnvFRkC7Aes/na+K4HasaTYFIwEvL5EJx+wpg6Qz2RJq 1AQ0uprrN0RdCSdkH1u/2RZFbRpt77N7qsG9wchTY1kU58I2yn1u1ED6wcnw om+iOP5mkvPJQA10dV/LoZsQxT3Zxikju/vgpxNr992GRPHoy6sRddm7fDmH 4dZkjyg+azThDN8qB+8FoeMnH4iil6OGkFl+CTw8pMjVXi2KakritWzxBUCT cGRaKl8UG56+Kw1MyACjadN7qUmi+LD5DIf2SAJk7nP0pQgTxdwPNsUKQcHw Mdj3mLuvKBZfJjFNB7iD3Eg025SzKF71l3nhGGgIXpJ5EydtRNHGibWCruez dpfP/cp2E1E8Tf8Xf82bA3V/t7e0nijGlwnK+9d5gSH/yOG0g6IYzR589k97 KGRc+8pEqSCKpSPDz1YOJcF059qYO0EUffZ8CM/YyAQ5ZsayKU5RDLxVMMnt UwheF4U9TtHu+q9V1MhUKYWu+4qHOjZEsISjOHnGoQJoyHXoZRZFsPW+/dmu 3iowMjH7L+2jCHb4JHy/JloDmSWORZT/iWD20CsLbcsa+Lji6+LRL4IJ8F2N 36ka5PRiDn7oFEFmaqnUVbtK8MrIoz59XwTvhiu4Gfvs4vns/dcdxSJ4R/bL RMB0EVBrPM6TSRfB6ze3DKumcsAwZuRqepQIvl2mjDf7lQIZE1/3UwWKYJ7I HbKOk1EwrbBO7ukugiNXFEVSXf1B9g7j4Ad7EXzQydH5rdUOPIeEs09bimDX e16Zkhg56BRTcuw0EEGz4UNk3McPApWXjrKs9m5+Ud8ik3ic4HSv2Xb6PhHc XgxU5p8MhHRup+dUkiI4Z0x1bdA/Bj44+qV78omg/xvOuRC5NJBpi7GbZhTB b88mPsgL5IEHff5ewx1hPLY+aS/vuouf5+s3On8Lo9Cw7cnTn8qA6t7jPtmv wuh6kGQcm1sJp/+NJGe8E8b9LwxfbdpUQ7rht4vUL4Xx28lDajTUNTBdsC7n hcLorzR9+NetapD9xbg63SSMp+cvm2u8qQRPHZEewwphVJz6mVstXw6dKUoJ XdnCeIs2VVq1txioZnSs5OKF0cTroEvrizw4rWYunXlXGHf2tfGoDaVBeoTT MvUNYZx/OvLUNikWPoz5kbyuCGMi7lUz870DMnKxMR+thFGzK9Ymj+oqeATk WxoZCWNDQfZNtgfa0DFQL/5QRxh7m89+OHtKAihFepbk1ISRcvZ+hGykLZxy +68zU1YYLc1t+ZMy/SANv0XQCAujvVZ7uuHrSJhi3zD1ZhNG6WfyFgfrU0Da nonwiVIYaUU9zHwycsC9WWTBaFUIdyag+UhLEbRT72t7+F0IrwvMbN3RLAMK y6Ohe6aEcE7Zgm6ZuRJOVpqfyXothEXfst6vzldB6rqTEO0TISTnqtTOqa6G KQP/We82IVxy8Zm8o14N0rmxzZ9qhPCrw9jz2wWVQEVZfi6mQAgr7KjcWDnK 4dNV0rZKihDG+gRGXu8pBhwaK5kI37X/9qmCcT0P8g/8Ph7mL4QKSS9cKsXS 4VY+46KCqxAyaBQFpF6Ig3PUkimjtkIIPG9OmkQGgdp1bfU75kLIw9HcPhjn DFxvLCelTwghtZS9hKL+Mfh90CN4SEsIhb57DDFrc8FQYbS0n5IQCu/ZYBPV sYY62tIBMQkhfAVtfkrzPhDj+tDjOa8QJt+UVV74GA5X/hvl8WLcte+i+l7j kwx6Wj87BXcEke3KmJf93myQKKG37f0tiJp1Bhet/hQCBYM4jctXQQxxcKHt v10K0+5aNdzvBfF5wG/NDvsKePjW/Myjl4JIybuk9tyuCrK13f44dgvinr0J /xoMq8G3LDKbtUUQP7tNDp/lqAYLpmJoqxRErWF3b2ysBFWvzi+XcgWxQmFu psywHDjej0TRJwqiep7yuXHBElg6vLi3MUQQ2yf4h2We5MNABe3I+ZuCSObK ls2/mA7VLGJ+lM6CyFtoOHKxPx4ib2iI3Lu4a88uFbtduovvE6Y9ZiaCSLPT R5Xp6QrHjrpc+ae76/892ipqnACx6nDm8oOCWGOXUHPqJiVssxU2GioI4r1L jgNPfp+DiZvtlqsEQVSRl7PtzLgBHVPDWwVcghiq6di1lzUcMnQXio7TCWL2 quNvIcpk8L5Hrf9rUwBvnKTaf7ItC0w4RReylgSw+pKoDHVnISj5qyfpfBZA rfM9fEK6pcDy0VhtflQAlZds9o7IVMCCvvN4ynMBLCueZ3ERr4JndaFBWo8E sHjZWoOOthrKufMlZxoEMClU5sXYoyoIvfXgeVyZAFod6RfkMq4Eu89DbmpZ AjgwRvfaa6oMDht85/oQK4AcdqyvjQuKQaSBsiMiSAD1PF2LtR7mwSavsI2S twDKClRVHvuaBmO31ajeOQngsgHnxdKpWGidMaq6ayWAqVos+7gZgyD11FVD OSMBnBJTLWVf2p33puDlYR0B5B04Pr3n52EwFMjNDFDbjVf7ZLf0UwLI3205 JCEngDlkyZMu1ZeAYXbw04CwAFbKM9UUjfjCrOFsxA12AVTk/WDlcCQS+lrI FUSoBXDuQ3XTudMpUCIkONy3xo8Zc3Y0mxw5EBSietNtgR/7Nnv2ZFkXwcXv p4X4pvmR3X7lOPWzUtAydurGN/x47tzDmsMBFSDQFuR49Sk/+ui1LdWqVsGa SDYjRyc/ko0LTfoMVMF/YU31HXX8WCfla3RhV9+4MGBuX8yPWoG3nXn8KyDR 9OsGYzo/lscJ/RXrKwXNv0+joqL58SK5wHRkRhF8zazio73Dj+nPORLd2XIh STOmItSLH2UE5rc6H6eC1tR1NYor/LhPuGQ4oy0GvgUZPrlzgR8XpD9EXqy9 A8niSmb/zvBjDsPaSoepMxzqY//sr8uPth8y606P6sHslWWPtYP8WLb03+1f ZTvaKYz/kfns5cfPjwbGnvZYgHZda8IykR8LPbeuaQh6wdyZTBEPXn58nPPW laE0BFKX/WoXGflx1ejWWx7JRIB0K63rZPyoY72n1k8rA76rH3oxt8KH/1zu HwwLzYf0cZHzTnN8aK2y8aWlsRiO3Cab+zLJh5wFq33PKspggfDppt0wH55d I9FVfK6AzJ4emuk+PtSq/nvt1oEqOOpYlmbdyYdXj0b9OBtRBYt0ERLj9/nw 09XW47cHKiGr5krT2VI+NAsIvbPOXQHHDA10RjP5cC5j1cYrohSWfu55bRrH h6n6RWxnLIogO4X50uu7fHjanv1FfXQO6KotLRr68GEZ3Q/bOO1U+Dk2FDhw jQ+zpi32FT+OhpyARiYDGz4MzjhqVMt0G/REUnOemvJhvm/a2r/NK/ALb8jp HufDkfwGi5sWOpBrb9n+WIsPH/PUfXxxlwP0aQ4eP7yPbxffxYk3M87D70qB tw8ld/X3JcK333pD3smty5oCfCh4oo9B/H0oHF+cXGlj4cOhW3sPGk4nwnIi KUSNkg8t04sVWWkzIV+liKN5lReDLcMFK08UwInR4KJ9C7yYZ6f2epWmBFZ8 HZTuT/PiF2/WLYpd/C8Q1CPJ/8eLsm3tvJLrFWDwSNqw+hkvtnHH55FEq+DP JfpJ6Ue8WOsfHil+qAoKKeedyxp5Uf0sN1eV4S6+lQ9sECt275+9EbnsVA5/ j9dFFebw4uHZt6RzDSVQNJ/AJ5LIi06qFDUpDoVwKt6jIieUF9dpuby/JGTB mpKpGr8fL9oGW4kxGydDyRvVJ+kuvHjG6mD1sGEEGPrwmHHZ8eIdrutWI2G+ sMG39inJgheTS+8aX6uxhbLOdx6sJ3kRHB6IMNftgTMXO8nigBfJVZ+D4B1V 2CTLS2BQ5cUmngu3AvkcoLzktkikDC/Wu3s6f3DxB2O9S7XUwrxoo3ypSyE8 ErZmj2iFsPPi0XNTTuJkKVARI/6CjIYXK+4+lzx7JBtM9lKfv73BgzeC6JQ5 Wgrh39DX2c1FHiy9nHJxYakEKr36b/p95kHHzt+852PKwZSnmmb1LQ8qU6w1 j+/Wa7stJs17gAfDAnRaRLiqoMrKReI37tpjx+zR55Vgtm3Y5NbCg2dvX5a3 vFkBxGst68uVPMgaf5rlwb9S+Pmf4GHfXB6MEyMWbtwrgkdHgsO3EnjwP1au oZXGHIitnR0ICuHBascv+ZefpcB5fiNO6ps8aFclqnRkMBJkwlrORV3jweuP Ew7PEP3g70/BQuaLPJirkMizaHYJei4Ef00y5kGWira332z4IbF/Vp5Hlwet pIyW3709BhdVjbyy1XlQoZf/nJOEC8gXtrSLyPPg22dTeasxd2GDUYisRJQH 5xhIP+xZEqD/ZrCeNCcPSiYZqrhoZED659nYGhoe3N/08pEDfwE4GBm9Udzg RuurunEZ8iWg3NnC3/yDG7+p/Yu0EC0HMmmhS+ofubE2YXGkha8SBpODy7tG uPEmZRx79Ewl5G7PLhzu50YZhg3OBfdKuHbNSOVJJzeG3Qvjd+grB/XRFr8T 97lR42S3/iu2UqDREcKXxdzI7+gmw59eCCO1wTQm6dy4Of/t2LVLWVDEP3dq NIobhSTLvXgjk8A1zCjlfCA3tgfISnJPhoLWr5Z3U+7cGDPZMjus6AUM1kIE ewduTO/yaW2SM4Wx/mDHb5a78UfTlVU8q9EuV52753ySG42dpVQ7NM3Bu9Bo eUmbG3+tONqWynmDDlPrQW9lbnSO+SFgGBkGbL5CQWuS3CiQbk725nsSTH0O 7rvFz43Urb4Tn3uy4J7RHBM5Mzc+tPrIw9VdCP6dRqZhZNxIe2WdxU+hFI5L t2bRr3DhumVjo9PLcuBJEZqO+8aFJwXoNVetKuHLdrAUxzgXXn9h7CpVXwmN 1+aupw/u2t9XaBbsroA7o0ZNAo+58Jn7HTGh3f/vKZ3W9fwWLrRXZXUSzioG gTqhw+JVXPiXjsXKZjAPZvlDwityuZDdMMC64EsatIbNDexJ5EJu86G2sahY CP1lxFkfwoWZGh+0T3y4DSbWredUb+7qA1mK/Q2dgPBMqLDtGhfu3zAXjrqk BouqIV+1LnIheZQg878iZegqnJPvNubCTm9BnqPLlyGa6YyXri4XWjwQZtB+ HQhnfVvbn6lz4fcXxXa6H2JA8osQmaE8F1IUHk19GpoGv41C9IZFubDP+k/P q2t5gJ1zsRacXMhzYcVK6EoxxEufefOehgsjjlnTGPqWwYWUVn6bDU4ciqYp iEytALkdoUuff3BilaGbRlJoJaxdCyl3+siJw+ddwvQVK6FvdG5hfoQTl+vX PI3yyiFV54yKez8npp1O/HlwrQTs6lr9Vjo58X7AleOHw3f5mIAw+t7nxIvp T8Mo9LJgOyyE5l8xJ044ud/fdk6CF7/mTt1N58TXH56kuxWEgmMWX+D7aE40 llT7RNjxAooj+rUqdzjx7916XjcnS9j9707GenHi57TASY2mNW31xFLmr06c 2Kv3OamSxQBGDrw5BBc48d7iBt80jyu4fSB3zTzDid0/tg6x7rsLDBFK+b+O cWLgTXGYwjgo32szaHCQE7Xj3/rk0qbDkdG47RIFTrxqPpAd75gHE4Fde/+J cWKzJD+5jkwx+ErOX7Tg4cSPTNo6pexlwPmSP+E+AyeqWTUrMeypgDrv4yS6 HQ4s3pvsynq0EgyEbi7ZLnPgQtDif5NQCTM9ZaKd3zgwn43ZLE2sAoKcR4y4 JjiQVHD8owlFGQhyUga5DHFgnuZRwxHOYmjt2Fff18uBgp/Tsyf354GJ3aVp 0XYO9BhSEg0ZToMf9AlsfrUcaDVsvzVlEQeRDQ8PDxdxoNa6dq7UcBBInFtw 35POgWK66Yupq9eBRCZYFBrNgcMX+r/4oz6crzzxevI2B0q9n7606EoFf418 yQ94caB/0xNtos45SFot35foxIF6q4594ZPeIF/wn+2cFQf6njbyHdAMg349 qmSdMxxI7SLxekQ/CewXlR/nHONAn9SUlZMZmbCdZvt7RZ0Ds+/nNP6ZKoDs Q4lEQwUO/EnGMEB7sAT2zzwyqRDjwBdk1zLU3pfBUOyPYDIeDlRx/nrj1u57 vK4q1HSOgQPfN8XT12pXAu2EwefGbXYU9PrqPtJfAcUhfpxMy+woB0t5nYfK QXtP5dHL39jxY5m22a/uEng3POr1aJwdvS0H97gkFoK3P3Up7xA7rjzSMFH7 ngVsRNUR9152VHmsK1kUkww1z+yonrexIyft6zdHr0aAnkeSqngtO55d3C9K L+YLn/jQ4VYRO3I8f2bY7HoJAnEx9b80dgyz4F79J0sEvivCT/ZGs2OS2+09 Xue0oZn11J+I2+woRFd7C2WugNEDf8mPnuzo1T2Twix3G75frDLXcGJHfyfq jjGNGAijGQtLsWLHgT0llKb3UoFQR9O6YMSOw7xZOlQsudBlvv+r7jF2PHDH a6s5sggs/9nzFKiz47ECpXnWXX73uzRZb02eHXcay7tEO8oh/lS3j7EYO/rq /txYXqgA2ZWl8mpudqQfaJHJo6iE3hyRt5QM7Pg2h9ZqYa0cLh09TWu9zYav 221a62dLYfN7wIHW32zoRe5/15myGNKTq51Yv7GhooER0VY4D5Q13mVcGWdD 6xZ/Zp3ONHj5kba/+xUbvvBYzPGQiIMrUWprAr1sWGRAOBKfFwRU+y7LeLex 4RX/zgvucB0KxlLOvrzHhvam+AmE9eDiCf3DCoVsSD7IAluigiDUsSEdl8KG zgEPqonWtvBero71Rzgbfj9zmqurwB8yc2xXT/mz4YkX51pCxaJ391/uD/dc 2JCB/92IQn0qcAX29zHZsmGT2M5mZW0uDP8IqLtutmsfYeVMuztfiRcV0wf0 2bD/voTJVWIZGL76FCivyYbGPCzvhhQqgOlw+uXYvWyo7rnsMLtRAc/rT5xe EGNDwoRje7NnBUSK/VM9xc2GYkqfCxVLy0AvuV7oHh0b+k8+X6t6XAx0NP10 fGuseHb+55kjh/Mh9NvesbdTrNgtIxyrfzwdyJ+lVWQ8YUU02pLSI4+D29Vb Ppb3WNGL4YbEZeE7sBFjr8ebwopWvqfeen52BB+X59xv/VjxkVjW9QsCKvDb cN9M+iVWpD7/7+OyuDq4KmU2W+izYjKfpcKP5ivwnX0nhGcvKxrG85hMHAkC x+XLpqNcrPjpuc4bqak4+DQyQEzfZMFnfCGJCw/T4WKrym/zTyxYrOMa5lGb D+8zsru5n7FgidKRpU8LxWDhR570330WXPD/E2fXUQZvzl+5lJbOgrEZjAZp rhVwRuuVonng7vl+L27rsQoYEFbb4XJgwdusDA518+VwfCd3cMSABf1FO6/9 fVwKvdOU+an7WJDq6YO2vblFcPjxNRczPhZc337W+6EkB7pKXmtx7TCj4k4K T1JxCqiHqTONzDCj/uJ5u6X9kdDiWDCeMsCMe/clFGpl3gTl4zQ1pk3M2HHp gjCZixXUybr4c2YzYxfJ/Bnl2Kq2HOPIiTdBzCg+y621fuwMlC9o8Kc4MWPV wdSgdDNPIA4WzZoYMmPqCP9AT3Eo5N+na+PYz4yT7CoNwilJIJDkFjEsyIyG ao70RpFZkO45apFMwYyZac3PDpUVAofZISmTOSY8eF2m3W6rBOL3l/5hH2JC s60buvVXyoGBl/HJ61YmnKcX+9hXUgERax6pSXlM+GG24tJgVAVQvR+zNw5l wtno/UcThcshqBNU2J2Z0LicRlE5sgS2csspXhsz4fkH5orpXIXge5t5OFGd CTn1ycKfnc6EFRvvojOiTBgQ42111S4R3I+Mu7PRMOEByaA/9tnBsEDUOTy0 wIg8dkLTr6dd4QpVFWviG0YcmhgRnavThS8zrB+MOhjR7GWmwdK8MFx66lPH WsSIIqynli0WbWGicjLwVQQj1jEup6dqBcC56GOnE1wZ8YmCrkJoVjSMOtcI GZkzYqkC+4uD66lgcppjgUWLEU0yJ9MDV3JhcK9f5yCREfcK/bxaJ1cMBmzT 0fH0jPic/DOw7s7fkpA5U+9PBnQCDmIIZQWkyj6PW3/LgHTkmYK1VRWgoQas iiQGnLvpQCZEUQEfdJoTHcoZUGt0ykFCtAxCjWQ5suMYUCFPnXFmfzHIXchP eeXNgF+61zhnlfLg1RVObuoLDCjiQd9Rdy4NvG9EpmscZUDpveTaAhExIBD8 j9ddbldOSRBM4QwEUrxnVhk7AwZax9t1VjuAQ843gfE1elw/mTZJbJcHhsoL uWzT9Jiqfuk4+bYW3G9+Laz3lB5dropbOC1fBbNuvYKAOnpUd5ejv5kSBBsv OwkNafRYdKbn5FPmeCh4r1T89RY96vjs4+xuTYdj38rEhRx2ZcbWdIU7+fB9 WaDM+CQ9Phm8mZLaXQwJZIlSEcr0yDI6/LI2sAxUmakru/jp8b+QC9uCUhXw nt9f9jcZPWo9/1tYFrPLb6WWqqVn6bDpi6n0l+JykFBxkLd+RYdXVy9yJ4WV wnN4V5vcSofhXntdmtyKwO2UoWJ/Hh1qqyoPrHrkANe5nvp/oXT4nbk+lic9 BTouqyurXKdDJ6aunXcWkWDjWdt0xZQOfT8dl6rn8gWqO8T9+Rq7+uinvqYy 1lAdk9H6RowOSTKx0rWHaMAok0mdnp4Or59+/VBd7RSslN5t1/5Ji3U5DxL0 1t0hq+GvhvdbWvRkauplDA4B7UfOXVWPaDEmPknaZSARvjyfPvShjBYnDjSE au/yi6i35iSuOFpkXeBIsxIrhL1fnh828KZFg58mXR1+JTDyEx7fsaLFc2// Pvu3UgZ+/5qPtujQ4gn1h3QspypAhEHuyXdZWpQie0i8cbYCenkK9AjstPh6 p7+3ga8cropz9Zuv0WB2eeE+5/oSYFGKOhHzgQaF2bVP3Nrd75u1tp9jHw2W PM12jZHKgnMnvE79raXB47WUk0fNkmDbfPblnjQafFevL1bkEAqldtZGtrdo cNm7fPKHqieccBseSrenwcK/AkQPtzOwGKBvMmBAg0qaJ+x/1f7WTo3sekOu TIPiX4/Zb6meh4Np+8wP8NNgVnt6ndNrH5gqKh+9TkaDacaE2ldhERBaJ3i2 +Bs1Kt3/z2mIkAKynYnv3g5SIwP159fSG9kw+JTairmVGteUmgmhakXgPeI/ oZNHjWrV8Rt+xqXA/3HJ2jeUGklMHScCvMvh0Q+HD7XO1BhFtirxzbYCHDbe XfpsQo2JpDr5+e1yoKc1+sSnQY10E7EvEyzKoI6z195QjBpfGJFJBGcWgxnh 4EwIHTUOKkaV+Unnw7p8nWP7EhVaWurlnrFKh/yD4rOLo1RIUNP0fHI+DqYe yhwaJFHh1kq7+u3eIBDR2ZtcW0mFMTKT/MfCr8PFPpVvsUlUuPJ9dnJDTw8K DA5qXfenwgW3kG2aKGaYHtROOmlPhS57lB8zXLECgumxr3KnqPDi6rTut+0b cOntCU2G/VQYPDhtzs4TDoVWRolzwlRItr+ls2YgCaY/mM3001ChqmRzko5A FhAczmtULlGiR37D1X7hQrg0a5MQMUaJ8zs6BcbaJVB4/fIXx25KbG3XSOsr KIPpn9cO6lVT4n+fKQ13qCuAcMM9XjKFEpeP9Zilnq6AS+s3PlPdokSeWCYj W7dyKAoMUP/iQIkam0Y+2ndL4RP53bie05SY9MaxZ7KpCIjh4Z+K1SiR5gkv iTw3F+wYYg8Ei1Ki5n+PVMlOpkFxfFKsLR0lBmvOqh+3ioVPHBkfD/+iwFCm i1yGH+4AMSNXjfCeAqnecNGJ778GdoLFMTuPKbCeOKvHLaADxQUV01M1FChZ Uuu/8ksAPonX7n+USrGLr6zr6ww2QKxsjM4LpMBpW4PBA/E3wU6+7cMtRwr8 4W5F2BKJgJL6h6oXjChwKvHYYJdDMnxR7YnSVKfAuWdUv2hbs0CivX9KQGz3 fKGA2cfdeXE4NKiyQU+B5gutrXt8SqC0+03ku9/kmOX6PpOiuwy+6L6bbBsn xw1v9d+yjBUg8XxKObOXHF9s3Ct9o7L7/gy/RNysJUffDtuYL2rlUDY8N2GR To5ySiQHW4VS+GqxtE/tDjm2uDYtrxoUgdT4Sjj3FXIMpKXV6W3IAUebjfGV M+Q4z+Scc9w6Fco/7yiNHCTHs3uOTPiXRcNXJ+rwJiI5SjsVuHtyBYLUAsN4 MiM5PmT48inI0xEc3dmUPFfIsCn5wETm2gEoX+EOM54kQ45kXxP3t3vgq6/g e6U+MnT1XmrMfWkHUv8Iimz3yZC128cnWtsfHO9KhS5lkOEiW6Nx0EQkVFDL vxsMIkP6OPUZ6kspMBu1b2/dVTLUHy8V2m7KBhmWAyFxJmSoe7slse5tIVxJ 1hq7rkmGLLafE5iGSqCSR0fhlAQZPmlPP2q6Wgaz2frBe5jJsFhyWTuaZ5eP aWfXcS/skHYqeLIp2StgSK/s7MjDHRJtv4mX5rcyOGNUT5GSsEP6t/D8yavW Ehiy7LxnbLtDWvJ/WpL4oBCML/VZsKnskDZiTwp9dc6G4SuvyV5R7ZCsAz5T fONJAROPieq40W3S4+Sfw5W7eDDs983sVOU26fanNqoyJz8wCf69zeC/TZJ5 ESWn0GELw9H/Kp+d3CYN5JHmlaOlwDSFzjRSeJsUSzXKuT6pCRdRatx2/h/J 7dFb1kCNa3DtxzF7zfZ/pFHd379Ic0HgI2A/zxXxj7ToYlp3rj0egvXvei2a /SN1EV3KTipmQLx3weZT4j+SVa6jfyN5AWQVPQwp+rlFOr3HlefySjGUDo4z BjzaIpHIHLpCosugfnM9xSx2i5QiCP2Of8qhS4ZPaO/5LVL3e0faiwwV8NRc rZRWZotUdzFbZLqvDIaDzeQ//tkkka1G206cKYGp+57NHT2bpKSfmlLpXwrg +0SiVmrSJglSqvrJxDLhD/39XhebTdIPAWJ27OFEIDvw8pS+wiZpfOzP6+hL wcDkMD9C2NwgNVyMm74u5Qp8SfTWG/0bpH9fLAgf5I6B+CPpmTfpG6STwuIP OVSJsHde16XWYYMUrHXoVN6MHWjwOfwJV94gHWE0emYgfAv0dIMDL5FtkNI2 sk+qKcaAsWchtcbgOinu0fd/5fppcKHgURxn7jrpjXSyX65iHlwZmOD+cXWd 9I8sWz1QqRi81zfy+g6sk+L1Q3jPkZft8gd+qULqdZJk579wm5ZyiDY9UOf3 Zo20TtPmK8hfAelB5mqmRWukuJ6Y8x2Eciiu9Xok77ZGmohk7bsxVwK175P0 aA6tkfSDXdYlWwuhjbZ+8APDGmmE31zu6WAW9KoOWrSPrZK2tPiaDaaTYMh2 YSq5fJXUTUV1pZcQBuPxDE7XvVdJ4p/5eZ8tecLXTpklXZ1V0sNqyz5pZWP4 Pat3U5RtlTRyYJLv1N7f2tvcl3fWJv+StGr+MdBQWAH90ZCI4Zq/pHtfBpYC 4m4Cl3sR6z2/v6TzJx+p39aOBEIeKSNM/y8prfjTYfmKFJB/Pilqw/2XdPDw jcPHM3LgwOpmhfrnPyR9Rz7GmjtFoCMhoMTR8IfUQsOWlHCnFAyN1dvmb/8h RaiSnge4l8P52xaHn5z6Q7rfXHOtgLcCLtd49+cL/CFtbPR9lrYtB/ex5DO+ syskWpX+zly7UrhF3TBm3LpC+sb9ssbybBFEKr+6tCd0hdSaE1fRr5UDKTY/ ZqlMVkiGmukKh06mQH4so8eU6App0HN11C4rAqrbZdcf/FgmHY9t559P9IHW r/p3kzqXSVIK77PvPT0L3ZyO9M5Ry6R0kWWlVY4x7YHDoUnHLJdJiswJHEfF TGHMpZhfRHKZ9Kpagypg1gu+ZGPR6u/fJNe7v89NvQyDpadTsq/xN8nQbJD5 6bFk2FjZaqiO35U3q1OIqtlAQxTUCL3wmxQ+88eG/9Pu/mN08LG13G/SkLHi bBNtKYjcsjQ4sPaL1PH71qLZnnKQq7oxzNb3i5SvKBRBwVQB+0dTzn9P+UVi lAmSYkooB5/fw1G8l3dH/U5yuMp8KbSxcLQfU/tFylbOeRJkWAzrcsazHrS/ SDpdclxmW3mgoZ/IWzD2kzTxt/IPTWk6BNi/0huo+klaebYoXFAbD113WHzW /X+SZq6/sYm9dxe2c06XSZ36SVqw/TjV4eMK0BY7Yir8k/RrWE81qes4kFVl 0FJMLpGUvA/2VU3SQshHbscLd5ZIsgHK7k1HrYBGILW3VWyJ9KduXFPzpA9E mnCIs/cukozdn1At3w0HxpjEu86Oi6SllIRjq9LJEN/DMv2EbpGkef9mTnxi FrBtxWoTan6QMkJuydNaFUKKKmOe/+kfJCrdE1bnXEqAxyVqc2RpgaRdp3Sg urYMMstozysmL5BY1Ipu75kuB8GpsLYo1QXSPjUhWoaZcsjnoeL9MjpPCmw6 /LqrswwIRsE3tP3mSX4XCNrcISVQEkE2kik4T9L7kmXJ4lMIUnhbefnhd5LF sivR5kUWVK5tJZ6+9J00mKNzysA2GeT2BSxVUHwnvVdK7WyeCYfaq+unKcrm SKm8A5u/p31AqfjmvQv6cyT6DT1hqpwL/6PQusO5fL+wvffemwpJVts5RUiK JBQNkaxsQrJCVvbe+2NT+VJUH8pIJWXvshVJdoSf35/nOs91njPe977Pfb0v PBtcpav9MUsMGih6J2jNDErsrtasEbPEwKwGrmeUmlB7fqnVVm6WaPpFUmcs 4h4cD3SUavkyQzzhu/2676o/vHq1ECjiMkOMs+oz0zkfCaqrdhNenDNEuZoW qWcOidB4cO50T+00kfWF94ZCWwaoW1pnH7o2Tbw0vux65UgutGTO7IT+myK2 FybcL+jLh3N9d65PZk4RPWKr7xT7FsIn5sl61dNTxFMgoauzpycvat3mS5mY JLJyrnkOGhTCV7/vHstBk8Tsdmorh+B8MHh5o+/C/knivzSGEM73OdD7Z1i5 6MMEcYppzSG2OR2uSpvEk92bIFp2n5NvNUuA4dsDS6bME8Q7HPnSQ/oRcCPN 6FLt03EimamqeqmzL4x19VSyGowT/wze/qXPaw0WDAZMdmtjxCTKJka7UlWY Vu+0a0keI8bbb9pc35IAq4d6H0VOjBG35hNtdD+awdx/nw88GPlOPHGYU/zp e0+wX9AJ6fH9ThRx1dwqaQ2BRamP04fEvhO3Fj6OCDnGwdSb2DCO0G/EL5Zr d42HUuHnoSjNtvZR4qi71t+139mwmB1O4cM2SlRfNjDzGsuDVdaQRgWjEaJ3 nRF3x3IBbAYE+sykDRN9SN+lNP0uBJIVvxPp34eIG6Su9CL1hUB55+GGnuQQ Meumab+RSQHQ9Xr+R2kzSBwX0ztMvpoLzJruznUVA8TzQlTOPNFZwPHC+ZDD cj/xw4XTAhz6ycB7wGFe/Gg/sVjM6cbMYjQIpdoW93v3EbvdCQ+NbweCncXA 2vHmXuJWErl8srsL1Mlpqmcw9hIbj/IopJRcAZq/1TG7V3qIW5sX85mtx1QN 34l9M8vsJv7H+9pVreci5D+Jlm2a7iLWb8b75Pg4wpLRjqfUoS7iS3b29zeN AwDF7FpD7ncS5zW0NZqUoyByfoBjjviVGO48SDPfkgjDNZq3L9B8JQoXPuoM 3MgAaf//Kiv1vhAP7H+ZW3wiFxYTNTbFFTqI8m3KC46f8+GJjFjC7Nt24kVW Y+985z18a9g+VH75E/GxvOTq4T191GIw8MFp8gPxe/1lXmHzQrj9o/qOilsb MTdoyWGxKh92HkaTbFG+J86qHiUTYM+FVDa7NGJiCzHVeH/lzZQMUCFoqgTu ayZqO/icOGKeCJ0nxL9qvXhHbNac/iPpGQn2X3ZsGc+9Jb47MtLk9tIf6O4M UnUONBD/cbe8CjrqABeWbdUO9rwhKgmnp3kbnodgAXHPmrV6IqPWxGYM37rq m7ODFcDzkmg3bTNdOmAEa/Yxk++P1RDf6ZpfPu7sCnLJWnz6Js+Jq2VuT3Pp g8CycVd3yLuKSBlFNlcuFwOqPffo206WEsOaM87Y2yVDxb5h9yHfAuJz11oj l6AsUF2JbxoKyiLeOmv4bGosF4RTnNJIGOKJlcGyu9VqBUDinT6pLeFPPHfu 7X3u0kLYmC2qKT91F7rHMrxYVgrBe3GRKPouAipq860vcRfC9S5+WruhFCD/ aPVvRTofVJOEU/JKcuFk+WaS1q0c+Kz+9GDM3SJgOHmj/8V2GlxfOvPWR6IC 5jaUu57WxcOaro1MzeJTKF2SlDxrHg5vpJ6vynZUQ75d92KEiQ8Eb28R88pr wYxbYsbtiBVc6FYP44uoAyXZ3YaF8lPAUfrEIMbmNTRQ364J+isOC2jLHCjR ACNNVKpCHGagXxblSoxrBEt2Y/2Wzx5Qw109sEn2DgjuwnZe04+B71G/qopz E6SsDot8bY8Fn4V/eU5jzcClBFfesqfC+FVR2nK9Vjgp15BzOSgbNJrP2s8S 38PdNqMZEr88KJG36RI/9AHcqKpJovb4gTE98ujNzI/AQCH/4mDv3n5B/Twj lbEdyJ2vNMsOF0K3cx9Zr/dn8M+qObfypgCOjm7dZZ3vgKRsrRj2tDz4LBFt WVj+BR4U8T+1IGSD3zUxXvU7X+G3zOl+gZupoBBd/XFMoBMETV7bjvPEwWSz ho9vdyf0B3v9pbwXAolb/fKCEV3g9DoqOTXHE7QO207UqXUDrWRZhSXfbdi0 3E4w3uqGnkSZkM/V+6EsPUpr7VkP8EdkCd/+cwxudIpuxdn0gkK6a6Uf9V2Y dLur3HK4D+jCyC2iLviCNW+5w8ZGHxxiF1XQFHwCC6+WiqUb+oGxgvEPg1Yi uN46Omn6eACqBagPCHFnwl9yH6Goi4Pgwb1/0TIkF3wI74wbOYfAsU/gW+Lh AqA4Txu3PDwEDkc/SjLUFkLowsV2yfxhaIzTKSSdKwSm2HhqY9sRoPOaOnar tQDilQdPhymMQgXX6QJX+zzgHRD2fvV3FJqqqRmmpbIh0/tOzULDNxB67mfS XpgMbNFXPFjUv8NteXMvhc/R0G3mkVBM+A6tnZfei9x6BEmKac/O0I+Bb/6i lmKYI1yjfNMxZD8GMcohihmJ50Cg7/u8a+cY7P683086ygbfisjpmFTGgXKb 3XLZ8BbkekntI6SMA4lmZtvulCdY6JxTx+1xqJ3Gg4vPQmGfkJ3ZwK0JAFLZ dnbbePj5O9LHuWkCyk53EN5op0NZ49M0+v2T4PpMsuFbcw44xHW/yA+fhBuj OQfIS/JB4c56z6nfk/D0umnmhFchrKjwLffqT8Hg38vei6QEqKU5xeJYMwVd 5U70Vw4VgtfgzYO0fNMwzOd3q5M/H06WBWjnPpwGmpnruj2UObD7sODuibFp uOlQN43xqfBW931gt/oM/GPRv/r5aSwEis7l3CuagWgKCamg3GDQWGYkUjHM QpQigyD/aTegbZYfznKYBffEorwXiobwKfHy36NdsxA6IvTU92u0aqSVO1en yg/gvatDUKC+ApeOpyjapv6Aur+7V549dwUOhld6FDs/wHDQqolDLRh6R0bv ZZj9hO7z/5wfPIiFlErScJXmn3CEJJ6c8UYqmPpLFHXsn4MmwwQ/zYVsELqs 2WwVMQfuQbMM9PT5MCZhM066OAdC7eQ0v/YVQv5axG7q5XmIf4RBEZQEsHxf KaBUOw9O6vcb10ML4UBq57F2vl/AxFEmVP0uH+ZtVw0tfX6BiGXqC+rZHKg4 xeO6O/YL+k/sZ3VKSQcn5hMxyWcXIFDJyX+zPh6Uxq5XHC5egNLnjjpHNcNg 7Znfxw8Mv4Fl/xO1mC9e8DIwb9bc8Tf8ul4yFexqBt6GLZTbXb9ho3wt1ew+ HwjHu7J+5F8E0XuXJ3mbNYBkmzI76cIivKeLIjd+4ADjd5LkLHwXYZqYY3Lm YwC8+7z/tfzTRcj+9fG0qFs05B+pO789vgh1tkIyZtrJEJx9frCN4w/Y1a66 v9rMgru0I1aJGn+giSo+Z1U3D7Sc7ddve/yBittCLzxfFoD00G7QoZI/wLe9 llLzpxDo1WM4/g39AWctS4vD3YUwXyaW955xCT5k+963ttjbd6Xiwk6fXIK4 d6vegaR5oJZN7lxnswSnvvzVY67NggVe16uKKUsQ0kHBfC40GVLjJrGsdQni 3yXIcSrHgAbjlf2Sa0uQFn1V1Go5EP4ENzNnSixDk8w3mv38rpBOorLOdXkZ eGaSvZ4TDEHLq3A0yn8ZeA9bfdxOn1FdWeZqoalaBq9sziLb1IuQde9xuf/o MojWj5tNZDiC9sx6/CbDCkhem3VhiQqAtVtW3i4nVmDrZ9n7wcwoyB3sN5+3 XoH5fcx1fzmS4KLBufN3klfg99A0Rd21TNhsf6kw2rICbcFJPNlOuVCgKc1n tLoCXLqHKJXJCkCvMZX0i/gqtDLI3TNKL4R/x+l/aOmvgoVc8UdjLgIUVT/4 0ui3CjzNqveG9vYJA7n52uOVqyA0WJvCmpQPJEWmWc9HVuHbnMbm99EcKBVt D5ZlWINnJrr3VSgywDDtlH3B8TXgarZMialKADLOiitC1mtQQCU0QEX+BCoi hU4lJa0BLBjO/jH3g6s0URIsLWsQ+Pli8rK8LVAE7NKHrqyBuPBmeqChGlRt OSyTiq+DYsiIvoMlD5i6fR/0urQOEY9qwgVbbwD1b723y77rIOPs46CecR+e WTUW21Wsw61fGgwH1R7DjfHDMVPD6yA4OOTiFBwLdKa5HjfoN6B+2dO9fTwF /uthu9V3bAMylC/XNDzIhlu6jzT1rDbAlruw81pwHjC0Lcu1JW5AT4pUoPrb AnhxxoLrTPMGxFwzLwhZLQTzV93bdcsbcGhXsoh+D7+YVM5OKYr9hXZDxs3K iQKoq/zvU5neX+gsLchwqMsDywNS1ZK+f+Gv+sw/q9fZwJqXmJZZ/hdeawcq G7umwisB6kfcw3/h4Ywc+UvuOLBKvG8TTbcJHyg1M79qhgAHy+wl2mObkEo3 U9Gi5AkNocbHAu5uwqa3zG6KkRnYkbeJbCVswtngta6oAxLA/fAYjWvTJtBN dVTbXVOFt2vFv+eXNmECVJC3ygrsHfn67ohuwbnUjynzP3yA72fYm1HdLfCU v2t+ZCQcWsy3Cox8toCSRp/6E2sCOI/YPvlStgUOFroT+rbpIGg07HpuaAse H5xQeZSZA++/6Ji+pf0Hbhsfe8/Y5oOr9mu1E0f/wVsa/u3Ay4Ug0nRQptry H9RuuMySShHg46lMtoMJ/2D+EvwKbN/T57VMmwXv/sGRiNMyjJcLQOyw75jQ 0p6dd55/bDgXPpf8fp8ksg0B3NnsJleywFPiVhWL7ja8IIkaOCCUDBKZX5JC H27DCQ5JqbI9fvzCfdqXrGwb2H5clQ7VDIRFu8yQW6Pb4BTRm4KlTsD6divm DcsONCcxnTDXvAAK3FfTBNR2oOtQ8NC6OA3o29Xke7ntQMgRznNPi2+AcyN7 RT9hBz5krSoIKHtCLJdTrcrgDlzdd7qx/0YoPLP93BDPsAtXDISu7urGQ1eD zIcl1V2Y5Hv41korHVY4Q7v0nHbhu8hRt4muHOCwnR6uyNuFjrCrvytb80Gp QW2aoXcXDDjuergWFkJJ2Jf7yhQkGBsfxNx8hADHlX29LQRJsHbAmTXWphA+ fDvoH6dCgoKPT52SNMqHa2HDQW91STD/FvXuqZM5MKcUHvbHigR7E6yVzv9O Be9vx6JEAkhwoLBy5OhaLDCEzcbpppHg+RyLr6+3giFdKSnZp5oEpb9Evbma 6Qay385mlLeT4J32yGySSkN4FbqSMzxNghTnvP7VFGSo6ijlFdKTkOLcJcZ3 DoJXYHj0UulxXlIsyuIbfDjmCnahJFXWCqRI9XPd1N87GP4pVlYnnydFw/yn qvsrYiFi9PrLVgtSpGd6VqZelAoCoQxv1h6SovaFLp6LQjlQrlj/VjKJFDMH WCty1Pb28VHrVoMqUmyoNZGKuVMIn0N4Pj1qI0WLBZtNVnUC3FBs/fJsnBS7 ncV/8DUXwsKIW8/YFimqHtRoL13PB58QiUEWTjLc2BBoImfLBSbFrlGQI0PZ uKEPnr3pkDniP2GvSYYr3FPzguPxcChEfjbjFhmeOuT6u8Y2DBoUvs1/8iRD sjJ+XsXvXqA38uTPViwZfozgWaY3NYPvj0+uSZeRoaNIxvXVpzzgqDC3ebWZ DO23/1LUvdQEkpGU3ZBRMvT4T/8olZAjRD/WonixToYKQVQeMVKPQERhnWaG hRzfdT3kpKiPhqfDBYxc0uToTrd6z60oGc48NmA7q0aOAZ9aCmWOZEPnYXJu V9O98xy/Mphj8+D28FP+PDdyFFyqiEwgKYSl4FsinZHk2OTGbcl1nAABh5kl SYvI8aRqlzkDHwHYhl8fkG8kx+/F29u6+QWQG2wnd3OQHHu/LwhnUOSB4mF+ xcjlvfsDaH3G2LKgaajtyGsGCgxPfh35XDkJDII9Ts5LUmCVwBll9ZeRMCm/ 7zQ/UGDUwNggy6QfuA71nNU2psBPxvWpXWI2QBEcqO3pRIGUFK2mf4JPQLy8 om5RGAVGxnuNJ2/Kg8TQ2OW+PApkl3C+EXvFEqqDoo2pXlNghlHHZumwD6jL w3XlXgpsHa20ufIrAroHf5lZ/KZA0qMkO+qYCBZB6ZZxNJRoZDL9S1E2E1YP nbd9K0qJIxwbplaEXDCtnHv94DglMjJRk3ncLIAmuQgW5cuUaPnNdlqfjAAy FbLmC7aU6KqoQCFjRoDYg+3/EQIp8XevIOGhUyH8LbtHY5ZBiZ3HpNeOXsyH W7JMJnw1lGgKQV1VSjnQWlpR3vWZEi9o8KTf30oFORldkiczlDi8POP2cF8c JJT81tcgocJLr2h/sKc9hn8Hogt2eajQMfm4U8+uO5gXy2+8OEyFnr6WD6df X4MP+79qO2tT4dCpC5kqnuuqh4ucMmTMqVAxJuyRYq4uJO9jW5x8QIWf22fF k/qcYLfw2ZnMeCq8cWMu0ZMvECylLicYlVNhYnPaQKh4DLQXLM+wtFAhz7Is DWEhGZQk449/GKVCbfd0BQWtbEjLV3ryaJ0Kg6I4nxck5QGZRM+3kyzUmCyD K9bUhWCd56awtp8a1XakMmX1CfBFjCuo8jQ18kdWfTp1mQBHc2v6rK5RY0yA jHQGXSFkiRpJi7lQowR1d/Kf9Dygyln3HgrfOx/RRm2vmw32Iskd8fnUaOVs OqRIkgI9WUfFLr6mxvXmhvxqlRg4KTzgSt1LjUmMBvNJEAh5mZ6tDQvUqOee wznC7gx0Qnx8XtQ0WCu5+OunoR44ZdTZKYrQ4Iuk067aAkuq/QImxPmjNHh8 qu1u/9xVgPQt1sJLNNjabH3cL9UdCvnTLW7a0GC1J01Lx+XHwJh2spbnEQ3y U9/nOLwTC658I7SdaTQolxQ/NdGVCkMpD03Dq2nw2vPC+lSpHDjDK1Sp3k6D 6c7xhlfP50Nx8hvSnSkaLHv8ePOibyGw8Nw0qN2hwVfbPBVnAwlwP2m30JGb FhfEDpOEniLAKFf23wPytPhLR1ee9nkBnE1EnQktWpSgkm12YsmDMs6xzHQz WnwzwaqViVnAnuD/54oXLU6PaSynPU4CLw4xdeY4Wkz8Jlq9lRUF43FvE9+X 0iK/rHXs8Rl/OMdu/sO/iRaleAwe3Mq+B1Wx5CdPjNCix4mu81isDjxs+ZEr q7T48GQ1m2awIPjGqI+VM9Ehh9AT5YzrZjDNMqV4dx8dvsuI39dv5AUXooOC RZAORZgirMUbQqGaWWpgwJhuD085vcWvxgN/VItMnBMd9tt8qxI4lA4BTHd9 dMLoMPbw630Lb3PgxxPqr5R5dMh7yOdK+R7f6TEWiRPr6fDC8RgOka+FUBuh 5e7RTYflvzQ+qRQSQIjhx/vDv/biT/Ju1R4iQFB4KP8cJT1WGOlnvvUqgHk6 aft8IXo8+vZRhEFtLlwO+9Bw/Qg9XpK+zElimQl1tLbs3Hr0GD8eZtGenQjB rA9ipe7SY/2YSE/VQiTo84azqvjQY4G2hpyQbAAIiaZFn02gRxWJ8uldM0eY 21/KfKWMHk9EJLQz0OrCC/n6SIt39Gi/qPcj4HW/auDRj4yug/S4UMpttO+V AejhUMSjP/R493rqT7lRZxDQmqOPo2FAl1/kLQ4Tj2BWdyssV5gB+1yVWk48 iIZqI3q6ZyoMSP2lJfb8f0ngd5M/tPECA5rYC91yXcwEnbsyNF8tGHDqjjnm vskFHocTj78/YMBBsH3rfqMAJt3PUy3GMuCzXbXDUjwEqPIxCdotZsDMYsOd 1UYCPAy2pWBuZECS67ayi+cJoB354JFQPwM+EaXnvNlYAFyJ4WRyvxnwpLRc arVmHoxnpPmfomLEfR+PJ2zwZUNFQSnJBUFGvGnxXUaWJQW8yut9TZUYsfDb iyKJj3t66L+PO7bnGfGa5DSP58FgYHs99PDBbUZsNKjYp2XgDqNNc//CPBlR 3NHO1O25KZR82nqQGs2IEhZXn1eUc4B7N/1WMYERd4kuDCzX1ODMML/XyzeM OLs6EfHrsQ0wT8r8fd/DiBuCWrFX+nxheO6ER/88Iyop3Fz9rhABRcvn12fI mRCrLuev7ksA1y0T93U+JmwrfTUdfj8dkNxulUqBCTVzUqNky3KAgd7blesc E17sUrsYFJsP/WwRy5K3mLAQry/KFu/pbb50Z+X7TFg1EevL8IYATmJlf9Qj mVCqfvSAZi0BVKVfORoUMGHgsSbT7IRCoFP49Nv8FRNmqKe9NHPNh95jw/Yu XUxYscKQ1xScA7mn538F/GRCV33h4FNS6WB/7p9dLCkz1rwh6Y3oj4fjlxjm c3iY0X8p8cZRQjhQXRWwfXqIGUOOB3NG7vhA5y3Znw0azFj215+qyMkaMq1O Wn+5zozvfQOeciacBhtHndlvrsxYv48/5fQiL6h4mN79Hc6MfcMluWcZbgC5 n930Ti4zUlpyrnQMusOXx953mOqYUSpdW9/Ab2/fi4qYFPzKjNovhhup/saA VVK6+cFZZvTzS5HfwhRQyiobP7nLjFQ8jfOonA1+l0flpehZMIHlJFfQnT09 Y2S5WM7FgmrbjsW2UwWgY7JQqSzGgo/9WQbCPQmgcNPd4fVBFpzO+2fp8o8A POY7cmePsSC17N8KvtsE2LEMXvikzoI2L6K/bL7Ye55tmCoM9Fjw0Y3C++X7 8+CDfeK9YRMWfFg5WeI4nAVVzkIHLe6y4M/PHtL1ZcmQ6F44P+fMgmOZXHVL djHg7SVX5uLDgt+pzZ9fjQ0Cc58a261QFnRO9c+ueuAGUi9fungnsqCGKRvx +W0j+Ln86sF2LgvWkEjblCR1qpbLNTzyqWRBH9qz5e3B+uBo/S58t54F1aee 5zw/5AJK+S1xfu9Z8D/VjG1txiBYH21LI+3Z8x+dNch9GQN1vO15AWMsyHA1 CHQyUsDH4Esp+QILxpptYVhpNpyO6noeuMmCm1ukXjE0+UDxobeekpoVm1mm l+pCCuE9xeC7YHZW/JFsTbU5TYBwGPlILcKKDhu7GXnbBLjo9b0rRJYV/9MY 1HL9UAhs/00M0R5jRfGIM6xv7fOh5/f0RNhZVhT6qS7TJ5MDydI/5+j1WTG9 pefIy9pUMLnzazniBiumBXqvK32JBaHsxS1GW1bMOe9902ktGMYHl8mj7u/l QzMYkUHvDgWc6/Qsgax4u1RvPrDeGKz0Ntljollx/N4nyrQX06qy4dv8bBms SBd0U2x43yX43UwiEVe8Z1PJ0HK4O8MzEgpZjhpWDArofq8aFAhuJ6iVEt6y 4ky/P/m4ZQwcdac7ydXBiqPR7x+6aqTAvypG9aQhVrSkyTjVHpgNxDkWHZ5Z Vnz36kTGj195ECDFYZCywopcFwRltf0LQcOM25SPlA2vvbRaSN4gAG06n0Ua Ixv6paY4/pQpgk+9gnYCfGzIki7+eJWTAFGsoq4ZUmw47NHlmdidD/o6Et5C imzYiSqysQU5wPV4X2AWsGFojrLLLDENBhqlI0R02HAmNzvapycO0v8djM8x ZsNm4jnG160hcOvI4XSxO2w4NTZV9KXPA8SdlfLznNiQNDtej+b0TZguO1Im 4cOG91//eGnIwQYlM8erC8LY0LC+YaHZUgvuiam+kkpiw4XbTKfMCxxA/vrp JkIeGxrfiPv9JCsAVpLUP+2v2vNfbR06rhYNtZ2a3cWv2FDzxBwxgy0ZvBjP D0u3sSFNf0iX9c8sUNW6OFnaw4ZCty9LKj3IA9JHl+Zlx9lQJWpgi+VkITS9 NlgpX2DDxg+n7B/8IkDIhtE/uS02NO/ojv9mVgTnFU0oqqjZMcDR/tKBJwRg sr/BcJiDHUW1vd7/CyqAziIzjmci7GjsSKdz9lEuJExYCCgeZMeEK/vC35Rl gLGQlUT1MXYM1BDu/9uUAAJXbWWVNdhxzfBE6ButCPgWZ69Uo8+OMzZ5JCFm PpD72enkkZvsqEhJ25wWagmWtG7qL2zZsaaZRo6mWxEOqHvoHPNgR/YmZSn+ YGWY93lgUBfIjp/CGBc7pO5C1Usf0xMx7KgWX9WxNeQDLiv+Fq8y9u67177+ NDECVA4F2Z0qYUd/93hD4p8EkJVrCPvxHzs6GLWWfzDOALGDW0UJjex4t5eE e3rfHr/KqrSebmfHxEsNk2f5CoBJxmnqVz87Ct5WMNtQJQCFdBl56iQ7Pqxi CD5qUQSb+2dENRb38smQJzx2KILFfWK4tMWOcdTvrRhuEWBK6vqNTGoOFH9Z zpl+sQAGJZO9tdk5MPVvvoKDbS58kehKXRPiwOH7CumOyxnQIs70MleaA3cn ry3RxiXCK7FzfRdVOLDZYC7ue2MkPBMNXN08zYEDa18PCNIEQJEIkZ1wgQMr ce6PCzhCpvDm4ctXObA0ljTz4fhFiBdS1tu14EDXZ09uFTb3qIYJOtqXOnLg +hgteeJFA/ATKI0w8ubAvBDvSPlYZ3Dnny4hD+HAof7Xaz35j8COT7StMo4D 2TN+POc1iobbvKYzJll78S2N6O3Sk8CYJ4mSppQDWTlSlam2MuEid6d4dQ0H 3gvW8X0xmQtqXIxnbr3lwP6K5JqS/wrgKKfWLYbPHOjn+amxoZIAchyPfF4M cOAd7ly3uoIikGB/k24xxYFkxHShWv8i4GP7W8fyZ68/Ln9tRDUJwMKqNPDq Hwemf22TMWQrACoWh3UrGk6UU06tYObKhX9MJZycHJz435MGxoKDGbDEOKXY KMyJ15NX2CPaEmCWQUT/ngwnOjp3zPDqP4FRehNH3iOcKDnT/Ndw1A+66RIj m89wojO33jfPS/fgA+3XMqeLnFjx2vBL4zctaKBh+Ch4jRM3NoWe7oxuq9ZQ a/5ou8OJCoc+JDV8MIIyqgBqdydOtA2c26rgdIUcyteSYg858Ylg04P83EBI pNhQ+xzCiex8bX47M9EQQa542yueE1fZy3S6FZMhgMzeTyqbE9feC5pfjMoC D9LizM5STuT9iaX9B/LAnmTylU8tJyY5vdOYXS4Ai12hIel3nPiT8tXVj3t8 cW3n6t/ez5xoGnOBNbq3CPS247kfDXKiwYIN2ZGKItD416F8aJoTF+ea7B45 EeDkFp3B0B9OrHxLM5F6sgAUNs86P97mxMbYH4U+p3Nh/1+/aEVaLrx9umVH 4XEGCG3UV3zj4EIj17/EKPFE4Fhf+xQuwoWjSSfdQrafAN3a4bkjslwoxuwz lOziD7srdrSTR7jwrVCtrTWTA6wsE/ZFq3FhlstEG/99Hfi5NH72pC4X0rvR cfB4T6t+/yNoMXuNC4ekjZQ6ZK9A76JxQLwlFzK+C85gG3CGT7/jstGZC61v xJcnv30Ebxc+v5l/yIVvUn5QqNyKhhe/aEeSQ7nQt+OlOzEnCSrm1bfUE7gw OMVd7wt5FjD3emBNNheaKgVwF3/PBUdiWdC+Mi40cGF/V1T7f3z7/iG5lgvR IHFB6gMBFGM5WOjeceF/7c+SZ+aKIP6B1pUHn7lQ8nCH1ShFMaxZeKfOD3Ah x9HnVfvYi8DoYtW361N79SlTaEjJFMKLI5MSHYtcKCvWeaHZLQ/4RHls8B8X lt91/ERxMBse0OlUPqXmRuPRbJmjcikwvOy7IsbOjUr5udIqpLGgOvL8WLwQ NzJw3nES7Q+GrJYZH0ppblRkm7kqNn8fSKr4m9yVuXEf/4+cMGYzuJ2iSzuL 3CjByX6wXfcAvAt4dPGqDjfGH3+fshOuDBJ2tXEfjLjxRQd2xF2wgOArc/0n zLmx5F3BwF9PL5hRFRYqt+fGQ2U21ue8Q0Br/2VzIS9u9PHqGSj6EwslrI+L ooK48Uzj8GNLmVSg36r7RRLDjYyZlmfvFmeD3eSCgnM6N660JB/zn82Dz+1i HhMEbtzUbBrMiSyEQ7WGrw2ec2N99EM+nj38jM4OI2t5w41rnmfA8UwxLIW+ 0TzygRtJTky3x3MXw2WXpYiiHm588+1yDc4QoNpUqpN3jBtn/ulPFnzY0y8a 17jD57nR/ien3KWFXLh/KNL03zo3nqrQoVsWyIJ+nrc598h5MNBwNIxtMgmO k61NjzLx4FmawaKEtmhImzsgq8fHgzSDwtbtTYHwr/u6U6MkDyZKdRTad7rC jTcxNQqHedCr4Xv60/fXgEho3so7yYPPc6/FtpJxgEjMX+TU2rNZXtSVhp2G AK+DwcGXeVBa026r6boVTJibfVy/wYNyDq4nsjwegvqFBBZrGx5M7r950Ppy GBSqtF0ZdONB8vkhux+rcUAtsp163p8Hl/QvMuQop4EV7eHvryJ4kLdPRuLM gRz4sGQhKZfMg3mS9txZpvkgM5xsk5XHgztP2G5VLxVCRPOnSpZKHuxpPvJS sKYIFipIVv3reNDWoLUtKqAYdJOVji8386BMBES81iyGKn8rX4uvPPhh4bNN Jl0RsNmmN/UM86B7VKD+v8kCcDH4Qqs5y4NiI5cSDMjzoPsUhe6LZR4MUMma dzqTBSr7jsYf2OXBxiHFr39pkiGJxW4glY4XvS+5DUn9joaNv1lCDFy8qLx0 uVmLKQiuTXSZPxTlRUIP049ifTeo/0RdvCDLi/fGnsze22cKAjUnFm4e5cXe 2LA4oc+84JPloPhVjRdH5a+Rn5UF+BaS53FGlxf7Z25e7Oa9C+jc9/r5tb3z TE9O33TyhlwTenJJS15s9ThpEp8XCuRnQSvRiRfzHzVzCkTFwZk7Cz0kPrz4 ecd7pdo6DfyCMsxtw3jR41CTcXxkDhALdP70JPLie5kt+ZqNfNhp3vLBPF68 EELgaMvZw8vpEobSSl7s5v79xUO7GB5QXUvlfMWLxm6WpY4fi6FOina/33te PN4uXb3GUwwbGi/++9nNi98kk1WW1Aigcveu2pUxXkz//eSVpkc+uD3m+kr8 tefPVMqu3siGakLzDelNXuSquPde6HAqLLW6zsdT8eGB+YdU1FaxID8r7rXL xoeiuiF36DKDwYGmi9pGmA89PplbVx9zh4r9AQndMnxo7qrdPDVzDea1DovD UT6sVRvNsG+lBGnr71XF6nxYv8Koq33+HFiHRqlyXOLDCYmaLdpBeygqVv3k c50PSVrWzF/+9Ifptl9Xf1jzYY682O/jp6NA4mf6zGV3PmQ3rnPQxCQwp9Nx exPAh+ldH3/aimZBrvQW2YEoPiyWbmWvOpsH37VLouPS+DC0SejNFatCELK9 KrRD4MN7dXdWHCqL4Ho4TZlVNR+e0ml6vjpVDOmltce6Gviw6cvBxt7fxTD4 0bL1VDsfPtn40+n1qQh45jmvFA3wIZvl3+DXiYVgxNA8zjbNh9W/izxsAvIg UdbV8eESH/rXntv8VZEF3TriOzM7fEj5yz+stzcJ2O51huvT8+NLyiM3ZBWj 4dITf97X3PxovxK7QTMXANHl8oR9Evyo/Nxs350fjnv49U0pVp4fFciavzDe 0AWGhci3/07yI81M3h+YnFA9z6Sqd/ccPzYpEzJF7htCmNyvka9X+JHBofp7 tJQrvL+YbnvyNj969HotZkkHAZXD+b+F9vyYVDlj9j4sBs5GbQazPuDHHl6x d0zaKRBYWczh/Zgffw1YXs2Lzoa3Hca503H8aJV6xNhELh9IFqnlL2XzI4eB gYCzDAGApfZ1fRk/4rf21TK1YvCRtzwv9ZIfVYrmY801S+CVHudAdDM/dsyJ Bz8XLoFNxybLra/8aJdDP+D5pQiOxbis3BnlxwsmJrdm7xeCx1OxgC8/+XFM N+HCu/N5UPP1K/OJdX68vjwTwnogC1b++GUUkAtgJFVG/PSFJFBkk5dhYRFA zdZr9545RYGzwrcXXgICKL+REeAuGwBV+pEaU/sFMFAvL2p30gEWnE916yoL 4EnLpugLy+fhYNy8Wd1pAdQ7pxne9WhN1e552m+JiwJ4vVpt54qwMZR0aT+M uiaAJpGcF00/ucLs8l+6TUsBvF0vn1YbHgT7OIqTLVwEsG3ZxW3iVQxYKhlL dfgKYOWlyv9ePkiBfAPq6mMRAqjro46XS7KB89iCUUeSAFoajei/Ys2HYMGe LYs8AeRIuThbsloI66SvsjYrBFB4eEt1RbAYrKZz1aLrBHAubPH1p1slMPAh dEayRQBVXXxL5wpKQLvSMbz+qwDeUUy+ajRbDK/ijA5dGhFAg/+SH71QKYKD Hqpd07MC2J9754b8swLINJW8770igK89zZrawnOB5TQDPxuJIL5USwtyIs0E f8nlNwR6QfR7PKFwpzQRlmgHb5/iFkSXmWKhKY0oMF9ooOoSE8TXbbtHdscD oLuTUGIlJ4jf+Ark3JSc4Wxt5MWdY4L4JI0iXPfcFahJc1uKO7tnZ5/7nh23 rrrPzzTxwCVB5Jp+8h+lhiYkW6gdJ5oK4pVSLuXnwrZAe0561MBKEB1vZ79u RV/wOsga8NNFEO9oK48HG4TDHOuGpJ+vIIbShyuYBsSD6dpoG2e4IFrXsN78 0ZMG7YPN90oTBTFf0fRhRUQOqBLLWE/nCuK26i63zlg+VObF/ddbLojmrJNT ScUEEAnxumr3UhCXalsmJqqKIcbObJu0WRCvNr/L+fmlBMguaeUkfRHEyTzi VOpKCbgoHzp7cFgQVyg6b6bylsAkL9ePtzOCyGenEWyhVwSGO/8ijJcFsVUO pSjrC6B1fEJ+YUcQE/1fPAoJy4WjrR+6H9EJoQj5p4OFaxlQUvrUg5dLCLfm zeIv5iQCf3SyQKWoEObd53WsU42CCFffBvWDQni6yzg2+kcAbBtbWgweFULW ksf7SQ2dwf7UBRpHdSFUat9MG+64At9Elcoo9YRwOEnI1il0R1WPil8vzUQI E5r6BNo+nYXGn6Qr8neF8BDvQA3FARtQ6JhNanEWQl41+oM89j6Q97zjhKmP EJZ0+WbHNIYBR3LNtz+hQjgRx/Ys5kA8BHlnPHqcIIT91r1J3++nwdqtwH2C OUJoPP4wU/h2Dtw9a/vxWZkQXnG89vXTu3zoP6DvoPVCCPXd1qwCcglwjukY ++g7IbReJfjfbNvjqyXhWpcOIcyNM5oZYykFmT4qE9ohIWT4yCz/n1kppNf/ 2smc3ov/yv2OQU0JMGZ35yotCeH77xRdZvx7eBNYr/Fhe89fYXq/qqIQFq1y f96kFcat/zCXLSMPzC6ERq5yCKNBD/8rbuH/f690VAgXEUZtFcbf8z+SQZ3L qFdEVhh3PtN9Hn0XA/9tnvKqOSKMD9M/eq5kBIPUNwkhHTVh5M5Nt9Wj9ICk d/Rvxy4K44icsAXzqBnQFC3duX9NGF0LZZ98aJQHz4gBWkZLYdwYCXZyDDwI Px0bynOdhPH+7W73b2JmcDRCLPWwjzA6v5dw5dvxgMeEwOCGMGGcvBBoyHM2 BHrfTjvrJgnjZe/rob56cSAxqnVzNE8Yg42NbmkfTgPnvyXn71UJo3KjveHB qBxo4GA8+u+VMHaupcYcO1oATPIOEuFtwnhVuvXiK409fjv/lYWvVxgLov4j RHiVQJml4nbRuDBeEJhwyy0ohU3/hB9Hfu/d13XW7XNlKWhlrPe0bAljS4Tg 69zkEjg/LDsmTSGCXw0bHCzvF8HSj+tGznQiqPDJo53HswBS1yPbX7KI4IjG hnXVcA6cpmxQI+UWQbZJppyOoTSYZfvzUktQBP8FJy4y7MRBlIiYfLS4CLKX mzfnh4SCitzlwr4DIkg2K7FTzfEARk4ECgjLi2CV/+WL+T/NIfDcf7GWKiL4 42TH8wLrwyBjNE1TcVIETQ4WBj2kUoROC27f1TMi6H3MXMXd3wK8nLVWT54T wdkftn7REQ9A1M/TNlBXBEUL6qfb+0Lh/ZOSsY9XRPBATNN+c7l4cEwbMmI3 FcHp7oD2VM504C5m+Hzttgjqv+l+0bebA29qTqnnWomgEoVch1NBAdxpsq/7 YS+C/4U+Pan+tAgYOrPkD7uJYNKdyzV3p0rg+bcvhR4PRNBfMeq4FmcZXPtF KtjgL4LWZ6orRQ6UAemWQhx1iAg6cn/z+yBcCkU0FrS6kSJ42+HnBSLT3n7M leCbGC+CJ+6ylOiKFMKaeMvqSOpe/X2/FFWicyHj8LqtZI4IqsSUGWReyAB1 2D9uRxDBltMscxWWCTCvc9W4ulwEf0q3PczjioC4a2Gft56LIP9o3r548IXj VvXqanUieO57rOGrSGsYd5uvC2vYm8+jkEj916ch9JHg4c4WEXRRXO48zcIL 8jEXCbztItj36JnOTst16Mv0FTTrEsF7nDEpNl3u4FNWFVc0IIJ3f2iK2ZQG g2TdGO3iNxHsP3D2MqduLHxqZfM7Mi2CqRRsnxK5UsGlR23NZ14EGctjbnPT 5gDfhKtdy5IIJstcJuPozIe3iwXjjH9FkPzWje0S/iKw3uk1vrIrguKxLbSa e3zHwkDTkU4pimF8YWxqp8rgBe+xs5P0okgwu6pW1lQGN/fZ1MuwieLyRLhM 1OEyoFJOO+zCI4qzqmc9CqJKoPzMJ0KdkChmcNSuX90lgIHetiCZpCiSiTqf OvY8H7auy8WfkxHFw9OhA+Tz2ZBre5Mu5rAoXnv1Iv/2TAqc84z26z8iijaR d0kjD8XCYnDjmrCqKL6/Tef9/kkwJMcv2d1V37PvTLUTP7sD5IpPVGiL4pBb YMZp0RtAEus4Ga4nis7ot0vmLQEN/q+nrAxF8fVtL70UR2Xwc6KbOWsqiu1x eQtysuaAZkazYrdFsTNYiL2k1wNILuX/2L0rigLiT8dzGR5DI/75OXxPFFuZ n8lk7cRAgLzq/EsXUQz+Y/g+RyEFzoiE/0r0FMVyAa4ClSvZQMbSv+DiK4oi wQdbN1fy4N2uxKJekCj+pDAfjT5JgMDfTn8Ohosik0KkXttqMah/e7NEFyOK r+YU37QvlwJFB/3KTKIoWvVKFW5zlkPzG+PVpnRRTA77x7l9rhyCKwrWcnJF kXTp/Fx3RBloZC6t+xSJYv+SVgf7XAlQRcJfkwpRPPArg/DbtwhaH0ZsHq0W Rcvl9uz7LgUQcm9gi7Nur39cNdJr6zmgdV1qe4koipUitrE3nqQDzQWXnY5m UbxPF3PF/GgCtJ1s2C37KIr2VvUtI18jIEyWkTTsqyhStXx9YizgD9oC18ju 9oniksk+nRFBR6BjIJCrj4iiguhLJf7pS/Bxa5lCdEIUlY5H1hxnGVONmEOq nVlRfGb67NPjRC3QGXpCPbQgijn/+Uo8/2wDDB8HaV6siCLlm7rIups+8Klu H13CpigOSqtmR7uFQUSJK70ziRgWxLjbbMzEwYXURgZdKjGkYRwYzVJKA6Yw JiZZBjFsv0hzjsswBz57mjDTsolh5wOq7J65fIi0LmKZ5hbDNpINzlSxIrh4 dZX1naAYHqk7RuPTWgJM586wZ4uLYYBp6PtPVWXQcTSK4+EBMfyjty8ysqEc ovcPc147JIbyvq2WhtPloMdzgPuIshhS1N9jPiJSDiw07jwcJ8SQbE5R66tX KXxdf8v7B/f8i1VPvFmKIXaGmf+zhhg23i4+k0JdCPp9pgKlOmJo+JTu5v49 /GFrLRYM0RdDyx/f3mc1ZkBXzZrQHWMxLJZbW1u3TIT4QjWRMzfEkO8Vy5QW dRQYJEaLCluI4UXzdxfqqR4BR/CI2D9rMSwpJQixM7tAj5u0xIDDXryTG7M6 88aQeOe+ZI2bGC4zmTjfkOMCwytNUnEPxHDh7hF1CqWTwHWWdb+jvxhqihU7 FbVZQJ/SjQMXHoshqRpLzN0XnpAsUSot/WSvn5ll7HzWj8GYY0OGOk4MOVxz OhP5Y4GH4uzByWQxtOfw8Tl4OgUGlmPkGjPF8FeO2XV202xInRg9lJkvhjaV xa0W1PlwrUvm8IMSMVzpPxTcbkMAvnceCsZVYsjbyvxhR78EBp81KyrXiGFQ 8QU54fgySM1lU2Z7JYZuXezHTBgqwCT2psrvRjFUKSl6OVBQAfrr+z9WtIrh yOPKU/+ZVICW6dJN+3YxJAnbLn11pBxUG+tXDnaJ4SvNpM0B7VJQkgoK/dUv hmIU5sfP7PGNdPhFofJRMdReqzj/NboARBa5n9tNiuHLyPBzI1y5wFBXMjz3 e68fQSdnet4mAJmwq1Ppqhhe4h52eaISCRuPTlHZbomh7jqZ/hQhABZmqdKk ScXx5ItT+zu2nWHqwpdDP6nE8aWcQn7mn6sw/CylqZhBHC1D7/0suykMndzm V63ZxPEG81U5PXNleO8tu7CfRxwdTZqKTq6awZux1YBZQXF0eFTLOrbjDtUa RO4icXFU9zYL+nwxaG/fDSm7e0Ac12729X+qioZsFv3T+w6J4+mMl9GXHidB oht/77SSOL5vTLlq/jETIgYnbQqPi6PxgRXGUfo8CICK3Tsojla2pNfvP9rT i/n34yU1xFFk36Fj7unF4EB7+sDU+b16qDXn+WTLwNKe7k3+JXGc3pInO8pc AaZdXfoWRuJI85B8hlm2EvSPZsyIX9+rj/H5szKXyr39x9J74rY46rg8fJ89 XgGqZPKseVbiKF/CobHPvxyU7v4tuG0vjsWcB1bzbpeC9Ke3x8VcxfHL7W7m 8PwiEDkc0THmKY5aCX5HGu3+/3/DFYscX3EsIO1mDZ/JAYYtob+3gsSR/2yW 2+WwdCC7NftEJFwcL5axlYbZJ8BG01Ox79HieMk3WF7y5RNYOPCgNitRHHdm 7CuNTQJgMlJd52a6OMYIGP0xqXeGwWXGMaFccSS5ELnI0X4Vvhr3uY0SxHFR 15ZzykcE3r/Opsss3+vfzc1t0W5FeCNmk3X9+V7/TrqHksuYQfVjRSXBl+Io av2rPkHaHUrm/70ffiOO/vfv8dTnBUL2pZbr6U3iePQXR96jE9GQWBO1ZPJB HJ969R1R+psIAX5iAkM9e/MzWOzgfJcLHlNzValD4tgusx28qV0I9tr/nb02 Jo4lddxj1wKKwaLSZ5B3RhxfhefkqkEZmHBoOQzMiyOv4Pk06Rt774cnK0XK kjjy/BjarXm3N4/RwWTjDXEktYjIYDxUBapq+Qd5dsQx4NCh7nW2KlAquve2 j1wC020+XQkUqgRpxiNGSbQSyKXWu1t4pRxEnEnmDZkl8OfhscSx8RLg6mvz 4+KUwAbfXLuT0wRgOBnH2csngdfGb51PCM4HshzTkgQRCST03pvN+Z0NG5RS cEVKAovGfE86ZqXCgs3vLg5ZCYzN/Tj9pyQOpjpeWHUflsB6ed3jS/+FgfYX Yg7LUQkcz4kJfWbpAxVfWgZ1VCWQwlD60937NsD+tZ09VF0Cy83KBiRMNMHj a7dOs7YElmXVT3/9sqA68nUoiPSSBJ5M8NLgOXcZznSOvzllJIGa9moxub8c obDzx7rndQk8l7h/1r/PH+i7FuVrzCXQoKb+zy3SSHDsWrdespbAno5uCkHR ROju2smVc5RAEwUzhbXJDDjWTTls4y6Bt1gMZbN+5UJmNwMnwVsCixNpSNXf FwJ5D/vFiQAJ7GOmoGrSLgGrHr7HwqES+Odlx62KM+XwqUe0wSRKArve3ZxP CqqEw737/yYlSCCb8+TKC88qSOw9pNCdtjcP4wMM4q+qYLNXxZYlVwLVdvVC soOr4GbfqXydIglkXW+i23lRCU196iMhFRJ4SnWbiS2qHA70n+dqrpbAjyEc Rt8qSiCyX1+XtF4CDblkG96dJsBS/9WQU40SOJKTxvTGIw+MBm41erZK4KZ3 +/xV9ix4NXB38792Ccwc5dvKMk4CkUF7xaUuCfyq7KVpIxcNQYNudnKDEvhO lj9nc+kR/Bz0LrD5LoHweSBKX80VdIcejRZOS+BivmvorygTqB4K456Y38sn lm/k8RkR4BmO0RNelsBE6ffHDpgfgYfDyaEmfyXQpeDljK+lOYwPZ71N2pXA sICJZ2OtHqAxUrjVRSmJ8uQTVNlLwVA6Uq7EwiCJ/yICKys3Y4BltPqeDpsk DicWlD68ngJuo/WFITyS2PXzlmhjZjYMjr791iQkiftB9Oi+5HxQ/dbGQyop id7FrUmud4og79uXS6dkJLH2bcdQXVcp0HzvC/M8LIlTVWHH1P6rALvvo+/+ OyKJbRZtQatOVfD1+9S/P6ckkfCs5FqY6FNQGZtXllOXROHLpOJht55C2tiy vY22JIaFP9cgl30KJOObhEI9SRTacHlG8bgKLMZJx8YNJVGn+cjl7pUKaBun 4RO+LolEo88bL/aXgdwE82UTc0mMe2TvyNdRBLETXBFJ1pL4xyo504mjANYn BJu7HCTxqvKv9b8HcsB0UmKH2V0SLe/ez9QJToXGSZkjOt6S+MzXed+uZBxI TSk4hgRIIotHzTRIhULY1LHiphBJfL6k9XQ03Bt+T+E4SZQk+nw2KLMetQKD aU3+Uwl78SfIv/kf0oAX0xcNPNMkcd9vZm970llVwZkrT/7LkcQhs3cuyjGX IGDGtOUPYa8elkUt3UMOMDNjvnuwQhIbPUnHBCL8QGfW5qhNtSSWXz9umUoR AVWzTk6FdZJ46vJcWlxnPHD+8CgZb5DEmp0782lm6RD/Mc2+ukUSVz08hAwn c4Ct4o1C8CdJdFYQs5pLKYDo6LE1o05JfHyHeC7rQDEwuVDUH+iXxJXFiSXt e2UQcWWf79aIJIruXgzad6YS6I5qq7VPSOIG62afUHMVhPDdo876IYn55Y3j nxOfAtV21EfH35Ko0vhsu5jxGQR+exZ1ZlUSoSCuiVryGZC97bnMsSWJVWyf b54Yfgp++Rvc0yRSeEv7/GisylPYCeYfrqWSwnZbNy/ZE1Xgba2aHcoghUlG J9S1fpTD5nkzCxM2KWyQI1ocHysBD7nA/Qd5pJBR29XPxIcAayyE+R1BKbSs SBsxn8wD1+W2qi/iUviJN9BC8Fg2LPXMu+YekMIcI7fSyrMp4PiC+ZjrISms kqKcr30SCwupCttnlaVQPbNqrEY4FOweXmnkPrEXX4jBymKfD/y86RH0A6XQ 49hhhg3Pe2B1Ju1cvYYU8h2Wy+C/rw/TEm8Yn+hIYYnvZRZBGxqwoB77ekNf CgOMSVq65I/D+A/yRHljKYwuVzne+dEMbn2SukZ2Yy8/eo2lB1VuMFpxTqjb XArVjpFlWzY+AtMYu/EC6738uuO2CnoiYdAlqvC+gxTOPLhrGNKVAMaGz2zO uUlh08IKIXAoHXqP9sjxP5BC9q5li06hXDDg31ia95NCg2zLoa7+Aujc5qt9 EyyFg3+4ex7eLwa976ceREdIoe8j2oW3fWXw+e0tuB0rhUa/+HslBipBp+AR uVKyFHpeG3VxO/QUPjwubKXMlEKFfD355P3PQMumLbwvTwoD6f0ufv/8DFr+ 13CZx0PZAHFcKuVOKqolXuzzPPQSuZWZlF55i5SoCCXelJBUkjZCodYZlUXu I7LsrisVIUdIh5CUHFlKUYkS9e7/c3xnPjPzmd/2Mev8fDq+kwobcqRxYYuW 9LJzbDoGb0h195fiQq2MTvf2UjouddPtFs3hAE7aJitW0dHC5dYKc34JPOg8 4zJRQ8f4ZOm9V14Vw4bKJNXaBjpGzOWbb5Biw13W/ZH4VjpOyrsp+PwsAEPG u0K353QUUz4muyYuD8pc5p8w6KZj7fopMvZHFuhupuuJvqUj87nnQKlVOnDU tv3sGaRj9/Jp88fHWbBusef9wlE6Jl06loLZ16DoQ1QwY5yOKZJXpgMXMmFt W4n5zu90DOAujG4/fxFusztE//pFx8IRQ0k/0g/IuOm2b0IEDh1/tLTIzgVy /FbFPRIhsOqZo2jZCgNQtd9od12CQKuW598ZHeKQYeSyymMpgRLdN3sLVHeB Ei3krbE8ge/TTrIiGJ6Q+js7Q0KRwBma+/ie+eeB1t/k/laFQF7jvGplKhyS 6j6qF1ME7iu8esnxXSzI50iNB2sRONzlq7v5xA24Hq7N3a1HYIli4rdO5i0I FYlbnWFCoMz6wRCL1kzwCf0aMrGJwOZ/5HwZnblwQHj3mKkFgbrDyWpP7hWA ZRDXlmlFIF9udCO1lw36v2Xvv7Yl8MS6sLOOZiWgEuinpu5A4GDA+KZbsRxY MtPB9D9I4PiCLyJKTC7MntGbaviPwOhPqYxzGjwY/Z7gtNyLwIbRx7O/3HnQ eXKqwdWPwNsSS641buRB7Rc7LU4AgW7GpD2/hAts7/LrQsEE/mprNySbOZD8 SU7I+jKB/i/lgruulkD4Mf8jKUwC1fq8KSfRYjg12v30YzyBOgr9eIFVCIf+ MzIyTiIwUs51QLhToFff30wPTyNQOyNdegE/C0xcZ0S7cgg0TxOPjZxMA7J/ v6/aHQKVN1xLnLZIgmXOVT0nuQSG1ptYeejHw7w3qzfXVgriZ1bt7huJgM/7 AwuW1BBoEx+ZOzjNgJ7uXlnnBgJpwSoVAYpe0Gi3MfBOK4EWHwN/GbF3Aa8j ZejXcwI9L+wOke8SgbRdv7dbvhLULzNY5DZoAsynTqU3+gjUe7md5ZF6CAKs qhX47wkM9O10WJ18Gtxb11zSGyNwRMzO+2piKOy2DPoc8lXgH3dJcm5FDGDT O7vnPwhsTejqTO5MhLVbN1Ur/SHw9fQx4RCrVJCvTye8F5J4PmqJfpxiJiw0 E465L06is3Q6p0RT8L9UH/ohvpRES+Phf8/rFsDbjXUu++VJ7OdXnj0pyYaW KpXmPEUSc7nsN17bS6DCKFR7WpXEnbkGNb69HMgqH7pprkEi81p9wiOKB7F6 5sLXtEm8G5dXX0WVAoObfXTAgEQDnbrmnR2lcFRb5MU6UxItHOT/HFQtA3u2 u8mFLSRGVQoNt8uVwZa/GzPbLEnM+n38TBi7FNYVEBI0GxJZTipv3MZ5oECF +x21J1E6d32r8lsuiOWO9FYcILHt2cvAqVAOTKluM190mESZ0k7+3vFiGMjI v7PnKIlnilLmK+8pgnYlsRVZPiQWee01jIy8DXm0lmE8L8jvG7n6AjsDEpI0 rKNDSEzo4yzH+ylwUf5q+ZsIEvdlZXq+jE8Er8SxNWtjSFT906QfvjpGoBd2 hAckkpjpLn33glQYWMTdmWhKFvCF1GppifmD7hKpfXKZJLbsGZA9E+IGylFe D93ySVRUFzc8bmUOUhLtFI9Nol1E2/LLrAjTmQitOOEyEueqjzQZNm8F/qKY mZ33SOS9ZNVWmLpDR9jEoVu1JNKVnQvNEvyhZr5Ny6cmEvVJ7eaKY2EwMPV3 o2I7iSusv3+/LNBHCz+I1Vm/JPHPZlXG1oxEIN/wHwS9JvHhYofWZEF9lk/r 75b0C/rt2CtqWZQBnnXpZQN8EkeeigXGZOdAVBmDI/tZMB8qrjKt+bfhRbLh 7VMzJLrb3gmQNiiBqejlOTlCFD4MetzBmOOAfMjX9C4RCuvGbHReXeeB8en2 lMWSFNplaYoO/SoFR4/Cm0ayFE4ftNPmK5UDwzEi4ehKCv2k4mb7/pRDurV7 LGsNhVc/3GvOja+AerPNzFY1Ci+e0veVfFUBw3pKEXMaFFbpX7Hqf1IBi6m5 UE0dCucf9Pv47VQFaNB6gpwNKTSZ39u36Fk5WEmXB8aYCviqToSVD5WBj/A1 /4dbKHTJ5qVYl5dC3Hcfv6+WFC4rztNI28kD3sgOHxUbgf/imLn6Sg50vlb3 tLWnsDSKiuDPFsPPJ4uOhB2gUGXLMfb0tiKg1Q65lrlS+NdlZtJkwG0wLX3o zPegkEt7rb0uKwdc8lId5H0o7FBwVhF6kwEXWefst50W8DrKVuv7p0JW1N7d AYEUZo9eadMsug6NwXrWBRcpJDSyovpCYuGD39J/e8Mp7FF5IOthHA4SR8a3 SkZTqM1y+7DDjQGaDq1mpgkUtp0/d1TcwgdsrPJNvVkUmmnbzhhy94HfpkvG aekUyinMu9xasA4SdV31n+VSyEryeDLVKQ0VgtMmXEShopNJnGCroWeVguZ6 HoWHAq6fO/3kCMxKzlCH71J40Dv6n0z5s7BmXpdaQg2F9jorV4VPhILZJFe5 oUHAszrwsbVuNBzmxyhMtwrs5WjfMDYBLvUcX0m+EPCdfZAjAsmQ12a5fN8r Qb+0hM5116TD4xpCJrKPwgkH12eBSdnwibtAsuo9hbOHWrb73swHnaQHCxS+ Uph/QGNlZW8x2DJZQlY/KEw8PFMy8IoDp4P8Zxm/KUydNqEdqOPBjZN7frAX qGPYqlynIzFlUOWuM/lOTB0vhO63/2xYAW/3SU/IyKij1TBEZ5dWgtCOsY9m cupYTEXMagpVgV5DyTSbpo4SDcf9tb5Uwf9BMJcb "]], LineBox[CompressedData[" 1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAA+c8jgvFNKkAMxm14L/G7PzTZsMb7 TipAhjqVhADLuz9XzI3CLFUqQBVbcjInsro/kqGGSfNaKkDwKf2IdoC5P852 f9C5YCpAo/ZTC3gpuD8KTHhXgGYqQMzys65ksrY/RiFx3kZsKkCMmG2t0SC1 P4L2aWUNcipAvew4H5p6sz+9y2Ls03cqQCLocGPIxbE/NHZU+mCDKkAE82OF zJGsP3BLTYEniSpAz+CdBiAaqT+sIEYI7o4qQOuB7F7VtaU/6PU+j7SUKkBL 8N31VXCiPyPLNxZ7mipAXH8JYu2onj9eoDCdQaAqQEZU8Lax2Jg/mnUpJAim KkAVz9ZsnYKTP9ZKIqvOqypAEMuIoA9vjT8SIBsylbEqQNrqbLOnDIU/TvUT uVu3KkDGkEnhRO97P4nKDEAivSpA+ezvJpaKcD/EnwXH6MIqQIRncSXtGWA/ AHX+Ta/IKkAY7fz013hEPzxK99R1zipAEMv0sEZeAD94H/BbPNQqQOtGT9gA Fyk/tPTo4gLaKkB8o+5rHxVSP+/J4WnJ3ypAFoUJP62YZj8qn9rwj+UqQBZX hqHnC3U/ZnTTd1brKkDLK5OASdWAP6JJzP4c8SpAYE/7VQmEiD/eHsWF4/Yq QAjF9F53v5A/GvS9DKr8KkAqLXFu89eVP1XJtpNwAitAisRTEjR/mz/Mc6ih /Q0rQDUzl+frIaQ/CEmhKMQTK0CqU3npEaKnP0Memq+KGStAoTaqUrFMqz+6 yIu9FyUrQEjRckflgLE/qR1v2TE8K0AkapyQG4e5P+TyZ2D4QStAYJ5C2kiD uz8CzDsVPkMrQAzGbXgv8bs/Ylkimg== "]], LineBox[CompressedData[" 1:eJwVU3c8lu375kuiJCOjjBRKPPfwJPF47vs+Qyl7ZGdklMzMkpFNMiMqIyMh QkRokNlAb3aSUIryeomixe/5/XV9js95ned1nMdxXLscvU1c/sfGxsbBzsb2 /+dCVIyyjioNeDs9z2OLD6mkGY7JLVo0SDelTK2SGylVKwavsQ4NpiJF81uN Gqip52cPZhjRQNtV/pPr9geUSvm7pB22NIi51THn3HKfmhDf1mjrRIOg1dyA nzdrqYREnY/5Z2gwG3U/QCe+hnrv+YCxN5AGImYLA7f9q6mE8X9d3EJoIHDC xib6WyWlbCibdjeSBkhSM1vQ1rtUPJ72eX8KDbwfZkZZxJRR9IIuwXNXabD5 ar328fESakxgjWjKpoFDb6QoQ/c2pbTklgGlNIhoMySG7IuoMaeC5qhKGpzg 66J94iqkYgeGv3TepwEoy4pmteRTo3Vah/SfsnBU3K/X/TlU9J5gj9QuGtiv 75P5Wn2DQrPuZfX30MD4oinxp/IaNbJxplVkgAYz6IvMl92ZVNR5qXmrURoI y+teFOG5SqGzx7fnTtBgk42/QoZjOjVidVlr4hMNNArdDVeH0yia+uqNU0s0 2Fay/X3Y7mRqqBztLPtJAx4vbsHtxZepcAmXxbl1Gpx8296NmV2iFJKyJXAu BOrFm9QO43HU4N/X2n68CMhUNGz8sj+GCvfi9qsXRKAryTiu2TaKUnhP5v0U QyBIutkzqDyCCmspX74oh0A+4S6YbRpKyStN7WxTRMC2Kkjcs+IC1VcgpstF R2Dff21SR5jnqRBBw8BjqggclJFScVkPoPZGxRQkkggsbjUIPPjNj+pbetj9 SguB0ODZ/ywEfKkQ528rgroIdMQE2qdYnaX2DMrLmBsjYHHRCi1J8aT+OWxv cN0Cgc5N0pZJNW5UxrV7nL62CJzdXRIyAa6UxVeOhzpOCCiHwqt7HKeoHaS5 j8wZBF6GtwdJrjhR46mle/94IWBcIZQTLOpIFX749W7An6XHwqqs3UkHykVF P+PuBQSOrGjKSxbZUvKXburEhiOwXhprIfrCmpp7u8hmH4uA9e1ijI9uSVWj Wg8OJrL206WkOwfNKL+ITE/+KwiUC8wu2VebUioDMzKzWQgcvfNkx/HHxtSv PeqjT3MRkKpr5RpbMKSeBCWl3ihCwHNOSiDloR4V0f3+iF8ZAjHauxbj+49R Wjvpf3WrEEiZrwuQoGtT3L7RtbJ1CCj2SWA7X2tR3e1DZ/42ISDnZqc9eUeD ShHdJz3UgoDkla5SuSagTNyChyo7EeBoy/mqvExQIo97EuO6Eajm8ysr6mZQ o1ulNR36EGhiLkoHfj9I5Tr6/lQdQSB14ZqU6ukDlENde5XAOCsf541JEfH9 lCy36KkvHxAQkjiA9m1Somasz0i0zSKw4Dul5H0SpcrvPuzL/g8BhbkHrjJb FSkvNr5L/t8RuCevNaEhLE/RTR0o/d8IqOUWXpR3l6N+FNd8l2NHoaSY+8cP bhmqaZWzYo0LhVIN2Zz4z9JUmK6F4zAvCqZtDoMtbFLUobwysWpBFIryeZYP Zu+gOBd/98aLobClXP9Pd7oo9UzTIOakFAo5jeEubya2UYmZ+eoMWRTUTTqO FwUJUkaz3xYFFVCQlJWdPWrOT21jHi79iqGQwS+hZv2elxpOzrJrP8Dqf3BY szuMh7oxObstVx2F8aqz+tYXuSg7ZebLgEMoWKiX9+YNcVC745IjDLRRqPyu MwfB7NT0m4mDe/VZdaXV0vrna2Qpbf/8ugkKPer8Xi9Ef5MeF2NujViiUDMU 6s7oXyHxvmHre3YoFCjeMZz7b5lcklUQSHBGQUN1dsdmp29k/bmQLkc3FHQ4 DOQ+714gL7zoDVU/i4KsWuqmGv05kpTcpbwtEIUHddVqBr0zJPtZvy9zwShI S2chbxunyfbWjvyOCBRkZsYPCXB+IOOFxSzy4lBwNVI7zV44Qeq5um05l4RC 8buhmSmhd+TWh4/aDNNRoG/w6Tl36g3Zt2XrBfnrKCi1n0pwoQ2RmQ4ncfab KLT/VG/ZZNlPWtfWfnpzC4XFySYz43f/kJJcXLk1d1DQ9fH+Z6NTDzlhaWl6 uRqFnxnjAoaZz8lb5Xd4nOtRcBDxbq3R7CRd1/40Mx+x9PYhmu1PtJGKxoaB wq0opLeNYmR/CzlfVECb70Jhw0OGZLjaY7Lmx9JUZw8KP0If9J2xbSTLn7TS IvtRMNtQtCbEX0/eik0LJN6w+PrWFPYhtWSegUPL6jgK4pFtFmFl1WSWCLbp /kcUDg+oH12bryBTx/+aen9Bwb3+1V9CvIxMuN2dq7CAQkeCdExrRzEZ5ZX9 efo7Cllf4nY8Hi8kQ1TclAp+s+btMT5wzDKfDFhTDT7BjoF42fT9U3o5pFfn xg7RjRj4slE3E4Ovka7JQ3z9vBj8W3yPk6l4lTxpXmyZLIhBzzvdres6V0hr Kf/CY2IY8Lv8KRi6lkIe/6QxxymFwTWR/csdhy+T+pUCKi0yGAScPZ3ZFBtH HgmcuBi8DwOFnZXzbkejSYqseq6Cse6b1ISvBUWQqlxhQt+UWXzqa0sjt4eR 9F4927sMDKbdC7tbPgeRipniJa6AgdRyO+PE0UBS1u7LgswRDBZTntS/3etH Su1pZLzXxUC2iLtWN+AsKTofF33DGIO+bSY2o5oeJH+9ea+ZBQbxp4a7xw65 kjxhcmICthh0umqkWfY6k/87snyy2xEDlReiXCuDJ8k/W9rK41wxeFF3OWsy xY78Ppj2XcMLg7Ejcx98Fa3J+VwHas0PgwudggbuLubkjAt2qTEIA8WBKoPv e03JSWStz/8iBsOVW3IUHYzI0e/dEngMBr0hJfs8f+uS/Y+zT31NwEBA486Z uY/aZHeMW/XtVAzkREoFvZy1yE59tV8nMzHouBWaNul8iGwW5taSzMGgrFnS 80ApQTa8G0oaKcBgt3HM9ndaamRNcfFwegkGnrr3VJqiD5Dlnv67DO+y/BM+ MpVoRCdvHdB031SLQeMwl8JteYzM/StQ19GAgehA7KGqUAUys2NiLfwJBkWO aZb5kXvI1KSqo8x2DGokN4byS8mQl8zCrqw8x2Bijc8YY0iTkZL6YzWvMFiV 8TG4HC9OhkyL7/EaZPlpzl6YbClKBtz94r3vLQbCJqYPPz8TIr0CGhs/TmCw 0tFdwN3KT54m4jnyP2Ew4BfkkmrPSzpssNC3mcNAWu2S1Ct2btK6Ry5L5BsG HJYvx430OUnTq8sTr1dY9b9WCh/l2Uk92zaFpL8YJL1Aszev/SGKBI8xbrHj IORePFV7YZXID8TfR3DikKdpue9s6TKRMyoabb8Rh9d2Y5XJHovENXJdntiE g0bdXrsih3+Jq4WfenZswYHHg7e9oWWGuMLV67u6FQfhj7LPz4x8JJLd6kSH BHHonf6kWX15krjcm/OoVhiHccmzX/1j3hHx9OiTaWI4dDlP/bzWN0JEZ7pz eYvj0NTqaO4zNkBE/DIp15PCQds+iHs45jWhTLMqdN2Fg5+lnt7Un25ixtb+ erQsDsHHjp8L/NFF5KS4pObvxWEDbmbE3t1GGD11j3ukgIOsW3ylj2ULwbnk EzaC4HBHeOla488mokH2fMAyjkP5bYuOX2Q94WEe5sGvjMOOv95jD8xqCOn4 aCfaQdb8VXr5KeVKYqAxwfooA4fdY97bnd6VEvFfU42dCRys9h+pW/a/RTAl s46GAw6c1w+LcfflEwsGuVSOJg5mie1+nMXZxK3wIpWGIzhcMW2/QrufSVjW lCEDx3BYfbt96/XCKwTvxyrZBT0chsRCxp5dSSZahOvFeY1wSDkUMV/Ff4nw 134kKG/KwrXVyhmXogn5oFYeLXMcqj2nlaxfhxNjd56xOVjh8I3NR1wsLphI HetdCT6BQ6jMGo9IdCChxTc4n2WPQ/prI+Nvp32JVertdK0jDjEWcY5HhbyI Cp/JsVcuONjkitSUJ7sS9kWf+7+6svT/rcqtu8mZEBz898VGDxyksmbn1Cwd iE6u5acy3jgUb254b1lsTVxQ/dVA+eLgHefULFpnRqBubNU2ATj4pvdvy6gw JqayuUrOnWfxK6bVFrTpEZk9vHnpwThwvJD6t8xZm9BZF7xaFcbC4f7FlRya xBq+PfFlBA57nNZirn0kiRrHnVGfo3HofHhwy99tasSpDLkLHPE4mKwu8R22 ViZ2dCr67LyMA7umRfO5CJzoXVFyVU/GIZzjc3zHUwUicp+qvUUaDifGFzrG K+QIFRvS3C8Dh6XvFq9jE3cRXxK19FOycBimPdGJPCVB5D3R0Sq/gYOyg/bY uxURwmTBSL0rFwdbxY8h6amCBNduC/qHfNb/0dW8mbq2hWgytd23XoQDyB03 TDnITXjFOEmLl7D6he/cKE/gIHY/OCN68A4OyPfZ2UMx68yhGW8+07s4yPcg t5muP5kJOwI3eFfjEJCXJ/b+3DKT0Av5k1CLw/8qTI1+XlhgLoRGLt2uZ/lp 4+FGxn5h3qqK/9LaiIM7XO80MJtmWk4mT44/wkFU4tkK/55JJq/Q1ZFfzTg8 Z8j84kt+y2zRyn4l0oZDThvnEXXpIaZ/YEEnvZOVh1HTu+1PXzPlS0seGzzH 4fPN4wq2Id3MsTd377t141AZuKVKaKiTmbr5fnnsKxwkYwOGt+u1MrWIpsLC PhzyG3pRKYPHzFWvlutPBnGYclcPjfJ/wKzI70wdHcHhv/tJOsfaapgOfd1x P97ioPRYn8pjq2Ru4+wPE3yPg7SXpNXFnyXMkNPvPXSmcRicnQpKSctjMhP8 9inN4PCG3+SiT+s15t+KjZ9Ev7Lyo3WuLXFzBjPsG2Y/vYDD75GBrRFEAjM8 NNw4/A/rvSx5nQWbQGZM+i6VeiElCL3Hq6PWZshMbnZa36WhBON6i8cvOf5V zxedSfuZpwScklWI1JyxelzHaJVKoRLUtElj93101b38enr8ilmYNjFowHZY nXhVwzNfrgTbfXovxCWrqo/GhkZMNSiBp4q9zblKaXXhH4I+L/uUwKXHlr17 wzwjYYAwyuWiw+Ax8/7M9RiGTyTuNcpDB2uNzUdNU8MZlrhMougWOriF7W7T nD/P2JvI/SxNiA55cyY/lOkejHbNfipWmg64nI2dxpwxY73GFfNm0CG32vn8 kpYE45ODjX4FQQe7bE2jBQlhRi+fgfss0MFh6rmVScxWRo7b/hInbTpsjto2 XHaJncHYvSZleZwOt1UrTNeuTqvt+meBedWCDgFqT+yS+SbUuMM+WPdZ08G7 y0P+2MSw2vCbZ5l6J+nw1mgk5ZjNC7UncQ/vX3KmQ+CZLjpHWpva7QOVfZ2n 6cDARxvceR6rJX3IX+Bwp4PMzY3xH+Lr1PzT0vkOedHBxjjWevO/VWr/B3J9 LZo= "]]}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, Frame -> True, FrameLabel -> {{None, None}, { FormBox["\"\[Xi]\"", TraditionalForm], None}}, Method -> {}, PlotRange -> {{-18.430680942385173`, 18.430680942385173`}, {0., 0.10914894762188271`}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}],TemplateBox[{ TagBox[ FormBox[ TagBox[ FractionBox["1", RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "100"}], "+", "1"}], ")"}], "-", SuperscriptBox["\[Xi]", "2"]}]]}]], HoldForm], TraditionalForm], TraditionalForm, Editable -> True], TagBox[ FormBox[ TagBox[ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SubscriptBox["H", "100"], "(", "\[Xi]", ")"}], "2"], " ", RowBox[{"exp", "(", RowBox[{"-", SuperscriptBox["\[Xi]", "2"]}], ")"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["2", "100"], " ", RowBox[{"100", "!"}]}]], HoldForm], TraditionalForm], TraditionalForm, Editable -> True]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], Hue[0.67, 0.6, 0.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], Hue[0.67, 0.6, 0.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], Hue[0.9060679774997897, 0.6, 0.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], Hue[0.9060679774997897, 0.6, 0.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> 1, 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 -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Hue", "[", RowBox[{"0.67`", ",", "0.6`", ",", "0.6`"}], "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Hue", "[", RowBox[{"0.9060679774997897`", ",", "0.6`", ",", "0.6`"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}, "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.8108828742956247`*^9, 3.8108828820359173`*^9}, { 3.810884179426651*^9, 3.8108842073513536`*^9}, {3.810884269453887*^9, 3.810884335428277*^9}, {3.8108843707716513`*^9, 3.81088446302392*^9}, { 3.810884500973238*^9, 3.810884527935659*^9}, {3.810885412020656*^9, 3.810885463337553*^9}, 3.810896128931175*^9, {3.810896198850944*^9, 3.8108962156341963`*^9}, {3.810896253598538*^9, 3.810896297174447*^9}}] }, Open ]] }, WindowSize->{1161, 705}, WindowMargins->{{43, Automatic}, {Automatic, 21}}, ShowSelection->True, Magnification:>1.3 Inherited, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \ 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 3337, 91, 191, "Input"], Cell[3920, 115, 27108, 500, 356, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31065, 620, 2695, 73, 257, "Input"], Cell[33763, 695, 11192, 234, 364, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44992, 934, 2269, 60, 125, "Input"], Cell[47264, 996, 6949, 141, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54250, 1142, 293, 8, 59, "Input"], Cell[54546, 1152, 16837, 348, 462, "Output"] }, Open ]], Cell[71398, 1503, 159, 3, 36, "Input"], Cell[71560, 1508, 2027, 53, 103, "Input"], Cell[CellGroupData[{ Cell[73612, 1565, 1636, 39, 81, "Input"], Cell[75251, 1606, 386, 10, 36, "Print"], Cell[75640, 1618, 1902, 38, 515, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77579, 1661, 1966, 56, 169, "Input"], Cell[79548, 1719, 1675, 52, 106, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81260, 1776, 694, 19, 81, "Input"], Cell[81957, 1797, 359, 10, 36, "Print"], Cell[82319, 1809, 176, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82532, 1818, 150, 3, 36, "Input"], Cell[82685, 1823, 137, 2, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82859, 1830, 1329, 36, 81, "Input"], Cell[84191, 1868, 479, 11, 36, "Print"], Cell[84673, 1881, 596, 15, 95, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85306, 1901, 507, 14, 99, "Input"], Cell[85816, 1917, 239, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86092, 1926, 2593, 73, 257, "Input"], Cell[CellGroupData[{ Cell[88710, 2003, 694, 14, 50, "Print"], Cell[89407, 2019, 533, 10, 27, "Print"], Cell[89943, 2031, 565, 10, 27, "Print"] }, Open ]], Cell[90523, 2044, 75404, 1284, 336, "Output"] }, Open ]] } ] *)