(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 9.0' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1063, 20] NotebookDataLength[ 141381, 2698] NotebookOptionsPosition[ 141735, 2686] NotebookOutlinePosition[ 142287, 2709] CellTagsIndexPosition[ 142244, 2706] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Equilib", "[", RowBox[{ RowBox[{"{", RowBox[{ "a1_", ",", "b1_", ",", "v_", ",", "d_", ",", "u_", ",", "m_", ",", "k_", ",", "Rin_", ",", "a2_", ",", "b2_", ",", "R0_", ",", "C10_", ",", "C20_", ",", "P0_"}], "}"}], ",", "tmax_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "R", ",", "C1", ",", "C2", ",", "P", ",", "t", ",", "sol", ",", "end"}], "}"}], ",", RowBox[{ RowBox[{"sol", "=", RowBox[{"Quiet", "[", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P", "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"v", " ", RowBox[{"P", "[", "t", "]"}], RowBox[{"(", RowBox[{ RowBox[{"b1", "*", RowBox[{"C1", "[", "t", "]"}]}], "+", RowBox[{"b2", "*", RowBox[{"C2", "[", "t", "]"}]}]}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"C1", "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"u", " ", "a1", " ", RowBox[{"C1", "[", "t", "]"}], " ", RowBox[{"R", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"C1", "[", "t", "]"}]}], " ", "-", RowBox[{"b1", " ", RowBox[{"C1", "[", "t", "]"}], " ", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"C2", "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"u", " ", "a2", " ", RowBox[{"C2", "[", "t", "]"}], " ", RowBox[{"R", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"C2", "[", "t", "]"}]}], " ", "-", RowBox[{"b2", " ", RowBox[{"C2", "[", "t", "]"}], " ", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"R", "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"k", RowBox[{"(", RowBox[{"Rin", "-", RowBox[{"R", "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"a1", " ", RowBox[{"C1", "[", "t", "]"}], StyleBox[" ", CellOpen->False], RowBox[{"R", "[", "t", "]"}]}], " ", "-", RowBox[{"a2", " ", RowBox[{"C2", "[", "t", "]"}], " ", RowBox[{"R", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"P", "[", "0", "]"}], "\[Equal]", "P0"}], ",", RowBox[{ RowBox[{"C1", "[", "0", "]"}], "\[Equal]", "C10"}], ",", RowBox[{ RowBox[{"C2", "[", "0", "]"}], "\[Equal]", "C20"}], ",", RowBox[{ RowBox[{"R", "[", "0", "]"}], "\[Equal]", "R0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "C1", ",", "C2", ",", "P"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", " ", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"R", "'"}], "[", "t", "]"}], "]"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"C1", "'"}], "[", "t", "]"}], "]"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"C2", "'"}], "[", "t", "]"}], "]"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"P", "'"}], "[", "t", "]"}], "]"}]}], " ", "<", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}]}], ",", RowBox[{"\"\\"", "\[RuleDelayed]", RowBox[{"Throw", "[", RowBox[{ RowBox[{"end", "=", "t"}], ",", "\"\\""}], "]"}]}]}], "}"}]}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "100"}]}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"C1", "[", "end", "]"}], ",", RowBox[{"C2", "[", "end", "]"}]}], "}"}], "/.", "sol"}], "//", "Flatten"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RegionCols", "=", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "Opac", "]"}], ",", RowBox[{"Lighter", "[", "Gray", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "Opac", "]"}], ",", "Gray"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "Opac", "]"}], ",", "Red"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Opac", "=", "0.75"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Leg1", "=", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzVnQd8VMX2x5MQ7IVnRRQLNuwNFAVFQKRIB5UqHZJVFPEpCiqKhYeoDxEF sYEoVhQbgoooShMLoogISCfUGEIKKbvnf7+zmc3Nzd1btsT3n89nSNjs7p05 c+bU35k5rd8dnQalpaSk3HWQ8U+nvsObDBvW977O6cZ/mt7374H9qhm/vGb0 JkbnRbG0UChkfclTi+VzsT4rmd+tP2f3+f3798uuXbtk06ZNsm7dOlm7dm3k J33NmjW2Xf/tzz//tH2v22v692jPML+P8TC+rKws2bdvn+08vLxm/X9hYaH6 7qlTp8rAgQPlsssuk5o1a8rhhx8uBx10UMz94IMPjuvzdv3oo4+Ws88+W9q1 aydPPPGELFu2TPbu3RsXT7Du06dPl2bNmkmNGjXUuHkO/dhjj/XdjzvuOMe/ Wf/u9H67z/HzqKOOkiOPPFIOOeQQOf/882XUqFGyatUqxcfR+CDa6zt37pQn n3xSateuLampqYq+ffu+JIMG7ZKbbw7JjTfK/2Tv12+fBAILpWnTdoo3Dj30 ULnlllvk22+/lWAw6Gv9n3nmGTVv6HrLLROkT5+Cf3x+fjrrFAh8L3Xr1pXD DjtMunbtKitWrPC0L/Lz8+W9995TfMT8Bw+e/Y/PJ56ekbFFLr30UsUT7Iut W7c60gFeQb526tRJybxevZ7+x+eQiB4I/CbnnXeeXH755fLRRx8pGkSjQ25u rrz55ptyyimnqM8MGJCTsHH06FFijGWV9O8/Xdq3D0jDho3lwgsvVM+B5664 4gpp1aqXontm5jxD7uxJKB0GDJghtWrVknvvvVfpz2hyYNu2bTJkyBA5/vjj pXfv5+J+bteuQWPei6V161vktNNOU3tL69Tq1avLAQccIOnp6VKtWjX1u9aZ //rXv9R40cN9+75s6OS/4x7L4MFZcsEFFxhjaS0LFiyIug+wY1q2bKn0P2sW 6/O6dSs19uHnag5HHHGEmiP69Nprr5U77rhDnnvuOfnwww/lm2++kcWLF8t3 330nc+bMkVdffVUefPBBQ57dLGeddZb6HHQ5/fTTpXPnu9TejnVMyMhmzdor OsycOTMyZzMPlJaWyu+//67kB7q2f//Y9kEg8LM0aNBQrTc6+pprrlH2CrRf vXp1xIYrKSmp8HzGU1BQILt375YNGzbITz/9JDNmzDD2Ri+l9+Eb9DT82bNn cUxj69RpmJxxxhkybdo09TyrriwqKlK6A10CH/Ttm+/r+xlXr17PKPrBz6z5 yy+/LH/88Yey1WJpjGnz5s3y+eefy9ChQ+Xkk09WfHH11dcZMmO9bxrcdNMI OfXUU2XKlClqDVh38zrwvOXLlys6sRf92AMDBmRL8+Zd1FpBQ9b9t99+U+vq t0Wz5+Gf2bNnS8eOHRUdkC8ZGXN97odRSt5PmjRJ2Y2aBvqZ0OCHH36QM888 s0wmFnrk/TVy5ZWN1NojSz799FOlX5xsMj/2qvl1xvzrr7/KiBEjIrYyMtM7 DR5UvKRpYJUHxcXFysdAFnndC8jaevXqqX3P+nz99dfKx0pmY9zr16+Xxx57 TE444QS1XoMHf+KZD6DB888/r8ZpJw+gAXwADdz2An+H/9PS0qRDhw7KHoeO VdEYOzp+3LhxSk6edNJJyg7yIg/MNLDKA3hD0wD6utGgZ8+n1L5s06aN0mt6 /smMi5ibtmdGjx6t7An0GXLJy15AN5v5QI8ZGmh54EaDQGCJ4pX69evLxx9/ rD5bVXM304BObKN3795KFzPHWGigm1kmOtGA15GByKMJEyZIXl6e53hNrHN1 avAf+5D1QDYEAj96poF5L2gaeNkLgwbNUjZvly5dlP5zmn8iecPNzxk7dqyy pZo0aRtVpznxgbYP3GQifg/P4O8vvvii4gHrvKP9P1mN52DvYFc2bNhQ0SEQ WO4oE73shWg0QA4gg6+//nr1zKpqXugJL2A3IB87drxd+Szx0CDaXuA78H3+ 85//yN9//52sKds2t/3F+L/66ivlj2MPY7v4lYlmvWDHB/375yp7CB/us88+ 8z32yP9Nv4TM/5eg6qVGV58J6de8Pwd7mvgPMcTMzPm+ZaIbDYjNYaO3atVK +RXeB6fHWPacwlzZtW2zbNiSJVs2bZXNW7coPb/z71zZX2L+YFD8ShT2w/33 36/G37XraFsa4C/ESoN+/aaq1zMzM5Wt6qfpdQ2VBiXr9+/k9YeGytA7hsht QzJkyG0BCdx+pwy/f5S89PZHsnFXfmT2IY98oHmNWCgxiHPOOcfw2ZtXmgN7 GRpEs5Xd7MTOne9RsuDxxx+X7Oxsz/MPzycY5ofiQvlj7ktyyxkpkpKSJsec cppccPbZUvu4GpJq/L/GSfXkgRe+kT3EFipuFE9NywTihviv5AESqRfwDbAL iAn49QvY5epncb6s/+ZlGXxpihx91hUydNzbMu/LOfLulMelb+MzJD31JGnU 5glZkV0UCwnUnIgDNW7cWK2jNe7kx060owFxC2zDt956K/IZTzZAsHxJSwwa /LXgZRl4WYqc3KCzTPpqh3pLYf4Gef+pPpJS/QRp1OIx+WlXkZQG/dOA8RBz wYdnvTIz11XyG817wSoPeM28F8y2FrE4+AsakHvwPH9LKy0pkLVfvyiZl6TJ YSecI73vGy8fffyuvDLpAenevK6kpdeWa28aLytzijzP3zqO7du3Kz+OfBux DTuZGI0GZnlg5QNo0KBBA0WDd955x/fcQ2XMECwyaGDwATQg7Z+SlirHnni4 VEsP/37Eue1l5JRFsqu4TCp6JISZDlu2bFGxY/KjgcBq37oxmkwkRs4eO+aY Y1T+2WveruJASyUEH3wb5oOUg2tI3frXSOt2baV1+1ZyY/+hMm76PNm4Lxih Wan7t1ZozInYeJMmTRQNKu8FbzTQcSQrH9xwQ1/FX08//bTvGCmzUtrBkAfr vn5FMi9KlVoXN5exs1bJvrwCyS/Mk/1FJWXLjo1UGvmkn4asJlZ/5ZVXKlvR r0zU9oEdDcL+0lilG4cNG6b4zas8MDyaiE0IDf5c8IoMujhVTqnXXp6ds6lc /ofK519a4TXvjXmRJ8M+IKZizVW52UhWvWD1P8m9nnjiiQrfQAzeVyubaGlJ oaxeMFX6XpIix13cSp6ZvaHcDgqFbUn1VsUH/u1E8haPPPKIiovDt9Z1NPOB Oa6sm5NMpLO3yMWfe+658uWXX/rSC5rHS0uKZOdvi2TyPb2k19BR8v4vWZXf HAyFe4QWHp9hjGfHjh2Gv9hN7Vm7eLPVRnKKodjRgP9fd9116vufffZZZZd6 o0MwPKcI0xvrGyySYEkosvaaThW6D59JxxCWLFmi9kA4nvRzTHEkJxsJudiv 36tKN3Tu3FnFkLwNsFy+s64hMy0i7ykto0eZXS061untETQdS0J/X3XVVZXs ZCsfWPMLmgZusTTyW+TKiWdjL3qzmU3xqkqvByXaWvuxlVlPcpnNmzdXsW78 O7sYilUexJJfIJbWrdvjCtvCvgPr9L/Q4IGnnnpK7YGLL744ai5S0wA7MVYa 0G+9dYV6DzoCPzXZeSW3xjx+/vlnZRfBA336TJZevYpipoGTfaA7OrN79zEq no+MXLhwYaX8SlXmGogd3XPPPUpWE1/PzNxkO26ve0HTwC3HwnOI4YId6d+/ v/qced7JooH1GcQ0X3jhBRXnxSbIyPhS2fVeaOCkF7zQAHkTCCxQefoDDzzQ sJ8GK78duiaLF6zfRxwH/CgyGp7s2fMJFfOMNmYrDcAF2OXe/eZcwTlp3C4x NuxH9HQy9wJ0xhYiloNNTPwUm9AujmxHA7d4oh8a0MGtgSODb9gXffr0UXkH M84mEc2cYwI/yhwYJ/jZq6++2uDJv1zHqu0DMw2seSYnv9GpY4tgO7Efkcv4 7h988IHiVSud42mMeeXKlXL33Xer/Q/mA12AnrKzBbzIAyu/usWVnXr//nsV DgLMF3icOnXqKIw7uDN0txtfOOFP2Ldg8ydPnqwwTvA+tirYW+wAr/P3IhPj oQEd3Ap5PvgAPB604LsGDBigsKH42/h1PMeKSdONMfE3fBH4CL4cM2aMigeg +5C/0HngwJmK/5x0QLS9EE03mvcCsj4WGtDBpg0evMPoHyo+xZ5ETmC/EYvL yMhQ/haYjV9++UVhScDHk2NBr4DfAzcHRhEfnZwO6853MC5sU3CTYNP9js2L TPSSc/XaGSMxHHCx5GfJBYO3RIZBF3gZOcoc6cR88EF4HzlT1pv38vOSSy5R NghYG9Yeez3WcVlpEEve2U+HT6EF9hS4CHQn8V5yotjZrC9YJhVbNTp7B5+P GEWjRo0MnuopI0eOVHFR4kGx4jKd5IHfPFM8nfEjNzMytsn48eNV3vrhhx9W WDbmTx4Xe5e9T7wSWceaMwY/Mi8RfJAsGpSPIaT4Q9MEfDg8D78zZ3wd5uxX 1iWDBonYC17oMXjwx2o/4HtE8/USTQMvsTQv/kKiOvoDPkDvJ5LnvfCB2V8w y4Pvv//et53op2dkbFfYCOqj2rQZqHgOeYDuJ6fbrdsjijfQf8ngCysfWG23 ZMkD4tHgOclXsgbYT9RtaH1g7uhPcL/YE9S2tG07SNEsUfTwk2uLlw/CNWU/ GmvbWX0Xc0YXEuPo27evPProo8r2xR7C/yV/hx+ITrj99tuVDsVegCZ8jlgx dQsDB8ZX35NsW1l3+Bj8Hvk+dD7rj90HhgnfGps5JydHjYFn6p/wIbY0cSFy htS2gP+70fhS7CZte1MPFavsSGQMxa6jz8hrYP9g2zJ3cKw//vijI26FcUTL 4TLOv/76S2bNmqX8Dmwo+KJFi67K1oiVBtbce6wxFHNH37PnwT3w2VtvvVXV W+Dre21O8SdkF/4EY6f+DV1CvZA1t+6XD6yY7VhlIjVn1AnhzxPX5vvBgviZ u9f4G+Mmz4cdjS8Bz2ZmLvRFA7Nu9Jt3tuvYeux9Hc8gdmLG7yajwRPkuMh/ E8NjXcENxsMHVhp43QvwP7Wa8CXzxx/WteWJblb+0PW49913n/JB8bO81Hi5 5Vz90oD4GX4w+JT333+/Qq4l2bFlvX+oASS2hpxs3LiVa/1RImmQmblR0V7X yWnsclXXcWjcCXlGdDFx7kTQwE03ogPbtQuoZ7IGxIDM80/2GSd2cVDyv4yb WJNTLazX+IGbTET+YMtSv7po0SLb+Sc7v2Jt6GBkJHZ4ly7Do9pQibCV4YGW LbspecwZEcSMncaX6DqWaN/JnsCuxKYO12rb2w1m3RgNi+NWv0AsHxmAHMTH TMZcnebv1LC/4QXsauZqd16JnzxTNBqQb+YZnCfh2QaMDD9YhjwpKcNelYNx K+HTTZ/x2hg/timymm7nX1lxqna+s5NewH/l3Aa+g9p5pxor63Q0/qYcZ2Sa YwSXE0F2hz8XA2+hK6mvQC7Y2U3xYrbxB8kfYQ/BL/7GWKJwWQqrmZ8jWRs3 qvFu2bFH8opKy9c9WIZL0lgln6k6sKPoKvwWu3NMvPrO6AW7und81jAePkP5 ct5bGHMUzM+VP5Z9Ls+MGSmZ/XpK1249JHDbSBk/daYsX7u9AlYzGMNeoGGn E4dgHe1qONziSG56AfsC35X4h58aDuZRXLBHls55Rbo0O0fVaqTXriMXnHu6 HJWeKmkHnSw3/HuCLNuaF55zOWTTNw3QD/hU6Afy8rHgVJ1iqvjs8BhxDZ7l eS+UFMuelXNlRI/zJSXN8PWa9JSHp70vsz95Q0ZnNJcTD02RQ86oLyNnrpAC PaZQGT7Tp0hgTvhT7Fdy0254Zb80aNToWoVXBg/sp5UUZsuyt0ZLq1opcuh5 18mD7/0keaGgwu1mrZotr45sIjf3v0MmzV4p+4xNUC4XvWN19Xog4zYasoYa DvSXFZfgFY8UrX6B2AV7QZ+n4rUV522TOePvkbOrVZf6N3STz9blluvEYJEU F+VLUbFCdpt0Rgy1AWWNWJzX+gU/ORZdw4Gf+u677/oa0/687TLvv3fLhekG Ddp0ly83FJRVeYVsed2MVy+t8GLF36Ph2vFf0I9hGtjXscRCg3ANRyvFB8SA vdoGYRrsMGgwXM5NqyaXte0un64rUJNT+q/wb9n856+yeOGfsnV3rpSGLLhV u0c40EDHFTjnz76eybvPZCcPzDUcfmJFpQU7ZemLj8g1h1WTw85vJo/N+Fny Dd6ntilrySfycIemUqfeAJnw4XIpwGQKlkj+rk2yculS2ZJdaNKTtqSo0JDV +HFgNphrLDUcTrYyOSD2Avlh9px3vbBftn3/kQxvV0tS046Retf+W96au0x+ WvSFTLm7h5yZmiqHnHmt3PfOCiksKZXcrWtlzvMjpGOjJjJt4TrZHwo5sUP5 /8twJMRzyM9cdNFFlXDbbnvBLZ44cOA7Km5+0003+cIpYwGX7tsii198SDrW OlYOSAOLUU3SU1IMW8HQi0fWkXZ9HpUftudJ7rbf5d1HB0uzWjXlogvryZTv 1kpBiTMNzGtBfoJziVhr9oM1rmT1F2KxlfFFiB1z/o2fxjYvNeTC6vkzZFjP FnJ6nVOlzulnS70mreXOsdPk+3W7DT42+GXF5zL1rk4y4t5bpddVTeTVb1dL Xmk5Ddw4D9sNfCD+Ankpq+/opc7VyU4EU0J+GFlD/Mw7VrtMzvHDsJfy9u6W 7Tu2yNZt22XnrhzZX1gqxaGw71RcWiKFezfL6kUz5K6m18trX681aFBOACca YO+A3Sa3kyyfCd0AJhyZQHyfM8C8tPK6jPJ6JbNBHDL5jkpjFu+VdUtnyJCm rWTaN3+U0yAYcqxpQE4T18HX4YwCctxu8YPYzsFYpWJ2vIfzsPzoyGitREz2 MdKjKEfWLJkqtzZpLq98vbqiPIimI4wxcD4mZx+QlwS7bIdfcrMTvcSVwe2D G0BH3nnnnbb5pJhoYlKAoZJc2fzDe/JIx+7yweKNUoTP7fKV5Iyw4cG4gW2K dl6UW/2C19w7Z0KSF4cfsJudMNqeYiyR95TXt5YU5Mju7VmSW1AUKQez+059 5iB5avCM5Hqps4mWZ7DmXGPFpcEL5BeRO5wRRl45vj0RjHhHkarGsvouc4wt 2vejCx566CFlw4JhdcJv6/PSnPaC15wrNihyBzpwriFn2cVKA13DV277mgII LnEk4kZvvPGGGjM0AN/khOGED+BhL3aiW56J54AbIs+Arhw+fLjCVlSenxe6 VPYR9fSdzgIB0zx37lyFaQPnAm+6nUObaCwOZ40SZybXh/3I2W1aRvrmCS30 TLHXyP+lsgxg/sSQsVeoF8A/sPqIfmgQD/4gfO74g4oX4AnimdgNMe8LbUfo 2libRm4T/scWAq/EubXkPbycf+4mE2PFYIQxtS9EcDLoaPLw5DzitR3MuSV8 QvxisE3oQLCd4RqW5Z5x3MnEK1PTM2jQTHUWDfoJv4IzhJca/q/mOTd62J23 ps9xY49RS0lsBNsEvgPrjGz2g2N32wvxYvN4P3g84pngZKAFugq9wXk9+h4E L+fsaT+Y+l3qHXRMBAwjdgl4J+ok/OKa/eDSYsXmkYsKY84HKf8Sea3vQaBO nBzd22+/rXKV1G+Qs2UsyDhq1YgJY4NPnDhR5TGo3UbOwPfsNeKEnFtHDV8s 9x/4OT8xHnwia8MYiWeSl6EWAf5lDZEX+DTUJILXZD+TvyWPT8wW/Dp7nfdD Pzp5gnD9ykLlB8VTw2E9T7UqcOvYlBkZW9X44Q1qgzlDAt+TvWLG6bLW5PSh AbqO88Y5PzlMy5yE4PndMNvJxO6H/e4CVYfJnJAbDzzwgLK1mT/zRq/C5/im YH2Qs/GsuRsNYompJrJDE3iEc0nBtZEbY62Tjd/X8gB5kyyZ6LdnZMyOYE6r oobDem5eovHKsXTumoAG4NuT/SxNA6/xxGTRIFwHukbdzUDME92APEBX4Huw N7D70P3JoIGfs0ASSQNsaeZGPQZ1feh7rRPgAa0X9O/kyMB6kNei3gUZmai7 kKLh1s12WSJlIrYSz4Smur6Tud1www2qno24B+fGc6YTNX34negG6pjJbUIL aIIeBRON7Ih3TF5jafHSAH7nXBpsQ+bNuhPnYs74e+BKweEQ/8F+xg/kJ538 FfFx/GJqH6hZgHe07UC+z4uP7GUvJMtGgm+R8aw7e7xfv37y+uuvq7p1u3MA 4D9d5231JRgfdPriiy+ULYG9Scw4/L1TY6p7TTYNqEVnfMTX8A2oVdI43ngb /gT8g9+MTxq+76Kbb9npJA80DWKpZ0KvgwHDF2C/s6+J8yaj4WNxjic4E+Qq /oWfWhYvcSS/NMDW69BhiJo/4wETluzzt4mlcC4a99ARRyNm4VVGxHteml1H dxErQP4R44j1/h2vTa+XPmMeOuCbY2d4uUsp3nyjtVN7id7CD2R/wafmcSZ6 3tYGHTjvG78a+cA5826+pZezA73SAFnE2hNPRof5qV9LVNMxRvDqxJexJ4j3 +5GJ8fABMoA4B7YOsb6qOCMrGh2IA1Ariy/E2J3OSUpUTRe+P+uPLccdIP90 0+dn3nbbbWV3soyKuicSJQ+w+3kW5zVaMbtVwQPRajjmzZunYpjM0YpHs6NB tNp/d/zBGpXbJtcY7f6/yoM2/ydoOUfX/HoYq6LP1fXToAt33RGvc7p70w9u PZq/oOt5/WLTrKlU/dP8e4k5yRZJuHvHqzInsADE3pHXdnc1xYvJwj6nhgMs NM/yfta2Kaes5xUyzdNEm6AZk+MEvLFprOn69evVWUThs9Yr31Hkpd7ZDZcW rgu4Rr3Pb9N0KCoqlJzsvZKTky05uXtl395c9TMnL1+CJWXpdituyWPDRqOm iVwE9yjGIhOdYijgE/GJOMOBGg5f8i9UtuOD+bJ55RJ5d9JkmTTpORXbnDhx gkx87gV58fW35fNvfpFNu/OlWHRthf97ODhbApnFnZ3WGKXb+Ylu+UbuNwG7 T66I8718tTK8VVFBliyaPkYuUXeU1pDja55k6NkT5PjjjpIjDkyVmnWvkLsn z5Zd+bHhWlhHYg/EqYk7WO/kjVc3ci8tNQHcfej7HNmy6RQX7JQlr46SBuk1 5MxLb5SHJ06RyVNekP+OvUO6tjxW0tOqSb3ru8isv7KlwKc8oOnzZclfYcPE cw+HHR9QH4RO4I5Vf2ukn2NI/vxsWTz9EbniwFOkbY/JsmZ/+M9F+7JkwVtj 5HyDBnUbtpJpy7MlP4ZzKHUdOHKRsTrVcNjRwHwPhx0fkA/kTDdd1+d9YOW0 KCrcrmjQMP14qd/kTpkxb6F8+918mfvRVBkZ6CCpaQdIvfb9ZN6GAims8Fnv jXs4yM2G61gq1y/EU8dCjAx567eGwxQdU7VdP742WhpUC8eRD0ivLgekpao7 ONLT06R63UaSMfEzySqCB0piIYGyW8Ap2NOgIi7NupZONMD+Jp6Hr0x8MCab GNxh4W5ZMvVxaVgtTWrWPk1aNmss5x9c3aBBdUk78SLp9tQnsilnX6Smx+9T dA1HixYtFA2i1XDYnQljjq3byQP4gPgd34s+831fbyis95GJ308fLZdXryWt bn5cftyyVpa+P176nZemahsatR8j363PDWtGKzjTQ9OxFdYLW47crV/f2Sm2 TvwBPiDGi5/mff7BCO6y2JAHS197TOofVFva9Jgo6/cHpSRvi8x/ZaRccGC6 HHT4BdJn9CzZmleidoIXElixK9wfjm4ktmONuVrxidFwadFoAJ6CPeIHs66+ X3diHgYfLJ76sKEXjpfW3SbKuoKgqt3J3viTTBp2vdKNtS9pLU9+sEqy873L A72eYNc5n5FcPnEV65mjTncb09zOgAgEVih/hNidZ59REaG0bC7GnAr3yA9v j5MONS+TPhkzZFPZliopLpD1y2bI8PbHyLEnXiZtbnpZfsnK9bUXoDG+PL4j MSV8R2scwQ8uzY4GxCx1fR/5IvjGWzPfv1AkBXuzZdvqDbIlK0f2R/jd2C/7 82T3tj9k1Zq/DB2/W/KL/fkK8DU1Rvgz4XO/50f1G2ONJ4KPABOOXCRmQz1p tFbVZ8PQmBN5HeaILLA7F8XPmXHR4gf4o5yDgX/OPfROrSrO3jc3clo9evRQ 5xXh29jda+uGP/CC0eQ18p7Esjk3mNoRu/FVdUyN+ZB/YuysUbQ7bROFU2Wf 4Y+Q3+H87Krie+v5UPp3ff87dy2T78IWjHYGtVdMlhsNOCMNXoDnyPNYax2r mibUNFLLxbowdvDbduM208Ap5+oVh4KeRCbgP3BOMuvwT9CBMYNrxSZCH3J+ oxO2ywtG02uOhecMGPCm8k+xScGT4K8lkw7W72MOnOuPbwBGg/iGWy4+EXdc mzs1I/AWuV++lxrbROEN3Jo+R5H5k/OlhoF4p9N4veoFv3lnzvNs27atiuOy f/Al1q1bF9f83PhHYxDAOWtsPDrbC77Ta8039rBXPBL+JLZI9+7dlYwM5zd6 qfuK7O6dsKtR8EMb9tu4ceMUjlufUc45ml7xnX7uJoIP3M4i1B2bnDwn9zvy OfAAxLKQ1fjyXubu9n9kP7gkcrzof/ZfuIZlia0t5EYD/H/rXRiaBugF5D1Y Mr/3POBPUFtHzg9MFvISPBo1GNw3YY3Dup21xxphgxG7CwQCKk4Mlt98D4lf TDdn6uFTEn+3O08VGoBpIG5IDD2Ws3vDtSy/KVwEe0qfI87eZQ3RSdjYnJGL j6fpwljIjxAPZR8RtyWGT70O3wPfY/8QGwGnGJbH/nGb5IvJPeg71uzkAWMD T4/eB0vs9xl6b8AT2BDEGjiPAkydxqDiz+Dbt2/fXq0ndhbyBDuPPYSMJ87B Z5g7vxMjBb8Zy9rrzt6mFo4Ob1lzbbp2inXAD4DfiJ3FUzeBnMamhC+oaaLe DRmm73Iy43P1T72HkElNmzZVd5BggyFvkHvxYHY1boJzu8Gu2PEBOXxiZJzL iX4krxYPJlR31o01oA6HcZAPJM7BfmHt4Xc6dSucYcF56+hYcgPUBJHrjRev zHogC5DZI0aMULLaLq6s9yR5mt69eyvfkLxKrHfgRNsnzIk1RXbQoQ+d35Hx /B26JQqnTScOCG+zBzm3HPwga269m0jvB2w97vJGjqGDkCN2ufz/Dx06kitm /uSHwIaDGyY3y/zt8AP4UcQlwZm+9NJLKnbGXg2frfGl2t//9Ly88j62s8aP 6jPgqTmFB1hrJ/wE+2TPnj0qdgzuFFws/ICcxnZgX3G+dPiurFnKJuCn7tb/ U/9a8feZkd/5DnOv+He/faY6XxlbDaw/+h1fijHff//9Mn/+fGVn2tkF1obt hMwkv06dKTKSu5XQcchsc91FsrvXZ1nfx3phV4AdBz+J7QeGEHvT652C7Ano Bc4JH4jvIMeG3QIen+9GZ+O3WTt8Y/e6W3f6nP4bP83vs/6O/4a/gu7BJ6DG mH1NDpL5O931YNd03gZdgc0KLbChsCWhCZ39BX462d3pOfpv/MTf4WwS7vtg 7qw9+1pjTmKJaWg8LN+BzwomF73Bd1OvXFXd6/N4H+NjnMg+5LvWgVb8VSwN OvJ9+g4V6IKO4ae585q5m99n9zPa+/y8bu6MDbnPvo917b00uxiv+f9+u913 Wv/m5+9+2/8BxSvX5A== "], {{0, 162}, {65, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{65, 162}, PlotRange->{{0, 65}, {0, 162}}]}], ";", RowBox[{"Leg2", "=", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzVnQecXUX1+NMLCCShpBAIHRQUFEHFAlJEOoQSLEBCC0GSYMBEmoCKIKFa 6CpSpCktiIBgKCKGIhBSCCQmkF5I29R9+975v+/snrdnJzNz7w0J/n/387n7 3t53y5xe5sy52546tO+ZbVq1anVep+qfvgNGfHPYsAEXHNuu+s/+F5x/xqlt q1/uqu7nVncOVioVYdPP2Jb1e57z/N+KnPt/aQuNPS+sReEucq3/+/z58+XN N9+Uv//97/LII4/IvffeK3/84x/ljjvucPvvfve7Frse199C30O/pe7hH7O/ /f73vw/eI3S/1Dl5rvfHE/r8wx/+IHfffbc88MAD8re//U3GjBkjH3zwgaxe vTpJg9SxovResWKFvPfee+751157rZxwwgnymc98RjbZZBOpirPbW7duXfv+ cfY89/HPWVfPXpe7P6b27dvLtttuKwcffLCMGDFCHnroIRk/frwsXLiwRpOi +i5LDleuXCnjxo2T22+/XQ4//HDZYIMN3Fi6du0q22yzjaPhF77wBdlrr73c vvfee8uXvvQl9+nveY/HzvPP0fP0uetyt2MIjSd0LDQOjnHuF7/4RfnsZz8r 22+/vWy++ebSrl07R8999tlHfvazn8m///1vWbx4cS4Zy6Kz/jZ9+nS56667 ZN9995WOHTvKxhtvLJ///Oed7P385z93+uCFF16Qd955x8nm5MmT5b///W+L fcqUKWsc033q1KnB8/xrQv+H7mvvl3eP3Su1532OngdekDP05qOPPirXX3+9 DBw40NFOabnrrrvKyJEjHS6RmTw0TMnktGnT5PLLL5du3bpJ27ZtZaeddpLB gwfLM88842jFuDiHHV3Ort8//PDD2jH9X3d7PLXb+8buod9Dzwt9L7qHxhw6 5o81dS/OVfq+8sorctlllzk57dSpk5OR448/Xv75z3+2sI0hmSyXy0G6NjQ0 OB74/ve/L5/61KekZ8+eMmDAAPnLX/4i7777rnsu44G3GAuf9rs9Znd7XGlv f/P3rON6D8UPukL3GTNmtPif3ce5/2wfhtR4isAbupeOARjA6csvvywXXHCB k5EOHTo4ufzrX//q5DBFq5D8QbvjjjvOyfSnP/1pueaaa5yvyVgs7Mp3MRjy wOnjJwR3iP7QAprwHfgZ36uvvurw8OKLL8rzzz/vdnQ7vIxteeONN5wOQ1cq LVM86I83NNYYnfS3EJ/456lMMrZ77rlHvvnNb0rnzp2dnXr88cdl2bJlQVqF aDpr1iw588wznV3F1t5yyy0yadKkGrwp+cji5xgerCyF4LPXK/+gv9966y15 9tln5cYbb5TTTz9dDjroIGdDevXq5XR+ly5dpEePHrLDDjvI1772Nfne974n V1xxhTz88MOOlqpLrF6LwaDfQ3rD0ioLrhA/6Heuf//99x1MRx55pJMffJ/R o0cHaeXr048++sjZO+zpdtttJ7feemuNdqozY3Cl4I7RN6WjrGywK34nTpwo L730klx55ZXyrW99y9Fqo402kg033NB9EsvgY/Fpv/Mb3/GdN9tsM6ef8N+x CfC9xX9M9v1xpeQvxL+W9im9zHlPPfWU7L///k6O0IUTJkxIyh+xHbKKb0tc cNVVVzlc+TRTn8qHIUS/LJhC8mn1jf7PM+HL5557Ts4//3yn06EXO/SDjj/+ 8Y9djEw+Af2v/gEyhv68//77nY9+zDHHyC677OLsOjpqyy23dHJJHAaOrG2P 8asdf4wmIbrE5FBxav0g/NUHH3xQdt99dzdO6IF8xeRv9uzZLiZo06aNfOc7 33F2BPsSsnEhuqXkL+vcmM1QnsW23XTTTS5+wg/GT0N+0Jvo0Hnz5snSpUud v4bv5cPIXiqVpK6uzuEAnUIuBB216aabunsSU+Nb/+tf/wr6Z3acPl2z9pDs xfBjnwE/oQ+32GILF2NDExv3ASvfkT34j1h86623dvGe5QcLT9bzY7T0d+W5 EH7UJvGJ//GDH/xAevfu7XQfduzmm292ckWsWzTfqBs+Ac964okn5MQTT6zp W2gKLpB3K4exseaxCynez7oX8cVhhx3mZPDSSy+VmTNnrsGb8O+pp57qbAQx JTEmsufjOPb8vGOJ2Tkb5+ox8AdujzjiCOdP44fgX6PTkaNUbJuHfnoOcsnz brvtNucr8Cz8PmQbu+jTzvoBMdzksSEWfosD/z7o0RtuuMHFcHvuuafzZXTD /q1atUpef/11p2eR0/vuu6/FGH2519+sX+WPMSWLvh4KySU74/j2t7/t9Dm5 uTvvvNPpvhi9YvTMm0tcvny5s5PYEHKW+AG//OUvHR+hCywcvg+axacWXzH6 xj65FnlC7xDb//a3v3VjZUN/kjclV48d/+pXv+roS+wbo0nKNvvnWD5Nya+F k0/8KPKs2Dnyhn/+85/XsN0pGq3t3BT2E/t30kknOd8dvgE3xItWl4Z0fwhf KXuX5zd9HraC+Ah8YEs4prDAW+ecc46LGc466yz5z3/+E8V7aHw+nUL/23ND vGvvScyN/4TfjL8CLbHPReWpyGbvWV9f73Bw2mmn1XLL+IHgMBb/hvg3xv8h +UsdVx3KfA/6cb/99nO5CB03vtihhx7q4l1iKsapvoN//5AMWbvgf4+N0+pN a1/A24UXXuj8FGwQPqLqivWxxeRWaUisAQ3R4//4xz/W4M+89iOLfql7qT3B pyIPwc78HRv6k3khdBS5CuYZrQ+RxScpG22f78tf6F7wGPkC6AYvEe/MmTMn iuv1TVPyjuRpwBe4ga80Ho7xZ0wu8+IrhmeeSc5ijz32cLE5OQf1XeCznXfe 2fnO2BnNKcbyy7FxZh3Xe4b4kePwN3yO74AvzPEQ3dYlHbPutWjRIufDkCcg Z4AMYAtjuLDwpPRpHjn07Q0xsPrH5EiRPXgMXaqxFbaG+CIlTyma5eEt+7/S Ex/vkksucfELPEbuaH3RrMgGjoghmM8hX8N8DL66zZXG7H1MBi2NfXnzcaif yBTjQE9CP3wq4h6lX/fu3R39iLfwPf14JM8zrG6M5QhDfMs1zBcge+RBfvSj H7XwNf/XtUzEmqNGjXJ5OmIK8nD4DCF+tTDH7ERqj+FXczFf/vKXXQxBrIqv DP2IeSz9VP5CzwzdP0tnhmTTfjKPQHy61VZbufiUMfjb/4qG+lxwQlyIjWFu RvMbKfr4dM3CTwxfSj8rf9AP24dvR04N+pGfAXfMH8V8jRh/pH6P2XG9/9ix Y+Xkk0928dZFF13UIj9kcfi/2ng+eMIXxo/53Oc+5+ZV/dxDHrmKfbfXh3xb 9DXy95WvfMXRDz8P+hFXEa8SVyj9bOweo1FMpvL8b30YfE7mFL7xjW84vwr/ yc8/Z+JXyvypbmX3UWk82HhcGo/b32vHJN98ttKQOQ3mLaAhc6LojTw2Pi89 U3yg+pNYFP0J/dCd8BX08+2ffx/7f0gmY+dm6V1izV/96lfOR0c3MH+u+CpA wCopKlJpKMuSxQtkwfy5Mm/BfJk//yP3ufCjpbJsdSOtGppoVlSiGQ96ibwC eGKewuY5suiSksEY7UP0Q/58+qE/rfwV8T9TdPL1pB63MMPT5557rsv99O/f 3/1ebGuSoUqDrFg4XUb/9hK5cOggGTiQ/QxnqwafO0Iu/sVV8sS/36nRsaUs 5tuIJZi7R/6YD8DnSuWZ8siVf04W/fBfrP2Dhr78Wf8lNR4/Lk/xWYiexFFv v/2288mJry6++GJZsGBBQayKlBqVpSyc/qbcekRX2bRVK2nTcUPZvGcv6dW9 i7Sr/t+2dTv5+vcukVcmLaqeL9KsaPNtOseGDWTunjjs6aefzqRfFp/H+D6E S9//VPun/ktMf+bRA6HxZOkJ6EcNCrwMT6FHGVOhrYJOFKc/l8x8Q+4ZsKn0 3rit7Nl3iNx8571y/103yUXHHSDdOnWQDhsdKNfc/5asVPo1UjL3RrxFjoF5 nD59+riYIsWjKRmL4SSmh335U/2p/ktI/vLKUl5b7fMWMkgsTD6WMbF2ovBW waIxB90gdTPelDtP3UR6b9ZZDrp8lExfXP25vEpmv3KnfGW3ntJ+gy/KL+98 VRZVSkXFz8kf+SpsHnEgNMTXyqJJlh6N0dU/FtOfNn6AfvjFVn/G8l0p/ZAa r93xPckdMGfFmJjvK76Va/hdNvMtufvkrtJ7kw6yV/+R8syLb8r4sWPkvusH yw49NpCOG35Vrrn3DVnRJLOVggYQvxgcQj98ZXJpMV8uCwdZx/1rQ/Jn44eQ /sziK983iemB2Cc5M54N/cjxs36p6GZjh8Uz35Q/ntpNenRsJa1aY/PaSJt2 raV1qzbSql0X2eGgC+Xh12eYa4ptyB+5fuiHDWROCRvgwxujQR4e92XG+i/E 7yH6qfzhQyj9suyu/haL7/NcT/zEs6lVxSazzkrr4YrH7NXYoUq/Owd0k+6d WkvbzptLn212kO233U523vVzcsQZl8oDL0+RpfXlZptZ4BGqPzXXyFy35rJD vBni4ZA98n+P1foq/TR+iOlPn34hGuSxd3n0vsof8+zIH+s27DxtXro1GrMG WTL7P3J3/6r+7NZJ9hlyk4x5d4rMnjNP5s6dK0vrVkp9JXBdgQ3/hbw6sQ7x KnM4Sj8rNyl9FaJtiO/93cqfTz/Vnzb/EqOZ/9xYvWue66Ef/Ez8wLwDdZ3U MBbaDA2WTn9d7hrQVbbu1kG+ffFDMm1hqTEPU5PlcosamaISTn0ieot6Q/CI r+Drzyy65LF1MTzH/Beffn7+Oo8+SPFU6D584r8QP1ADTf7gqKOOcjxWI00l D4ZLTXQoy6LZb8ntp1b1ZtdOckiVfh/MW218FKWdzZvlXw/CRmx63nnnOV5j rMQSWfRL6asUn/u4svmXlP9p/Zes+Q+/vj3P+O2YgJ3aW+qpyCsyh0ztVBHb p2cSPyyb8548evHh8vld+sgJVz8msxY3NNu5SoOozqxUNL9aLP9JDpn1FeBp 2LBhri5T1zqm8JSyK0X0nOY/Lf1S8XtM/mL0yKsrLP0YE3EwMaD6MMVsYKmZ iKtXSt28mTJt6hSZuWCprK40/W5o3bgXoxsbsQPzbMxzoz+pBWfexJ+LD+Ej ZBfz0M6e588/6PxfLH7IkqU8NEudyw5c1JPAx2eccYbzf6nbo04gN36bcFyW +jXoZOcdWn4vtnF/cp+snUB3YoN0HWSIfn5OOyZ/RWRS59/z6E/sX+x5eXkn RFv/GPTDh3nttdfkuuuuc3PbjIMaqkIEbPpoSNCpRtNm4hbaGCd0g37UX1Lj 6K8/9vFk6RijaR7dynfkz8Z/0E/zZ3b+Fl3mx+/2PqF66RA/pfK69n/sBzns J598slZrzTwEePFl4H+1Ud/MfB96kzUk8Bd+l9q+ENwhnvV518eL/S2ET5u/ DsXvMfplyXoe2QzNVUxtsoHUkqDDWQNObMVY4K/QPG5Wz4V1vTEGrdtDP1ED TQxIHgb6hXgy5YP4eA2tTwvh2Z//U/sXqp9Q/ZmyfaHfQzoiRWulq66jpQcQ dcTE8gceeKCzi5/kFqpTRG9pHTbrQ6j7ImbV+qWYbbCfsfyif03q91j9Usp/ ySODMT2eR79bGcSPYT6Uml3WHMBLxFr8FsLx+pRBzeERr9PvhtiUuqWhQ4e6 taHoe+xhigYxPyWGk5Rc+PrTzh/F6if8sfk+cEouYzYgdh3/o4vwO7GDxPPk h9GlzOnGcjLrgoY+P+gnNYP0aKFWCXwde+yxbn6E+S78zhAfpmBN8W+WvrLy l8p/xvRnll0L5ctj9IrBq7Eguom8MHEEa20Y1y9+8YsWdfTra1PagRPiA/qx 0GOKmB05ZB2p9q6weI3pn5hs+v+H/BX/eyz/4vsvofghhfsse5fSwxZ+jSWI iRkPcTzrNhkTdaHoVc63eF4fGzqTflLkOajjZ/0T637oB4HPid3zfceYvGXh IoXjkE7Lyp/5/meWvfVr/LPGn4JJ74duwpchj4aO79evn5ND5kvx/ciB5O1j U2SDJ+Af1jqQy0PuqIeDb6AdehP8hdY+WBkKwRuTTR/21O8h+uWpH8yiVWys eXWJf57GE9Qp4M+wToO1LNQrgNOvf/3rLncFrmN08L9nreUkt4LOhlfwU7Av 1OSwflppB19ho2MwxXAROieLrv71Sj+bf9H4L0S/lP0rMp4QTbNstdpT7adE 7MU8NzWG+BLoNPxBYnxoi9/KWr0YDWMbMkxsgL6h5nu33XZz/MEae3qJYO/Q AeSGeIa1edb2p2x8ijahc2LX+fTz689S9IvhPaWzs3jLv19I94AvaIivzvge e+wxl2PDD2TuW3tXHn300a4HIvLDmgTuRU8KP/aHT4ELG8YaK2rd8JHoGcK9 yIvRKwffF37BV+FcpV0oX5KHJ7NsW4zX/e95/E/op/YvNdbY2LLGkaUjlM98 n4ZcBzoMXYYP/5Of/MT1+KDPG7YR/BNrUINPfTSySi4H23X11Ve7vDNzw+hh +vzQV4q1FuzwAnMfxHb4TORWwAc2mLxCSO5iuj/Fo1n8XYR+dv4hT/4671iy 9pjuCOkRew14ZOzYRPwXcIyPCB3J11CLCS2yeu/q76xRI5eJLWUeD7oRd6Iv kWHtY2p9ldT488JdRH/5x2z8Ti4oq/4sxWsxntHnxMYQ403/ent/2+8TnDJW YjPmfInt8TmI06CH0gn60OcMnwd7hp4FZv0dPxsfE90L/eitSO0b9EPWba/O LHpkyZV+D8XIKXr6OPTlrwj9UrKX2mM0TcGqtGIMwEw8yPok1qHTcwndyDyF 6kDmK5g3RH8y/4TPf8ghhzj/hnWg9Psh7qAPAf1TWAMNXfEzuZZddS9zkNRQ oaORcXwXeEb7htoehTH48+idmAynZDtW/5nKn9l7hOqU8uiPGHzKU7bnKvoK Hwu8IQvoSNaL0HuP2grohfwozZAt1ntCmyFDhrjeGcgl8QXzPdoPHlh/85vf uOPE4sgcNVPoT3IDyKqVT+o76S2OzaQmHP4hL4QvxRi1N6zfAzama2I8n+qd 6uM3NP9u/Rd8cnyB0PoVe39kIk8/O3ue6iJg1k92cIGtATf4JsQD+PLQC/2G ntNedaz5wdeA/+hVRq/BX//6107vsZ4Z/5N8Jb4ltow8M3Os8AH4Z60JsHEO 5+Jjci1xwk9/+lPn2+DH7Ljjjq73BfwBTcEVPeHIoSH74E19HOIb7c1ke/4q T1rahuLn0P+hHnNKa3zhkP4M+S/6TKVD6P723n4OT3UN31Wm8D3AJ72z6V9C r0d0HLEy8gW9wBmf2Cx8e2qzicfwVZApdBvzTPjJ3If7cV/mmngGOEXnYsfg V935H58SP5ZzgRn6cg/qANHP0JQeXeRb0aX4qszXQk/iC6UnfIS+pdcRck1s A39Qj8ZYWMPIGIj3bb9mcKN0DPUfi60l1N/8+MGu/4v5n7G5BP+47S2l/Z7A J7yKf3DKKae4OmvkCnvDs9CD1jdkZ94BvXb22Wc7+UK2kBlwDH7IyYB/fFHo AV14FnYKWbCxmj9ujoNT8jtcAz6Qf+I8dIDyF7wFTZBT5FN5DH7SMVtfF7pC Y/o2gl98KuIX9D+09Ps1x+yQPeb7O3b9u6VfTP5S9w7pdB0XOEFf0bMSekEP 7YuLnYF26GrgZdd+uKordccXwUYRZ+u7SlSuwD00gBZ+fBYaa8yH8OkJLXkG 9IRXWOvHOlvm3hmf+jvgj//pJ4JeB0b8X3btQQnMwIZ9xt5CS61Xs73wsuio 39X+peqvQ/WDeW0sOADPxMEaVzN+eJZ5BPgR+4bOgo/AF7zJNX/6058cnch9 9O3b18ko1zJOcIN/Qj9SdGNovUgK7izc+DzP2MABupEaecYAndSnwQaSE8Cv QUbJ70EXbBMyjK7g9+9+97tuvh76cg94FrkEVs63OsuOMWSL9NxY/Vne+C+m S9Fl5HrhU/QK8PKuD/x95IX8MHJOnpK8I/lJns1x1pTzPOZoWafAJ7TFt8CP YVz4ndRdUveF/tRegDHahGQtJYuKM+QOOOjZjg4AH9g5bBwwopcYH3ORjJud PjXApvk61kiAU2Dj3sgdPAkcyC7+LraB/BzPDMUjoTqU1PqV1Py7b28tLcEj 9h9bD39xPToTn53fmMO2cz0t1h5Ud+0/wzg0B23nUMEPfiR6FN2ETCID+DDa Gzcrfgrxnq/3GSvPUTjQjcCBfwXMS5YsaQEHNLJj5//YBm2hO/fHB8Avw5bg GwEHdtv66TEe5JhPv9j8kfVf7P0s3DyXPAj5K+QDvsJHxJ74/QLXtj8uG3wN HfELGTvPYh6COFt746ZkMMt+wwfAgX+icg4cHNf3ZmRtefqzQX/wit5lbphn Ief4dugovz+sj/OQ/rT0Ixa26/982vs5FGw7PIq+xKai7+DT9bUxVuwlsojP h69HvI7dTfFtiI/1E9kCDuI+7kkeDvukcKyPPnnAgV9u4SBe0Xc0xMabJ37P I398EitR34ffTHxGzByCeV3XOaCngJ33+GCfmLMjJrS61OYNsvwb4kjicvBB bs3CsT4222+bOBQ4kEOFw/YD8ufUsuonQv1ffHjZiQ30vTroAfxHfcfSJ1VX Sx4LXwb+oY8Hsm/5Nwa/pSfxgYWD+Bt8rE/+8+8ZgyM0B5DVPysWP1g84IMN Hz7cXc/zsL9qIz7JmmiehQ+OP44OOuCAA1z+LSR7SjubRyLuJyYHDuqT8BHz 2rp1CYO+I0z7pSscoZi26Po/39Yj2+RDkHVklbnw2LtA1jWcoWOMnbESK+ra XXAR8gOs3OFfAQe+g8Lh9wxa13Ck/DfkBziYFwEOYn3oZN9XpPSL1U+k1r+r LsL/hT+IYQYNGuTuvz5gLYIHbBXvQCTehI74HromyMJt6Qkc2G7gIEYnz5x6 xvoaO5vGJNR7wEf4j+SB/biiqPxh/+y16GTmSrk/OQW/N+76hDt1b+AHJuYj GBt5bvwbawct7cCJwkGPbWLXT2pL4Uf7ypCzgQbAQS7B8l6qfjdVv4QuJueB n4bPh/3T9+z+/7CRIyC3rb1xfV/G2j/gUNkDDnIkbJ90X/TQhhwBB/GnhSOP /gz1n7D2Atlmzhpbz7xNizE1/al183MfpdrXxqPNPRvt2vOKuYmFrGhnQO3r qL1xmZ/w/RhkDzjAT6zHb2hrsda6Ykan35tooscq9pyC67SBQ9/DxJon8qma XwvRLyv/ojmbVG/c5sGH/tVePM10rPgnhUhVif8Ughs4sBnkpnh3IzBY+iF7 5DioF0SH0Cc9CEd0K7fgUQuPXe9bW//bBHe5oFgjS8yXKRzIiq8/tX8B8UNq /RjXIHvEScS25NHp1xZ6z5Dtr+L+N3CXbL+OGs821GCtWLirALeEOR//Ygfx PYEZH07fTaa6R/ObzCsCB/myvDqzdpa2CZLVHi1V/sq1sdfuXZB+2uOXOWPg oBYEHWrnj2L1n6H8C9fia1NTQI5Me+O2GKOk6GeOra6TOVMmVccwTiZOnCqz Fi6xCrZJ9zT21AE3RfWP7Y1LTKz2HziY2wEO5oOAHx8nP1JFlFqOPqUlMmPa RJk0vgoH/Z0WrnD8WBtv7Xth8tXgwI/R9xwpHHb+L2//F3Sn9sYl14M8BsET zzZb9qvCM3Pc8zLyihHSv9/RLk982JH95PQhP5bbHn1Z5tWtqtGx2T4WX5+C D04eEd2j77pR2wdPU98EjwIH+nSNMce2Jr4ql0syc8JLcs1Ph8uAE46Ww799 kBx5xLFy2uDhcstjr8isulLtfmVp7jVTdMM3pGZL4aAewJ+/zeo/r/TT3rjE V9i+0DsZ7BB9uyflFTJ/2uty1bknNtYadNpMttthe+m9aWMdWfe9j5dbRr8l S+qliYfXrrcHG3AwP8x8L+t3qWFS2+fDUazHb9n1EF049d9y1ZBjpTVwdNhC ttppR9myW1tp3bqtdNv7BLn1uXdk6cpSC52S1377cNgev+QnlX5+/7PU+iPg Jl+mveVCvXGb+1E1wdn0qf8vnzNenhrZVzbesJ1022lfGXrZbfLYk0/L/b+5 SA7es4u0btNBvvXD22Xi7JW1a5rvXQDF0twbl3kU7Y0LDOzoIF1Xz1xsoR6/ Vb4CjidGHi9dPtVZuuy4nwy+/DZ5uBo7/um3I+SQL3STVm03kIPPvUMmzl3e 2O+pZkeK8aPm1GyPX3LqGguE8p+x/nUKt/ZFYt4qrG/WpJ+jakO9TBvzoAz5 dCvputmWcsr1o+XDZavcb6UVi2X8X6+T8845X668/VmZsXBl7Tr3iLWQReCm voI4EFjwtfBb0PnYu7Xu8VsCjgfkXAdHTzn5xmdl7tLG+Ki8aqmMe+Ja+dGg 8+QXv6vCsaiuRWyRZ/NxGoJDc9Cx/Euofx2wAzfzQ9jSrN64FfUnm/RHqWGZ TPrbHXJ4+1ay1Za7yPUvTJbl9RamUjONKlbtNPfDKvIWCM3FUNuH7WC80M72 iIUPi/b4rZSWysSnbpUj2rap3ntHue7592VpQ8XoSJ17Lxsg1uwdpHGFHw+v 8bwqAtGTxKn4ysQT2qdE6z9T64+0fzLX6Ds70TvkFvX+Mbtvjzc0LJVpf/+9 9OvQpjqWHeTXL06WJaXm+M+dW24JWwu/3MCZZ+N+tjcutX/AQBxBHKxxk4Uj zwYcU565Q07s1Fq2Ao4XJkldySYcyi2+1/xUL463PmrqyRoLoT+BA/rBg8if X79L7OfHDz79WBOH/FEHGVu33CKW0M8q3057+g7p26kqf722lxuemywrSk38 Wq6XVYtmVcczSabMWCCrV5VrsUPF3KSI/dfeuNg/YAduci7aG0jtAHAUypeV oN9t0rddK9mm105y43PvVfWIswKNNTwL51XjiMkOjuWl1QH5K3m+XpongYM4 TeFgbktz8pZ+fv2nTz/Vn9T+kXuhToP3bUee2gKfjg6lFTJ19J/kjA3byBZd esvAXz0rHyxtcLatvGy+vHLL2fK1Xb8qxw79vUyY3nTfympZOG+283PrJR/9 dMNu4HPCs8R52A1LP9YLokeAo9D7PBtWOjgGbdSmqpe3koG/+YdMXVzfmHdY Pl9evX2w7LPbV6Tf0D/IhNlLnK+6aHbj2oA5c+dXedbQrtySMUM2Hj8MOHQ9 jsKRsn+h+I/nM8dP7oy6rx/+8Ieubs6P22v5Po/vXD//aW/KQ8P3k66tOkmP rfvK1feMlnHvvi9j/nqH9N+lp7Rr0172+sFt8s6sqt9Wpfecd56SEYftL8NG XC3jlhbzX+gboT3KqGPB/0TvQD/kktwZOQ16AhXp8Qscy6eOlT//aF/ZtEr/ zfscJyPvflneqd53zKjbZcCne0mnNu1k70E3ybgPlsm7/3xILj70ANlrmz5y 5EnDZNSrk5v7Ntf8snhsyJwYcFDbDBz4n9orKNS/IDb/AP2IH1h/hSzTbxa9 HIezYnLTTcOrXypzX/+zDPvsLtK1bVtp17azdO7UQTq27yBt23SUHr33lRtH vVm1i/Uy/bVRcuFR35At2rSWo875iby9QAoJ4Pz5812uQXvjki/DBrDDh6x3 AQ7kEDuZe8PU1S9ycAz53HYOjrbtOkjnjp1kA9aMtmov3XvvL7967A1ZWDdF bhp2unzn9OFy2++uke8e9w05ccRImVLXpOdr9t36Os34YyM2ZQ7XwqF1MXnr X1T+qFGAF8jHoZOIS9Kg2jynuHGiR2eMfUauPPtQ6bF5l6ot7SAbdd1M9j7y LLn5sddlQR21lB/JC9eeKZcP7ivH7ra7DD3nEnltQTH9CXzMLwMDdIQn4Vt2 4nft8UsusEiPX80hNZSXO/1w1aDDpdfmXR0fbtRtiyocZ8qtD4+ReXUNzuee NnGsvDttusyb9Jycd8qBVftwhUyqa6Kb9XlkTV+Q7+TK8DmAA53HXIr6L7H3 P4TWv6u9ZK6WOTO9Zk3b0awPSl7esqZSsQnzZsi7VdiQ4Qnj35MPZs2Vpcvr G01C9c+y+TNkzoevyjXHfFN+fObF8sbC5vtkbdgM7Y2L/SNG1/U/uqYQu67v KYB3c/f4tWiv2ue6ubNlwsS3Zey4t+WdcZPkg5lzpG5FqdnTrKySZTPekLv6 Hyff2qOfXH3/62S8G3m7XGkpc4ZubNrrkBgIOMjZ6ppDu34sa/4P/Qn91PYP HDjQ5Z7Iq6JT1+lWs+X1Ur/8XRl53H4y5MyL5D8fpS+zG/OwrK/AThMnEDvY XjvEEMDB3CB6iTw3uYngcD7OXC7vQJv9qtx68pGyz6595YKbn5YZdY01bc19 uBspHXr/hMLBGBUOaAYtUv0nYvkX5JZcADUmrFdGx3Jd3r44+TadXyrJqmWT 5OpjqvQbeEET/bw42LunvlODcbKuinlP8tTUOGqfK527xZdmbQNrMbW/qH/f +LxYevwVt5ekYcUsefqKE2TPjdrJAaeOkD+OGi0T3v9AFi733klSCfc1ZczA Af2Ag1o0268rNH+bmn/X9bEc0/d6s67c7+kY2/LCr7q3ftl78uvjDpKLzrlU 3lqUfR9oh73HtpFzwU6TH0O21GZoDQF6CNvA/Af1E/jVeeHIs6E/ls98SYYc /yWHp669+shue3xehvzyDhm/qNl/UUj8uV3gYH03PAgc9BnF77L1WCH5S9FP bSA2FLnmHOIS7Y27Tvo31v6UXaw1/d2xMq3Ks8saKmvoF39jDKzjoRaQsbP+ BJ7V9ZJ2/t2HA12CPdd1Q2sPi5lrX7mgyu+vyYsvjJYXn39Bnv/HCzJ28n+r /nVDI+1a5Ambr2UM1OawrgMfBHulPX5VhwAH/6fqB0P116pDqZnXuQj8I67x 4V5bHDS7ZZVGXVSprBHbrhl3Nvpq6APmopgzYr2Q8qxdh6u2ANuNDJKTUDjw ez7O+Gs+iOO/lizXZO5awtgiD9q4MTfE2iTyJNTFsVaHHAx2W2FIyV/q/Q/o Hu2Ny5of7Y1LjGJ7yPlrw4ogoGK+t6i1iNgJNuJcYMBPI9YlZqAeEH2vutPu tscv6yupxdL3cGBj1nozeU4/P2brEnSuTc9R/Qkc6AGFg5gBHYKsWRuQp37X 15++DJLXIZ5H92BviImL1QEFwG+StRDFff9aN2oGqWGh3gVYqD8nT4iPAi20 /lx5V2UQuQQO1jowdmC2cKyd/tC8uyd8ZbV3pcA8SuM7f+rqGvvEUtNOfHb8 8ce7HgroEHhN8e/Xv4TiP79/iK29U94FP+TjtDcutpDeYqF8VG5cNMV/+k6+ Rnu4po7Re5KDhVboAfwE6lLpf4UdRPZi7yPSWlbgQDeBN3wY4AB24FibHr+N cleuKcqaHFakBlPjgVLtOKTF73/wgftcLSO6nPWcrHsl/tPe9sp/wKPyp+8P 9+ff/foly7uqR4mJORd8kYfifNZt0v+P82O0y7O+MYmjpvPJcVLXio8N7fik ppN4Adumed7QOlsfDngWHw84oCExM3UnH9cnzTO3hv4ADvKbwMEn9Q3kt/CT 1e7ZccfeP5b1/lu7o5vQP9gQ5mGo8yaux+fFj6A3QeidDXngy9p4NnxCbwT8 FeZj6ZUL7YgXQjCH1p2ya68JhYN4ntifHT8CWdZ1+jEY8qwp9v/nnvAYfEI+ EtopHOBO4fDpZumX1T851D/L7paG8BC9xcgLMxZkmxiZMaRgy517rJ5HPRY2 gR4UrFtAVvAfyS0p7TRHofTT7yE6Wn8UXgdvCgdzv8ABjm644YZMvyYW54fg I75D7ysc4Bo4wBdw+Lbb0i5EP7V/2JMY/az9VLyoDUFfoaupR6BnCPaIuBg/ CvuID4y+LrquTnmbZ2Kj6ClC3hm8kt/EZsF75OWBGZhC70Gx/Y18OBQW+Aw4 kDeFgx4awIEviH4hHwAcsZqnrBwUzyT2wkfSvtrAwb2hgcLh9/i1+s/avzz5 s9T7w5V/tTcutAfP2CH6ZLCeW/vZEi9eeumlrq6POTjwTI7P73eMPcC/wu8C VnrMkWul/op7UQfC3AI4YF4dmQn1pA7BHPvfwsF6TniR9dQKBzjm2ehUhQM5 BV5kl3rTEBysR2Ns3EvhwEfgXvAEcODDA4f2Z1Y4QnZbedCv/0zVn/n962Ky iLzjC5DXIF8AfPRuoK8m69jgEx03z2W9MmvuGD/+HjtrEbQfIPMD0J81CtrT gmPERNpjFb2NzGj/JZ9Xra60sW+Ixr4uBQ5iL2pkgANdZ+HA38ZeEa/Qw8WH A/kFDnrf4A9pry3ggG78jo8JruAXHw5rv+34/fgPGxLqfxaL/3wfTvNxag/x d7XnI/kNdA7ww8foVXgZnW/7ncV27ccJDqAr42RM+GbgF37R9+5Z26Cw67gs 7KHdt+vg0MJB3azyIzlT+Ao/P9Tj1z+mfaOIT6k7hf/IbdKbCX2pcIRiVX/c FsbY+4vz+C8h3tbjWucFD6MnwTV0xF4jN/RnJKcH3xLnsI4EulLfQb2D8jc7 PjBzrOCM3mPUxNM7CxsPflWXaC84X2fGaOSP2eJF+z/aHr/4TPgWrJOnZzpx GnrE8hmxPzoeOuG7IWPMmdOLEtnU/nv02YJu3BeZw9b5vfZCesSP//LGD6n3 p4bsqx5nTIwN3tJ+keS0uCf2gPks4MEe4rfjR7MWGz2FvJF3xwckHkGHWt3L ugXOh5boH2rjtDeu9tqMrbv16as9SLkOHGH/0JtKs3POOcflRplr0nGgP8AR vIUOQ66ImajHZ/4DnYPe5R62vyW+ETyNzw5uQj3RQzi1usTKn/ovqf4Tof7l eZ7HuLTmGXlEXuA3cM0zgAU5Av/oEur8tTcuvEpekvoibAh1p/S+g37oBeV7 xokMk+/EloAj9Ac8A/8oXVQ+bd9jjjNOYj/GxFjAOb0S0fXYOuiFPuQTPsKO gTNkUHv8EmszZuhGzpycFPP73A/fivFwf/wYngUurLz5uZEs/e7bP59+6OOs +D1Er9jzdYyMF35j/DwbegIPNCWHBT1VPtEx+LHwLzKqvXGROWIzajiQT+wK vi06BBzjGyArrLVi3R/34r7IFPbFvlOJZxHX4Mda3wRfCdjhFfSh9oxFB0Ij +Aw6E2NAK+3zq/1j4U1oxXPYgZVnA7v/fuoYzkJ63Y9fs9Y/+PSL6Z+UrfF5 R+noyyfwoU+AVXtuomcYCzyMDSXPDJ5sb1ze6YAPS49y8r74OsgJvgX0JA+I 7EJzYgH8BvwgzsfeAjv0Im8EL5DPQXejC5kbxK7AP/ASelB7MWufX8YIrdCH rpanilPlE4VV5Sxlg2L0i8mGv37T0i/P+8NTspj3mH8/pe/UJv9P9a7SVOWU 8RE3oJ/Ap/awxjfCvyA+o75DbVXW+x+gMTKGnbM9fm1PZtWB8BV08vv8+vot BnvM5vh4icmKlcc8718JyV+WrOWho68LQjxoaWrtqOYr4XnoiVxid/BpkUFk T3vjEhuhX7Ufrvb5RUaxo8gedOZc7Cv9AqjJhnbIl+2fjVypbFmZsr6sb8uy 6JWSwdh5Sj///VWp/tf2+SE5yuKXGB/Gjvn9dqwPpvhi/OhT6iSIx6AFdMEG 4g8ii9RaYa+gB3LEjr+E7cKW4S8Sx1Bzoe/1IL9DLhL9jG60udS8+iQUm6Rg juE39n8of6b9C2L960LPidErRb8ULmL8prvGBMgdOWXkDdlBxvBpsG/Ipvbv ZWf8+o4C/W5753IOMgVNmTPFx4SO5OGxrdhe7R2f10YonCmZCl2Twp/P3/b9 7779Y+xZ8UMeGEL0sOf48aoei72XAL2FviQm1j7+zNkSB/I7+Xeds2J+hlpe 4NLeuHzaPrlad8UO70JTZJR+K/reB/gCGba9AFUHxOiRRavUeSH58M8rav9C 98nDM3nh8a/3/TV2fAX8FPCJrsS317ni0LzG2s4L84lcEiPQ71p7ixLrac7H 1+ehfsxWVvLQxcdfTDbWln6x+8d4R4+n+DQGj48jPslp4NvrnBy0ZA7+424x OsMT+LzMUaGj0avk/kJ9VVO6KC+/2/9T7+7IQz/f/oV0YB5bEKNLjJ4296w7 /xN/aY9f1l4yLtvjt4is5alp0P+ZE8IHpdYemaevIzZW+wGGeDdGP99upGQg JZNF5S/1/rjUnqXX7W9+X0cLH/Ey+RHwR66b/0Pzp0Xm8Ytsugad/Dn8Q65d 7WEMzhQt8tg+X//6x4u+/yEPb9ndxkN56BniNa4lXiYHCt6oTyLvEu5bko82 RWTPbvhC2D7mX9HfzEMS22fBE+PRLL4P3c/q1Jj/qflrW3/m10/4tLD4TvFU aIwxm8n48OnJ/5PnxB8mXoj1+F0XtfspOrq17dX4inwP4yHfxjwesUrsHUYx /ZmKDWP38I/H5A+b/XHlL3Q8Nt4YvYER/tZ3EpCP/ri1wWu7WZriLzHfQFxB zZj25czSg5YvU+cV0a8x/enbP3qo5ZH1GP+kbGfsHHJktjcu83G58c2fsvYd a1lDy1773vTJeZWKOZbY0KPk2ZnTAj/UGpKjicX2uvvvq0nhR9/ZFuP7LPpZ +dP1t1l083VDSgazeI0YnTkH5q+JvZi30d64uYnn06MFbZp7RCk982pfjfOp p9DeuMw/+7G9j4NYTiLFz7HzfP2Z1T8yRD9fH/j3D9EqLw8ge+QtwQ8+i/bG zWPjmvvGrLmmvPlqs77ErYkpFbaf6CTmBMmVUgvAPFIIFzH5ycvfIXwp3vP0 /2Qe2adfzF7nGUtM/uyOT4B+Il6gTg9c5aWfEsmu9QmdU7HnWb2ac9Mev7q+ Unv8+jiw/4f8uxhNQ/Gh/T0rfgj5n1m2OUWr0PkhHiRPTHzHfBz5R+ZqC8mG WchqV7w090ZsXrsllZKE1sXkekxTPEFeDV+UuX71Y0K5E3s8JE8hnIbwZPN1 Nn7IWn8bo0nsObF5sJgu0d/xDfDv8O2goe3xWwC7jialUp18NHeWy2U27ryj b4bMmr9IlixfJfXm/Jaf2ZvmSNGh5NCp/8SPCemmGH/758RycT6OUvQL1Q+m 8p8pfgrpypj86e73xuX3QluliX7lknw07Q25Y/h5csaA/nLSyf3leyd9X046 6RTpP+AMGTLsIrnl4Zdk5qKSua7Yhk9FThsbSD0GdTYxfyCLb0M0St0jRL/Y /G2ofiJPLiEls6Fx4XdSZwRPEzcQPxCvF4/Ny1JuWCWzxj4iJ3XfRNq1aiWf 2rSn9Nl+B9lm6z7SrXMradu6jWyy97Fy3+iJskKK99dmA1fEf9TNUA/KvFao liBW7x2as0jJgo//WP+XlP8Zk+0Yj2XJnB0n9CNfRq0u+TJqUfw1BfmoBzVW yvxxT8jgnt2lR6e9ZOh1d8rjTz0lT1Tt6e1Xnyxf791Z2nRoL2ddd69ML9C+ zm5+j19qAbJ0XwpfKZr5v+V5f0fM/8xr11I+jf8d3a+9ccm5QL/CvXEtDSur Ze74x2Voz17SZ9Nj5N6XpkhdqSwrVyyV6e89LYO+/Bnp0L6tDLjmD/IhU1CV YraPjblf9AU1xvA7cyR+jJ6lf3x8xfxO/7o87w8IrX+I2bM88pkFC/TT3rjo 9KK9cR1u9UtVf86Z8LgM7r6F9Oj8BTn7spvlgUcekQcfuEeuveg06dWto3TY uKdcec+TsrBB3Dsn1qY/NTLAvCC+MusDQvSL4SBGm5jOtefmjf9C79/MO76U TveP67ofaoe1RzN5Dcvv+bZyY2hQ9V/mThwlQ7bcXDao2r+2m2wkm3Qy9YM9 d5DDhlwnYybPL0S3lj2FG9/Xpz1+mRvx69JS8Kd+z6rJC9Ev1T8yr77Ue6ds XWi8qj95NvXT2hs3a/31mghuCsfLVfkbN0rO7dlFerTrIv0GDZZhp+8rn+1e pV3bdtLu8IvloddmePMXxXuka49faEgttr/+MIajvHwek8Ei/c9i6zdTOtEf cyw3aOmn8kftHvqT9Q/xHr9R8rk/DdXYfM6ER2Voj61l625Hy13/miyLl0+V R39yiOy0YRtp3XFnGTTyUZm+rKIhR+EQAt8K/KCrWMdCriFFvyw6+cdTPr6/ /sjWf2b1L0jJYcpnidUN6if0g5+pN9H5Nc2dFaKf67WyWmaOf0KG9Owt23Q7 Su59+b8uZ7Ligxflp4fuKR1bt5f22x8vtz45rho/NPXBLfi6EOo3yLtg+1gv hq9n+3zk1Z+pc2O0zut/xta/x3yQrN9SfAfsxA+scef5hXvjuq0xP0bfzbnj H3X+S/duh8u9L37oOq6UGlbK5GdvkoP26CptWneW/U67Vl6duqyW9867cT49 CLTHL+uVqOf316ek+Nz/7tu8UA2elb9Y/kzrP1Prb7NsoP/M1Ll6HrDjj8PT 1Amhk1I9fkM90LR3E/ZvXjVOuHTPveRLO58lD4+Z1fhmhqpsrl41Q/527UGy 32e6yZZ9TpFbH39PqIQqqj8ZM7EOfE6NB7rDX8uXkjHrJ4RqfS2u/Hyk6k/m Z/z+Pep/kgNJ5T9j9i4l/yFa6v+h3rjodbWBWbUrtbkE7SFaapCFs2bIzOkL ZdnKhppt5HP10jkya+Y0+XDafFlcV99I8wIKlNidNTT4Lax5gue0z2GIl1Ny F5PRGE7VNmr/JSt/4AofIlb/krJ5+t2vqU7pT+vbcB08pT1+4R/Wk4Te7xbq FV07bs5rfPNXwxrC1SBSo5nS1Z6TFbPQh4a18OhO1qcRu+v69Sz9lNJJIVqF cGf9F2It+pLb9z+o/aNeJ7T+LyaLIdrG5lNC3/FhsIHUKrEGTPuL5q4xq9h3 tjTNr7vzy/YUcb3xVVzdO0Ti9wzVNDHHTJ8r/Czy7dQLaG/VEP5TNMojF/6e 1X9J1z9QP6H1L6m+G7Fj/vNjdeb6u/b4pT6BdXzULjGXq70pYzKnnxUTCKyB 91qOpekcQ7NGtVsJXuc/j3cTMMfF3C3rlli7Rp12zHeJ0WNt6GftX6x/K/qL tfrIJTlZ1onHaJTiqzy6wj8P+PUdRdSqo8eRQfQDNiePfDTKVb3YvvelZmFr Od9eVqrm69PGGFjfojWE1GUz34wtCuUuY/omdCxLPvxz4XP1X1i7qvRjnSm9 neAv1qLqOv8Q3WJjTsl9jI76HVnDD2UNPDEEdRTUMjG/lod2jcelJb1a9FS1 pxr7V073odP+V7bHL2sE4TXbHz2LViFc+nYmdh97PX4B81boT9Zfqf1jHln7 t+P/oRdUBv0xpfgtawx6zJ93Roei2+lJRM8p3juJLqd+PdTjdw3yGRqG+vK3 CNRrfVWb36scs7X0yMLPZJ0na3nJLyB79LnRflcpWQrxeEynpfwG/aSmUtf8 s1ZK5Q+5hO8ZJ3Oo/M98hR9PhmiWGpfvl8bkkF39GGp4L7zwwlpv3OHDhxeq 481bL586l41eZugi9BJxcb9+/dz/2nctFJ/F4AvhKnU8JAvwCzLHumNiZfwU XdfIePCpyKkzTmpQsuoC8vBT1vjt+X5vXHQWMsiY8NttTVqMFqHa+iL0tLRj Los6YuYlqZWg1yv63O+Nm9JRse8+LmPnW97A1wUP5O4OPvhgp6ugHTX+8De5 f3xQekGhI9QGMk47VrtOPUW/0JhjvKnf1RfFH2YulzVI0JCYmd4ewBDC/7pa C8FGjhM+1/7M+Husm8eHYV2Z7Z+Uh0ez6JeSRdV/Gjuwbp/6ZmqnsL/Qjh09 T+8FxoqPhQ1CFrRG3D43VbMa46es33ScOqdE/wf4C1+BXqLYZeJmvpNzzO2X Rn4Pnad18tSf4ovjr7AWl7piYj3tz6zvIkr5ArG6wRAuUjxuz0VfYvvAA+sR iWmYD2FHX2B/0KHgilwWtlL7g2XZ5qw9NGb939dD/K99KclXocfIzdBjQnte 0+8DfsyiSR46soML/AF8AGwdeSDy08gd+VjtaxyK91L8GpqXyLIzofvwbPLm jAvdiY8AzZiPZEePYl+YT8Zecx51clxnY8GUnY3BkQVjbOzaGxc5ZJ6UfDF+ qfbGJc9GDIQ9wo7nypWaDbjBL/fGr9TeuPgH2F56q6Ez1V+xvQJD9AnBmOLd 2Hpp+137NxBX8b4KdCP9xOBv/E7t0Q0srJPC9tAPkPgL/c/8pH2W3jOLTild kaVHFCeMm3ESF2IPySuQY8O/Uv1Gb1x8C9a7YLOQV3QcNYhWxwIn8DF2cr3w KX24tHeI9jmEt+kPw++2x68/fqvzs+QoRF//N/9+li8YL2ue8KPou4FeBD7t 36A6hP+RQfBEjpvzwRU+l+3LGJPz1NhSMpcly+h1+IrYlbHjw9MvENwjM+SM wD+xBjxK7196n9HzjFiIvrj09cHmY/9Zj817gbWXLLzAOnvOx95S04nM46v4 MbryVwj2PLXyKZz59wLnwA0/YdPw4cjhwdfwov/eJuwgvhc2HBlFj6BHgZ38 jPZjDOmPEG2t3QzRNA8/6Cd2B3uHPIBb9D92ETrCY+TkqcdEv6R6/GI/1Z/l XVHQmviSnAXzLuhLcivgTXPToXHnlbdUbb1/jf3Odcg946K/HvkyahTQQ8wh 294p9p3gHKefDXjCJqBT4GvWwoI35YvYmPPYAbtnwWePgUtkETriT6BX8EXx y6iJRh/Sj47cN34INVH4j+x8p78W8ocvBN2xnegaYiVgQ76151loTjYGQ0w/ hvbQdcrn+smO3cdWEMuRK6O+WfPSzPepbQjZdH7nPGwJ+CBvBM/iL9B/Bd5k ftCui9GxxeiR+j+U48nCETiGjuSxiPfJv+Mn0ucMetJLkB37za7/8xtzxdAM +JA1cEUu2r6zzOqQPPSJjVvvYe8V6j/Nrr4+ugXZQcdjG5iToY8lvKu9+y3d rPyxaTzIvbA39JUil4XugZfx3ZFj27vY6larN1K8m5LflG1QXKg8ag9R/Bxk SHv9IlPs2G8+tR8k50Az7R+udPNjcj9uiunPLBkLnatypn2ceRZjwyagI5A5 aEefYY6hS+fNm+fiBJ9e/v9snMd8M3YH+MnbIMvE/thE7kuMj82Ah/VdZ4wJ etqecbprP7k8u38d99Tj+Fj2/qoLFNfgAlrou9+hj98DUvlLeyrbe9nnx8YT Oyf03R+/+oL6PjB0AbocH5O5M/xGjWHQHegZ+u0xTxuqjfXpp/4ocoi8AjO8 wZwlOpT138S42ruYfuvnn3++6/uBD09NueqtrB29YP8n7+kf12P+d/88/c4n 56Hr7U6cx3H/HqH76v+xZ4fuoc+159jn8ckYsNXMvZLnobfM7rvv7vwTZA49 x3tq8TPR7/Ad/kqIdqG5bN8WomvRpfAOdg//DJ9I6Uguh1gxz3sdQu9N+L++ W5hi32M7/M+Ob0EMip3D76cOAf8MGYV2xOmpd9Vm5YGhIT4Na0/Rp9gO/D70 Mu/NYs0l/h3vDYKm+Oba+5a5A7vrcf0t9L89V99JGfotdG7oWGwMofP8ccW+ h+CLwWF39CPxJnP51EAR+9BLnbgTvwVbhF5FzxLLYcegXcjGWV2ZtXEPYgvu CR2xIRpTk6ewPeR9nRjTN6njRfeUTvR12LoaR95r7PPBDTgiFkDO7DtlkA1s OzYLfUmMEKOb3fKcY+nIfZFHnoNPpDZZfQb1Fz6pHd8s72/aS3t9PzdrVz8K u4RvAi7BqcpbkVz8/wMjNjkp "], {{0, 162}, {112, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{112, 162}, PlotRange->{{0, 112}, {0, 162}}]}], ";", RowBox[{"Leg3", "=", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzNnQm8TdUex00hSpRIHqU0vlKapFLRy0tRGcvQgCZNFKXIEA2USoNMKTNF Gl6iG6IiyTxHIZKZ63K54/m//V33rHP33Xfvfdbe91y1Pp/luGfYe63/+q// +PuvXaND52YPFStSpEjX0tY/zdp3r//00+2fb17C+qPB890e7FDc+s8Eq9e3 Om9KgBaJRIJ8/R/ZvOZgMjfnd/4p9NDj4NVvTGHm6PbeP2XeYZp97PHmaqcr LTs7W44cOSJ79+6VP//8U37//XfVf/31V9mwYUOs87fuzvedn9vfs383SNfX Wb9+vfp748aNsbH99ddfsn//fklPTzemixctDh8+LCtXrpSPPvpIOnToIJdf frlUqVJFTjjhBClVqpTqJUuWzNf1Z/pz+6vfe27XcLu+1z3Lly8vZ5xxhlx/ /fXSuXNn+fTTT2Xz5s2SlpYWd+7OlpGRIb/99psMGTJEbrzxRjnppJPkxBNP lAoVKkilSpXktNNOc+3Qx607P7f/7XWteNe0X8t+nVNPPVXRomzZsmqszZs3 l6lTp8quXbskKysrLj/wf763bNkyefLJJ6Vq1aqKvldccYW8e889svH222X/ ZZfJgUsv/cf2PddcI8tatZLn2rSR8847T4477ji55JJLZPDgwbJt27Z8e92N HsuXL5fHHntM0fTcc8+Vsffdp677d88tTN/WsKF0b91azeWiiy6Sd955R8kK P17YsmWL9O/fX+2p2rVry9y2bf/2eSSij7j3XqlWrZpcd911Mn78eNmzZ48r HZCh//vf/6Ru3bpywQUXyDTrd3/32BPV4eMXrL2B3Ght8cWiRYtc9f4ff/wh L774oqLXvS1aJJz/f2/SRL6wZAr79NZbb1W0htcuvvhiJW+Q5bdb8ubldu1k ttW3/+c/Cb3/uqZN1X3YEx9++KHs27cvDw2wAX788Udpan3vwgsvlBnWWBNx 3xUtW0rXu+9WOhX5il45/vjjlZwtUaKEFCtWTIoXLx7r6Dj07imnnBLTccji LRbNCjoWZDm8wBp36dJF6T27fEQXfvHFF4pON9xwg2y+7bYC3e8HS440tOQR uol5IpuR0Xdb9EDesCe//fZbWbhwoSxevFjRf/r06Wp9XnjhBbnjjjsUDfRv zzrrLOlo0ZO1LMi4WFtogL5csmRJPnvg448/VnIAPt1l0T/MPVivLtY8GTPr fc4550j79u1lxIgRMnfuXFmzZo2SywcPHpTMzMw8e5IxJCcnK/21YsUKSUpK ktdff10aN26sdD78gY57z5JTfzVoEGp8S+66S84++2x1zQULFuShwdGjR2XM mDHq82bNmsm+K68MfP2vLBpfddVVUrp0afn3v/8tzz77rMycOVO2bt2qbG2T 5pRTKSkpsm7dOpk4caLca82d/QQt/mPJikUWrYOOcY21/ux1ePSHH37Ic19s 4lGjRkn16tUD02C3pW+0zMWevM+yJ7766iulf7zsMrf5Ot+3f46ty/4dPXq0 4lNsVngM2yUIDdhL8PrNN9+cjwaHDh1SNDjzzDMVDUxtwZ2WHY2cZ9+zf1n7 n3/+WVJTU43WPWjDD4K3HnjgAbU/4NvxAXQ4fAANNB/Y6Q0NPvjggxgfmNCA PYmcOvnkk5UsxQbbtGmT0jGF6WMjR1avXi29evVScpZ1G2NIBycNdGPMQWmg +R/f5Nprr5WxY8fK7t27j1l8gT2GPfPaa68pex4Z/IWBPveigX0vwM8mNJhg 7UPof6n1/6FDhyqfzLmPC5serB1xg+eff17+9a9/KXm82JL7JjRAHnz//fe+ NPCTidznSutz+HDQoEEqrnIs5u1m22of95FHHlHyAZ2HnxRPJrrtBXSQfS94 0QC7oYNlRyMD8a2J4fiNs7Ab90OvY0s0sWxx7MuhPrLBZC/Eo8F06/rnn3++ 1KtXT/lX+Fl+McdE08SL35BFxAeQDfiGXvakn31gl4nYkW7yAD3Y/M47pUaN GjJgwADZsWOH5xiPRbPfi7Ug7vHwww/L6aefLm95yEcvGjj1ghcNkixfjt// 97//le+++y7QfKPRWX1H/Ua+70TUpxnqP9kRcf2eV2M/Y0NhTxP/W2XtWb+9 gEx02gdaJkID517QPhc0wg4idmtOg+w8r9mxiWVH554dnbDt+1EyZRoQQY8D fwP7rK3lrzGPCS42pIl9oGng5AN8IX6HLhg3bpyx/Z+fFtmx9VZjj0SXOhKl U8Tx/YBbC7nwyiuvKB3xuKW/nGvppxfi7QViGtiCt9xyi8ybNy/E/PXNIpKe dkQOpxyyfMcDin+TDx9S/kpaeq59mUOnHJoFaeiICRMmqLgMMQDWPQgfaL1A HMVOP+gxyJIx/LZTp04q3xCkRWzzSE/ZK+sXz5LpU8bIpEkTZOLYMTJ+/ESZ NGWazPjue1m9dZscSsOnjv04UEM2EpfATiBelOSQjV58EM9GwiYg9sE+eOml l5QvbP+tARFi303ZvEImvdBO6lUuIcefWF4qVKoilU+tJOXLlpayJ5SXhm2f lU+/XycHjmQZ08A+Bm0zkQ9y8yOcMlG3ePIA36hRo0aKBsOGDZMDBw4E1Am5 PJ2ybblM6tVS6lQtKefXu10efa6/DOjTQzrcUlfOKlNSipe4Rjp2HS/rth2U IGrBPh5i4926dVPx9FetPezFB162spvPtNWSAegabCNiGc68lSEhYjT4uFcr uaFmVbnl8Tdl5updlnzdKzuWfi69HmwkJUpeLG2eGCZLt+xVqiJiKA/sNMB3 IV5H7BK/Pqg8cOMDYovYhewv8nd+cRH3ljuPlG2LZVLf1lK3xqlS9/4+MnnO Wtm6aZUsmPaedGxypRQrcbHc3Xm4LNuSrDRI0DvRiDEMHDhQ0YC4nn0ufrYy cpm9QLzRKQ+IiWN/QoNp06Yp/91J+3hNf/XQ1uUytU8rqVO5iBQrUlTKlKug 4g8nli5m7YPSUv7clvL8+3Nky94or4UwO4lJQgP8+nssmWhCg3i6ET4gxs1e QO+gfwK1SK6uO7h1iXzS926pUyWHBkWKFZXixYtKyVInyDl1m0qPD2bI6u2p kqkYINuIBG6+A3sB2hLXs88liH1g5wPkAf42/sj777+v6BycBrky8ZM+LaXu GeXk8pZPyuCpSTL/50WyxOrrNvwhew8y/xyLOWjTOBRiK9iy2El9LZkYhAZe 8oB8D/sDvQB97blbs8Fl5dDA+knytpWWXrhLrq1ZXW59/C2ZvWZfbPzM225H R6L0C9KYC3F54o3sa6cfHS+GouWB00YibtaxY0fFB48++qisWrUq2MBs9nHK tqUy8YUWUvfs0ywavCPzVu6VLPuS5zpODj/LrGEjzZo1S9lI7F1nzjSe7+xl I8ET+B/Yn7dZskHTz5QX9HoqGvy5Tqa90lFuvKSaNOrytsxatzeHh9VXMnJm rb6bmetLxLu+bRzEsydNmqRifFdffXW+HERYGtDJGxI7hY+Qi8FshFy/MSvt qOzcuErmz58ti9f8JrsPZeVwSURsciM7d/7ZhnSO0gHMFD4Tca4777wzX1zN K7ZO85OJ2lZs1aqVyvMQwySG/k9qOraI79zOkoM6juL0/Uz9BTe/cW+dOjLS 2lvEsPEd2Q/IH/1753gSPT+Tz/FB8evZB+S5ZzvsZNN4ohcN6MRl8Ef5DvFk Zzz9WMbWndfGbsOfBUNUuXJlecjau+h0UxrQTHIs6AewABoXQE4xDOatMJqO qdasWVPxQZILDwSRiW7yQHfwXjfddJNUrFhR4RjASLq1Y0kL1mH27Nkqtl6u XDl5zBqjF2bDJKYaL8fC++R64Sfyvm+99ZbKsWjZUBjND0vKHiBeQGwH2/ia a66R7x2+YlB5YJJ7h8bdWrdW+w480fDhw1WcvTDzCm7z17m2nj17qlwbNtGH 1vr44UfsfOAXP3DaiW4dPAc4gDJlyii/GnnsxLslkg7Oa6EHiZWAU8F+ZT2I e+Pj+o3biwbxfCa3jq6E54itgIcg30nuHWywsf0YkkbMH3u9T58+au3xjdpY YzHBKvEdfuNFA80HXrrRTU+gg7ke2GDyT88995zC/tlj736Y+KD0ID5CbvHB Bx9Ua0+8jHwCettkzF45FjsN3GIo8egAP3BN+EH77CZYnCCNmAU8xp7TexDd BAbEdP4meiEoH+gOlpNxgAtGV4A9BJMFTxDnJg6N/jLBSjsb4yK3PXnyZLn/ /vvV+MC7kU8bFMWQm44zqF4Ig03HLsNXBTPGHgVvyd7Dl0fWwHtgzMDmEbsj N+bESGpsHvsdnn/zzTcVVhEfiOsRLwfLSt4gDI4VGmh5ECSGEqSjl+AJ9iv2 GnKCsjHGDw8iu15++WUVn54zZ47yccBK/vTTTzJjxgyVMwWjeWc0vw12FZwm NMVOJ2b+q/VZWByxaSwtLD7RrjNYI/Aq4DTgC+YDbg/sIh2agD/Vnb/B7ur/ s9+RLYwXPphs8RdriP9akLF55RfCYLJMOmNlzOxZYhnIB2R4A+u9y6zrQxf2 NnwCv6DnwfiQz0GugjvDNiemGxY360YDZJWfjWSKyQrDG9ADGxOasKbgOOrX r69s/LssnnnvvffUGLBz+B6YD36XyHGYxA8SyQd+nf0MHYjNsUdesvgDmcqc C/PemgbgSPx047GgAZ04FzKefNDIY1Qv4odD0XjlwtoLbp19Dh+AJaPWpiCy LgwN/DBZhUUD5ADx6YctOYeeQwYi/4sWLapsPnQpYyNP+qVFk0TUbYSlQUHs A2dHHzBn4vLMk72v61icdZ7oRfQDne/hCxAfH2T5JPH8wYLSwBSXFqTjS+FT ouNZZ+ZHzpaYL/lQ6kXAn2NLkxPBXsJGAvdMTVULy84ifqtrffBjWlvjIsZf UBpgqzmx+4mkATYcOFbkCuuLLibGQ+0O/iQ1CMT+iAGTD+G+1LTwyt/8n3gM tcuMESx0S2ve8AS2FeNHh/zpg8f16+ui9VrOXJubzxRGPk219jC+DGNlb+Pf g9/CP/DKVeNX0u1xafsexQfHX/zss8/koYceUv4Ce4W4zVyPuGk8GsTbC7re KQgfYMuAg2O/0/EV4HFyPnbf2SvW5hc7sGMPySezh7CdkRfwmh82OYw8COM7 o+OReeh45DxrT4wzHH7Ru2la4FfCW0888YSqHWK80CFI/MDPXwi6F7DrWli8 xZrAm+zdwHl5g3k7G7xFTIG8IvoG3h1syA/xMFlaJrYwiMvgw3S29B6xI3wg YhzEuQo7tmy364jpk1dB7rIvJhvQwXQvmPjO2LbEs/Hz+J2OKfvlAsLM1fme nQaMG9x03759lawkzj/fJ7fgJxOD2kjYPeh6cCnvvvuu7Ny585jnG/X1kZXk GZEPxFiZm1+NrgkWJ548wP+lhoH7PfPMM0rfu807EXQwjTsSq6SGltgTNtkg H51px+K45VxN9ALxQtaf2NDXX39tjsWI2F9sePQ8Kbr8GG1TCqKHObeEWCH1 9G61C5oPvOLKJvVMxMfIa1JXSX6HPWDWdJ2Ckx42vL7nZOPnMeEL8o7EYcm9 g78Y4IK/8KOBm9/oRgNqmeAjYl38PnieNTuGOcr/fl5SxPg9wFZiDtjk4C/A lLr5FgWpZ+Jv8gfo4h49eij71bTZMccag2ev58hDgBwQkoTBJyIff/nlF1Ub zjjdaqG9bCQTGuDLI0fC4LbtGLtczGE4/GG8ho5+9dVXY1gUZzzSVDe6xVDA dRALBvcXHJuXu+8jGelycF/OeVt/bN8pB5IPS3pmRh5S5L2qmTzQDd8Tew2f DdvVtI4lXkxV17Gwj/CDkT1BdV4kO1OO7t8uq39JkjHD3pJ+vXpI7z79ZchH U2Th8o2SnJoZ/WKW0by9GrIRfw3Zjf3orGPxih/E4wPsYnB5+EQaqxto/ta8 9v+5XqYM7S0NrjxHSh9fTipXqiqVKpyocOu1bn9YPpz+k/x1KFMyYz/K82Lc 8CXA6uK7EoP50CET7DTwyy84bSR0Ing87AIwJ0Ex22kHfpek0X2k/mVVpfSp 58qt7brIoCEjZPCLT0qjq6tL2fKV5KYHB8gXS7bL0UxHDMHzqjaZ6mhgM7p3 765ylC/71LH47QU33Hr4OpZM2bn8a3n93hukRqXq0rDTQJmz/C9Jy8qWI3u3 yfwpr0mnFk2l3dMjZfry7XI4IyMPbjeP3jBsduw+usyEBvCPn89kr2OhhkPH fcxaqqyfM066NLhSapxZS54ZMlV+PZiZs4LZ1kzTD0vK/n2SfPCIxQNZOcur obsRJ2A5r06NeNCGeivORaCGo7OjjkXbSCY5FmcdCzRAxrjX8mQ7XqNNTeGA /P7dBOne4AqpWfMi6Tnyc9mUnJGrK6J45ByrwSEPo/hlPdUYdNlDVuh1gQa6 lserjsVPHrjtBfiAfAC/ZS/kP5fRnwab5kySp+pfbtGglvT84DPZfCBnfanj RVempCRLyqE0yciMrnEk97rZGsgfoIGf7devn9oL4Ofc+MAkfmD/nbaPkInE iqCzeUuVP+ZNlh4315Fqp58j9/X9SJZuO5xz36O7ZNXMUdK9Q3vp2HWIzFps yYO0o3L0aKoc3LNP2Q65ta95bcdIxPscRGRirI7FceZdELyyUy8Q30Y3Evu3 13jGb5mSvHmJTOp9r1xRpbyceVEzeXXoTFm9aYus/eFLeene26Rm6YpSu0Vv GT1nrWxavVAmv9RNWl9zpTS9u4OM/mK+7EhJi9a3RWvJYgPPfzd7jaeONZr6 jX7yANwVdUFgjThfAP0bqGUmy/pvRsnT118qFYoWlRJlT5Eq1apL1VPKS6ni RaRMxUuky8BJsnjDBvlkSD9p3bildHumhzzUsYW06dJTpi/7TQ5Ga7zyy8i8 diI+g65jYb2d58TEo4EfPnGKRU/0AjlS4hVuzTtukmMjrk2aIP0fvE3OqFxG 4S6KFDlOql50nTzRb5T8vO5POXTkgGxYvkDmffejrFy5QEa+0UVadeosUxeu lZRM+41y5p8jK/PKCmxlakywlYkjuNWx+J0R5ecz8Vv8UfYD/qlJ7Nzu/6rx ZhyVPVs3ysIf5qo829dJ38rCxetl295USY9OJSvbko0Hd8qKKe/Lk7fcJU/0 GiNLtuyX9Jg/GV03ieTxufS9sA2oyUYWwM9O3Jb9nCzOqfOigVv8gGtR900d CzG0YL6zwzVWsj/LxtY2Hk/bJUs+tebf4A7p8Oib8u2SbXIkM/dCOXZBVuy6 9lof9BXn8IH7YpyDXfL5pvFENxrAF9je2OD8nrNA/GIo9v0Q0292vR4liJ1X 0tMPyOY5H0m/prWlfr3G0n/4NFm6/g/Zdzgjb+2brndybDnmwBnItWrVUmc1 uJ2DapJj8atf4PfkEqATPvr27dvz0cHVfnSYe/ljaqLq2A7vWiWj+neQc8sV lbIVq8jFV18vnXoOlFkrt8hBHX6KrXve+yILly5dqnKS+gwMt7ys9pmwE8Ng ttEPnF1ILJ86Fs4G0r6Df24l27YPct/L2RMRXcwnaal7ZcWiuTJu3AS1nh+M HC5fzpgtv+5IjsoDZ8ulA7FN8i3EOv3qWEzjiX6xdWJ0yBNsMLCH4E6dc/fi hZidY9sD+u0syXaho7aLMvMQMO/1c85BJ2ag8V3UsbjVMvnFE4Ng94lNkdPS 57S98cYbKp4QD5ud6w/Y5pdH1uf+HclnB0he+Wnjq0zLvgbnit1CzpsazB98 zkM2iakiD+LlG7GdwU+DiwBvQB2423lR+ejgUgNXkMY1qKcixksOmrlx9ocf njNIPNEv3wh9dB0L2CJqiDiHFF8lSLw9TH5Wfw++I9eIf0gtGzHUXtb6x8Nx JYoGek9Qt0C+CZwp8VYw5ps2xT9DMuxnuqEDiGmC5UUGogeQAaZ1LPHOU41X 22fvYE3RweRcyMFDv65duyoMupsdGW/dTXKU5NS++eab2FmirD8xAmf82IQG fhiMILh1zQ/EG+EHff4GZzVjt+pzQ/yaydqjg6lhQ2ei28E12uuYTHEofnvB yQdB61jQmfir+JZg8Ik5UWtAXhZ/XvNFvPk6eYG1Qf9Sw0P+iFwieDdsAGxh cHBBxlqY9QuMA3kENo3rw6NgC6EJOHx0B/Y1+xicGjleO48wZ+x9sCzQjHMA oR8yD73PmoNxxD6j9nCmxWt+52X+HTTQHYwaNQe6jgU5gZ+szxonTwFuBCwm viO+G34Oe/PLL79U53FztgA5EsYCHenQlNi2rmMJW88Qr4YjUbh19gZ2mr2O BZuKGKfG5rJfdJ0Or2BZeY/Od/S588QswOJR34Pcw39NVB1LIuva/OQlYwar Tf0ndSztovWQ6FL0GrINPoFfGBv4ZOwOZIvC+Vl8Q1w7UfUcYc/FKWhn3fC3 8OOYD7zMvfA98UOZP3uEOhbO3edzYtnQj98lahxB+KCw6xc0TeBtXSOLz4tM 5f3CrGMIG1svrI7MIPaJr0cs/Fjc07Tm+1jRgH3B3kf2cZ5Eouu3/GgQNNeW iA5NuT9+Hc96wcfF1wHjjkyEF9AB1Llh+4N/K+izQLxocKzlAbjRe6L3Je6C Pc3+Rx+4dfxQ9CJyktw5cUHqFZCTiRjPsdQL2HGsNeuL7td12sQdwPWRv+YM E/YkYwGLTn0zuQFqgdET2u6mE6vATkBXJoIPnPkFe+69oDSAztTcgGVm3uDK sZM4v4uYJ3Ywvh/3o66DnAi+hO7Y0MQGiQ1gP44cOVI9Twn+xLbC1qTmK2y9 V2HqBb4/OXqmGnscHib3O3/+fDUne427vdljDW6+NXShdoPzFDivjvpg9hJx GyfW6O+UB2CYwcHhN+Pb8BwA/CP8H7e4UhBsu4674U+BZQP/wPiQK4z13YB0 iBdXDrMX0PHUcDEmsDr4Q+Rk48VQ/Obr16j5YuxPPfWUyiWBxXwvRB2LxmDY eTCMbmT+yCnWH5wKexe/2OSsE9N4mltNAD438RT8anJK0MLrnH1TmRjGd8Z3 pY4JHca5WTwjkuefee3veHP3kwlujfuQ58LHwK5ABps8nyeRMhFsA9/FzyO+ BUY2bIzQb87x6EDuF9mLrET3+uUW/GQi9zF9Fgmd+8CDxMuoGXB7Ho392oVV z8J19VlJ2NrYEPC4X11wIuqZ8GepF+F+4CDR4/YxHeumdQbyjXHjewzwkQ1+ cWUdU413PtLUaJ6N2BAxbo1Rc9vHhckDzsZeJGap4zBeddFe2DzTOBIxEOKb 7D3OkPR6HqizJZoObtfTz+6itgv56MTo2mlgknP14gOey4cNAB2IhZpgD44l L8DL+BvYqOCG3HwLUzySm17QdSx8zll9flicgubSwjZ4QdexwAtuz3CLZx/4 6UZ8FOwA+MiO2zaZ77HkBfwxex2L8yypeHhlv70AroM6UmJfzrrAIA1dBs+C dcWfwK7an3xAklMOSurRI5KZXbAz5rDRqWPBVrguGrN08oHb2YHx/AVdx4I9 EO6scZ1PypaU3Zvl55mfy5ihw2TYsPcV9nf48KEybNRomTTlK1mwbK3sST4S w+oFLeKwYzRZbycmJ+xZINjFnOGkn8cStI4l9xjtdNmx8jt5sU0j+VfxUlLu pIpS5bRqUuX0U+WUcqWlbKkSUuO6u2TA2NmyNfmQwq1kSfycrbpFdK/Zz5wn L+esY/F6jqfdPnCjAXYR+we7gFxYMMx2jAyKBjuXfSMD2twqZ5evJc0e6CFv fvCRDH//DXn5mebS8KqTpWzRItKkQ1eZvXprlBeCYdahBfEG8nXE4tyex+J3 HooXdh95CHZf17Hocz3M69qic4mky+4V38rLrRvLFWffJW9M/FF2ZGZJelaq 7NuxTEb1bi+1SpaQG9s+KZ8t2ySHs8LJUY1VxWbs7sDum+KR3OoXwOLp57GY YAry0CAGzEuTHSuS5NXWjeTCilfLI8+9LZ8mzZXZSdNl4oh+0qrhJVK25AnS 7PGesnDDToXLDEMFew1HO8czKIKcBeL2PBZ7HUtwXZcdkwcD2zSUqkWLSbFS ZaX8SWWkVOniUqJ4ESl+4klSq0knGfKlxR/JqaEIwLigAefRaTyIfS5+8iBe PZN+HouzjsXIJ47SQNV3rZwtA1rfLDXLlZd6N9WXFrdfJeedVlyKFC8mp9Tv KAM/XSI7UzQe0ex5LM7GXqDOwmsvmNDATR7o57EEr2OxtwzZvTLJosEdUvvM xvLahzNk5cZFMu7V++TaakWlZNkL5J7nhsj83/bnyEOPWhW/xppgw5K7w07q 66Ib/bC6dr/RqRd0vJ94IXI3SMuM1SRlWvJglrzS9japXeN2eXPCfNlv6fOd 6+fJe480kQuKHScnVW8k3V7/SjbujNqhAWnAPiWGr59VNsKljgV+jpdrc+pG VcfStq3ig1B1LEomZqmOTEQ3XnZGExk0er7sTo9I9pH9snH2OOnS9DJLLhSV 2k0flUnzNsiho8Fxi/qZdWDlWO/PXGgQFoOh61jAnxE3d97br+XW7FlrvnqW vNa2udQ9524ZPP5n2ZORU8twNHmTzBzdRRrXLikVKtaTp176TDbsTA0Ug+NV 17GQ5yAH4axjKcg5WZytQexYPWN97FhllxtjUmO6MVsyUg/K9nWrZdUv62X7 rsOSoT+LZMiR/dtk0+pF8tNPy2T9hh1yKC0r0LPKoIGucSXP0TyK3QkTS3Oj gb2ORT/L1L4G8UiQ811b/Ul07uCz9bPptP6IZGUrHHvQht0CPpTcHL7zYJe8 Q0Fy71yL2DV8QByNfGmws0B0NUskRpQ8WPSYT2E7IyVby9L4TceFwfKwZzm3 ya2OxRlPdOZYyJH4nRnH74khQCdyw8bngjkx+rZahRiP6BqFGIRfj82IBCqe QV0jvhJ+AhgGt3O4TbG6XjQgHkFeAXuavDp4QpMa+Lw1qdmxPRDJ83cufXLe 8q7td2vENolxEuskzuFXx+KXXzCJrSMb+T022OOPPy5r1qxxzLdw40VuMSn9 rHN0Fj4CtUxh61hMzsni/cnRc6L4LngKan9N88um8zR9n5gJdSzgYsG5oLv8 zkyz+wte+QWTswOhMTgI8NPIH/CXJnUseh5B5uj3GTYheG70FDkffLrxcepY dCzNqRfC5J2JWxNjBztUp04dlXO006GgeyJe7lHXsXCGInhXaIBvEKSOxQ+b 19SgHgAazY/WsZB7Bp+t61jCPHvDK9/slsfEDsBep44JnwDfqKtlu5g8j8Lv uTz2vWCKQ9F0AGMO9gq9CvZowYIF6nphml/unb+JQ0+fPl1hu6hjo5YL/9j0 eRymz/UNWscCHYjjErOgY0+COwOPETTm5DV/ZD+4C2wYbBT2IPKI805M6pjc aOC0kbSNhX4NitGEDuhMcITIG/Bj2JPgZbAh2B9Bzpi1z59xcUYkz+eAtvA9 1wf3PjQEjpNxMkb0qFvdO/Uy6DxkHVj5INfW+oJz0sHfMlbqNqApNUfoDvLU 1KdgX4Ircj4j2V7HsnjxYlVLjD2KDMce4XpgW4llYAeHeR4LfiQylDniWzhp QH4GG4u4WdjzzdFL5L3JxXCGH3KCOg1wltTFwmO9e/dWPMccOU+C9cDnZ/+Q P+dsAfx/9jr4Tn4P34PzB/MAZjUspn96FD+D/ic3qRvyAF5lnfQZGl+FwP7Z ZSV4PWgxIsoXyGJkGNhC1pO5Ub+Scx5GTte0oo4FXYO+Y01Yd870YO5cNyx+ lN9xTg70JEdvr9WmYfez76gXgv7g7RJRP8E12CPQg7qU9u3bK5oQ3yDOwd4j PoWtpXkQPUO8Crwv8g6eD/scHntHHsKb7IW33347n13HXgRPSs0u8oZxTXY5 gzFsZw3YJ8wHOwZZhj6jc0/WmP/zPjRjvRMxb925FjYEvAivw/PEnOwNuwYZ jJzo3LmzipWAu/LyvxJJG90L8x7EU5gT64uPs3bt2nxnXSEX0cHodGwQniGE LEaODY1jg/+TO3xFLIGYgn6mHlhwfG38LWfTvEB8/pNPPlH6GN5BhsET5C/Z U4nk0cLorNdCS/bhQ7OG2BPIAGQd8S90M3asm6/Le1pHc6b7559/rmq4wTMg z8Gj84otiJ+q7UKvji/vfHW+5/a+13fsr+hc57105zP0CuPlM2pD8a2Ih+Nn kSNinl5+HXRgT8Ar2KZg75FZ+Kf6GerMH/2ln6GSyO58hlm8953foRYGnYoP hy1Czo0cKTYXuSE9/3ixUPYE9gLf53foTOpMsGmwo7AnoQv+sknHznX7v9d3 3N7nVXevz/T/Gd+UKVPU811YQ+wAsM3Yps46Cj8fHzpgM7BviNlTO8DZ6uwR sDj4rvYOnez/t3fn9/zes3+GXe12Pa976b/BKTJO5BrjZm+jB5m/xpQHyV/x G34LX0BHzlLFfwX/xX4J2oP8DtoH/R5jo8PDrB/riF/iNm/7e/8HCSX/2A== "], {{0, 165}, {65, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{65, 165}, PlotRange->{{0, 65}, {0, 165}}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "PPoly", ",", "PMono1", ",", "PMono2", ",", "NoPPoly", ",", "NoPMono1", ",", "NoPMono2", ",", "x1", ",", "x2", ",", "x31", ",", "x32", ",", "tmax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", "10000"}], ";", "\[IndentingNewLine]", RowBox[{"PPoly", "=", RowBox[{"Equilib", "[", RowBox[{ RowBox[{"{", RowBox[{ "a1", ",", "b1", ",", "v", ",", "d", ",", "u", ",", "m", ",", "k", ",", "R0", ",", RowBox[{"freeparams", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"freeparams", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "tmax"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PMono1", "=", RowBox[{"Equilib", "[", RowBox[{ RowBox[{"{", RowBox[{ "a1", ",", "b1", ",", "v", ",", "d", ",", "u", ",", "m", ",", "k", ",", "R0", ",", RowBox[{"freeparams", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"freeparams", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}], ",", "tmax"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PMono2", "=", RowBox[{"Equilib", "[", RowBox[{ RowBox[{"{", RowBox[{ "a1", ",", "b1", ",", "v", ",", "d", ",", "u", ",", "m", ",", "k", ",", "R0", ",", RowBox[{"freeparams", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"freeparams", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}], ",", "tmax"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NoPPoly", "=", RowBox[{"Equilib", "[", RowBox[{ RowBox[{"{", RowBox[{ "a1", ",", "b1", ",", "v", ",", "d", ",", "u", ",", "m", ",", "k", ",", "R0", ",", RowBox[{"freeparams", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"freeparams", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", "tmax"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NoPMono1", "=", RowBox[{"Equilib", "[", RowBox[{ RowBox[{"{", RowBox[{ "a1", ",", "b1", ",", "v", ",", "d", ",", "u", ",", "m", ",", "k", ",", "R0", ",", RowBox[{"freeparams", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"freeparams", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "tmax"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NoPMono2", "=", RowBox[{"Equilib", "[", RowBox[{ RowBox[{"{", RowBox[{ "a1", ",", "b1", ",", "v", ",", "d", ",", "u", ",", "m", ",", "k", ",", "R0", ",", RowBox[{"freeparams", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"freeparams", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "tmax"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{"x1", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "a2"}], RowBox[{"(", RowBox[{ RowBox[{"b1", "^", "2"}], "*", "R0", "*", "k", "*", "u", "*", "v"}], ")"}]}], "+", RowBox[{ RowBox[{"b1", "^", "2"}], "*", "k", "*", "m", "*", "v"}], "+", RowBox[{"a1", "*", "b1", "*", "d", "*", "m"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"a1", "*", "d", "*", "m"}], "+", RowBox[{"b1", "*", "k", "*", "m", "*", "v"}], "-", RowBox[{ "a1", "*", "b1", "*", "R0", "*", "k", "*", "u", "*", "v"}]}], ")"}]}]}], "Code"], ";", "\[IndentingNewLine]", RowBox[{ StyleBox["x2", "Code"], "=", RowBox[{ StyleBox[ RowBox[{"-", RowBox[{"(", RowBox[{"a2", "*", "d", "*", "m"}], ")"}]}], "Code"], "/", RowBox[{"(", RowBox[{"k", "*", "v", RowBox[{"(", RowBox[{"m", "-", RowBox[{"a2", "*", "R0", "*", "u"}]}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"x31", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a2", " ", "d", " ", "m"}], "-", RowBox[{"b1", " ", "k", " ", "m", " ", "v"}], "+", RowBox[{"a2", " ", "b1", " ", "k", " ", "R0", " ", "u", " ", "v"}], "-", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "a2", " ", "b1", " ", "d", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "k"}], " ", "m", " ", "v"}], "+", RowBox[{"a1", " ", "k", " ", "R0", " ", "u", " ", "v"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "a2"}], " ", "d", " ", "m"}], "+", RowBox[{"b1", " ", "k", " ", "m", " ", "v"}], "-", RowBox[{ "a2", " ", "b1", " ", "k", " ", "R0", " ", "u", " ", "v"}]}], ")"}], "2"]}]]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "k"}], " ", "m", " ", "v"}], "+", RowBox[{"a1", " ", "k", " ", "R0", " ", "u", " ", "v"}]}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"x32", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a2", " ", "d", " ", "m"}], "-", RowBox[{"b1", " ", "k", " ", "m", " ", "v"}], "+", RowBox[{"a2", " ", "b1", " ", "k", " ", "R0", " ", "u", " ", "v"}], "+", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "a2", " ", "b1", " ", "d", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "k"}], " ", "m", " ", "v"}], "+", RowBox[{"a1", " ", "k", " ", "R0", " ", "u", " ", "v"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "a2"}], " ", "d", " ", "m"}], "+", RowBox[{"b1", " ", "k", " ", "m", " ", "v"}], "-", RowBox[{ "a2", " ", "b1", " ", "k", " ", "R0", " ", "u", " ", "v"}]}], ")"}], "2"]}]]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "k"}], " ", "m", " ", "v"}], "+", RowBox[{"a1", " ", "k", " ", "R0", " ", "u", " ", "v"}]}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"BMPoly", "=", RowBox[{ RowBox[{"Total", "[", "PPoly", "]"}], "+", RowBox[{"Total", "[", "NoPPoly", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"AvgBMMono", "=", RowBox[{"0.5", "*", RowBox[{"(", RowBox[{ RowBox[{"PMono1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"NoPMono1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"PMono2", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"NoPMono2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"MaxBMMono", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"PMono1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"NoPMono1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"PMono2", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"NoPMono2", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RY1", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"PPoly", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"NoPPoly", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"PMono1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"NoPMono1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "-", "0.5"}]}], ";", "\[IndentingNewLine]", RowBox[{"RY2", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"PPoly", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"NoPPoly", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"PMono2", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"NoPMono2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "-", "0.5"}]}], ";", "\[IndentingNewLine]", RowBox[{"a2min", "=", "0.4"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x31", ",", "x32"}], "}"}], ",", RowBox[{"{", RowBox[{"a2", ",", "a2min", ",", "a1"}], "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a2min", ",", "a1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "b1"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"PlotStyle", "\[Rule]", "None"}], ",", RowBox[{"Filling", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"RegionCols", "[", RowBox[{"[", RowBox[{"1", ";;", "2"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"1", "\[Rule]", RowBox[{"{", RowBox[{"Top", ",", RowBox[{"RegionCols", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ",", RowBox[{"2", "\[Rule]", RowBox[{"{", RowBox[{"Bottom", ",", RowBox[{"RegionCols", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"3", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "4", "}"}], ",", RowBox[{"RegionCols", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "18"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "18"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameTicksStyle", "\[Rule]", "14"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"freeparams", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"freeparams", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"10", "a1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"freeparams", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"10", "b1"}], ",", RowBox[{"freeparams", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Darker", "[", "Gray", "]"}]}]}], "]"}], ",", RowBox[{"Graphics", "@", RowBox[{"Inset", "[", RowBox[{"Leg1", ",", RowBox[{"{", RowBox[{ RowBox[{"a2min", "+", RowBox[{"5", RowBox[{ RowBox[{"(", RowBox[{"a1", "-", "a2min"}], ")"}], "/", "6"}]}]}], ",", "b1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"b1", "/", "4"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "@", RowBox[{"Inset", "[", RowBox[{"Leg3", ",", RowBox[{"{", RowBox[{ RowBox[{"a2min", "+", RowBox[{"5", RowBox[{ RowBox[{"(", RowBox[{"a1", "-", "a2min"}], ")"}], "/", "6"}]}]}], ",", RowBox[{"b1", "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"b1", "/", "4"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "@", RowBox[{"Inset", "[", RowBox[{"Leg2", ",", RowBox[{"{", RowBox[{ RowBox[{"a2min", "+", RowBox[{"4.8", RowBox[{ RowBox[{"(", RowBox[{"a1", "-", "a2min"}], ")"}], "/", "6"}]}]}], ",", RowBox[{"2", RowBox[{"b1", "/", "3"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"b1", "/", "4"}]}], "}"}]}], "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "14", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{"\"\<\\nJerome J. Weis and David A. Vasseur\>\"", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\<\\n\[Copyright]2013 David Vasseur\>\"", ",", "9"}], "]"}], ",", "Delimiter", ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Maniuplate", " ", "Parameter", " ", "Ranges"}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"freeparams", ",", RowBox[{"{", RowBox[{"0.8", ",", "0.4"}], "}"}]}], "}"}], ",", "Locator"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "a1", ",", "1.5", ",", "\"\\""}], "}"}], ",", "0", ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "b1", ",", "1.5", ",", "\"\\""}], "}"}], ",", "0", ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"v", ",", "1", ",", "\"\\""}], "}"}], ",", "0.05", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "1", ",", "\"\\""}], "}"}], ",", "0.05", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "1", ",", "\"\\""}], "}"}], ",", "0.05", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "1", ",", "\"\\""}], "}"}], ",", "0.05", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "1", ",", "\"\\""}], "}"}], ",", "0.05", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"R0", ",", "5", ",", "\"\\""}], "}"}], ",", "0.5", ",", "15", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", " ", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Dynamic", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"BMPoly", "+", "AvgBMMono"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\<\\n\!\(\* StyleBox[SubscriptBox[\"D\", \"T\"], FontSize->14]\)\!\(\* StyleBox[\":\", FontSize->14]\) ``\>\"", ",", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"BMPoly", "-", "AvgBMMono"}], ")"}], "/", "AvgBMMono"}], ",", "4"}], "]"}]}], "]"}], ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Dynamic", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"BMPoly", "+", "MaxBMMono"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\<\\n\!\(\*SubscriptBox[\(D\), \(max\)]\): ``\>\"", ",", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"BMPoly", "-", "MaxBMMono"}], ")"}], "/", "MaxBMMono"}], ",", "4"}], "]"}]}], "]"}], ",", "14"}], "]"}], ",", "\"\<\>\""}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"BMPoly", "+", "MaxBMMono"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{ "\"\<\\n\!\(\*SubscriptBox[\(\[CapitalDelta]RY\), \(1\)]\): ``\>\"", ",", RowBox[{"NumberForm", "[", RowBox[{"RY1", ",", "4"}], "]"}]}], "]"}], ",", "14"}], "]"}], ",", "\"\<\>\""}], "]"}], "]"}], ",", RowBox[{"Dynamic", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"BMPoly", "+", "MaxBMMono"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{ "\"\<\\n\!\(\*SubscriptBox[\(\[CapitalDelta]RY\), \(2\)]\): ``\>\"", ",", RowBox[{"NumberForm", "[", RowBox[{"RY2", ",", "4"}], "]"}]}], "]"}], ",", "14"}], "]"}], ",", "\"\<\>\""}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SynchronousUpdating", "\[Rule]", "False"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input", \ "PluginEmbeddedContent", CellOpen->False], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a1$$ = 1.5, $CellContext`b1$$ = 1.5, $CellContext`d$$ = 1, $CellContext`freeparams$$ = {1.139, 0.872}, $CellContext`k$$ = 1, $CellContext`m$$ = 1, $CellContext`R0$$ = 5, $CellContext`u$$ = 1, $CellContext`v$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ "Appendix D of: Differential predation drives \noveryielding of prey \ species in a patchy environment", 14, Bold]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["\nJerome J. Weis and David A. Vasseur", 12]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["\n\[Copyright]2013 David Vasseur", 9]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`freeparams$$], {0.8, 0.4}}, Automatic}, {{ Hold[$CellContext`a1$$], 1.5, "Attack Rate \!\(\*SubscriptBox[\(a\), \(1\)]\)"}, 0, 10}, {{ Hold[$CellContext`b1$$], 1.5, "Predation Rate \!\(\*SubscriptBox[\(b\), \(1\)]\)"}, 0, 10}, {{ Hold[$CellContext`v$$], 1, "Predator Conversion Rate v"}, 0.05, 1}, {{ Hold[$CellContext`d$$], 1, "Predator Death Rate d"}, 0.05, 1}, {{ Hold[$CellContext`u$$], 1, "Consumer Conversion Rate u"}, 0.05, 1}, {{ Hold[$CellContext`m$$], 1, "Consumer Death Rate m"}, 0.05, 1}, {{ Hold[$CellContext`k$$], 1, "Resource Renewal Rate k"}, 0.05, 1}, {{ Hold[$CellContext`R0$$], 5, "Resource Supply R0"}, 0.5, 15}, { Hold[ Style["Regional Yield Statistics", 14]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ If[ NumberQ[$CellContext`BMPoly + $CellContext`AvgBMMono], Style[ StringForm[ "\n\!\(\*\nStyleBox[SubscriptBox[\"D\", \"T\"],\n\ FontSize->14]\)\!\(\*\nStyleBox[\":\",\nFontSize->14]\) ``", NumberForm[($CellContext`BMPoly - \ $CellContext`AvgBMMono)/$CellContext`AvgBMMono, 4]], 14], Style["Convergence too slow", 12]]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ If[ NumberQ[$CellContext`BMPoly + $CellContext`MaxBMMono], Style[ StringForm["\n\!\(\*SubscriptBox[\(D\), \(max\)]\): ``", NumberForm[($CellContext`BMPoly - \ $CellContext`MaxBMMono)/$CellContext`MaxBMMono, 4]], 14], ""]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ If[ NumberQ[$CellContext`BMPoly + $CellContext`MaxBMMono], Style[ StringForm[ "\n\!\(\*SubscriptBox[\(\[CapitalDelta]RY\), \(1\)]\): ``", NumberForm[$CellContext`RY1, 4]], 14], ""]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ If[ NumberQ[$CellContext`BMPoly + $CellContext`MaxBMMono], Style[ StringForm[ "\n\!\(\*SubscriptBox[\(\[CapitalDelta]RY\), \(2\)]\): ``", NumberForm[$CellContext`RY2, 4]], 14], ""]]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 576., {284., 288.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`a1$31753$$ = 0, $CellContext`b1$31754$$ = 0, $CellContext`v$31755$$ = 0, $CellContext`d$31756$$ = 0, $CellContext`u$31757$$ = 0, $CellContext`m$31758$$ = 0, $CellContext`k$31759$$ = 0, $CellContext`R0$31760$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a1$$ = 1.5, $CellContext`b1$$ = 1.5, $CellContext`d$$ = 1, $CellContext`freeparams$$ = {0.8, 0.4}, $CellContext`k$$ = 1, $CellContext`m$$ = 1, $CellContext`R0$$ = 5, $CellContext`u$$ = 1, $CellContext`v$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`a1$$, $CellContext`a1$31753$$, 0], Hold[$CellContext`b1$$, $CellContext`b1$31754$$, 0], Hold[$CellContext`v$$, $CellContext`v$31755$$, 0], Hold[$CellContext`d$$, $CellContext`d$31756$$, 0], Hold[$CellContext`u$$, $CellContext`u$31757$$, 0], Hold[$CellContext`m$$, $CellContext`m$31758$$, 0], Hold[$CellContext`k$$, $CellContext`k$31759$$, 0], Hold[$CellContext`R0$$, $CellContext`R0$31760$$, 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" :> Module[{$CellContext`PPoly$, $CellContext`PMono1$, \ $CellContext`PMono2$, $CellContext`NoPPoly$, $CellContext`NoPMono1$, \ $CellContext`NoPMono2$, $CellContext`x1$, $CellContext`x2$, \ $CellContext`x31$, $CellContext`x32$, $CellContext`tmax$}, $CellContext`tmax$ = 10000; $CellContext`PPoly$ = \ $CellContext`Equilib[{$CellContext`a1$$, $CellContext`b1$$, $CellContext`v$$, \ $CellContext`d$$, $CellContext`u$$, $CellContext`m$$, $CellContext`k$$, \ $CellContext`R0$$, Part[$CellContext`freeparams$$, 1], Part[$CellContext`freeparams$$, 2], 1, 1, 1, 1}, $CellContext`tmax$]; $CellContext`PMono1$ = \ $CellContext`Equilib[{$CellContext`a1$$, $CellContext`b1$$, $CellContext`v$$, \ $CellContext`d$$, $CellContext`u$$, $CellContext`m$$, $CellContext`k$$, \ $CellContext`R0$$, Part[$CellContext`freeparams$$, 1], Part[$CellContext`freeparams$$, 2], 1, 1, 0, 1}, $CellContext`tmax$]; $CellContext`PMono2$ = \ $CellContext`Equilib[{$CellContext`a1$$, $CellContext`b1$$, $CellContext`v$$, \ $CellContext`d$$, $CellContext`u$$, $CellContext`m$$, $CellContext`k$$, \ $CellContext`R0$$, Part[$CellContext`freeparams$$, 1], Part[$CellContext`freeparams$$, 2], 1, 0, 1, 1}, $CellContext`tmax$]; $CellContext`NoPPoly$ = \ $CellContext`Equilib[{$CellContext`a1$$, $CellContext`b1$$, $CellContext`v$$, \ $CellContext`d$$, $CellContext`u$$, $CellContext`m$$, $CellContext`k$$, \ $CellContext`R0$$, Part[$CellContext`freeparams$$, 1], Part[$CellContext`freeparams$$, 2], 1, 1, 1, 0}, $CellContext`tmax$]; $CellContext`NoPMono1$ = \ $CellContext`Equilib[{$CellContext`a1$$, $CellContext`b1$$, $CellContext`v$$, \ $CellContext`d$$, $CellContext`u$$, $CellContext`m$$, $CellContext`k$$, \ $CellContext`R0$$, Part[$CellContext`freeparams$$, 1], Part[$CellContext`freeparams$$, 2], 1, 1, 0, 0}, $CellContext`tmax$]; $CellContext`NoPMono2$ = \ $CellContext`Equilib[{$CellContext`a1$$, $CellContext`b1$$, $CellContext`v$$, \ $CellContext`d$$, $CellContext`u$$, $CellContext`m$$, $CellContext`k$$, \ $CellContext`R0$$, Part[$CellContext`freeparams$$, 1], Part[$CellContext`freeparams$$, 2], 1, 0, 1, 0}, $CellContext`tmax$]; $CellContext`x1$ = ((-$CellContext`a2) \ (((($CellContext`b1$$^2 $CellContext`R0$$) $CellContext`k$$) \ $CellContext`u$$) $CellContext`v$$) + (($CellContext`b1$$^2 $CellContext`k$$) \ $CellContext`m$$) $CellContext`v$$ + (($CellContext`a1$$ $CellContext`b1$$) \ $CellContext`d$$) $CellContext`m$$)/(($CellContext`a1$$ $CellContext`d$$) \ $CellContext`m$$ + (($CellContext`b1$$ $CellContext`k$$) $CellContext`m$$) \ $CellContext`v$$ - (((($CellContext`a1$$ $CellContext`b1$$) \ $CellContext`R0$$) $CellContext`k$$) $CellContext`u$$) $CellContext`v$$); \ $CellContext`x2$ = (-(($CellContext`a2 $CellContext`d$$) \ $CellContext`m$$))/(($CellContext`k$$ $CellContext`v$$) ($CellContext`m$$ - \ ($CellContext`a2 $CellContext`R0$$) $CellContext`u$$)); $CellContext`x31$ = \ (($CellContext`a2 $CellContext`d$$) $CellContext`m$$ - (($CellContext`b1$$ \ $CellContext`k$$) $CellContext`m$$) $CellContext`v$$ + (((($CellContext`a2 \ $CellContext`b1$$) $CellContext`k$$) $CellContext`R0$$) $CellContext`u$$) \ $CellContext`v$$ - ((((((-4) $CellContext`a2) $CellContext`b1$$) \ $CellContext`d$$) $CellContext`m$$) (((-$CellContext`k$$) $CellContext`m$$) \ $CellContext`v$$ + ((($CellContext`a1$$ $CellContext`k$$) $CellContext`R0$$) \ $CellContext`u$$) $CellContext`v$$) + (((-$CellContext`a2) $CellContext`d$$) \ $CellContext`m$$ + (($CellContext`b1$$ $CellContext`k$$) $CellContext`m$$) \ $CellContext`v$$ - (((($CellContext`a2 $CellContext`b1$$) $CellContext`k$$) \ $CellContext`R0$$) $CellContext`u$$) $CellContext`v$$)^2)^Rational[1, 2])/( 2 (((-$CellContext`k$$) $CellContext`m$$) $CellContext`v$$ + \ ((($CellContext`a1$$ $CellContext`k$$) $CellContext`R0$$) $CellContext`u$$) \ $CellContext`v$$)); $CellContext`x32$ = (($CellContext`a2 $CellContext`d$$) \ $CellContext`m$$ - (($CellContext`b1$$ $CellContext`k$$) $CellContext`m$$) \ $CellContext`v$$ + (((($CellContext`a2 $CellContext`b1$$) $CellContext`k$$) \ $CellContext`R0$$) $CellContext`u$$) $CellContext`v$$ + ((((((-4) \ $CellContext`a2) $CellContext`b1$$) $CellContext`d$$) $CellContext`m$$) \ (((-$CellContext`k$$) $CellContext`m$$) $CellContext`v$$ + \ ((($CellContext`a1$$ $CellContext`k$$) $CellContext`R0$$) $CellContext`u$$) \ $CellContext`v$$) + (((-$CellContext`a2) $CellContext`d$$) $CellContext`m$$ + \ (($CellContext`b1$$ $CellContext`k$$) $CellContext`m$$) $CellContext`v$$ - \ (((($CellContext`a2 $CellContext`b1$$) $CellContext`k$$) $CellContext`R0$$) \ $CellContext`u$$) $CellContext`v$$)^2)^Rational[1, 2])/( 2 (((-$CellContext`k$$) $CellContext`m$$) $CellContext`v$$ + \ ((($CellContext`a1$$ $CellContext`k$$) $CellContext`R0$$) $CellContext`u$$) \ $CellContext`v$$)); $CellContext`BMPoly = Total[$CellContext`PPoly$] + Total[$CellContext`NoPPoly$]; $CellContext`AvgBMMono = 0.5 (Part[$CellContext`PMono1$, 1] + Part[$CellContext`NoPMono1$, 1] + P\ art[$CellContext`PMono2$, 2] + Part[$CellContext`NoPMono2$, 2]); $CellContext`MaxBMMono = Max[Part[$CellContext`PMono1$, 1] + Part[$CellContext`NoPMono1$, 1], Part[$CellContext`PMono2$, 2] + Part[$CellContext`NoPMono2$, 2]]; $CellContext`RY1 = ( Part[$CellContext`PPoly$, 1] + Part[$CellContext`NoPPoly$, 1])/( Part[$CellContext`PMono1$, 1] + Part[$CellContext`NoPMono1$, 1]) - 0.5; $CellContext`RY2 = (Part[$CellContext`PPoly$, 2] + Part[$CellContext`NoPPoly$, 2])/(Part[$CellContext`PMono2$, 2] + Part[$CellContext`NoPMono2$, 2]) - 0.5; $CellContext`a2min = 0.4; Show[ Plot[{$CellContext`x1$, $CellContext`x2$, $CellContext`x31$, \ $CellContext`x32$}, {$CellContext`a2, $CellContext`a2min, $CellContext`a1$$}, PlotRange -> {{$CellContext`a2min, $CellContext`a1$$}, { 0, $CellContext`b1$$}}, ImageSize -> Large, PlotStyle -> None, Filling -> {1 -> {{2}, Part[$CellContext`RegionCols, Span[1, 2]]}, 1 -> {Top, Part[$CellContext`RegionCols, 1]}, 2 -> {Bottom, Part[$CellContext`RegionCols, 3]}, 3 -> {{4}, Part[$CellContext`RegionCols, 4]}}, Frame -> True, FrameLabel -> { Style["Consumer 2 consumption rate a2", 18], Style["Consumer 2 predation rate b2", 18]}, FrameTicksStyle -> 14, AspectRatio -> 1], ListLinePlot[{{{ Part[$CellContext`freeparams$$, 1], 0}, { Part[$CellContext`freeparams$$, 1], 10 $CellContext`a1$$}}, {{0, Part[$CellContext`freeparams$$, 2]}, {10 $CellContext`b1$$, Part[$CellContext`freeparams$$, 2]}}}, PlotStyle -> Darker[Gray]], Graphics[ Inset[$CellContext`Leg1, {$CellContext`a2min + 5 (($CellContext`a1$$ - $CellContext`a2min)/ 6), $CellContext`b1$$}, {0, 200}, { Automatic, $CellContext`b1$$/4}]], Graphics[ Inset[$CellContext`Leg3, {$CellContext`a2min + 5 (($CellContext`a1$$ - $CellContext`a2min)/ 6), $CellContext`b1$$/3}, {0, 200}, { Automatic, $CellContext`b1$$/4}]], Graphics[ Inset[$CellContext`Leg2, {$CellContext`a2min + 4.8 (($CellContext`a1$$ - $CellContext`a2min)/6), 2 ($CellContext`b1$$/3)}, {0, 200}, { Automatic, $CellContext`b1$$/4}]]]], "Specifications" :> { Style[ "Appendix D of: Differential predation drives \noveryielding of prey \ species in a patchy environment", 14, Bold], Style["\nJerome J. Weis and David A. Vasseur", 12], Style["\n\[Copyright]2013 David Vasseur", 9], Delimiter, {{$CellContext`freeparams$$, {0.8, 0.4}}, Automatic, ControlType -> Locator}, {{$CellContext`a1$$, 1.5, "Attack Rate \!\(\*SubscriptBox[\(a\), \(1\)]\)"}, 0, 10, Appearance -> "Labeled"}, {{$CellContext`b1$$, 1.5, "Predation Rate \!\(\*SubscriptBox[\(b\), \(1\)]\)"}, 0, 10, Appearance -> "Labeled"}, {{$CellContext`v$$, 1, "Predator Conversion Rate v"}, 0.05, 1, Appearance -> "Labeled"}, {{$CellContext`d$$, 1, "Predator Death Rate d"}, 0.05, 1, Appearance -> "Labeled"}, {{$CellContext`u$$, 1, "Consumer Conversion Rate u"}, 0.05, 1, Appearance -> "Labeled"}, {{$CellContext`m$$, 1, "Consumer Death Rate m"}, 0.05, 1, Appearance -> "Labeled"}, {{$CellContext`k$$, 1, "Resource Renewal Rate k"}, 0.05, 1, Appearance -> "Labeled"}, {{$CellContext`R0$$, 5, "Resource Supply R0"}, 0.5, 15, Appearance -> "Labeled"}, Delimiter, Style["Regional Yield Statistics", 14], Dynamic[ If[ NumberQ[$CellContext`BMPoly + $CellContext`AvgBMMono], Style[ StringForm[ "\n\!\(\*\nStyleBox[SubscriptBox[\"D\", \"T\"],\nFontSize->14]\)\!\ \(\*\nStyleBox[\":\",\nFontSize->14]\) ``", NumberForm[($CellContext`BMPoly - \ $CellContext`AvgBMMono)/$CellContext`AvgBMMono, 4]], 14], Style["Convergence too slow", 12]]], Dynamic[ If[ NumberQ[$CellContext`BMPoly + $CellContext`MaxBMMono], Style[ StringForm["\n\!\(\*SubscriptBox[\(D\), \(max\)]\): ``", NumberForm[($CellContext`BMPoly - \ $CellContext`MaxBMMono)/$CellContext`MaxBMMono, 4]], 14], ""]], Dynamic[ If[ NumberQ[$CellContext`BMPoly + $CellContext`MaxBMMono], Style[ StringForm[ "\n\!\(\*SubscriptBox[\(\[CapitalDelta]RY\), \(1\)]\): ``", NumberForm[$CellContext`RY1, 4]], 14], ""]], Dynamic[ If[ NumberQ[$CellContext`BMPoly + $CellContext`MaxBMMono], Style[ StringForm[ "\n\!\(\*SubscriptBox[\(\[CapitalDelta]RY\), \(2\)]\): ``", NumberForm[$CellContext`RY2, 4]], 14], ""]]}, "Options" :> {SynchronousUpdating -> False}, "DefaultOptions" :> {}], ImageSizeCache->{1016., {315., 320.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`tmax = 100000, $CellContext`Equilib[{ Pattern[$CellContext`a1, Blank[]], Pattern[$CellContext`b1, Blank[]], Pattern[$CellContext`v, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`u, Blank[]], Pattern[$CellContext`m, Blank[]], Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`Rin, Blank[]], Pattern[$CellContext`a2, Blank[]], Pattern[$CellContext`b2, Blank[]], Pattern[$CellContext`R0, Blank[]], Pattern[$CellContext`C10, Blank[]], Pattern[$CellContext`C20, Blank[]], Pattern[$CellContext`P0, Blank[]]}, Pattern[$CellContext`tmax, Blank[]]] := Module[{$CellContext`R, $CellContext`C1, $CellContext`C2, \ $CellContext`P, $CellContext`t, $CellContext`sol, $CellContext`end}, \ $CellContext`sol = Quiet[ NDSolve[{ Derivative[ 1][$CellContext`P][$CellContext`t] == ($CellContext`v \ $CellContext`P[$CellContext`t]) ($CellContext`b1 \ $CellContext`C1[$CellContext`t] + $CellContext`b2 \ $CellContext`C2[$CellContext`t]) - $CellContext`d \ $CellContext`P[$CellContext`t], Derivative[ 1][$CellContext`C1][$CellContext`t] == (($CellContext`u \ $CellContext`a1) $CellContext`C1[$CellContext`t]) \ $CellContext`R[$CellContext`t] - $CellContext`m \ $CellContext`C1[$CellContext`t] - ($CellContext`b1 \ $CellContext`C1[$CellContext`t]) $CellContext`P[$CellContext`t], Derivative[ 1][$CellContext`C2][$CellContext`t] == (($CellContext`u \ $CellContext`a2) $CellContext`C2[$CellContext`t]) \ $CellContext`R[$CellContext`t] - $CellContext`m \ $CellContext`C2[$CellContext`t] - ($CellContext`b2 \ $CellContext`C2[$CellContext`t]) $CellContext`P[$CellContext`t], Derivative[ 1][$CellContext`R][$CellContext`t] == $CellContext`k \ ($CellContext`Rin - $CellContext`R[$CellContext`t]) - ($CellContext`a1 \ $CellContext`C1[$CellContext`t]) $CellContext`R[$CellContext`t] - \ ($CellContext`a2 $CellContext`C2[$CellContext`t]) \ $CellContext`R[$CellContext`t], $CellContext`P[ 0] == $CellContext`P0, $CellContext`C1[ 0] == $CellContext`C10, $CellContext`C2[ 0] == $CellContext`C20, $CellContext`R[ 0] == $CellContext`R0}, {$CellContext`R, $CellContext`C1, \ $CellContext`C2, $CellContext`P}, {$CellContext`t, 0, $CellContext`tmax}, Method -> {"EventLocator", "Event" -> Abs[ Derivative[1][$CellContext`R][$CellContext`t]] + Abs[ Derivative[1][$CellContext`C1][$CellContext`t]] + Abs[ Derivative[1][$CellContext`C2][$CellContext`t]] + Abs[ Derivative[1][$CellContext`P][$CellContext`t]] < 10^(-5), "EventAction" :> Throw[$CellContext`end = $CellContext`t, "StopIntegration"]}, AccuracyGoal -> 100]]; Flatten[ ReplaceAll[{ $CellContext`C1[$CellContext`end], $CellContext`C2[$CellContext`end]}, $CellContext`sol]]], Attributes[Derivative] = { NHoldAll, ReadProtected}, $CellContext`BMPoly = 7.438909680744326, $CellContext`AvgBMMono = 6.140082412849004, $CellContext`MaxBMMono = 7.2801717043958245`, $CellContext`RY1 = 0.366662659857094, $CellContext`RY2 = -0.07341633287382321, \ $CellContext`a2min = 0.4, $CellContext`RegionCols = { Directive[ Opacity[1], RGBColor[1/3, 1/3, 1]], Directive[ Opacity[0.75], RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666]], Directive[ Opacity[0.75], GrayLevel[0.5]], Directive[ Opacity[0.75], RGBColor[1, 0, 0]]}, $CellContext`Leg1 = Image[CompressedData[" 1:eJzVnQd8VMX2x5MQ7IVnRRQLFrCLgqKgCIj0JqhU6ZAsouh7ioKKgoKI+hBR igUQxYpiQ1ARRekWRBGRXkONIaSQsnv++53NbG5u7t6yJb7/fD7zSbLZ3Ttz 5sypvzNzXp97b+tTKSkp6Y1gbxTsqcEuphYIBMwvuWrRfC7aZyXyu/XnrD5/ +PBh2bdvn2zbtk02btwoGzZsCP+kr1+/3rLr//3111+W73V6Tf8e6RnG9zEe xpeRkSGHDh2ynIeb18x/5+fnq++ePn269O/fX6655hqpWrWqHH/88XLUUUdF 3Y8++uiYPm/VTz75ZKlZs6a0bdtWnnnmGVm5cqUcPHgwJp5g3WfOnClNmjSR KlWqqHHzHPqpp57quZ922mm2/zP/3+79Vp/j50knnSQnnniiHHPMMXLZZZfJ iBEjZO3atYqPI/FBpNf37t0rzz77rFSvXl2Sk5MVfXv3flUGDNgnd94ZkNtv l//J3qfPIfH5Fkvjxm0Vbxx77LFy1113yffffy9+v9/T+r/wwgtq3tD1rrsm SK9eef/4/Lx01snnWyG1atWS4447Tjp37iyrV692tS9yc3Plgw8+UHzE/AcO nPuPzyeWnpa2Q66++mrFE+yLnTt32tIBXkG+3nbbbUrm9ejx/D8+h3h0n+93 ufTSS+Xaa6+VTz75RNEgEh2ys7Pl7bfflnPOOUd9pl+/rLiNo1u3ouBY1krf vjOlXTuf1K/fUK644gr1HHjuuuuukxYteii6p6cvCMqdA3GlQ79+s6RatWry 0EMPKf0ZSQ7s2rVLBg8eLKeffrr07PlSzM/t3NkfnPdSadnyLjnvvPPU3tI6 tXLlynLEEUdIamqqVKpUSf2udea//vUvNV70cO/erwV18t8xj2XgwAy5/PLL g2NpKYsWLYq4D7BjmjdvrvQ/axbt87p0KQ7uwy/VHE444QQ1R/TpzTffLPfe e6+89NJL8vHHH8t3330nS5culR9++EHmzZsn06ZNk8ceeywoz+6Uiy66SH0O upx//vnSseO/1d6OdkzIyCZN2ik6zJ49OzxnIw8UFxfLH3/8oeQHurZv3+j2 gc/3i9SrV1+tNzr6pptuUvYKtF+3bl3YhisqKirzfMaTl5cn+/fvly1btsjP P/8ss2bNCu6NHkrvwzfoafize/fCqMZ22233ywUXXCAzZsxQzzPryoKCAqU7 0CXwQe/euZ6+n3H16PGCoh/8zJq/9tpr8ueffypbLZrGmLZv3y5ffvmlDBky RM4++2zFFzfeeEtQZmz2TIM77hgm5557rkydOlWtAetuXAeet2rVKkUn9qIX e6Bfv0xp2rSTWitoyLr//vvval29tkj2PPwzd+5c6dChg6ID8iUtbb7H/TBC yftJkyYpu1HTQD8TGvz4449y4YUXlsjEfJe8v16uv76BWntkyeeff670i51N 5sVeNb7OmH/77TcZNmxY2FZGZrqnwWOKlzQNzPKgsLBQ+RjIIrd7AVlbp04d te9Zn2+//Vb5WIlsjHvz5s3y1FNPyRlnnKHWa+DAz1zzATR4+eWX1Tit5AE0 gA+ggdNe4P/wf0pKirRv317Z49CxIhpjR8ePGzdOycmzzjpL2UFu5IGRBmZ5 AG9oGkBfJxp07/6c2petW7dWek3PP5FxEWPT9szIkSOVPYE+Qy652QvoZiMf 6DFDAy0PnGjg8y1TvFK3bl359NNP1Wcrau5GGtCJbfTs2VPpYuYYDQ10M8pE OxrwOjIQeTRhwgTJyclxHa+Jdq52Df5jH7IeyAaf7yfXNDDuBU0DN3thwIA5 yubt1KmT0n92848nbzj5OWPHjlW2VKNGbSLqNDs+0PaBk0zE7+EZ/P+VV15R PGCed6S/E9V4DvYOdmX9+vUVHXy+VbYy0c1eiEQD5AAy+NZbb1XPrKjmhp7w AnYD8rFDh3uUzxILDSLtBb4D3+fpp5+Wv//+O1FTtmxO+4vxf/PNN8ofxx7G dvEqE416wYoP+vbNVvYQPtwXX3zheezhvw2/BIx/i1/14mBXnwno19w/B3ua +A8xxPT0hZ5lohMNiM1ho7do0UL5Fe4Hp8dY8pz8bNm3a7ts2ZEhO7btlO07 dyg9v/fvbDlcZPygX7xKFPbDI488osbfufNISxrgL0RLgz59pqvX09PTla3q pel1DRT7JeOPH+TNx4fIkHsHy92D02Tw3T7x3XOfDH1khLz67ieydV9uePYB l3ygeY1YKDGIiy++OOizNy03B/YyNIhkKzvZiR07PqhkwejRoyUzM9P1/EPz 8Yf4oTBf/pz/qtx1QZIkJaXIKeecJ5fXrCnVT6siycG/q5xVRx6d8p0cILZQ dqO4alomEDfEfyUPEE+9gG+AXUBMwKtfwC5XPwtzZfN3r8nAq5Pk5IuukyHj 3pUFX8+T96eOlt4NL5DU5LOkQetnZHVmQTQkUHMiDtSwYUO1jua4kxc70YoG xC2wDd95553wZ1zZAP7SJS0K0mDTotek/zVJcna9jjLpmz3qLfm5W+TD53pJ UuUzpEGzp+TnfQVS7PdOA8ZDzAUfnvVKT99Yzm807gWzPOA1414w2lrE4uAv aEDuwfX8Ta24KE82fPuKpNdOkePOuFh6PjxePvn0fXl90qPStWktSUmtLjff MV7WZBW4nr95HLt371Z+HPk2YhtWMjESDYzywMwH0KBevXqKBu+9957nuQdK mMFfEKRBkA+gAWn/pJRkOfXM46VSauj3Ey5pJ8OnLpF9hSVS0SUhjHTYsWOH ih2TH/X51nnWjZFkIjFy9tgpp5yi8s9u83ZlB1osAfjg+xAfJB1dRWrVvUla tm0jLdu1kNv7DpFxMxfI1kP+MM2Knb+1TGNOxMYbNWqkaFB+L7ijgY4jmfmg Vaveir+ef/55zzFSZqW0Q1AebPz2dUm/MlmqXdVUxs5ZK4dy8iQ3P0cOFxSV LDs2UnH4k14asppY/fXXX69sRa8yUdsHVjQI+UtjlW68//77Fb+5lQdBjyZs E0KDvxa9LgOuSpZz6rSTF+dtK5X/gdL5F5d5zX1jXuTJsA+IqZhzVU42klkv mP1Pcq9nnnmmwjcQg/fUSiZaXJQv6xZNl961k+S0q1rIC3O3lNpBgZAtqd6q +MC7nUjeYtSoUSouDt+a19HIB8a4sm52MpHO3iIXf8kll8jXX3/tSS9oHi8u KpC9vy+RyQ/2kB5DRsiHv2aUf7M/EOphWrh8RnA8e/bsCfqLXdSetYo3m20k uxiKFQ34+5ZbblHf/+KLLyq71B0d/KE5hZk+uL7+AvEXBcJrr+lUpnvwmXQM YdmyZWoPhOJJv0QVR7KzkZCLffpMU7qhY8eOKobkboCl8p11DRhpEX5PcQk9 Suxq0bFOd4+g6VgS+vuGG24oZyeb+cCcX9A0cIqlkd8iV048G3vRnc1siFeV e90vkdbai63MepLLbNq0qYp1499ZxVDM8iCa/AKxtC5dRitsC/sOrNP/QoMH nnvuObUHrrrqqoi5SE0D7MRoaUAfNGi1eg86Aj810Xklp8Y8fvnlF2UXwQO9 ek2WHj0KoqaBnX2gOzqza9cxKp6PjFy8eHG5/EpF5hqIHT344INKVhNfT0/f Zjlut3tB08Apx8JziOGCHenbt6/6nHHeiaKB+RnENKdMmaLivNgEaWlfK7ve DQ3s9IIbGiBvfL5FKk9/5JFHBu2ngcpvh66J4gXz9xHHAT+KjIYnu3d/RsU8 I43ZTANwAVa5d685V3BOGrdLjA37ET2dyL0AnbGFiOVgExM/xSa0iiNb0cAp nuiFBnRwa+DI4Bv2Ra9evVTewYiziUcz5pjAjzIHxgl+9sYbbwzy5CbHsWr7 wEgDc57Jzm+069gi2E7sR+QyvvtHH32keNVM51gaY16zZo088MADav+D+UAX oKesbAE38sDMr05xZbvet+9BhYMA8wUep0aNGgrjDu4M3e3EF3b4E/Yt2PzJ kycrjBO8j60K9hY7wO383cjEWGhAB7dCng8+AI8HLfiufv36KWwo/jZ+Hc8x Y9J0Y0z8D18EPoIvx4wZo+IB6D7kL3Tu33+24j87HRBpL0TSjca9gKyPhgZ0 sGkDB+4J9o8Vn2JPIiew34jFpaWlKX8LzMavv/6qsCTg48mxoFfA74GbA6OI j05Oh3XnOxgXtim4SbDpXsfmRia6ybm67YyRGA64WPKz5ILBWyLDoAu8jBxl jnRiPvggvI+cKevNe/lZu3ZtZYOAtWHtsdejHZeZBtHknb10+BRaYE+Bi0B3 Eu8lJ4qdzfqCZVKx1WBn7+DzEaNo0KBBkKe6y/Dhw1VclHhQtLhMO3ngNc8U S2f8yM20tF0yfvx4lbd+4oknFJaN+ZPHxd5l7xOvRNax5ozBi8yLBx8kigal Ywgo/tA0AR8Oz8PvzBlfhzl7lXWJoEE89oIbegwc+KnaD/gekXy9eNPATSzN jb8Qr47+gA/Q+/HkeTd8YPQXjPJgxYoVnu1ELz0tbbfCRlAf1bp1f8VzyAN0 PzndLl1GKd5A/yWCL8x8YLbdEiUPiEeD5yRfyRpgP1G3ofWBsaM/wf1iT1Db 0qbNAEWzeNHDS64tVj4I1ZT9FFzbjuq7mDO6kBhH79695cknn1S2L/YQ/i/5 O/xAdMI999yjdCj2AjThc8SKqVvo3z+2+p5E28q6w8fg98j3ofNZf+w+MEz4 1tjMWVlZagw8U/+ED7GliQuRM6S2Bfzf7cEvxW7Stjf1UNHKjnjGUKw6+oy8 BvYPti1zB8f6008/2eJWGEekHC7j3LRpk8yZM0f5HdhQ8EWzZp2VrREtDcy5 92hjKMaOvmfPg3vgs4MGDVL1Fvj6bptd/AnZhT/B2Kl/Q5dQL2TOrXvlAzNm O1qZSM0ZdUL488S1+X6wIF7m7jb+xrjJ82FH40vAs+npiz3RwKgbveadrTq2 HntfxzOInRjxu4lo8AQ5LvLfxPBYV3CDsfCBmQZu9wL8T60mfMn88Yd1bXm8 m5k/dD3uww8/rHxQ/Cw3NV5OOVevNCB+hh8MPuXDDz8sk2tJdGxZ7x9qAImt IScbNmzhWH8UTxqkp29VtNd1chq7XNF1HBp3Qp4RXUycOx40cNKN6MC2bX3q mawBMSDj/BN9xolVHJT8L+Mm1mRXC+s2fuAkE5E/2LLUry5ZssRy/onOr5gb OhgZiR3eqdPQiDZUPGxleKB58y5KHnNGBDFju/HFu44l0neyJ7ArsalDtdrW doNRN0bC4jjVLxDLRwYgB/ExEzFXu/nbNexveAG7mrlanVfiJc8UiQbkm3kG 50m4tgHDw/eXIE+KSrBXpWDccvh0w2fcNsaPbYqsplv5V2acqpXvbKcX8F85 t4HvoHbersbKPB2NvynFGRnmGMblhJHdoc9FwVvoSuorkAtWdlOsmG38QfJH 2EPwi7cxFilclsJq5mZJxtatarw79hyQnILi0nX3l+CSNFbJY6oO7Ci6Cr/F 6hwTt74zesGq7h2fNYSHT1O+nPsWwhz5c7Plz5Vfygtjhkt6n+7SuUs38d09 XMZPny2rNuwug9X0R7EXaNjpxCFYR6saDqc4kpNewL7AdyX+4aWGg3kU5h2Q 5fNel05NLla1GqnVa8jll5wvJ6UmS8pRZ0ur/0yQlTtzQnMuhWx6pgH6AZ8K /UBePhqcql1MFZ8dHiOuwbNc74WiQjmwZr4M63aZJKUEfb1G3eWJGR/K3M/e kpFpTeXMY5PkmAvqyvDZqyVPjylQgs/0KBKYE/4U+5XctBNe2SsNGjS4WeGV wQN7aUX5mbLynZHSolqSHHvpLfLYBz9LTsCvcLsZa+fKtOGN5M6+98qkuWvk UHATlMpF91hdvR7IuK1BWUMNB/rLjEtwi0eKVL9A7IK9oM9TcdsKc3bJvPEP Ss1KlaVuqy7yxcbsUp3oL5DCglwpKFTIboPOiKI2oKQRi3Nbv+Alx6JrOPBT 33//fU9jOpyzWxb89wG5IjVIg9Zd5esteSVVXgFLXjfi1YvLvFj290i4dvwX 9GOIBtZ1LNHQIFTD0ULxATFgt7ZBiAZ7gjQYKpekVJJr2nSVzzfmqckp/Zf/ t2z/6zdZuvgv2bk/W4oDJtyq1SNsaKDjCpzzZ13P5N5nspIHxhoOL7Gi4ry9 svyVUXLTcZXkuMuayFOzfpHcIO9T25Sx7DN5on1jqVGnn0z4eJXkYTL5iyR3 3zZZs3y57MjMN+hJS1KUachq/DgwG8w1mhoOO1uZHBB7gfwwe869Xjgsu1Z8 IkPbVpPklFOkzs3/kXfmr5Sfl3wlUx/oJhcmJ8sxF94sD7+3WvKLiiV75waZ 9/Iw6dCgkcxYvFEOBwJ27FD6dwmOhHgO+Zkrr7yyHG7baS84xRP7939Pxc3v uOMOTzhlLODiQztk6SuPS4dqp8oRKWAxKklqUlLQVgjqxRNrSNteT8qPu3Mk e9cf8v6TA6VJtapy5RV1ZOoPGySvyJ4GxrUgP8G5RKw1+8EcVzL7C9HYyvgi xI45/8ZLY5sXB+XCuoWz5P7uzeT8GudKjfNrSp1GLeW+sTNkxcb9QT4O8svq L2X6v2+TYQ8Nkh43NJJp36+TnOJSGjhxHrYb+ED8BfJSZt/RTZ2rnZ0IpoT8 MLKG+Jl7rHaJnONH0F7KObhfdu/ZITt37Za9+7LkcH6xFAZCvlNhcZHkH9wu 65bMkn83vlXe+HZDkAalBLCjAfYO2G1yO4nymdANYMKRCcT3OQPMTSutyyit VzIaxAGD76g0ZuFB2bh8lgxu3EJmfPdnKQ38AduaBuQ0cR18Hc4oIMftFD+I 7hyMtSpmx3s4D8uLjozUisRgHyM9CrJk/bLpMqhRU3n923Vl5UEkHREcA+dj cvYBeUmwy1b4JSc70U1cGdw+uAF05H333WeZT4qKJgYFGCjKlu0/fiCjOnSV j5ZulQJ8boevJGeEDQ/GDWxTpPOinOoX3ObeOROSvDj8gN1sh9F2FWMJv6e0 vrUoL0v2786Q7LyCcDmY1XfqMwfJU4NnJNdLnU2kPIM55xotLg1eIL+I3OGM MPLKse0Jf9g7Clc1ltR3GWNskb4fXfD4448rGxYMqx1+W5+XZrcX3OZcsUGR O9CBcw05yy5aGugavlLb1xBAcIgjETd666231JihAfgmOwwnfAAPu7ETnfJM PAfcEHkGdOXQoUMVtqL8/NzQpbyPqKdvdxYImOb58+crTBs4F3jT6RzaeGNx OGuUODO5PuxHzm7TMtIzT2ihZ4i9hv+W8jKA+RNDxl6hXgD/wOwjeqFBLPiD 0LnjjylegCeIZ2I3RL0vtB2ha2MtGrlN+B9bCLwS59aS93Bz/rmTTIwWgxHC 1E4J42TQ0eThyXnEajsYc0v4hPjFYJvQgWA7QzUsq1zjuBOJV6amZ8CA2eos GvQTfgVnCC8P+r+a55zoYXXemj7HjT1GLSWxEWwT+A6sM7LZC47daS/Eis3j /eDxiGeCk4EW6Cr0Buf16HsQ3Jyzp/1g6nepd9AxETCM2CXgnaiT8Ipr9oJL ixabRy4qhDkfoPxL5LW+B4E6cXJ07777rspVUr9BzpaxIOOoVSMmjA0+ceJE lcegdhs5A9+z14gTcm4dNXzR3H/g5fzEWPCJrA1jJJ5JXoZaBPiXNURe4NNQ kwhek/1M/pY8PjFb8Ovsdd4P/ejkCUL1K4uVHxRLDYf5PNWKwK1jU6al7VTj hzeoDeYMCXxP9ooRp8tak9OHBug6zhvn/OQQLbPigud3wmwnErsf8rvzVB0m c0JuPProo8rWZv7MG70Kn+ObgvVBzsay5k40iCamGs8OTeARziUF10ZujLVO NH5fywPkTaJkoteeljY3jDmtiBoO87l58cYrR9O5awIagG9P9LM0DdzGExNF g1Ad6Hp1NwMxT3QD8gBdge/B3sDuQ/cnggZezgKJJw2wpZkb9RjU9aHvtU6A B7Re0L+TIwPrQV6LehdkZLzuQoqEWzfaZfGUidhKPBOa6vpO5taqVStVz0bc g3PjOdOJmj78TnQDdczkNqEFNEGPgolGdsQ6JrextFhpAL9zLg22IfNm3Ylz MWf8PXCl4HCI/2A/4wfyk07+ivg4fjG1D9QswDvadiDf58ZHdrMXEmUjwbfI eNadPd6nTx958803Vd261TkA8J+u8zb7EowPOn311VfKlsDeJGYc+t7pUdW9 JpoG1KIzPuJr+AbUKmkcb6wNfwL+wW/GJw3dd9HFs+y0kweaBtHUM6HXwYDh C7Df2dfEeRPR8LE4xxOcCXIV/8JLLYubOJJXGmDrtW8/WM2f8YAJS/T528RS OBeNe+iIoxGzcCsjYj0vzaqju4gVIP+IcUR7/47bptdLnzEPHfDNsTPc3KUU a77R3Km9RG/hB7K/4FPjOOM9b3ODDpz3jV+NfOCceSff0s3ZgW5pgCxi7Ykn o8O81K/Fq+kYI3h14svYE8T7vcjEWPgAGUCcA1uHWF9FnJEViQ7EAaiVxRdi 7HbnJMWrpgvfn/XHluMOkH+66fMz77777pI7WUZE3BPxkgfY/TyL8xrNmN2K 4IFINRwLFixQMUzmaMajWdEgUu2/M/5gvcptk2uMdP9f+UEb//CbztE1vh7C quhzdb006MJdd8Tr7O7e9IJbj+Qv6Hper9g0cypV/zT+XmRMsoUT7u7xqswJ LACxd+S11V1NsWKysM+p4QALzbPcn7VtyCnreQUM8zTQxm/E5NgBbywaa7p5 82Z1FlHorPXydxS5qXd2wqWF6gJuUu/z2jQdCgryJSvzoGRlZUpW9kE5dDBb /czKyRV/UUm63Yxbctmw0ahpIhfBPYrRyES7GAr4RHwiznCghsOT/AuU7Hh/ rmxfs0zenzRZJk16ScU2J06cIBNfmiKvvPmufPndr7Jtf64Uiq6t8H4PB2dL ILO4s9Mco3Q6P9Ep38j9JmD3yRVxvpenVoK3KsjLkCUzx0htdUdpFTm96llB PXuGnH7aSXLCkclStdZ18sDkubIvNzpcC+tI7IE4NXEH8528sepG7qWlJoC7 Dz2fI1syncK8vbJs2gipl1pFLrz6dnli4lSZPHWK/HfsvdK5+amSmlJJ6tza SeZsypQ8j/KAps+XJX+FDRPLPRxWfEB9EDqBO1a9rZF+TlDy52bK0pmj5Loj z5E23SbL+sOhfxccypBF74yRy4I0qFW/hcxYlSm5UZxDqevAkYuM1a6Gw4oG xns4rPiAfCBnuum6PvcDK6VFQf5uRYP6qadL3Ub3yawFi+X7HxbK/E+my3Bf e0lOOULqtOsjC7bkSX6Zz7pv3MNBbjZUx1K+fiGWOhZiZMhbrzUchuiYqu36 6Y2RUq9SKI58RGplOSIlWd3BkZqaIpVrNZC0iV9IRgE8UBQNCZTdAk7BmgZl cWnmtbSjAfY38Tx8ZeKDUdnE4A7z98uy6aOlfqUUqVr9PGnepKFcdnTlIA0q S8qZV0qX5z6TbVmHwjU9Xp+iaziaNWumaBCphsPqTBhjbN1KHsAHxO/4XvSZ 5/t6AyG9j0xcMXOkXFu5mrS4c7T8tGODLP9wvPS5NEXVNjRoN0Z+2Jwd0oxm cKaLpmMrrBe2HLlbr76zXWyd+AN8QIwXP839/P1h3GVhUB4sf+MpqXtUdWnd baJsPuyXopwdsvD14XL5kaly1PGXS6+Rc2RnTpHaCW5IYMaucH84upHYjjnm asYnRsKlRaIBeAr2iBfMuvp+3Yl5BPlg6fQngnrhdGnZZaJszPOr2p3MrT/L pPtvVbqxeu2W8uxHayUz17080OsJdp3zGcnlE1cxnzlqd7cxzekMCJ9vtfJH iN259hkVEYpL5hKcU/4B+fHdcdK+6jXSK22WbCvZUkWFebJ55SwZ2u4UOfXM a6T1Ha/JrxnZnvYCNMaXx3ckpoTvaI4jeMGlWdGAmKWu7yNfBN+4a8b7Fwok 72Cm7Fq3RXZkZMnhML8H98vhHNm/609Zu35TUMfvl9xCb74CfE2NEf5M6Nzv hRH9xmjjieAjwIQjF4nZUE8aqVX02TA05kRehzkiC6zORfFyZlyk+AH+KOdg 4J9zD71dq4iz942NnFa3bt3UeUX4Nlb32jrhD9xgNHmNvCexbM4NpnbEanwV HVNjPuSfGDtrFOlO23jhVNln+CPkdzg/u6L43nw+lP5d3//OXcvku7AFI51B 7RaT5UQDzkiDF+A58jzmWseKpgk1jdRysS6MHfy21biNNLDLubrFoaAnkQn4 D5yTzDr8E3RgzOBasYnQh5zfaIftcoPRdJtj4Tn9+r2t/FNsUvAk+GuJpIP5 +5gD5/rjG4DRIL7hlIuPxx3Xxk7NCLxF7pfvpcY2XngDp6bPUWT+5HypYSDe aTdet3rBa96Z8zzbtGmj4rjsH3yJjRs3xjQ/J/7RGARwzhobj852g+90W/ON PewWj4Q/iS3StWtXJSND+Y0e6r4iq3snrGoUvNCG/TZu3DiF49ZnlHOOplt8 p5e7ieADp7MIdccmJ8/J/Y58DjwAsSxkNb68m7k7/Y3sB5dEjhf9z/4L1bAs s7SFnGiA/2++C0PTAL2AvAdL5vWeB/wJauvI+YHJQl6CR6MGg/smzHFYp7P2 WCNsMGJ3Pp9PxYnB8hvvIfGK6eZMPXxK4u9W56lCAzANxA2JoUdzdm+oluV3 hYtgT+lzxNm7rCE6CRubM3Lx8TRdGAv5EeKh7CPitsTwqdfhe+B77B9iI+AU Q/LYO26TfDG5B33HmpU8YGzg6dH7YIm9PkPvDXgCG4JYA+dRgKnTGFT8GXz7 du3aqfXEzkKeYOexh5DxxDn4DHPnd2Kk4DejWXvd2dvUwtHhLXOuTddOsQ74 AfAbsbNY6iaQ09iU8AU1TdS7IcP0XU5GfK7+qfcQMqlx48bqDhJsMOQNci8W zK7GTXBuN9gVKz4gh0+MjHM50Y/k1WLBhOrOurEG1OEwDvKBxDnYL6w9/E6n boUzLDhvHR1LboCaIHK9seKVWQ9kATJ72LBhSlZbxZX1niRP07NnT+UbkleJ 9g6cSPuEObGmyA469KHzOzKe/0O3eOG06cQB4W32IOeWgx9kzc13E+n9gK3H Xd7IMXQQcsQql///oUNHcsXMn/wQ2HBww+Rmmb8VfgA/irgkONNXX31Vxc7Y q6GzNb5W+/ufnpdb3sd21vhRfQY8NafwAGtth59gnxw4cEDFjsGdgouFH5DT 2A7sK86XDt2VNUfZBPzU3fw39a9lf58d/p3vMPay//faZ6vzlbHVwPqj3/Gl GPMjjzwiCxcuVHamlV1gbthOyEzy69SZIiO5Wwkdh8w21l0kurt9lvl9rBd2 Bdhx8JPYfmAIsTfd3inInoBe4JzwgfgOcmzYLeDx+W50Nn6bucM3Vq87dbvP 6f/x0/g+8+/4b/gr6B58AmqM2dfkIJm/3V0PVk3nbdAV2KzQAhsKWxKa0Nlf 4KcT3e2eo//HT/wdzibhvg/mztqzrzXmJJqYhsbD8h34rGBy0Rt8N/XKFdXd Po/3MT7GiexDvmsdaMZfRdOgI9+n71CBLugYfho7rxm78X1WPyO9z8vrxs7Y kPvs+2jX3k2zivEa//barb7T/D8v//fa/g9WYNHt "], "Byte", ColorSpace -> "RGB", Interleaving -> True], $CellContext`Leg3 = Image[CompressedData[" 1:eJzNnQmcTtX/x20hSpRIopTWXyltUqnUL78UlUJZWtCmjf7afmSJFkqlRbaU nSItv0QToiLJvkchk+zMDMOsz/d/32ee88ydO/fe59w7z0yd1+u8nplnufec 7/me7/r5nluvc7c7OpctVarURKs3tXo5q0uAFolEgnz9H9m85mAyN+d3/in0 0OPg1W9MYebo9t4/Zd5hmn3s8eZqpystNzdXDh8+LHv37pU///xTfv/9d9V/ /fVX2bhxY6zzv+7O952f29+zfzdI19fZsGGD+n/Tpk2xsf3111+yf/9+yczM NKaLFy0OHTokq1atko8++kg6d+4sl1xyidSqVUuOOeYYqVChgurly5cv1PVn +nP7q997btdwu77XPatWrSqnnnqqXHPNNdKtWzf59NNPZcuWLZKRkRF37s6W lZUlv/32mwwdOlSuu+46Oe644+TYY4+VatWqSY0aNeSkk05y7dDHrTs/t//v da1417Rfy36dE088UdGicuXKaqx33nmnTJs2TXbt2iU5OTlx+YG/+d7y5cvl ySeflNq1ayv6XnrppfLuPffIpltvlf0XXywHLrroH9v3XHmlLG/bVp5v317O PvtsOeqoo+TCCy+UIUOGSHJycqG97kaPFStWyGOPPaZoetZZZ8m4++5T1/27 5xamJzdrJs+1a6fmcv7558s777yjZIUfL2zdulUGDBig9lTDhg1lXocOf/s8 EtFH3nuv1KlTR66++mqZMGGC7Nmzx5UOyND//e9/0rhxYzn33HNluvW7v3vs ierw8QvW3kButLP4YvHixa56/48//pAXX3xR0eve1q0Tzv+/t2wpX1gyhX16 8803K1rDaxdccIGSN8jyWy1583LHjjLH6tv//e+E3n99q1bqPuyJDz/8UPbt 21eABtgAP/74o7SyvnfeeefJTGusibjvyjZtpMfddyudinxFrxx99NFKzpYr V07KlCkjZcuWjXV0HHr3hBNOiOk4ZPFWi2ZFHQuyHF5gjbt37670nl0+ogu/ +OILRadrr71WttxyS5Hu94MlR5pZ8gjdxDyRzcjouy16IG/Yk99++60sWrRI lixZoug/Y8YMtT4vvPCC3HbbbYoG+renn366dLHoyVoWZVysLTRAXy5durSQ PfDxxx8rOQCf7rLoH+YerFd3a56MmfU+88wzpVOnTjJy5EiZN2+erF27Vsnl 1NRUyc7OLrAnGUNKSorSXytXrpSkpCR5/fXXpUWLFkrnwx/ouPcsOfXX9deH Gt/Su+6SM844Q11z4cKFBWhw5MgRGTt2rPr8jjvukH2XXRb4+l9ZNL788sul YsWK8q9//UueffZZmTVrlmzbtk3Z2ibNKafS0tJk/fr1MmnSJLnXmjv7CVr8 25IViy1aBx3jWmv92evw6A8//FDgvtjEo0ePlrp16wamwW5L32iZiz15n2VP fPXVV0r/eNllbvN1vm//HFuX/TtmzBjFp9is8Bi2SxAasJfg9RtvvLEQDQ4e PKhocNpppykamNqCOy07GjnPvmf/svY///yzpKenG6170IYfBG898MADan/A txMC6HD4ABpoPrDTGxp88MEHMT4woQF7Ejl1/PHHK1mKDbZ582alY4rTx0aO rFmzRnr37q3kLOs21pAOThroxpiD0kDzP77JVVddJePGjZPdu3eXWHyBPYY9 89prryl7Hhn8hYE+96KBfS/AzyY0mGjtQ+h/kfX3sGHDlE/m3MfFTQ/WjrjB f//7XznllFOUPF5iyX0TGiAPvv/+e18a+MlE7nOZ9Tl8OHjwYBVXKYl5u9m2 2sd95JFHlHxA5+EnxZOJbnsBHWTfC140wG7obNnRyEB8a2I4fuMs7sb90OvY Ei0tWxz7cpiPbDDZC/FoMMO6/jnnnCNNmjRR/hV+ll/MMdE08eI3ZBHxAWQD vqGXPelnH9hlInakmzxAD955++1Sr149GThwoOzYscNzjCXR7PdiLYh7PPzw w3LyySfLWx7y0YsGTr3gRYMky5fj9//5z3/ku+++CzTfaHRW31G/Ueg7EfVp lvojNyKu3/Nq7GdsKOxp4n+rrT3rtxeQiU77QMtEaODcC9rngkbYQcRuzWmQ W+A1Nzax3Ojcc6MTtn0/SqZsAyLoceBvYJ91sPw15jHRxYY0sQ80DZx8gC/E 79AF48ePN7b/C9MiN7beauyR6FJHonSKOL4fcGshF1555RWlIx639JdzLf30 Qry9QEwDW/Cmm26S+fPnh5i/vllEMjMOy6G0g5bveEDxb8qhg8pfycjMty/z 6JRHsyANHTFx4kQVlyEGwLoH4QOtF4ij2OkHPQZbMobfdu3aVeUbgrSIbR6Z aXtlw5LZMmPqWJk8eaJMGjdWJkyYJJOnTpeZ330va7Yly8EMfOrYjwM1ZCNx CewE4kVJDtnoxQfxbCRsAmIf7IOXXnpJ+cL23xoQIfbdtC0rZfILHaVJzXJy 9LFVpVqNWlLzxBpStXJFqXxMVWnW4Vn59Pv1cuBwjjEN7GPQNhP5IDc/wikT dYsnD/CNmjdvrmgwfPhwOXDgQECdkM/TackrZHLvNtKodnk5p8mt8ujzA2Rg 357S+abGcnql8lK23JXSpccEWZ+cKkHUgn08xMaffvppFU9/1drDXnzgZSu7 +UzbLBmArsE2IpbhzFsZEiJGg497t5Vr69eWmx5/U2at2WXJ172yY9nn0vvB 5lKu/AXS/onhsmzrXqUqIobywE4DfBfidcQu8euDygM3PiC2iF3I/iJ/5xcX cW/580hLXiKT+7WTxvVOlMb395Upc9fJts2rZeH096RLy8ukTLkL5O5uI2T5 1hSlQYLeiUaMYdCgQYoGxPXsc/GzlZHL7AXijU55QEwc+xMaTJ8+XfnvTtrH a/qrB7etkGl920qjmqWkTKnSUqlKNRV/OLZiGWsfVJSqZ7WR/74/V7bujfJa CLOTmCQ0wK+/x5KJJjSIpxvhA2Lc7AX0DvonUIvk67rUbUvlk353S6NaeTQo Vaa0lC1bWspXOEbObNxKen4wU9ZsT5dsxQC5RiRw8x3YC9CWuJ59LkHsAzsf IA/wt/FH3n//fUXn4DTIl4mf9G0jjU+tIpe0eVKGTEuSBT8vlqVWX7/xD9mb yvzzLOagTeNQiK1gy2In9bNkYhAaeMkD8j3sD/QC9LXnbs0Gl5NHA+snKcmr LL1wl1xVv67c/PhbMmftvtj4mbfdjo5E6RekMRfi8sQb2ddOPzpeDEXLA6eN RNysS5cuig8effRRWb16dbCB2ezjtORlMumF1tL4jJMsGrwj81ftlRz7kuc7 Tg4/y6xhI82ePVvZSOxdZ840nu/sZSPBE/gf2J+3WLJB08+UF/R6Khr8uV6m v9JFrruwjjTv/rbMXr83j4fVV7LyZq2+m53vS8S7vm0cxLMnT56sYnxXXHFF oRxEWBrQyRsSO4WPkIvBbIR8vzEn44js3LRaFiyYI0vW/ia7D+bkcUlEbHIj N3/+uYZ0jtIBzBQ+E3Gu22+/vVBczSu2TvOTidpWbNu2rcrzEMMkhv5Pajq2 iO/c0ZKDOo7i9P1M/QU3v3Fvo0YyytpbxLDxHdkPyB/9e+d4Ej0/k8/xQfHr 2Qfkuec47GTTeKIXDejEZfBH+Q7xZGc8vSRj685rY7fhz4Ihqlmzpjxk7V10 uikNaCY5FvQDWACNCyCnGAbzVhxNx1Tr16+v+CDJhQeCyEQ3eaA7eK8bbrhB qlevrnAMYCTdWknSgnWYM2eOiq1XqVJFHrPG6IXZMImpxsux8D65XviJvO9b b72lcixaNhRH88OSsgeIFxDbwTa+8sor5XuHrxhUHpjk3qHx0+3aqX0HnmjE iBEqzl6ceQW3+etcW69evVSuDZvoQ2t9/PAjdj7wix847US3Dp4DHEClSpWU X408duLdEkkH57XQg8RKwKlgv7IexL3xcf3G7UWDeD6TW0dXwnPEVsBDkO8k 9w422Nh+DEkj5o+93rdvX7X2+EbtrbGYYJX4Dr/xooHmAy/d6KYn0MFcD2ww +afnn39eYf/ssXc/THxQehAfIbf44IMPqrUnXkY+Ab1tMmavHIudBm4xlHh0 gB+4JvygfXYTLE6QRswCHmPP6T2IbgIDYjp/E70QlA90B8vJOMAFoyvAHoLJ gieIcxOHRn+ZYKWdjXGR254yZYrcf//9anzg3cinDY5iyE3HGVQvhMGmY5fh q4IZY4+Ct2Tv4csja+A9MGZg84jdkRtzYiQ1No/9Ds+/+eabCquID8T1iJeD ZSVvEAbHCg20PAgSQwnS0UvwBPsVew05QdkY44cHkV0vv/yyik/PnTtX+Thg JX/66SeZOXOmypmC0bw9mt8GuwpOE5pipxMz/9X6LCyO2DSWFhafaNcZrBF4 FXAa8AXzAbcHdpEOTcCf6s7/YHf13+x3ZAvjhQ+mWPzFGuK/FmVsXvmFMJgs k85YGTN7llgG8gEZfr313sXW9aELexs+gV/Q82B8yOcgV8GdYZsT0w2Lm3Wj AbLKz0YyxWSF4Q3ogY0JTVhTcBxNmzZVNv5dFs+89957agzYOXwPzAe/S+Q4 TOIHieQDv85+hg7E5tgjL1n8gUxlzsV5b00DcCR+urEkaEAnzoWMJx80qoTq RfxwKBqvXFx7wa2zz+EDsGTU2hRF1oWhgR8mq7hogBwgPv2wJefQc8hA5H/p 0qWVzYcuZWzkSb+0aJKIuo2wNCiKfeDs6APmTFyeebL3dR2Ls84TvYh+oPM9 fAHi44MtnySeP1hUGpji0oJ0fCl8SnQ868z8yNkS8yUfSr0I+HNsaXIi2EvY SOCeqalqbdlZxG91rQ9+TDtrXMT4i0oDbDUndj+RNMCGA8eKXGF90cXEeKjd wZ+kBoHYHzFg8iHcl5oWXvmfv4nHULvMGMFCt7HmDU9gWzF+dMifPnhcv74+ Wq/lzLW5+Uxh5NM0aw/jyzBW9jb+Pfgt/AOvXDV+Jd0el7bvUXxw/MXPPvtM HnroIeUvsFeI28zziJvGo0G8vaDrnYLwAbYMODj2Ox1fAR4n52P3nb1ibX6x Azv2kHwyewjbGXkBr/lhk8PIgzC+MzoemYeOR86z9sQ4w+EXvZumBX4lvPXE E0+o2iHGCx2CxA/8/IWgewG7rrXFW6wJvMneDZyXN5i3s8FbxBTIK6Jv4N0h hvwQD5OlZWJrg7gMPkw3S+8RO8IHIsZBnKu4Y8t2u46YPnkV5C77YooBHUz3 gonvjG1LPBs/j9/pmLJfLiDMXJ3v2WnAuMFN9+vXT8lK4vwLfHILfjIxqI2E 3YOuB5fy7rvvys6dO0s836ivj6wkz4h8IMbK3PxqdE2wOPHkAf4vNQzc75ln nlH63m3eiaCDadyRWCU1tMSesMkG++hMOxbHLedqoheIF7L+xIa+/vprcyxG xP5iw6MXSNEVxmibUhA9zLklxAqpp3erXdB84BVXNqlnIj5GXpO6SvI77AGz pusUnPSw4fU9Jxs/jwlfkHckDkvuHfzFQBf8hR8N3PxGNxpQywQfEevi98Hz rLkxzFHh9wuSIsbvAbYSc8AmB38BptTNtyhKPRP/kz9AF/fs2VPZr6bNjjnW GDx7PUcBAuSBkCQMPhH5+Msvv6jacMbpVgvtZSOZ0ABfHjkSBrdtx9jlYw7D 4Q/jNXT0q6++GsOiOOORprrRLYYCroNYMLi/4Ni8/H0fycqU1H155239sX2n HEg5JJnZWQVIUfCqZvJAN3xP7DV8NmxX0zqWeDFVXcfCPsIPRvYE1XmR3Gw5 sn+7rPklScYOf0v69+4pffoOkKEfTZVFKzZJSnp29Is5RvP2ashG/DVkN/aj s47FK34Qjw+wi8Hl4RNprG6g+Vvz2v/nBpk6rI9cf9mZUvHoKlKzRm2pUe1Y hVtvcOvD8uGMn+Svg9mSHftRgRfjhi8BVhfflRjMhw6ZYKeBX37BaSOhE8Hj YReAOQmK2c448LskjekrTS+uLRVPPEtu7thdBg8dKUNefFKaX1FXKletITc8 OFC+WLpdjmQ7YgieV7XJVEcDm/Hcc8+pHOXLPnUsfnvBDbcevo4lW3au+Fpe v/daqVejrjTrOkjmrvhLMnJy5fDeZFkw9TXp2rqVdPy/UTJjxXY5lJVVALdb QG8YNjt2H11mQgP4x89nstexUMOh4z5mLV02zB0v3a+/TOqd1kCeGTpNfk3N zlvBXGummYckbf8+SUk9bPFATt7yauhuxAlYLqhTIx60od6KcxGo4ejmqGPR NpJJjsVZxwINkDHutTy5jtdoU1M4IL9/N1Geu/5SqV//fOk16nPZnJKVryui eOQ8q8EhD6P4ZT3VGHTZQ1bodYEGupbHq47FTx647QX4gHwAv2UvFD6X0Z8G m+dOlqeaXmLRoIH0+uAz2XIgb32p40VXpqWlSNrBDMnKjq5xJP+6uRrIH6CB n+3fv7/aC+Dn3PjAJH5g/522j5CJxIqgs3lLlz/mT5GeNzaSOiefKff1+0iW JR/Ku++RXbJ61mh5rnMn6dJjqMxeYsmDjCNy5Ei6pO7Zp2yH/NrXgrZjJOJ9 DiIyMVbH4jjzLghe2akXiG+jG4n922s847dsSdmyVCb3uVcurVVVTjv/Dnl1 2CxZs3mrrPvhS3np3lukfsXq0rB1Hxkzd51sXrNIprz0tLS78jJpdXdnGfPF AtmRlhGtb4vWksUGXvhu9hpPHWs09Rv95AG4K+qCwBpxvgD6N1DLTpEN34yW /7vmIqlWurSUq3yC1KpTV2qfUFUqlC0llapfKN0HTZYlGzfKJ0P7S7sWbeTp Z3rKQ11aS/vuvWTG8t8kNVrjVVhGFrQT8Rl0HQvr7TwnJh4N/PCJUy16ohfI kRKvcGvecZM8G3Fd0kQZ8OAtcmrNSgp3UarUUVL7/Kvlif6j5ef1f8rBwwdk 44qFMv+7H2XVqoUy6o3u0rZrN5m2aJ2kZdtvlDf/PFlZUFZgK1Njgq1MHMGt jsXvjCg/n4nf4o+yH/BPTWLndv9XjTfriOzZtkkW/TBP5dm+TvpWFi3ZIMl7 0yUzOpWcXEs2pu6UlVPflydvukue6D1Wlm7dL5kxfzK6bhIp4HPpe2EbUJON LICfnbgt+zlZnFPnRQO3+AHXou6bOhZiaMF8Z4drrGR/jo2tbTyesUuWfmrN //rbpPOjb8q3S5PlcHb+hfLsgpzYde21PugrzuED98U4h7jk803jiW40gC+w vbHB+T1ngfjFUOz7Iabf7Ho9ShA7r2RmHpAtcz+S/q0aStMmLWTAiOmybMMf su9QVsHaN13v5NhyzIEzkBs0aKDOanA7B9Ukx+JXv8DvySVAJ3z07du3F6KD q/3oMPcKx9RE1bEd2rVaRg/oLGdVKS2Vq9eSC664Rrr2GiSzV22VVB1+iq17 wfsiC5ctW6ZykvoMDLe8rPaZsBPDYLbRD5xdSCyfOhbOBtK+g39uJde2D/Lf y9sTEV3MJxnpe2Xl4nkyfvxEtZ4fjBohX86cI7/uSInKA2fLpwOxTfItxDr9 6lhM44l+sXVidMgTbDCwh+BOnXP34oWYnWPbA/rtHMl1oaO2i7ILELDg9fPO QSdmoPFd1LG41TL5xRODYPeJTZHT0ue0vfHGGyqeEA+bne8P2OZXQNbn/x8p ZAdIQflp46tsy74G54rdQs6bGswffM5DNompIg/i5RuxncFPg4sAb0AduNt5 UYXo4FIDV5TGNainIsZLDpq5cfaHH54zSDzRL98IfXQdC9giaog4hxRfJUi8 PUx+Vn8PviPXiH9ILRsx1N7W+sfDcSWKBnpPULdAvgmcKfFWMOabN8c/QzLs Z7qhA4hpguVFBqIHkAGmdSzxzlONV9tn72BN0cHkXMjBQ78ePXooDLqbHRlv 3U1ylOTUvvnmm9hZoqw/MQJn/NiEBn4YjCC4dc0PxBvhB33+Bmc1Y7fqc0P8 msnao4OpYUNnotvBNdrrmExxKH57wckHQetY0Jn4q/iWYPCJOVFrQF4Wf17z Rbz5OnmBtUH/UsND/ohcIng3bABsYXBwQcZanPULjAN5BDaN68OjYAuhCTh8 dAf2NfsYnBo5XjuPMGfsfbAs0IxzAKEfMg+9z5qDccQ+o/ZwlsVrfudl/h00 0B2MGjUHuo4FOYGfrM8aJ08BbgQsJr4jvht+Dnvzyy+/VOdxc7YAORLGAh3p 0JTYtq5jCVvPEK+GI1G4dfYGdpq9jgWbihinxuayX3SdDq9gWXmPznf0ufPE LMDiUd+D3MN/TVQdSyLr2vzkJWMGq039J3UsHaP1kOhS9BqyDT6BXxgb+GTs DmSLwvlZfENcO1H1HGHPxSlqZ93wt/DjmA+8zL3wPfFDmT97hDoWzt3nc2LZ 0I/fJWocQfiguOsXNE3gbV0ji8+LTOX94qxjCBtbL66OzCD2ia9HLLwk7mla 811SNGBfsPeRfZwnkej6LT8aBM21JaJDU+6PX8ezXvBx8XXAuCMT4QV0AHVu 2P7g34r6LBAvGpS0PAA3ek/0vsRdsKfZ/+gDt44fil5ETpI7Jy5IvQJyMhHj KUm9gB3HWrO+6H5dp03cAVwf+WvOMGFPMhaw6NQ3kxugFhg9oe1uOrEK7AR0 ZSL4wJlfsOfei0oD6EzNDVhm5g2uHDuJ87uIeWIH4/txP+o6yIngS+iODU1s kNgA9uOoUaPU85TgT2wrbE1qvsLWexWnXuD7U6JnqrHH4WFyvwsWLFBzste4 25s91uDmW0MXajc4T4Hz6qgPZi8Rt3Fijf5OeQCGGRwcfjO+Dc8BwD/C/3GL KwXBtuu4G/4UWDbwD4wPucJY3w1Ih3hx5TB7AR1PDRdjAquDP0RONl4MxW++ fo2aL8b+1FNPqVwSWMz3QtSxaAyGnQfD6Ebmj5xi/cGpsHfxi03OOjGNp7nV BOBzE0/BryanBC28ztk3lYlhfGd8V+qY0GGcm8UzInn+mdf+jjd3P5ng1rgP eS58DOwKZLDJ83kSKRPBNvBd/DziW2Bkw8YI/eYcjw7kfpG9yEp0r19uwU8m ch/TZ5HQuQ88SLyMmgG359HYr11c9SxcV5+VhK2NDQGP+9UFJ6KeCX+WehHu Bw4SPW4fU0k3rTOQb4wb32Ogj2zwiyvrmGq885GmRfNsxIaIcWuMmts+Lk4e cDb2IjFLHYfxqov2wuaZxpGIgRDfZO9xhqTX80CdLdF0cLuefnYXtV3IRydG 104Dk5yrFx/wXD5sAOhALNQEe1CSvAAv429go4IbcvMtTPFIbnpB17HwOWf1 +WFxippLC9vgBV3HAi+4PcMtnn3gpxvxUbAD4CM7bttkviXJC/hj9joW51lS 8fDKfnsBXAd1pMS+nHWBQRq6DJ4F64o/gV21P+WApKSlSvqRw5KdW7Qz5rDR qWPBVrg6GrN08oHb2YHx/AVdx4I9EO6scZ1PypW03Vvk51mfy9hhw2X48PcV 9nfEiGEyfPQYmTz1K1m4fJ3sSTkcw+oFLeKwYzRZbycmJ+xZINjFnOGkn8cS tI4l/xjtTNmx6jt5sX1zOaVsBalyXHWpdVIdqXXyiXJClYpSuUI5qXf1XTJw 3BzZlnJQ4VZyJH7OVt0iutfsZ86Tl3PWsXg9x9NuH7jRALuI/YNdQC4sGGY7 RgZFg53Lv5GB7W+WM6o2kDse6ClvfvCRjHj/DXn5mTul2eXHS+XSpaRl5x4y Z822KC8Ew6xDC+IN5OuIxbk9j8XvPBQv7D7yEOy+rmPR53qY17VF5xLJlN0r v5WX27WQS8+4S96Y9KPsyM6RzJx02bdjuYzu00kalC8n13V4Uj5bvlkO5YST oxqris34nAO7b4pHcqtfAIunn8digikoQIMYMC9DdqxMklfbNZfzql8hjzz/ tnyaNE/mJM2QSSP7S9tmF0rl8sfIHY/3kkUbdypcZhgq2Gs4OjqeQRHkLBC3 57HY61iC67rcmDwY1L6Z1C5dRspUqCxVj6skFSqWlXJlS0nZY4+TBi27ytAv Lf5ISQ9FAMYFDTiPTuNB7HPxkwfx6pn081icdSxGPnGUBqq+a9UcGdjuRqlf pao0uaGptL71cjn7pLJSqmwZOaFpFxn06VLZmabxiGbPY3E29gJ1Fl57wYQG bvJAP48leB2LvWXJ7lVJFg1uk4antZDXPpwpqzYtlvGv3idX1Skt5SufK/c8 P1QW/LY/Tx561Kr4NdYEG5bcHXZSPxfd6IfVtfuNTr2g4/3EC5G7QVp2rCYp 25IHs+WVDrdIw3q3ypsTF8h+S5/v3DBf3nukpZxb5ig5rm5zefr1r2TTzqgd GpAG7FNi+PpZZSNd6ljg53i5NqduVHUsHTooPghVx6JkYo7qyER048WntpTB YxbI7syI5B7eL5vmjJfurS625EJpadjqUZk8f6McPBIct6ifWQdWjvX+zIUG YTEYuo4F/Blxc+e9/Vp+zZ615mtmy2sd7pTGZ94tQyb8LHuy8moZjqRslllj ukuLhuWlWvUm8tRLn8nGnemBYnC86joW8hzkIJx1LEU5J4uzNYgdq2esjxun 7HJjTGpMN+ZKVnqqbF+/Rlb/skG27zokWfqzSJYc3p8sm9cslp9+Wi4bNu6Q gxk5gZ5VBg10jSt5jjuj2J0wsTQ3GtjrWPSzTO1rEI8Eed+11Z9E5w4+Wz+b TuuPSE6uwrEHbdgt4EPJzeE7D3HJOxQl9861iF3DB8TRyJcGOwtEV7NEYkQp gEWP+RS2M1JytSyN33RcGCwPe5Zzm9zqWJzxRGeOhRyJ35lx/J4YAnQiN2x8 LpgTo2+rVYjxiK5RiEH49diMSKDiGdQ14ivhJ4BhcDuH2xSr60UD4hHkFbCn yauDJzSpgS9Yk5ob2wORAv/n0yfvLe/afrdGbJMYJ7FO4hx+dSx++QWT2Dqy kd9jgz3++OOydu1ax3yLN17kFpPSzzpHZ+EjUMsUto7F5Jws3p8SPSeK74Kn oPbXNL9sOk/T94mZUMcCLhacC7rL78w0u7/glV8wOTsQGoODAD+N/AF/aVLH oucRZI5+n2ETgudGT5HzwaebEKeORcfSnHohTN6ZuDUxdrBDjRo1UjlHOx2K uifi5R51HQtnKIJ3hQb4BkHqWPywea0M6gGg0YJoHQu5Z/DZuo4lzLM3vPLN bnlM7ADsdeqY8AnwjXpYtovJ8yj8nstj3wumOBRNBzDmYK/Qq2CPFi5cqK4X pvnl3vmfOPSMGTMUtos6Nmq58I9Nn8dh+lzfoHUs0IE4LjELOvYkuDPwGEFj Tl7zR/aDu8CGwUZhDyKPOO/EpI7JjQZOG0nbWOjXoBhN6IDOBEeIvAE/hj0J XgYbgv0R5IxZ+/wZF2dE8nwOaAvfc31w78NC4DgZJ2NEj7rVvVMvg85D1oGV D3JtrS84Jx38LWOlbgOaUnOE7iBPTX0K9iW4Iuczku11LEuWLFG1xNijyHDs Ea4HtpVYBnZwmOex4EciQ5kjvoWTBuRnsLGIm4U93xy9RN6bXAxn+CEnqNMA Z0ldLDzWp08fxXPMkfMkWA98fvYP+XPOFsD/Z6+D7+T38D04fzAPYFbDYvpn RPEz6H9yk7ohD+BV1kmfofFVCOyfXVaC14MWI6N8gSxGhoEtZD2ZG/Ureedh 5HVNK+pY0DXoO9aEdedMD+bOdcPiR/kd5+RAT3L09lptGnY/+456IegP3i4R 9RNcgz0CPahL6dSpk6IJ8Q3iHOw94lPYWpoH0TPEq8D7Iu/g+bDP4bF35CG8 yV54++23C9l17EXwpNTsIm8Y1xSXMxjDdtaAfcJ8sGOQZegzOvdkjfmb96EZ 652IeevOtbAh4EV4HZ4n5mRv2DXIYOREt27dVKwE3JWX/5VI2uhenPcgnsKc WF98nHXr1hU66wq5iA5Gp2OD8AwhZDFybFgcG/yf3OErYgnEFPQz9cCC42vj bzmb5gXi85988onSx/AOMgyeIH/JnkokjxZHZ70WWbIPH5o1xJ5ABiDriH+h m7Fj3Xxd3tM6mjPdP//8c1XDDZ4BeQ4enVdsQfxUbRd6dXx556vzPbf3vb5j f0XnOu+lO5+hVxgvn1Ebim9FPBw/ixwR8/Ty66ADewJewTYFe4/Mwj/Vz1Bn /ugv/QyVRHbnM8zive/8DrUw6FR8OGwRcm7kSLG5yA3p+ceLhbInsBf4Pr9D Z1Jngk2DHYU9CV3wl006dq7b317fcXufV929PtN/M76pU6eq57uwhtgBYJux TZ11FH4+PnTAZmDfELOndoCz1dkjYHHwXe0dOtn/tnfn9/zes3+GXe12Pa97 6f/BKTJO5BrjZm+jB5m/xpQHyV/xG34LX0BHzlLFfwX/xX4J2oP8DtoH/R5j o8PDrB/riF/iNm/7e/8PbKn54Q== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], $CellContext`Leg2 = Image[CompressedData[" 1:eJzVnQe8XEX1+NMLCCShpBAI0hUUFEHFAoqIdAglWICEFoIkQcCgFAEVQUK1 0FWkSFNaEAHBUEQMRSCkEEhMIL2Q9lLfvt3z3+/sO/vOm8zMvTck+P/dz+e+ 3Xf3ljm9zJlzP37S8P4ntW/Tps0d1f2s6t6hulcqFWHTz9iW9Xue8/zfipz7 f2kLjT0vrEXhLnKt//v8+fPl9ddfl7///e/y0EMPyd133y1//OMf5bbbbnP7 7373u1a7HtffQt9Dv6Xu4R+zv/3+978P3iN0v9Q5ea73xxP6/MMf/iB33nmn 3HffffK3v/1NxowZI++9956sXr06SYPUsaL0XrFihbzzzjvu+VdffbUce+yx 8slPflI22WQTqYqz29u2bVv//mH2PPfxz1lXz16Xuz+mjh07ysc//nE54IAD 5LzzzpMHHnhAxo8fLwsXLqzTpKi+y5LDlStXyrhx4+TWW2+VQw45RDbYYAM3 lu7du8s222zjaPjZz35W9txzT7fvtdde8vnPf959+nve47Hz/HP0PH3uutzt GELjCR0LjYNjnPu5z31OPvWpT8l2220nm2++uXTo0MHRc++995af/exn8u9/ /1sWL16cS8ay6Ky/TZ8+Xe644w7ZZ599pHPnzrLxxhvLZz7zGSd7P//5z50+ eO655+Stt95ysjl58mT573//22qfMmXKGsd0nzp1avA8/5rQ/6H72vvl3WP3 Su15n6PngRfkDL358MMPy7XXXiuDBw92tFNa7rLLLjJy5EiHS2QmDw1TMjlt 2jS59NJLpUePHtK+fXvZcccdZejQofLUU085WjEuzmFHl7Pr9/fff79+TP/X 3R5P7fa+sXvo99DzQt+L7qExh475Y03di3OVvi+99JJccsklTk67dOniZOSY Y46Rf/7zn61sY0gmy+VykK5NTU2OB773ve/Jxz72Mendu7cMGjRI/vKXv8jb b7/tnst44C3Gwqf9bo/Z3R5X2tvf/D3ruN5D8YOu0H3GjBmt/mf3ce4/24ch NZ4i8IbupWMABnD64osvyo9//GMnI506dXJy+de//tXJYYpWIfmDdkcffbST 6U984hNy1VVXOV+TsVjYle9iMOSB08dPCO4Q/aEFNOE78DO+l19+2eHh+eef l2effdbt6HZ4Gdvy2muvOR2GrlRapnjQH29orDE66W8hPvHPU5lkbHfddZd8 7Wtfk65duzo79eijj8qyZcuCtArRdNasWXLaaac5u4qtvemmm2TSpEl1eFPy kcXPMTxYWQrBZ69X/kF/v/HGG/L000/L9ddfL6eccorsv//+zob06dPH6fxu 3bpJr169ZPvtt5cvf/nL8t3vflcuu+wyefDBBx0tVZdYvRaDQb+H9IalVRZc IX7Q71z/7rvvOpgOO+wwJz/4PqNHjw7SytenH3zwgbN32NNtt91Wbr755jrt VGfG4ErBHaNvSkdZ2WBX/E6cOFFeeOEFufzyy+Wb3/ymo9VGG20kG264ofsk lsHH4tN+5ze+4ztvttlmTj/hv2MT4HuL/5js++NKyV+Ify3tU3qZ85544gn5 +te/7uQIXThhwoSk/BHbIav4tsQFV1xxhcOVTzP1qXwYQvTLgikkn1bf6P88 E7585pln5Nxzz3U6HXqxQz/o+KMf/cjFyOQT0P/qHyBj6M97773X+ehHHnmk 7Lzzzs6uo6O23HJLJ5fEYeDI2vYYv9rxx2gSoktMDhWn1g/CX73//vtlt912 c+OEHshXTP5mz57tYoJ27drJt7/9bWdHsC8hGxeiW0r+ss6N2QzlWWzbDTfc 4OIn/GD8NOQHvYkOnTdvnixdutT5a/hePozspVJJGhoaHA7QKeRC0FGbbrqp uycxNb71v/71r6B/Zsfp0zVrD8leDD/2GfAT+nCLLbZwMTY0sXEfsPId2YP/ iMW33nprF+9ZfrDwZD0/Rkt/V54L4UdtEp/4H9///velb9++Tvdhx2688UYn V8S6RfONuuET8KzHHntMjjvuuLq+habgAnm3chgbax67kOL9rHsRXxx88MFO Bi+++GKZOXPmGrwJ/5500knORhBTEmMiez6OY8/PO5aYnbNxrh4Df+D20EMP df40fgj+NTodOUrFtnnop+cglzzvlltucb4Cz8LvQ7axiz7trB8Qw00eG2Lh tzjw74Meve6661wMt8ceezhfRjfs36pVq+TVV191ehY5veeee1qN0Zd7/c36 Vf4YU7Lo66GQXLIzjm9961tOn5Obu/32253ui9ErRs+8ucTly5c7O4kNIWeJ H/DLX/7S8RG6wMLh+6BZfGrxFaNv7JNrkSf0DrH9b3/7WzdWNvQneVNy9djx L33pS46+xL4xmqRss3+O5dOU/Fo4+cSPIs+KnSNv+Oc//3kN252i0drOTWE/ sX/HH3+8893hG3BDvGh1aUj3h/CVsnd5ftPnYSuIj8AHtoRjCgu8deaZZ7qY 4fTTT5f//Oc/UbyHxufTKfS/PTfEu/aexNz4T/jN+CvQEvtcVJ6KbPaejY2N Dgcnn3xyPbeMHwgOY/FviH9j/B+Sv9Rx1aHM96Af9913X5eL0HHjix100EEu 3iWmYpzqO/j3D8mQtQv+99g4rd609gW8nX/++c5PwQbhI6quWB9bTG6VhsQa 0BA9/o9//GMN/sxrP7Lol7qX2hN8KvIQ7MzfsaE/mRdCR5GrYJ7R+hBZfJKy 0fb5vvyF7gWPkS+AbvAS8c6cOXOiuF7fNCXvSJ4GfIEb+Erj4Rh/xuQyL75i eOaZ5Cx23313F5uTc1DfBT7baaednO+MndGcYiy/HBtn1nG9Z4gfOQ5/w+f4 DvjCHA/RbV3SMeteixYtcj4MeQJyBsgAtjCGCwtPSp/mkUPf3hADq39MjhTZ g8fQpRpbYWuIL1LylKJZHt6y/ys98fEuuugiF7/AY+SO1hfNimzgiBiC+Rzy NczH4KvbXGnM3sdk0NLYlzcfh/qJTDEO9CT0w6ci7lH69ezZ09GPeAvf049H 8jzD6sZYjjDEt1zDfAGyRx7khz/8YStf839dy0SsOWrUKJenI6YgD4fPEOJX C3PMTqT2GH41F/OFL3zBxRDEqvjK0I+Yx9JP5S/0zND9s3RmSDbtJ/MIxKdb bbWVi08Zg7/9r2iozwUnxIXYGOZmNL+Roo9P1yz8xPCl9LPyB/2wffh25NSg H/kZcMf8UczXiPFH6veYHdf7jx07Vk444QQXb11wwQWt8kMWh/+rjeeDJ3xh /JhPf/rTbl7Vzz3kkavYd3t9yLdFXyN/X/ziFx398POgH3EV8SpxhdLPxu4x GsVkKs//1ofB52RO4atf/arzq/Cf/PxzJn6lzJ/qVnYfldrB2nGpHbe/149J vvlspSFzGsxbQEPmRNEbeWx8Xnqm+ED1J7Eo+hP6oTvhK+jn2z//Pvb/kEzG zs3Su8Sav/rVr5yPjm5g/lzxVYCAVVJUpNJUliWLF8iC+XNl3oL5Mn/+B+5z 4QdLZdnqGq2ammlWVKIZD3qJvAJ4Yp7C5jmy6JKSwRjtQ/RD/nz6oT+t/BXx P1N08vWkHrcww9NnnXWWy/0MHDjQ/V5sa5ahSpOsWDhdRv/2Ijl/+BAZPJj9 VGerhp51nlz4iyvksX+/Vadja1nMtxFLMHeP/DEfgM+VyjPlkSv/nCz64b9Y +wcNffmz/ktqPH5cnuKzED2Jo958803nkxNfXXjhhbJgwYKCWBUp1ZSlLJz+ utx8aHfZtE0badd5Q9m8dx/p07ObdKj+375tB/nKdy+SlyYtqp4v0qJo8206 x4YNZO6eOOzJJ5/MpF8Wn8f4PoRL3/9U+6f+S0x/5tEDofFk6QnoRw0KvAxP oUcZU6Gtgk4Upz+XzHxN7hq0qfTduL3s0X+Y3Hj73XLvHTfIBUfvJz26dJJO G31Drrr3DVmp9KtRMvdGvEWOgXmcfv36uZgixaMpGYvhJKaHfflT/an+S0j+ 8spSXlvt8xYySCxMPpYxsXai8FbBojEH3SQNM16X20/aRPpu1lX2v3SUTF9c /bm8Sma/dLt8cdfe0nGDz8kvb39ZFlVKRcXPyR/5KmwecSA0xNfKokmWHo3R 1T8W0582foB++MVWf8byXSn9kBqv3fE9yR0wZ8WYmO8rvpXr+F028w2584Tu 0neTTrLnwJHy1POvy/ixY+Sea4fK9r02kM4bfkmuuvs1WdEss5WCBhC/GBxC P3xlcmkxXy4LB1nH/WtD8mfjh5D+zOIr3zeJ6YHYJzkzng39yPGzfqnoZmOH xTNflz+e1EN6dW4jbdpi89pJuw5tpW2bdtKmQzfZfv/z5cFXZ5hrim3IH7l+ 6IcNZE4JG+DDG6NBHh73Zcb6L8TvIfqp/OFDKP2y7K7+Fovv81xP/MSzqVXF JrPOSuvhisfs1dihSr/bB/WQnl3aSvuum0u/bbaX7T6+rey0y6fl0FMvlvte nCJLG8stNrPAI1R/aq6RuW7NZYd4M8TDIXvk/x6r9VX6afwQ058+/UI0yGPv 8uh9lT/m2ZE/1m3Yedq8dKsZsyZZMvs/cufAqv7s0UX2HnaDjHl7isyeM0/m zp0rSxtWSmMlcF2BDf+FvDqxDvEqczhKPys3KX0Vom2I7/3dyp9PP9WfNv8S o5n/3Fi9a57roR/8TPzAvAN1ndQwFtoMDZZOf1XuGNRdtu7RSb514QMybWGp loepy3K5VY1MUQmnPhG9Rb0heMRX8PVnFl3y2LoYnmP+i08/P3+dRx+keCp0 Hz7xX4gfqIEmf3D44Yc7HquTppIHw6VmOpRl0ew35NaTqnqzexc5sEq/9+at Nj6K0s7mzfKvB2EjNj3nnHMcrzFWYoks+qX0VYrPfVzZ/EvK/7T+S9b8h1/f nmf8dkzATu0t9VTkFZlDpnaqiO3TM4kfls15Rx6+8BD5zM795NgrH5FZi5ta 7FylSVRnViqaXy2W/ySHzPoK8HT22We7ukxd65jCU8quFNFzmv+09EvF7zH5 i9Ejr66w9GNMxMHEgOrDFLOBpRYirl4pDfNmyrSpU2TmgqWyutL8u6F1bS9G NzZiB+bZmOdGf1ILzryJPxcfwkfILuahnT3Pn3/Q+b9Y/JAlS3loljqXHbio J4GPTz31VOf/UrdHnUBu/DbjuCyNa9DJzju0/l5s4/7kPlk7ge7EBuk6yBD9 /Jx2TP6KyKTOv+fRn9i/2PPy8k6Itv4x6IcP88orr8g111zj5rYZBzVUhQjY /NGUoFOdpi3ELbQxTugG/ai/pMbRX3/s48nSMUbTPLqV78ifjf+gn+bP7Pwt usyP3+19QvXSIX5K5XXt/9gPctiPP/54vdaaeQjw4svA/2qjvpn5PvQma0jg L/wutX0huEM86/Oujxf7WwifNn8dit9j9MuS9TyyGZqrmNpsA6klQYezBpzY irHAX6F53KyeC+t6Ywxat4d+ogaaGJA8DPQL8WTKB/HxGlqfFsKzP/+n9i9U P6H6M2X7Qr+HdESK1kpXXUdLDyDqiInlv/GNbzi7+FFuoTpF9JbWYbM+hLov YlatX4rZBvsZyy/616R+j9UvpfyXPDIY0+N59LuVQfwY5kOp2WXNAbxErMVv IRyvTxnUHB7xOv1uiE2pWxo+fLhbG4q+xx6maBDzU2I4ScmFrz/t/FGsfsIf m+8Dp+QyZgNi1/E/ugi/EztIPE9+GF3KnG4sJ7MuaOjzg35SM0iPFmqVwNdR Rx3l5keY78LvDPFhCtYU/2bpKyt/qfxnTH9m2bVQvjxGrxi8Gguim8gLE0ew 1oZx/eIXv2hVR7++NqUdOCE+oB8LPaaI2ZFD1pFq7wqL15j+icmm/3/IX/G/ x/Ivvv8Sih9SuM+ydyk9bOHXWIKYmPEQx7NukzFRF4pe5XyL5/WxoTPpJ0We gzp+1j+x7od+EPic2D3fd4zJWxYuUjgO6bSs/Jnvf2bZW7/GP2v8KZj0fugm fBnyaOj4AQMGODlkvhTfjxxI3j42RTZ4Av5hrQO5POSOejj4BtqhN8FfaO2D laEQvDHZ9GFP/R6iX576wSxaxcaaV5f452k8QZ0C/gzrNFjLQr0COP3KV77i clfgOkYH/3vWWk5yK+hseAU/BftCTQ7rp5V28BU2OgZTDBehc7Lo6l+v9LP5 F43/QvRL2b8i4wnRNMtWqz3VfkrEXsxzU2OIL4FOwx8kxoe2+K2s1YvRMLYh w8QG6BtqvnfddVfHH6yxp5cI9g4dQG6IZ1ibZ21/ysanaBM6J3adTz+//ixF vxjeUzo7i7f8+4V0D/iChvjqjO+RRx5xOTb8QOa+tXflEUcc4XogIj+sSeBe 9KTwY3/4FLiwYayxotYNH4meIdyLvBi9cvB94Rd8Fc5V2oXyJXl4Msu2xXjd /57H/4R+av9SY42NLWscWTpC+cz3ach1oMPQZfjwP/nJT1yPD/q8YRvBP7EG NfjURyOr5HKwXVdeeaXLOzM3jB6mzw99pVhrwQ4vMPdBbIfPRG4FfGCDySuE 5C6m+1M8msXfRehn5x/y5K/zjiVrj+mOkB6x14BHxo5NxH8Bx/iI0JF8DbWY 0CKr967+zho1cpnYUubxoBtxJ/oSGdY+ptZXSY0/L9xF9Jd/zMbv5IKy6s9S vBbjGX1ObAwx3vSvt/e3/T7BKWMlNmPOl9gen4M4DXoonaAPfc7webBn6Flg 1t/xs/Ex0b3Qj96K1L5BP2Td9urMokeWXOn3UIycoqePQ1/+itAvJXupPUbT FKxKK8YAzMSDrE9iHTo9l9CNzFOoDmS+gnlD9CfzT/j8Bx54oPNvWAdKvx/i DvoQ0D+FNdDQFT+Ta9lV9zIHSQ0VOhoZx3eBZ7RvqO1RGIM/j96JyXBKtmP1 n6n8mb1HqE4pj/6Iwac8ZXuuoq/wscAbsoCOZL0IvfeorYBeyI/SDNlivSe0 GTZsmOudgVwSXzDfo/3ggfU3v/mNO04sjsxRM4X+JDeArFr5pL6T3uLYTGrC 4R/yQvhSjFF7w/o9YGO6Jsbzqd6pPn5D8+/Wf8EnxxcIrV+x90cm8vSzs+ep LgJm/WQHF9gacINvQjyALw+90G/oOe1Vx5offA34j15l9Br89a9/7fQe65nx P8lX4ltiy8gzM8cKH4B/1poAG+dwLj4m1xIn/PSnP3W+DX7MDjvs4HpfwB/Q FFzRE44cGrIP3tTHIb7R3ky256/ypKVtKH4O/R/qMae0xhcO6c+Q/6LPVDqE 7m/v7efwVNfwXWUK3wN80jub/iX0ekTHESsjX9ALnPGJzcK3pzabeAxfBZlC tzHPhJ/Mfbgf92WuiWeAU3Qudgx+1Z3/8SnxYzkXmKEv96AOEP0MTenRRb4V XYqvynwt9CS+UHrCR+hbeh0h18Q28Af1aIyFNYyMgXjf9msGN0rHUP+x2FpC /c2PH+z6v5j/GZtL8I/b3lLa7wl8wqv4ByeeeKKrs0ausDc8Cz1ofUN25h3Q a2eccYaTL2QLmQHH4IecDPjHF4Ue0IVnYaeQBRur+ePmODglv8M14AP5J85D Byh/wVvQBDlFPpXH4Ccds/V1oSs0pm8j+MWnIn5B/0NLv19zzA7ZY76/Y9e/ W/rF5C9175BO13GBE/QVPSuhF/TQvrjYGWiHrgZedu2Hq7pSd3wRbBRxtr6r ROUK3EMDaOHHZ6GxxnwIn57QkmdAT3iFtX6ss2XunfGpvwP++J9+Iuh1YMT/ ZdcelMAMbNhn7C201Ho12wsvi476Xe1fqv46VD+Y18aCA/BMHKxxNeOHZ5lH gB+xb+gs+Ah8wZtc86c//cnRidxH//79nYxyLeMEN/gn9CNFN4bWi6TgzsKN z/OMDRygG6mRZwzQSX0abCA5AfwaZJT8HnTBNiHD6Ap+/853vuPm66Ev94Bn kUtg5Xyrs+wYQ7ZIz43Vn+WN/2K6FF1Grhc+Ra8AL+/6wN9HXsgPI+fkKck7 kp/k2RxnTTnPY46WdQp8Qlt8C/wYxoXfSd0ldV/oT+0FGKNNSNZSsqg4Q+6A g57t6ADwgZ3DxgEjeonxMRfJuNnpUwNsmq9jjQQ4BTbujdzBk8CB7OLvYhvI z/HMUDwSqkNJrV9Jzb/79tbSEjxi/7H18BfXozPx2fmNOWw719Nq7UF11/4z jENz0HYOFfzgR6JH0U3IJDKAD6O9cbPipxDv+XqfsfIchQPdCBz4V8C8ZMmS VnBAIzt2/o9t0Ba6c398APwybAm+EXBgt62fHuNBjvn0i80fWf/F3s/CzXPJ g5C/Qj7gK3xE7InfL3Bt++OywdfQEb+QsfMs5iGIs7U3bkoGs+w3fAAc+Ccq 58DBcX1vRtaWpz8b9Aev6F3mhnkWco5vh47y+8P6OA/pT0s/YmG7/s+nvZ9D wbbDo+hLbCr6Dj5dXxtjxV4ii/h8+HrE69jdFN+G+Fg/kS3gIO7jnuThsE8K x/rokwcc+OUWDuIVfUdDbLx54vc88scnsRL1ffjNxGfEzCGY13WdA3oK2HmP D/aJOTtiQqtLbd4gy78hjiQuBx/k1iwc62Oz/baJQ4EDOVQ4bD8gf04tq34i 1P/Fh5ed2EDfq4MewH/Udyx9VHW15LHwZeAf+ngg+5Z/Y/BbehIfWDiIv8HH +uQ//54xOEJzAFn9s2Lxg8UDPtiIESPc9TwP+6s24qOsieZZ+OD44+ig/fbb z+XfQrKntLN5JOJ+YnLgoD4JHzGvrVuXMOg7wrRfusIRimmLrv/zbT2yTT4E WUdWmQuPvQtkXcMZOsbYGSuxoq7dBRchP8DKHf4VcOA7KBx+z6B1DUfKf0N+ gIN5EeAg1odO9n1FSr9Y/URq/bvqIvxf+IMYZsiQIe7+6wPWInjAVvEOROJN 6IjvoWuCLNyWnsCB7QYOYnTyzKlnrK+xs2lMQr0HfIT/SB7YjyuKyh/2z16L TmaulPuTU/B7465PuFP3Bn5gYj6CsZHnxr+xdtDSDpwoHPTYJnb9qLYUfrSv DDkbaAAc5BIs76Xqd1P1S+hich74afh82D99z+7/Dxs5AnLb2hvX92Ws/QMO lT3gIEfC9lH3RQ9tyBFwEH9aOPLoz1D/CWsvkG3mrLH1zNu0GlPzn3o3P/dR qn+tHW3p2WjXnlfMTSxkRTsDal9H7Y3L/ITvxyB7wAF+Yj1+Q1urtdYVMzr9 3kwTPVax5xRcpw0c+h4m1jyRT9X8Woh+WfkXzdmkeuO2DD70r/biaaFjxT8p RKpK/KcQ3MCBzSA3xbsbgcHSD9kjx0G9IDqEPulBOKJbuRWPWnjset/6+t9m uMsFxRpZYr5M4UBWfP2p/QuIH1Lrx7gG2SNOIrYlj06/ttB7hmx/Ffe/gbtk +3XUebapDmvFwl0FuDXM+fgXO4jvCcz4cPpuMtU9mt9kXhE4yJfl1Zn1s7RN kKz2aKnyV66PvX7vgvTTHr/MGQMHtSDoUDt/FKv/DOVfuBZfm5oCcmTaG7fV GCVFP3NsdYPMmTKpOoZxMnHiVJm1cIlVsM26p9ZTB9wU1T+2Ny4xsdp/4GBu BziYDwJ+fJz8SBVRajn6lJbIjGkTZdL4Khz0d1q4wvFjfbz174XJV4cDP0bf c6Rw2Pm/vP1f0J3aG5dcD/IYBE8822zZrwrPzHHPysjLzpOBA45weeKDDxsg pwz7kdzy8Isyr2FVnY4t9rH4+hR8cPKI6B59143aPnia+iZ4FDjQp2uMObY1 81W5XJKZE16Qq346QgYde4Qc8q395bBDj5KTh46Qmx55SWY1lOr3K0tLr5mi G74hNVsKB/UA/vxtVv95pZ/2xiW+wvaF3slgh+jbPSmvkPnTXpUrzjquVmvQ ZTPZdvvtpO+mtTqynnsdIzeNfkOWNEozD69dbw824GB+mPle1u9Sw6S2z4ej WI/fsushunDqv+WKYUdJW+DotIVsteMOsmWP9tK2bXvpsdexcvMzb8nSlaVW OiWv/fbhsD1+yU8q/fz+Z6n1R8BNvkx7y4V647b0o2qGs/lT/18+Z7w8MbK/ bLxhB+mx4z4y/JJb5JHHn5R7f3OBHLBHN2nbrpN88we3ysTZK+vXtNy7AIql pTcu8yjaGxcY2NFBuq6eudhCPX6rfAUcj408Rrp9rKt022FfGXrpLfJgNXb8 02/PkwM/20PatN9ADjjrNpk4d3mt31PdjhTjR82p2R6/5NQ1FgjlP2P96xRu 7YvEvFVY36xJP0fVpkaZNuZ+GfaJNtJ9sy3lxGtHy/vLVrnfSisWy/i/XiPn nHmuXH7r0zJj4cr6de4RayGLwE19BXEgsOBr4beg87F3a93jtwQc98lZDo7e csL1T8vcpbX4qLxqqYx77Gr54ZBz5Be/q8KxqKFVbJFn83EagkNz0LH8S6h/ HbADN/ND2NKs3rgV9Seb9UepaZlM+tttckjHNrLVljvLtc9NluWNFqZSC40q Vu209MMq8hYIzcVQ24ftYLzQzvaIhQ+L9vitlJbKxCdulkPbt6veewe55tl3 ZWlTxehInXsvGyDW7B2kcYUfD6/xvCoC0ZPEqfjKxBPap0TrP1Prj7R/Mtfo OzvRO+QW9f4xu2+PNzUtlWl//70M6NSuOpbt5dfPT5YlpZb4z51bbg1bK7/c wJln4362Ny61f8BAHEEcrHGThSPPBhxTnrpNjuvSVrYCjucmSUPJJhzKrb7X /VQvjrc+aurJGguhP4ED+sGDyJ9fv0vs58cPPv1YE4f8UQcZW7fcKpbQzyrf TnvyNunfpSp/fbaT656ZLCtKzfxabpRVi2ZVxzNJpsxYIKtXleuxQ8XcpIj9 19642D9gB25yLtobSO0AcBTKl5Wg3y3Sv0Mb2abPjnL9M+9U9YizArUanoXz qnHEZAfH8tLqgPyVPF8vzZPAQZymcDC3pTl5Sz+//tOnn+pPav/IvVCnwfu2 I09thU9Hh9IKmTr6T3Lqhu1ki259ZfCvnpb3ljY521ZeNl9euukM+fIuX5Kj hv9eJkxvvm9ltSycN9v5uY2Sj366YTfwOeFZ4jzshqUf6wXRI8BR6H2eTSsd HEM2alfVy1vJ4N/8Q6YubqzlHZbPl5dvHSp77/pFGTD8DzJh9hLnqy6aXVsb MGfu/CrPGtqVWzNmyMbjhwGHrsdROFL2LxT/8Xzm+MmdUff1gx/8wNXN+XF7 Pd/n8Z3r5z/tdXlgxL7SvU0X6bV1f7nyrtEy7u13Zcxfb5OBO/eWDu06yp7f v0XemlX126r0nvPWE3LewV+Xs8+7UsYtLea/0DdCe5RRx4L/id6BfsgluTNy GvQEKtLjFziWTx0rf/7hPrJplf6b9ztaRt75orxVve+YUbfKoE/0kS7tOshe Q26Qce8tk7f/+YBceNB+suc2/eSw48+WUS9PbunbXPfL4rEhc2LAQW0zcOB/ aq+gUP+C2PwD9CN+YP0Vsky/WfRyHM6KyU03D69xqcx99c9y9qd2lu7t20uH 9l2la5dO0rljJ2nfrrP06ruPXD/q9apdbJTpr4yS8w//qmzRrq0cfuZP5M0F UkgA58+f73IN2huXfBk2gB0+ZL0LcCCH2MncG6aucZGDY9int3VwtO/QSbp2 7iIbsGa0TUfp2ffr8qtHXpOFDVPkhrNPkW+fMkJu+d1V8p2jvyrHnTdSpjQ0 6/m6fbe+Tgv+2IhNmcO1cGhdTN76F5U/ahTgBfJx6CTikjSoNs8pbpzo0Rlj n5LLzzhIem3erWpLO8lG3TeTvQ47XW585FVZ0EAt5Qfy3NWnyaVD+8tRu+4m w8+8SF5ZUEx/Ah/zy8AAHeFJ+Jad+F17/JILLNLjV3NITeXlTj9cMeQQ6bN5 d8eHG/XYogrHaXLzg2NkXkOT87mnTRwrb0+bLvMmPSPnnPiNqn24TCY1NNPN +jyypi/Id3Jl+BzAgc5jLkX9l9j7H0Lr39VeMlfLnJles6btaNEHJS9vWVep 2IR5M+TtKmzI8ITx78h7s+bK0uWNNZNQ/bNs/gyZ8/7LctWRX5MfnXahvLaw 5T5ZGzZDe+Ni/4jRdf2PrinErut7CuDd3D1+Ldqr9rlh7myZMPFNGTvuTXlr 3CR5b+YcaVhRavE0K6tk2YzX5I6BR8s3dx8gV977KhnvGm+XK61lztCNTXsd EgMBBzlbXXNo149lzf+hP6Gf2v7Bgwe73BN5VXTqOt3qtrxRGpe/LSOP3leG nXaB/OeD9GV2Yx6W9RXYaeIEYgfba4cYAjiYG0QvkecmNxEczoeZy+UdaLNf lptPOEz23qW//PjGJ2VGQ62mraUPd43SofdPKByMUeGAZtAi1X8iln9BbskF UGPCemV0LNfl7YuTb9P5pZKsWjZJrjyySr/BP26mnxcHe/fUd2owTtZVMe9J npoaR+1zpXO3+NKsbWAtpvYX9e8bnxdLj7/i9pI0rZglT152rOyxUQfZ76Tz 5I+jRsuEd9+Thcu9d5JUwn1NGTNwQD/goBbN9usKzd+m5t91fSzH9L3erCv3 ezrGtrzwq+5tXPaO/Pro/eWCMy+WNxZl3wfaYe+xbeRcsNPkx5AttRlaQ4Ae wjYw/0H9BH51XjjybOiP5TNfkGHHfN7hqXuffrLr7p+RYb+8TcYvavFfFBJ/ bhc4WN8NDwIHfUbxu2w9Vkj+UvRTG4gNRa45h7hEe+Ouk/6N9T9lF2tNf3us TKvy7LKmyhr6xd8YA+t4qAVk7Kw/gWd1vaSdf/fhQJdgz3Xd0NrDYubaVy6o 8vsr8vxzo+X5Z5+TZ//xnIyd/N+qf91Uo12rPGHLtYyB2hzWdeCDYK+0x6/q EODg/1T9YKj+WnUoNfM6F4F/xDU+3GuLgxa3rFLTRZXKGrHtmnFnzVdDHzAX xZwR64WUZ+06XLUF2G5kkJyEwoHf82HGX/dBHP+1Zrlmc9caxlZ50NrG3BBr k8iTUBfHWh1yMNhthSElf6n3P6B7tDcua360Ny4xiu0h568NK4KAivneqtYi YifYiHOBAT+NWJeYgXpA9L3qTrvbHr+sr6QWS9/DgY1Z683kOf38mK1L0Lk2 PUf1J3CgBxQOYgZ0CLJmbUCe+l1ff/oySF6HeB7dg70hJi5WBxQAv1nWQhT3 /WvdqBmkhoV6F2Ch/pw8IT4KtND6c+VdlUHkEjhY68DYgdnCsXb6Q/PunvCV 1d6VAvMotXf+NDTU+sRS0058dswxx7geCugQeE3x79e/hOI/v3+Irb1T3gU/ 5OO0Ny62kN5ioXxUblw0x3/6Tr6aPVxTx+g9ycFCK/QAfgJ1qfS/wg4ie7H3 EWktK3Cgm8AbPgxwADtwrE2P35rcleuKsi6HFanDVDtQqh+HtPj99993j6tl RJeznpN1r8R/2tte+Q94VP70/eH+/Ltfv2R5V/UoMTHngi/yUJzPuk36/3F+ jHZ51jcmcdR8PjlO6lrxsaEdn9R0Ei9g2zTPG1pn68MBz+LjAQc0JGam7uTD +qR55tbQH8BBfhM4+KS+gfwWfrLaPTvu2PvHst5/a3d0E/oHG8I8DHXexPX4 vPgR9CYIvbMhD3xZG8+GT+iNgL/CfCy9cqEd8UII5tC6U3btNaFwEM8T+7Pj RyDLuk4/BkOeNcX+/9wTHoNPyEdCO4UD3CkcPt0s/bL6J4f6Z9nd0hAeorcY eWHGgmwTIzOGFGy5c4/V86jHwibQg4J1C8gK/iO5JaWd5iiUfvo9REfrj8Lr 4E3hYO4XOMDRddddl+nXxOL8EHzEd+h9hQNcAwf4Ag7fdlvahein9g97EqOf tZ+KF7Uh6Ct0NfUI9AzBHhEX40dhH/GB0ddF19Upb/NMbBQ9Rcg7g1fym9gs eI+8PDADU+g9KLa/kQ+HwgKfAQfypnDQQwM48AXRL+QDgCNW85SVg+KZxF74 SNpXGzi4NzRQOPwev1b/WfuXJ3+Wen+48q/2xoX24Bk7RJ8M1nNrP1vixYsv vtjV9TEHB57J8fn9jrEH+Ff4XcBKjzlyrdRfcS/qQJhbAAfMqyMzoZ7UIZhj /1s4WM8JL7KeWuEAxzwbnapwIKfAi+xSbxqCg/VojI17KRz4CNwLngAOfHjg 0P7MCkfIbisP+vWfqfozv39dTBaRd3wB8hrkC4CP3g301WQdG3yi4+a5rFdm zR3jx99jZy2C9gNkfgD6s0ZBe1pwjJhIe6yit5EZ7b/k86rVlTb2DdHY16XA QexFjQxwoOssHPjb2CviFXq4+HAgv8BB7xv8Ie21BRzQjd/xMcEV/OLDYe23 Hb8f/2FDQv3PYvGf78NpPk7tIf6u9nwkv4HOAX74GL0KL6Pzbb+z2K79OMEB dGWcjAnfDPzCL/rePWsbFHYdl4U9tPt2HRxaOKibVX4kZwpf4eeHevz6x7Rv FPEpdafwH7lNejOhLxWOUKzqj9vCGHt/cR7/JcTbelzrvOBh9CS4ho7Ya+SG /ozk9OBb4hzWkUBX6juod1D+ZscHZo4VnNF7jJp4emdh48Gv6hLtBefrzBiN /DFbvGj/R9vjF58J34J18vRMJ05Dj1g+I/ZHx0MnfDdkjDlzelEim9p/jz5b 0I37InPYOr/XXkiP+PFf3vgh9f7UkH3V44yJscFb2i+SnBb3xB4wnwU82EP8 dvxo1mKjp5A38u74gMQj6FCre1m3wPnQEv1DbZz2xtVem7F1tz59tQcp14Ej 7B96U2l25plnutwoc006DvQHOIK30GHIFTET9fjMf6Bz0Lvcw/a3xDeCp/HZ wU2oJ3oIp1aXWPlT/yXVfyLUvzzP8xiX1jwjj8gL/AaueQawIEfgH11Cnb/2 xoVXyUtSX4QNoe6U3nfQD72gfM84kWHyndgScIT+gGfgH6WLyqfte8xxxkns x5gYCzinVyK6HlsHvdCHfMJH2DFwhgxqj19ibcYM3ciZk5Nifp/74VsxHu6P H8OzwIWVNz83kqXfffvn0w99nBW/h+gVe76OkfHCb4yfZ0NP4IGm5LCgp8on OgY/Fv5FRrU3LjJHbEYNB/KJXcG3RYeAY3wDZIW1Vqz7417cF5nCvth3KvEs 4hr8WOub4CsBO7yCPtSesehAaASfQWdiDGilfX61fyy8Ca14Djuw8mxg999P HcNZSK/78WvW+geffjH9k7I1Pu8oHX35BD70CbBqz030DGOBh7Gh5JnBk+2N yzsd8GHpUU7eF18HOcG3gJ7kAZFdaE4sgN+AH8T52Ftgh17kjeAF8jnobnQh c4PYFfgHXkIPai9m7fPLGKEV+tDV8lRxqnyisKqcpWxQjH4x2fDXb1r65Xl/ eEoW8x7z76f0ndrs/6neVZqqnDI+4gb0E/jUHtb4RvgXxGfUd6itynr/AzRG xrBztsev7cmsOhC+gk5+n19fv8Vgj9kcHy8xWbHymOf9KyH5y5K1PHT0dUGI By1NrR3VfCU8Dz2RS+wOPi0yiOxpb1xiI/Sr9sPVPr/IKHYU2YPOnIt9pV8A NdnQDvmy/bORK5UtK1PWl/VtWRa9UjIYO0/p57+/KtX/2j4/JEdZ/BLjw9gx v9+O9cEUX4wffUqdBPEYtIAu2ED8QWSRWivsFfRAjtjxl7Bd2DL8ReIYai70 vR7kd8hFop/RjTaXmlefhGKTFMwx/Mb+D+XPtH9BrH9d6DkxeqXol8JFjN90 15gAuSOnjLwhO8gYPg32DdnU/r3sjF/fUaDfbe9czkGmoClzpviY0JE8PLYV 26u94/PaCIUzJVOha1L48/nbvv/dt3+MPSt+yANDiB72HD9e1WOx9xKgt9CX xMTax585W+JAfif/rnNWzM9Qywtc2huXT9snV+uu2OFdaIqM0m9F3/sAXyDD theg6oAYPbJolTovJB/+eUXtX+g+eXgmLzz+9b6/xo6vgJ8CPtGV+PY6Vxya 11jbeWE+kUtiBPpda29RYj3N+fj6PNSP2cpKHrr4+IvJxtrSL3b/GO/o8RSf xuDxccQnOQ18e52Tg5bMwX/YLUZneAKflzkqdDR6ldxfqK9qShfl5Xf7f+rd HXno59u/kA7MYwtidInR0+aeded/4i/t8cvaS8Zle/wWkbU8NQ36P3NC+KDU 2iPz9HXExmo/wBDvxujn242UDKRksqj8pd4fl9qz9Lr9ze/raOEjXiY/Av7I dfN/aP60yDx+kU3XoJM/h3/Itas9jMGZokUe2+frX/940fc/5OEtu9t4KA89 Q7zGtcTL5EDBG/VJ5F3CfUvy0aaI7NkNXwjbx/wr+pt5SGL7LHhiPJrF96H7 WZ0a8z81f23rz/z6CZ8WFt8pngqNMWYzGR8+Pfl/8pz4w8QLsR6/66J2P0VH t7a9Gl+R72E85NuYxyNWib3DKKY/U7Fh7B7+8Zj8YbM/rPyFjsfGG6M3MMLf +k4C8tEftjZ4bTdLU/wl5huIK6gZ076cWXrQ8mXqvCL6NaY/fftHD7U8sh7j n5TtjJ1Djsz2xmU+Lje++VPWvmOta2jZ69+bPzmvUjHHEht6lDw7c1rgh1pD cjSx2F53/301KfzoO9tifJ9FPyt/uv42i26+bkjJYBavEaMz58D8NbEX8zba Gzc38Xx6tKJNS48opWde7atxPvUU2huX+Wc/tvdxEMtJpPg5dp6vP7P6R4bo 5+sD//4hWuXlAWSPvCX4wWfR3rh5bFxL35g115S3XG3Wl7g1MaXC9hOdxJwg uVJqAZhHCuEiJj95+TuEL8V7nv6fzCP79IvZ6zxjicmf3fEJ0E/EC9Tpgau8 9FMi2bU+oXMq9jyrV3Nu2uNX11dqj18fB/b/kH8Xo2koPrS/Z8UPIf8zyzan aBU6P8SD5ImJ75iPI//IXG0h2TALWe2Kl5beiC1rt6RSktC6mFyPaY4nyKvh izLXr35MKHdij4fkKYTTEJ5svs7GD1nrb2M0iT0nNg8W0yX6O74B/h2+HTS0 PX4LYNfRpFRqkA/mznK5zNrOO/pmyKz5i2TJ8lXSaM5v/Zm9aY4UHUoOnfpP /JiQborxt39OLBfn4yhFv1D9YCr/meKnkK6MyZ/ufm9cfi+0VZrpVy7JB9Ne k9tGnCOnDhoox58wUL57/Pfk+ONPlIGDTpVhZ18gNz34gsxcVDLXFdvwqchp YwOpx6DOJuYPZPFtiEape4ToF5u/DdVP5MklpGQ2NC78TuqM4GniBuIH4vXi sXlZyk2rZNbYh+T4nptIhzZt5GOb9pZ+220v22zdT3p0bSPt27aTTfY6Su4Z PVFWSPH+2mzgiviPuhnqQZnXCtUSxOq9Q3MWKVnw8R/r/5LyP2OyHeOxLJmz 44R+5Muo1SVfRi2Kv6YgH/WgxkqZP+4xGdq7p/TqsqcMv+Z2efSJJ+Sxqj29 9coT5Ct9u0q7Th3l9GvulukF2tfZze/xSy1Alu5L4StFM/+3PO/viPmfee1a yqfxv6P7tTcuORfoV7g3rqVhZbXMHf+oDO/dR/pteqTc/cIUaSiVZeWKpTL9 nSdlyBc+KZ06tpdBV/1B3mcKqlLM9rEx94u+oMYYfmeOxI/Rs/SPj6+Y3+lf l+f9AaH1DzF7lkc+s2CBftobF51etDeuw61+qerPORMelaE9t5BeXT8rZ1xy o9z30ENy/313ydUXnCx9enSWThv3lsvvelwWNol758Ta9KdGBpgXxFdmfUCI fjEcxGgT07n23LzxX+j9m3nHl9Lp/nFd90PtsPZoJq9h+T3fVq6FBlX/Ze7E UTJsy81lg6r9a7/JRrJJF1M/2Ht7OXjYNTJm8vxCdGvdU7j2vj7t8cvciF+X loI/9XtWTV6Ifqn+kXn1pd47ZetC41X9ybOpn9beuFnrr9dEcHM4Xq7K37hR clbvbtKrQzcZMGSonH3KPvKpnlXate8gHQ65UB54ZYY3f1G8R7r2+IWG1GL7 6w9jOMrL5zEZLNL/LLZ+M6UT/THHcoOWfip/1O6hP1n/EO/xGyWf+9NUjc3n THhYhvfaWrbucYTc8a/Jsnj5VHn4JwfKjhu2k7add5IhIx+W6csqGnIUDiHw rcAPuop1LOQaUvTLopN/POXj++uPbP1nVv+ClBymfJZY3aB+Qj/4mXoTnV/T 3Fkh+rleK6tl5vjHZFjvvrJNj8Pl7hf/63ImK957Xn560B7SuW1H6bjdMXLz 4+Oq8UNzH9yCrwuhfoO8C7aP9WL4erbPR179mTo3Ruu8/mds/XvMB8n6LcV3 wE78wBp3nl+4N67bavkx+m7OHf+w81969jhE7n7+fddxpdS0UiY/fYPsv3t3 ade2q+x78tXy8tRl9bx33o3z6UGgPX5Zr0Q9v78+JcXn/nff5oVq8Kz8xfJn Wv+ZWn+bZQP9Z6bO1fOAHX8cnqZOCJ2U6vEb6oGmvZuwf/OqccLFe+wpn9/p dHlwzKzamxmqsrl61Qz529X7y76f7CFb9jtRbn70HaESqqj+ZMzEOvA5NR7o Dn8tX0rGrJ8QqvW1uPLzkao/mZ/x+/eo/0kOJJX/jNm7lPyHaKn/h3rjotfV BmbVrtTnErSHaKlJFs6aITOnL5RlK5vqtpHP1UvnyKyZ0+T9afNlcUNjjeYF FCixO2to8FtY8wTPaZ/DEC+n5C4mozGcqm3U/ktW/sAVPkSs/iVl8/S7X1Od 0p/Wt+E6eEp7/MI/rCcJvd8t1Cu6ftycV3vzV9MawtUkUqeZ0tWekxWz0IeG tfDoTtanEbvr+vUs/ZTSSSFahXBn/RdiLfqS2/c/qP2jXie0/i8miyHaxuZT Qt/xYbCB1CqxBkz7i+auMavYd7Y0z6+788v2FHG98VVc3TtE4vcM1TQxx0yf K/ws8u3UC2hv1RD+UzTKIxf+ntV/Sdc/UD+h9S+pvhuxY/7zY3Xm+rv2+KU+ gXV81C4xl6u9KWMyp58VEwisgfd6jqX5HEOzmtqtBK/zn8e7CZjjYu6WdUus XaNOO+a7xOixNvSz9i/WvxX9xVp95JKcLOvEYzRK8VUeXeGfB/z6jiJq1dHj yCD6AZuTRz5qctUotu99qUXYWs+3l5Wq+fq0MQbWt2gNIXXZzDdji0K5y5i+ CR3Lkg//XPhc/RfWrir9WGdKbyf4i7Wous4/RLfYmFNyH6OjfkfW8ENZA08M QR0FtUzMr+WhXe24tKZXq56q9lRj/8rpPnTa/8r2+GWNILxm+6Nn0SqES9/O xO5jr8cvYN4K/cn6K7V/zCNr/3b8P/SCyqA/phS/ZY1Bj/nzzuhQdDs9ieg5 xXsn0eXUr4d6/K5BPkPDUF/+VoF6va9qy3uVY7aWHln4mazzZC0v+QVkjz43 2u8qJUshHo/ptJTfoJ/UVOqaf9ZKqfwhl/A942QOlf+Zr/DjyRDNUuPy/dKY HLKrH0MN7/nnn1/vjTtixIhCdbx56+VT57LRywxdhF4iLh4wYID7X/uuheKz GHwhXKWOh2QBfkHmWHdMrIyfousaGQ8+FTl1xkkNSlZdQB5+yhq/Pd/vjYvO QgYZE367rUmL0SJUW1+EnpZ2zGVRR8y8JLUS9HpFn/u9cVM6Kvbdx2XsfMsb +LrggdzdAQcc4HQVtKPGH/4m948PSi8odITaQMZpx2rXqafoFxpzjDf1u/qi +MPM5bIGCRoSM9PbAxhC+F9XayHYyHHC59qfGX+PdfP4MKwrs/2T8vBoFv1S sqj6T2MH1u1T30ztFPYX2rGj5+m9wFjxsbBByILWiNvnpmpWY/yU9ZuOU+eU 6P8Af+Er0EsUu0zczHdyjrn90sjvofO0Tp76U3xx/BXW4lJXTKyn/Zn1XUQp XyBWNxjCRYrH7bnoS2wfeGA9IjEN8yHs6AvsDzoUXJHLwlZqf7As25y1h8as //t6iP+1LyX5KvQYuRl6TGjPa/p9wI9ZNMlDR3ZwgT+AD4CtIw9Efhq5Ix+r fY1D8V6KX0PzEll2JnQfnk3enHGhO/ERoBnzkezoUewL88nYa86jTo7rbCyY srMxOLJgjI1de+Mih8yTki/GL9XeuOTZiIGwR9jxXLlSswE3+OXe+JXaGxf/ ANtLbzV0pvortldgiD4hGFO8G1svbb9r/wbiKt5XgW6knxj8jd+pPbqBhXVS 2B76ARJ/of+Zn7TP0ntm0SmlK7L0iOKEcTNO4kLsIXkFcmz4V6rf6I2Lb8F6 F2wW8oqOowbR6ljgBD7GTq4XPqUPl/YO0T6H8Db9Yfjd9vj1x291fpYchejr /+bfz/IF42XNE34UfTfQi8Cn/RtUh/A/MgieyHFzPrjC57J9GWNynhpbSuay ZBm9Dl8RuzJ2fHj6BYJ7ZIacEfgn1oBH6f1L7zN6nhEL0ReXvj7YfOw/67F5 L7D2koUXWGfP+dhbajqReXwVP0ZX/grBnqdWPoUz/17gHLjhJ2waPhw5PPga XvTf24QdxPfChiOj6BH0KLCTn9F+jCH9EaKttZshmubhB/3E7mDvkAdwi/7H LkJHeIycPPWY6JdUj1/sp/qzvCsKWhNfkrNg3gV9SW4FvGluOjTuvPKWqq33 r7HfuQ65Z1z01yNfRo0Ceog5ZNs7xb4TnOP0swFP2AR0CnzNWljwpnwRG3Me O2D3LPjsMXCJLEJH/An0Cr4ofhk10ehD+tGR+8YPoSYK/5Gd7/TXQv7whaA7 thNdQ6wEbMi39jwLzcnGYIjpx9Aeuk75XD/ZsfvYCmI5cmXUN2temvk+tQ0h m87vnIctAR/kjeBZ/AX6r8CbzA/adTE6thg9Uv+HcjxZOALH0JE8FvE++Xf8 RPqcQU96CbJjv9n1f35jrhiaAR+yBq7IRdt3llkdkoc+sXHrPey9Qv2n2dXX R7cgO+h4bANzMvSxhHe1d7+lm5U/No0HuRf2hr5S5LLQPfAyvjtybHsXW91q 9UaKd1Pym7INiguVR+0hip+DDGmvX2SKHfvNp/aD5Bxopv3DlW5+TO7HTTH9 mSVjoXNVzrSPM89ibNgEdAQyB+3oM8wxdOm8efNcnODTy/+fjfOYb8buAD95 G2SZ2B+byH2J8bEZ8LC+64wxQU/bM0537SeXZ/ev4556HB/L3l91geIaXEAL ffc79PF7QCp/aU9ley/7/Nh4YueEvvvjV19Q3weGLkCX42Myd4bfqDEMugM9 Q7895mlDtbE+/dQfRQ6RV2CGN5izRIey/psYV3sX02/93HPPdX0/8OGpKVe9 lbWjF+z/5D3943rM/+6fp9/55Dx0vd2J8zju3yN0X/0/9uzQPfS59hz7PD4Z A7aauVfyPPSW2W233Zx/gsyh53hPLX4m+h2+w18J0S40l+3bQnQtuhTewe7h n+ETKR3J5RAr5nmvQ+i9Cf/XdwtT7Htsh//Z8S2IQbFz+P3UIeCfIaPQjjg9 9a7arDwwNMSnYe0p+hTbgd+HXua9Way5xL/jvUHQFN9ce98yd2B3Pa6/hf63 5+o7KUO/hc4NHYuNIXSeP67Y9xB8MTjsjn4k3mQunxooYh96qRN34rdgi9Cr 6FliOewYtAvZOKsrszbuQWzBPaEjNkRjavIUtoe8rxNj+iZ1vOie0om+DltX 48h7jX0+uAFHxALImX2nDLKBbcdmoS+JEWJ0s1uecywduS/yyHPwidQmq8+g /sJHteOb5f1Ne2mv7+dm7epHYZfwTcAlOFV5K5KL/3/pejMy "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", "PluginEmbeddedContent"] }, Open ]] }, WindowSize->{1266., 1677.1100000000001`}, Visible->True, AuthoredSize->{1266., 1677.1100000000001`}, ScrollingOptions->{"HorizontalScrollRange"->Fit, "VerticalScrollRange"->Fit}, ShowCellBracket->False, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, 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[1485, 35, 73975, 1486, 19, "Input", CellOpen->False], Cell[75463, 1523, 66256, 1160, 637, "Output"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature 5vDLkL2MkppPoBwrY5y9P38b *)