From 1f09e3600e4176c3566fa20d8a7b643ca2469b89 Mon Sep 17 00:00:00 2001 From: Nicolas G Date: Wed, 12 Jul 2023 21:37:54 -0300 Subject: [PATCH] =?UTF-8?q?Primera=20versi=C3=B3n=20de=20los=20archiovs=20?= =?UTF-8?q?de=20Mathematica=20con=20las=20simulaciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Notebooks/1-OsciladorArmonico.nb | 10322 +++++++++++++++++++++++++ Notebooks/2-DosParticulas.nb | 970 +++ Notebooks/3-TresParticulasEnLinea.nb | 3639 +++++++++ Notebooks/4-CadenaDeOsciladores.nb | 975 +++ Notebooks/5-OndasEnUnaDimension.nb | 2851 +++++++ 5 files changed, 18757 insertions(+) create mode 100644 Notebooks/1-OsciladorArmonico.nb create mode 100644 Notebooks/2-DosParticulas.nb create mode 100644 Notebooks/3-TresParticulasEnLinea.nb create mode 100644 Notebooks/4-CadenaDeOsciladores.nb create mode 100644 Notebooks/5-OndasEnUnaDimension.nb diff --git a/Notebooks/1-OsciladorArmonico.nb b/Notebooks/1-OsciladorArmonico.nb new file mode 100644 index 0000000..91be83e --- /dev/null +++ b/Notebooks/1-OsciladorArmonico.nb @@ -0,0 +1,10322 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 13.2' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 567252, 10314] +NotebookOptionsPosition[ 555877, 10115] +NotebookOutlinePosition[ 556351, 10133] +CellTagsIndexPosition[ 556308, 10130] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell["Oscilador arm\[OAcute]nico", "Title", + CellChangeTimes->{{3.898186241363925*^9, + 3.8981862551632557`*^9}},ExpressionUUID->"480d5f7d-45fb-40a1-bc21-\ +04aa8b6ee330"], + +Cell[CellGroupData[{ + +Cell["Oscilador arm\[OAcute]nico simple", "Section", + CellChangeTimes->{{3.8981862649242487`*^9, + 3.898186273362892*^9}},ExpressionUUID->"26c8bf85-1372-446b-b079-\ +970316fe33f0"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8981866186550217`*^9, + 3.898186620166251*^9}},ExpressionUUID->"c91e8bd6-e417-4c06-9dd6-\ +851ba2b63b07"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898186799603964*^9, + 3.898186802823612*^9}},ExpressionUUID->"1353ed16-eeee-412e-925e-\ +0bbf17dbbaa1"], + +Cell["La soluci\[OAcute]n para el oscilador arm\[OAcute]nico simple es", \ +"Text", + CellChangeTimes->{{3.8981862809472446`*^9, + 3.898186289986627*^9}},ExpressionUUID->"4ee2c65e-3a36-4a53-8961-\ +7515486ff50a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x", "[", "t_", "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]0", " ", "t"}], "+", "\[Delta]"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.8963751493504343`*^9, 3.89637516683323*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"6fe28919-477b-4f94-84d9-6410c728c11d"], + +Cell["Donde las magnitudes a fijar son", "Text", + CellChangeTimes->{{3.8981862929731293`*^9, + 3.898186299506575*^9}},ExpressionUUID->"2491539f-2b90-4e84-8d7c-\ +a232f1b372f0"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}]}], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"0b7ca561-0a6e-4ede-890a-92d5633f7a24"], + +Cell["Con esto podemos hacer un diagrama de la soluci\[OAcute]n", "Text", + CellChangeTimes->{{3.89818631355506*^9, + 3.898186326210125*^9}},ExpressionUUID->"424bbaf8-3774-4416-a217-\ +5a39713c57b3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.896375180401723*^9, 3.896375234175416*^9}, + 3.89637589596721*^9, {3.898186310251667*^9, 3.8981863114908648`*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"343380a0-01e5-4595-9c3b-d1d1625a7f1a"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVmXc8le8bx23HlsI5yDhHlDSlInVflJRoImUUQirqSyJUSkOZoaJESUOk +gaLUbSQNM0JG9jzjJnvl9/zOH+e83q9n3Nf9+Xyu+xlHw/nkXlcBPj4+D+rr +/7/3zzuLrDoStmnL3P8/BH2uUbfYr+6BLo2lM8convvyKURd/SxKnXUKa6BY +OubtK/GGSyhw7xrDpxTfL4hQE1a/jhrtjFc4U6xLjkTOuUeh62lZx8QobpFO ++jdTH4OWjBRyEv8RpPlEbO3U9C0kvfBljgrFJzb6eo6rJSCV5d9LQmcJyqpt +Sx3ZnIhiD3gtbJ8haOq4RfOQezJqmBT4uIjiB/zN18dNHyK9m9OpNtMEbSm/ +uWisPgXd+Fb/y2eKoL54s8IRj1Q0/zRr97lJgsKPzNoPTz9GM6FnFvhMEFQz +fTRuUC0NGcdWnmONEXSmVHUlef0cuaw30fwzQpBSbO0P7uYMFPHkluKVYYKc +dUCQ7f4SLa7b2HdnkCCB6YDKkaBXaMrzcKkgIai2zXrhiOlrFBQwN2bHJcg/ +QyLvb/0btFutdkd1P0HmMT0ifx9kobqU9T68XoJU/AuthjyykfIpPzLeTVDB +Zr9BMp2Dgpju7Mp2gkSbOrS5anloTIsjH9dAUEPBR19OXx76szedtqCOoOdP +4ovZr9+jhRu22gXXELTTe+ehgc35qGLGV0u1gqDbYu9v97pjFBOw6rJXEUHZ +fubePvQCdE+El7oHE5Q4sI4xHFSATPgj9TTyCfKqknP/a1qInoc4pVzJIUgu +8avAUH0RunrnIN+RpwRNS79NO2VUjHpG2789f0RQ18VHuwcfFCO7MFu5P8kE +vXU/n0Q8PqNP/eeWiMcTdFBvjSFvugRZCa7J8b9G0MPvyf+x1b4hk+7piNfO +BI3E5+i0hn9Dv/PWbbFxIGir+4/On5Pf0EN1MeOu/QRxBMet39d8R37Spqr5 +FgSt37jT8Pq1MtQp9vi3nT5BVS9nBLRJJdK4M7rwkABVLxJzlFpehTbcaze8 +O81DG7TiDK8dqUJGb1d3fxrhociRtOGA6iqUdWN49HMPD625+cvVOb0aOe+m +3fn8jYcufNc1X3WoBnXGOl25HcZDz16/00q/VYNi9fQHT4Tw0M94E8FFZTXI +fuYCWhbIQ5rutvl0g1rk0eH96PgxHvoueHk53/xf6BffAt02Mx5S2NgkV/ml +Diluf1vx4h8XZb683nRieSMKTlsnIWHPRQNyA+HmTo3o5Lumsc49XKR9xnzT +4rhGtOvcGofnZlz0wEjiYedkI4os7c6aW81FMd/C3Q6WNCG9yjkop3HRmc6o +ITP7FuRQPfRx8hUHJUv8CJln2oboH2Q/fRtmo00bA+2DHduQbzHH5VAvGzV7 +LdUnfm1oYDLQo7ORjeg/w3rKnreh/QfNs94WstHNeIvtobLtaI/yKo2wSDYK +WVQhPdfUjoTvPL/6V5ON3FF1Ase7E9GzeLljWwYQX8rY+6awTuS+buOb12sH +ULyQSvP31E7EMt1QaL94AH395qaaVteJbtUt3BwiMYAWW82kuBp2UbqfL5Or +7kd9R7Uz/vB3o+8z8iWbD/SjYzHnPlVF96AXSmffLXPsQ17dSzqzM/vRL89t +QyZGPajN8Tet8Fs/Sv+z/3Lp4h60ryF0eXlXPwpZlm5iJN+D1v/oPdutNIA8 +rATOjnG7keDrx7IK1wZQi4WOzcukbhQfpLHJ7xAbDXZEbEGzXahwPiPBQJaL +1IulP2582YnENS5rt64fRPP8M44JD7ShSNkfOg8PDyPdHS1PWNfqkHOTFRYs +G0OVK36ZFicVof9KLjuf1J5C94+iSg+rV/j1Kcl99O2zaCz6+uE/J6rww8Dj +Ayv384FOeOElcYUWfCl5Zs8Ihx8mnuebBf/pxLtX5v63dJgfvjwZ2TY+1IlV +C31uOk/yQ8N6A3AW7sLvOwaqqoQFoC9SqmO+bhf+u+j3rheqAtA1LySjy78L +O2fkWLrtFoCvTUPGq2W7sXGe1/aGLAE4ytLVXq7fg6XNdTxk3guA7cGcEimz +Htzc2B26tUAAyLmuoVbbHuw/Y/81u0wA6iv1v9oF9eBXaIfZzW4BcGk8Y/yq +qAerf9E2NVcUBLbagsXFFr2Yr6YN8gMEIbj2R9g2mz58uf/Tw4CLgrB/ecqj +Yvc+LMZ3X8AgVBCYD/+6LDvbh+WWHficc0sQ7jVFZZTd68OLrlWbvXwlCJ9r +9okYtPVh8w1FO1N6BOH50Jftn1z7ceyjR/ahe4Xggf4VxhKXAUx/f/Hj1gNC +cMg+YoOz9wBOrDqkKnxYCFiTb2JCLw7gJ7PKbRc9hWBHiFVOYvIAzt0f5xIY +KgT1F6sftjcO4GaJK8e8PglBjpn4cK0lG2uddvO30hGGHpKgpryIg5cZtu5L +XikMX75sC5RcxcFr+GxXDKwVhpVnJd04RhxsEr6958JmYSAhAT/8rDjYMVXX +Kt1eGM797RXPv8TBt2v/rhCIovZ39tYeaeLg+3ePS1jeEgYzuYdKP3o4OPVw +V8+de8JgaX1aN3qIg99wft1f9kwYnFtP3OwS4eIKoTyJA4XC0G9V/SxnJRcL +61/ofTksDNY++3yGg7lYcnq8aGpSGFLV4ren3eBiucJTSaZ8ItBip/7bIo6L +1S2drZskRSAhSFfS4SkXG7maFotoicDsiJDqwzIuPn1LItnBVgTixu+OvJnP +w12jd2wkPoqAQKp1T30sD6cY6/m0FIvAcGyLTMM9Hj4UURH18rsIqM+6TRY+ +4uFGTeFv+xpEwLswbHRvFg9X7/PekDgsAu7moqNHq3n402sL9WU6oiAactLh +sBjBQbO9RnMrReH20q0TkzIEG2wPOVC9ThRoy7P+BSkQnN2WF+NrKgqa1//b +gFgEP5fRFv50WBRYhvwjWRsIvuPJP7Dzjih0PI2IPXiUYKu8RBGNJFGokvte +E+pJsJzwetZwqigEJtzd8MCb4MhEL/s7b0Qh6oOhz40ggi//aKpoLReFH5ir +ahFFsImiH/t1rSicMytfVxxL8JyzHO1yE1WfuJ89K57ggKltxov7ReHlaHB+ +0gOCTy15m3VKiAaPHwdeuviK4OW+e6pMJGjgFG2aCtkEsws4nAVyNHjxZMP7 +vncEu9mytPLUaPBsq3Lu8CeCNVM/mYRp0WDBqp67NkUEd5ADhxyW0cBU8oF7 +SgnBDtei4/k3UNs77XJGfhCsVLM0p8aYBorBJaumKwhuUC2tfryNBgJW3MiB +amr+b2fFzW1o8O39XEdIPcHm3cfOxfxHA03m7fcP2gneeo6VscWfBnufRvt0 +dlLzlW9uHDtPgwoH1i+ZHoINTS3X24XToKRdLHzRAMFrW4TdpWJpkCp/8Y80 +h+DVvp9u4QQa3NteX9POJVjn8Yph1lMaXKmcn7JliGCtjX0adS9ocPfPXf/a +vwQzfz3YHZpNgywPE67lCMGqngcuGH6gxucXmHs1Ss1HWC6TU0iD7q62jNkx +ghXuf29O+kqD04Jjo3oTlH/6IRJ7Kik9Ztx/75skWLp8g6FgHQ281TxtHKYI +lnAdOZrTTIMgrx0ndk8TTJvNuOPeSdWfaKu0bIZgoVuuXxgDNJCRnTo0TDHf +MtXRH4M06GpLNXo0S/DM5zrW+XEaTDS2vDT6R/CEfdTelf9ocPGcQR6meGTE +7GKHkBgET9vZ6s4RPBjO9ypOQgwEjCbDL1HM0cz7s1VODGwaa22KKO7L/09q +ki4GBlpFOWyKu6x0jNLVxICwUtP+UdzG6TjmoCUGh8M9V09T3Hz5XoLMMjFQ +Klff3U5xg4rV10I9MdhHqxJ4TXFttuS4j6EYNC+4b36M4iqLkkVaxmJAO5+n +LUVxWdc5qwYzMQgLcbubQNX7NWhtyI2dYmDOGE2RofjzAvLayFoMNHtLjE9S +8y3IeNrGsxODV9u2++VSeuRvOSzz0FkM+i3mNrMp/XKb6Zv2eYhBY47fM1GK +s09XnxA+JQb6E3seS1F6Z6SafPc4JwZ3bCaO1Y0T/MxoekL5shjo/tqjn0D5 +l1qbpV1xQwxWDGnfM6X8TRRadGV1vBiY2M3baEflIT6xJasrSQz+ha0I/DxI +cNya2x23H4uBvGqbrSIhOOKIKEy/EQPplPfjZ9kE35jBXi/yxOB364kP1/sJ +vhrnf/9QgRiIyRexQnoJPv+5f6q4XAzGLeX6VlN5DrBPWXKmVgzODMiZ9bcR +fGbkoO3iJjHALwp3X/9DsJdmWU54nxjYzbYdu/qb4GP5l7s2ETE4Zll7vrOO +6k+rjfOHRsUAtgdu0akl2PFy5ilrQXH4l3eLc5rqt51d0UtVVcXhtoFx/79C +Sv+lXbX2muLQdxKNdlL9vMNn3fl7OuJwtdwsLecDwdsE/lTR14lDXsDmeWo5 +VL+pLz0zf7c4yITOUxJ/Svnhfl5tr404FNkaJFs9Ihi9rP4abS8Oh23XtoQl +E2y0yV9Z2kMc0ipGwgvuEKxvX1JAuyQO5SvG/5lco/x5RD9mFioOxj/6I4Yv +Uf3JPj7/aqQ4bHY40R99nlqPAuTcBO+Jw9C+FtkYX4IXxx+S+JclDk5h6icz +nQlWqZ20Hu4Wh5Z2gdk9BgTfVbacW8URhwim5ssqPYIZLg+enforDmGvpRyN +llP9+XfrNPefOOyP+YMbmQTLysY96FOUgM8LL47qSRAsaLGc3bJdArRUxxzt +Gnj4UuzFOJXdEiDX8ysynVr/+ZpqN9rZSIBp0I7xvu88POMRGN3gLAFOl89d +WvqRh8eufdWvCZQAh1LmROUDHh4odg7++kICGLNza+8e4WG1mw3HIrMlgDU/ +UFzenoetHHdaW32QgCCzMaWAfdT1ZcJAp+2rBNj8fiYhaMLDMcvm1Y53SsCL +36HNsqo8vOEO1tZWkoT3qe7DGj+5OPyYSuWVq5Jg7La23lyHiwvXxeTtiJAE +uaKTHkpqXDwmREudFycJ9Lo/yr/mc/Hh5GH/+w8lgf/7R37JWer6X/udmZMv +CTlvDr0LruDglo1nz3T9laTWK+6SCE8OXj6PupE9JAUV6qeWnUpk456Inku3 +XKVg0onfJTmKje+Lj/f2HpeCntpY54+X2FhSiP4m3F8KLs6NtJYcZeOBsQNb +625KQXxL+DuxNWz8uLnFy+OzFCTFsVSOlA5glWfdOGqJNDwVuTOc3N6PxdGo +U/OwNNQEOpms6+nF/saLaW+npIGlsLR1tKYX92y2y4zil4E3AycFHxX24qJt +hVMmMjKg66dP/5bYiwP2RsSm6chAZgwfz3RvL2a7Lio54yQDKYP+O6Xf9+Cy +cOvF8yplQOvC1A2jc93YjHtwnGktC/faWfI7fnXghqIj/Ad154Hg/SljIt6I +c0I/O6qPzoOHwT+T6bvKsJuwb1tFhRyMXb+hqml3Bbt4B+ZI3p0PVR6HGku4 +pWiF+9IKC6cFUDHBXKzTXY8q5XQlfA3kIdLR4YtAbzva5OnZf89IHr625wV2 +TrejzNLM0iIkD9eeporkyXagyKBVl2W3ysO4rJeHiWEHsuhZO5u+Vx78svdP +lYV3oO95xqTjuDwMvaAtfLuiE5Uc3l+zO4naruATHHyiC33IvHRPV1ABDgbF +Zu/CPUjEwlrpjogCqPSfGbrwswft6ddO4BdXgLmr1teTu3tQL6v8dp2sAvhW +bo3JkOhF8xMUY4JVFcBEze/KjE0vOh6SEVproACmtKBZ94FepGxb5xt0SgG+ +dyrqygr1I7fRZyM9Pgqgc4qRPU++H72OCfTZ46cAU6/Uh/i0+pFZufp/WucV +4Ftmj+0zs37kY3L8RFWYAqzeWBbKuNGPfujyuWg+VYBQV4OOAOp5KZBfZ3dZ +iwK8/uwu3Tc3gHq2SDRotSvAv3YBNVNpNtodyjl0sUsBnGYHdaJU2EhT5uXJ +tWwFeLjyieTAejYqU1kT9WBCAY7vvNyed4qNVNdvqjg9XxF0J9ot85rZqMhr +r8XC7YrQbRzWPfqYg3Tf6NX6WSiCN7tmqPU1B90eXWD/c5cipJUE/sz5yEHH +g+qPX7NRhBnFV0TzFwctuGEfNuSiCHqyBtkyglzk9tjte8l5RTiqxPKQteMi +8eaAbV7ZinBO+nrM9WkuWuuXJhX1ThGuLqgTRUI85CTX8PPle0Ww8hFkdkjy +UO42fYehAur8rf0rhhbykFsO+e90uSIkT5aor0Y8VBh55F5AjyLEuHz/a3ie +hzhLYg/f61cEi/gxq69XeIheUrgon6MI5qplkpsjeMhrWvXV7F9FuEZWH+dL +5CGVo78/B88pglN5puvdXB7yN97Ju0qnw02z6XAzHg+lNgdlPVWmQ3Lh0MZn +IzxU6Zfu/1WVDttEPvONTfGQViZNUHwRHVwUEjNsRQmqUSpWjFhFh6eZQmsM +1Qj6lzPU/GINHWjt3uKCiwjS2aOeUrGODkPdOr9ydQgKvnZOV3YTHQrswg3Y ++gQtH1lnHGtOh+sVy1qP7SDoYJSbSLYlHe7+fT1xdzdBV3Ru/ajdTQf+3fXs +d9YENR/+a62wnw6PEqL25h4i6EZ5xrEEFzrEb5As/+lNUPcTjbjkIDq8zz41 +fvwWQZzL7ZOCwXRY9jj69scEgv46Pzx0NIQOM8m5gRP3CeJT01i66gYd2G3C +kjpPCFK6o15UdIcOUXOew4E5BGn4tmlr36NDkc2a/xTzCFq870FEWBIdzr85 +o5qYT5C+jPoBq8d0sOg6PHu4mKDd19QGu9/QwbV05npDJUH7XVutzd/SgSXm +DB9/EuS4OflDZh4dxPZWzw/7RdDxOdVrfgV08PQtF+toJMi75Q+nqZgO6gYh +i4+3EOT/IWkvlFLH/46zb2kl6KqfqqpYBVV/4c/ZoC6CIqz/hHhW00GqPN39 +eQ9BcXpJ/dW1dNi6wbCtoI+gh2Rhzt0maryNV8efcQh6Vt6iNPeHDooxp2MD +eARlpt8Pdumgg13l2fX6gwTluy+00O2nQ6ZOW7zrMEHFpi2vozl0+LNkbE/T +CEHfWfcVRwkdlv8KlzEcI6iK3+HcgWE6NHGfVl0cJ6i+VaXz4xgdFn20i3sz +QdCfj83bmFN0GFxQfqBskqCue4mZV2fpcHT3KvXKKYLYZ+0XsPkYEGVV0fN+ +mvJnv0rALiEGfImeyoiaIWhSv7k1S5QBm+dUvC1nKb8WJJrSJRgQsuiF/gjF +In/t0oOkGZC2QG885B9BUlXK89rnMaDBw+ztDMULMpvOmMoz4OzOWG/HOcrf +8HvNaXQGBPlXLU2jWOOYnYm0CgOu63xrb6Z48TblZ95qDFiyxjZukuIVWk1S +9UwGtA0d3fz/98Frhe75bNBigIHlOI9LsVHHwd/JSxhQni9zp4TizQVKSGgZ +A9ZvqdxwlWLzpMbUoysZIHzapWUFxbuD7oqX61HjeYgHFVH17T948NSqdQzA +FXL0TRQ7rlequ2XIAFpj0+sUan6uCo0bpjYyoNfy1/ZBSo8TIwkPHY0ZkON/ +oU2LYu+fB0SLt1D6rDl+Ziul39lXDE/tbQzw6jaQ3EXpGxz5+2fYDga8Cryf +ApT+V08krB/cyYCkU7aGypQ/cYsZQnnWDBCUXPVf2ChB9o5aTzttGVDpw+g0 +oPzWjNMzl7ZnwH3nsJ3U8w/KnrOMdnGm9MPx8uWEoCB9O71IVwac5lPyWUrl +acvxo3W5Rxkwz3Ow3JfKW23dJRXpkwwYP/L3QgWVx0TJaLzemwHR8kd/N1N5 +PWJy39nFlwGThqVr6qk8j7x49yw3kAHzRQ6PRbURNP8KZ41LKANUqsJ+zKsn +qPH9ZH1EGAP6k64cDK4lKGVQJDA3kgGzKQNjjdUErbbXKJS6xQC9+lRHqzKC +9urZWOY+ZECHnZ2ybQHlv4fLYEcqA96/bdiq/ZGgjqRTsVLPGBAo6RLZQfW3 +t3jYb+dMBtjGNp9dmEVQTDt2lfrAANe/5f9SU6n1SbGctv4TA97mf9n66wFB +TMvGdOdCBrD5w/OHEgl6kzsy9K6U0mPabAOJI+hn1JLzzrUMeBFVVTYTQtDd +krUaEfUMWKGg8T3yAkHO05s/v2tkAP0GXVwqkMq/m6O4VDsDzhVbOVT8R9C8 +TbG333EZULSW+eiII0ENPg8MOgYZ8NPIR/TAAYIepL1olhyh9Nvt8MXAiqCV +8l+ZzlMM+D3YerhgO5U3zkympKgS1BVcde3QIyj6rlupk7oSPHrSmB8kRJDf +mUs+QSwleH/GfIXtPx5y3JukdkdLCTKtzMbVJ3hIV7zOr0xXCV6/4dwOYPPQ +t7Omi9cZKMHzb2eDd1bzkMABzeuSe5XAcsX4uaAEHupfA/ra1kqw/yGPuSKG +h6pk7duNbZVApua2Y+UNHkr+Gmvg56gEvou/pjcE8pDResGB9mNKkGhSqCLj +wEO+ih3m70KUwKP0l6+MCg/ZD8+OVV9Vgg+Y++b+fB7aUsl4xLmuBAdWDf5k +SPCQ3LU90xrRSsDLNqlqmuSizLGC9PBEJVBe67L3Wh0X9f1KlnTOUYL66F06 +F8O56GCcQ4VkrxL8bumUWMzmIJUsceXjA0rwhu/g+rhWDmqtfuf+jasE8y/v +Z7NrOOiIjBz/1RElCOOniTjmc5DXjS96c/zKkPBoy6RlOAddCl6RMKSiDILd +8Y5HFnNQ2gn+I3V7lSEzStTi+R42OhGW+WqNjTIUR8q6xG9mo+XP7WZjDiiD +X0qJpo8+G73pzbm967AyyOs7VfHobJTvfOzbV09lCG273TX3ZwBV2dYs/xCq +DK2MLTIx7gNoYsvjyeRP1HiMwKTCY/0o6ENyyOdCZbgU1OXmY9eP+Fbfler/ +rAzpoB0qb9GPRNWiNFb/UAYroTXTOsv6kcKk//bP9cpg+Mb55T1eH9J7YZHQ +N6gMi8W0KhO9+pCX/Mj6VSwVOPJt/k8Xl17U2W3iX3RNBQbN5Pv2MLuRSXJF +ik6YCpRYItUaqW70wPZgeUykClQd8ZY2nexCjj/+Y7rcUoEc8sh2urILNb56 +UCb4SAUc93muzwrqQj8D/6mbflKBvE38xx1qOlHRvPffSkdU4F2uy7DomQ6U +snGVcrnTQjAdTj7tvbgVvbjiO899mSp8efdINyS4Bl2zdtkhOKoKfOKONzZa +fkT6zQ/TrpWrAf7zx/V8Xi6OX3LvRfkOdRBdvsSJF/4TXyiIiN+Rpw4TB/6a +3VJvxQMtBXGT79Vh5cqkwuBdrdhmejj6ab46GL2W1LI534p11x68LligDv6+ +Gks/NbXihnStgA9f1CH34K0v2LwNr76D7ZbWqkPvXFaktUA77vEcUpUg6lDI +zl3ofLQDWypbP/6uqQEP9th43ZHsxvFdywvstDQg1KDvq7daN+56QWviaGvA +gdYvusaru3EQ5MvKLNUAiUCzjrf7u3GGKyto3yoN2KbHLBZK6cbir4b2Nm/U +AM+21Z7qa3pw6ZZIPp6NBsgMuSWK7ezFctJHlS/YasBmM3PnlYd6sWO98VrZ +gxpwcIdG1bZTvXjMY/T4agcN8PX5cHZnTC/WirKvP+OiAcbpou3pv3rx5d86 +mXMnNWB32g2+Jwf6sLFXqd286xrwIfL8kT02/XiqoX/r5xsaQDs+Ht/h1o+z +N0uu9gvXgIew4qyTXz/WYuyhtURpwLevFlKL4/ux5OfG7Ge3NSDNbJNhfUM/ +bmDwpCBVA7ab9V/KshnAp0oWFHhhDXBIyvGX38LGOivXpWsUaoD5/kqlrXvZ +uPPugdu1RRpw5KiCiMthNrY5lXTC8IsGXOS/EOUUxMZGyosZIuUa8KtNyepU +FhvT/tvgfb9RAxyvZ4iULeTgZBVnzbJRDZhMV1E17ORgQ72ly53HNWALs7dK +mcfBtdtH1k1MaED/vJY97AkOpvld3aE5owGaWZqP9klz8anq595BAkzw4rtT +um09F8PV4QJdGSZcfB7ohEO5uDEx/3uRLBO+KVq2BcRw8emsK7W2ckww+dRf +wkrk4mdtin2X5Zmw8+TmFxtfcvG8DUYyLcpMeERF+mYtF3eQyw4Ri5nw/s/G +a2+UeThIZKc7S4cJeQZnsow1eVhhoeJ/eUuZwDzwY+CjLg+bm6dd7l7OhAK4 +4HpuIw+/SS1P36jPhAWWMROKjjwcckBhimvMhMaPbYvf3eNh1VOtgpc3M6GO ++/bBgkc8nHv1mZSSKRMq/vTUOD7nYU6WocbWbUzocRM7mJfLw1bSh7Yl7WTC +aMqY+9VaHtYsfnp7px2Tet7eUxpEI7hCdyK12Z4Joff0mFekCfa/vS3rmCNV +3+i1dwELCP7h0V951YkJRRt1QpapE+wtu1QMuzPBoMrU6PVaglUCAhUtPZig +K2lHYxkRXNL5Y1HTMSZo8+8evmhMMP3dCZNxTyZs2tdHF7UgGDtkBq44zQTa +oo/myw8TfLT03/WPvkwYbz+WQ3MlWG7VrvgdfkxYrQFaVR4EuwkNZrsHMGH7 +iz/SWj4ES6av4iUHU8e/b3nBvUzwwYnsw7IRTIj5uLKhP5VgIWfhk0mRTMjI +bXSJfUZw5g/rc7rRTHi7+HfZkgyC+ZPHErbFMmHw4url1PUfPzNdXxOcwIRD +8mdHFhYQvPdlaLv0PSa0l9xZubyY4Gn6b5KYyIQONGaw9AvBOzlnJfOSmaB2 +ZcsL9g+CR2M+mA49ZsKqPV49V+oITpqRsLrwlAlHFS7ZzzQQvM3N3lkqjQnL +E57GHGoiONFg9vySDCaszfc04LQSvPWRZcS7F0zwOLrzqXwHwUQy6Z7pSyZk +swsql3YRbNK2KdfpDRNk0u12qPYRzNke9YVkMcGSqZE41U/w7azW2nM5TDjT +9yalmE1w/9XgoYRcJkzMHytTJgTHDFbNab9nws+ph7zngwQbHdSQfvuB4jUy +RVp/CY5eVqTz8xMT+GZTArpGKD3W24ldKmBC7eUlP2GM8mvzSO+qIiZcctM6 +cXWc4LqdEV/ai6l6Jl+b5UwQzDug9fhmCRPmF424lE8SLOyKQ4xLmbD7jHZB +xRSVj1O2zkNfmWA8FWOXN03wmsAhePidCUnO0foRMwTvuHpDbU8ZE6pHQi3N +Zwl2vsn6x1fBBGftsZRBigMS85tfVTLBJsVJP/gfwTefWn84XM2Ey8hVaJLi +Z294CbI1TGgWT5exmyO44OM1/4JaJjwz4do8obj+q/r+U3VMyN0/9ruRYl5N +nr56AxMiuQ/iJygWad27oOo3E3wa62Oo+3+8cID990ITE8K1b38lFK8ZvVy9 +ooUJDbK9Bt8otuBTfdX6hwk6wj09YRS7SLyLjGpjAuPJp8p1FAco7PZEHUz4 +XZoxUkbVF6PRv4N0MkHpvxnrHRSn6V7SSe5mwvdGsZE3/3+/vU5ZbFcvtf9J +40pBihtMsnv/9VH9W6bWt5HSh1hafskcYAIHr0JOlH4iB3pSHTlMaDFb8MuT +0lf1yIUQaR7Vf3Gnn7tQ+uufpDt/IkxwEJItMKH8sQh4DV5D1Py0sxUkKP8C +oztny0eYEJhx/8Z+yu+Ye0HN58aofllQmdZE5eH5E/kPyyao/Bu2S20fourJ +N/OPmGaCad6qtFYuwYOlbTYbZ5lAP9vSQeMQLFpzVp/7j8rH5y1uyv///6U/ +/a+FAAvk437umukm2HJkS/WMIAvSSnpzv3cSfGSu5WWGMAvimm79d6md4Fh5 +WU9JMRbsStvR8KKZOr/x6d4fMiyYnYzIGKkmmGYp9SVwHgsa/vMolqokWM32 +SerS+SyIEU9eL1tG9aNXg1OYAguqXNO3VpcQnH7XqNl8IXX+jdUrt+QSXPT4 +1/spVRbs8Ll19lk2wY2vvBKeq7OgMChQb+wVdf7SBzbimixYqmoivDONWm+G +haq/6bDg5oJdXiSeYMfnWyrsdVkw8OCa3EAcwTZOl3+QZSzwfCivVR1N9W+l +4Bf5VSyYd9j18ZFQgrXSBT44rWNBbVj7zodnCO525ns8uZniDJcSn10ENzMg +JdyUBXY5/M/XmhNcW3UhWc2MBXw7jHR7thD8edNcgqk5C56f/qQgYUhwqtK/ +yJu7WVCey+g8waL0+zntv8SBBa9Erp2N/cvD9tc3nMl3pPTepteiwaHWewj0 +2XWYBXsqPtPvd/PwlswpT18XFkR9+a59sIFa/29MOhd6sODJy0MMks/Dncbj +FgfOsCA42X5e6CUedn79V/16FAvevu3/e3uOi09c2jdjfpOq1xBnF45yse++ +7HrJWBbMl31i/YvNxaGjvpHRt1lQQnPc966eizMNJqfv3Kfqr7NluGdy8WTh +XN2TdBYskHzbFrSfi6N/SkZ8LmXBLbePFz/Gc/DdR55Hr35jwTPu2X0Lwjn4 +0emKzdt+sKDf6pyy9QUOfqsQPfWjggUshy85ca4c3Hxw/tGaXyw41Se/VGoV +B2t3MjZ3dLJg290kKU4xG6/MDlBN7WaBpGCscG8OGxteaZp07aX8TluUUPaU +jS2077/qH6DyQYo+7Q9jY+/j6qpDQyxYtbx4/ck9bBxkdHHyzTBVz0VlkwIT +Nr4i1VF7epQFG9ePoxk9No5/+ShsYoIF3d7tW/UV2DglWMj9/RQLOko5bqtF +2Th9j6tJ0Mz/9fFNU5oYwNnMLws3/WPBC3ENJV7fAP40rDU5N8cC3+tPP2f8 +HsD/A1QMfro= + "]]}, + Annotation[#, "Charting`Private`Tag$3807#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-0.9999997966795732, 0.9999999999999791}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.8963752124786587`*^9, 3.896375234816039*^9}, + 3.898186567676098*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"9d3833a2-bbbb-4e23-9df3-2418c1b7131e"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes amplitudes", "Subsection", + CellChangeTimes->{{3.898186771556943*^9, + 3.8981867786034403`*^9}},ExpressionUUID->"4dc8a5db-8604-4de9-a0ea-\ +5b9c4af8313b"], + +Cell["La magnitud A es la amplitud de la oscilaci\[OAcute]n", "Text", + CellChangeTimes->{{3.8981863319385357`*^9, + 3.898186362785534*^9}},ExpressionUUID->"ec2166c3-615c-4169-982a-\ +bf48e7b963e2"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{"A", ",", "\[Omega]0", ",", "\[Delta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"A", "->", " ", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"A", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", " ", + RowBox[{"A", "->", " ", "3"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.898186378794241*^9, 3.898186388386107*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"34b05125-fa79-4697-bb90-518b280af661"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVmXc8le8bx23HlsI5yDhHlDSlInVflJRoImUUQirqSyJUSkOZoaJESUOk +gaLUbSQNM0JG9jzjJnvl9/zOH+e83q9n3Nf9+Xyu+xlHw/nkXlcBPj4+D+rr +/7/3zzuLrDoStmnL3P8/BH2uUbfYr+6BLo2lM8convvyKURd/SxKnXUKa6BY +OubtK/GGSyhw7xrDpxTfL4hQE1a/jhrtjFc4U6xLjkTOuUeh62lZx8QobpFO ++jdTH4OWjBRyEv8RpPlEbO3U9C0kvfBljgrFJzb6eo6rJSCV5d9LQmcJyqpt +Sx3ZnIhiD3gtbJ8haOq4RfOQezJqmBT4uIjiB/zN18dNHyK9m9OpNtMEbSm/ +uWisPgXd+Fb/y2eKoL54s8IRj1Q0/zRr97lJgsKPzNoPTz9GM6FnFvhMEFQz +fTRuUC0NGcdWnmONEXSmVHUlef0cuaw30fwzQpBSbO0P7uYMFPHkluKVYYKc +dUCQ7f4SLa7b2HdnkCCB6YDKkaBXaMrzcKkgIai2zXrhiOlrFBQwN2bHJcg/ +QyLvb/0btFutdkd1P0HmMT0ifx9kobqU9T68XoJU/AuthjyykfIpPzLeTVDB +Zr9BMp2Dgpju7Mp2gkSbOrS5anloTIsjH9dAUEPBR19OXx76szedtqCOoOdP +4ovZr9+jhRu22gXXELTTe+ehgc35qGLGV0u1gqDbYu9v97pjFBOw6rJXEUHZ +fubePvQCdE+El7oHE5Q4sI4xHFSATPgj9TTyCfKqknP/a1qInoc4pVzJIUgu +8avAUH0RunrnIN+RpwRNS79NO2VUjHpG2789f0RQ18VHuwcfFCO7MFu5P8kE +vXU/n0Q8PqNP/eeWiMcTdFBvjSFvugRZCa7J8b9G0MPvyf+x1b4hk+7piNfO +BI3E5+i0hn9Dv/PWbbFxIGir+4/On5Pf0EN1MeOu/QRxBMet39d8R37Spqr5 +FgSt37jT8Pq1MtQp9vi3nT5BVS9nBLRJJdK4M7rwkABVLxJzlFpehTbcaze8 +O81DG7TiDK8dqUJGb1d3fxrhociRtOGA6iqUdWN49HMPD625+cvVOb0aOe+m +3fn8jYcufNc1X3WoBnXGOl25HcZDz16/00q/VYNi9fQHT4Tw0M94E8FFZTXI +fuYCWhbIQ5rutvl0g1rk0eH96PgxHvoueHk53/xf6BffAt02Mx5S2NgkV/ml +Diluf1vx4h8XZb683nRieSMKTlsnIWHPRQNyA+HmTo3o5Lumsc49XKR9xnzT +4rhGtOvcGofnZlz0wEjiYedkI4os7c6aW81FMd/C3Q6WNCG9yjkop3HRmc6o +ITP7FuRQPfRx8hUHJUv8CJln2oboH2Q/fRtmo00bA+2DHduQbzHH5VAvGzV7 +LdUnfm1oYDLQo7ORjeg/w3rKnreh/QfNs94WstHNeIvtobLtaI/yKo2wSDYK +WVQhPdfUjoTvPL/6V5ON3FF1Ase7E9GzeLljWwYQX8rY+6awTuS+buOb12sH +ULyQSvP31E7EMt1QaL94AH395qaaVteJbtUt3BwiMYAWW82kuBp2UbqfL5Or +7kd9R7Uz/vB3o+8z8iWbD/SjYzHnPlVF96AXSmffLXPsQ17dSzqzM/vRL89t +QyZGPajN8Tet8Fs/Sv+z/3Lp4h60ryF0eXlXPwpZlm5iJN+D1v/oPdutNIA8 +rATOjnG7keDrx7IK1wZQi4WOzcukbhQfpLHJ7xAbDXZEbEGzXahwPiPBQJaL +1IulP2582YnENS5rt64fRPP8M44JD7ShSNkfOg8PDyPdHS1PWNfqkHOTFRYs +G0OVK36ZFicVof9KLjuf1J5C94+iSg+rV/j1Kcl99O2zaCz6+uE/J6rww8Dj +Ayv384FOeOElcYUWfCl5Zs8Ihx8mnuebBf/pxLtX5v63dJgfvjwZ2TY+1IlV +C31uOk/yQ8N6A3AW7sLvOwaqqoQFoC9SqmO+bhf+u+j3rheqAtA1LySjy78L +O2fkWLrtFoCvTUPGq2W7sXGe1/aGLAE4ytLVXq7fg6XNdTxk3guA7cGcEimz +Htzc2B26tUAAyLmuoVbbHuw/Y/81u0wA6iv1v9oF9eBXaIfZzW4BcGk8Y/yq +qAerf9E2NVcUBLbagsXFFr2Yr6YN8gMEIbj2R9g2mz58uf/Tw4CLgrB/ecqj +Yvc+LMZ3X8AgVBCYD/+6LDvbh+WWHficc0sQ7jVFZZTd68OLrlWbvXwlCJ9r +9okYtPVh8w1FO1N6BOH50Jftn1z7ceyjR/ahe4Xggf4VxhKXAUx/f/Hj1gNC +cMg+YoOz9wBOrDqkKnxYCFiTb2JCLw7gJ7PKbRc9hWBHiFVOYvIAzt0f5xIY +KgT1F6sftjcO4GaJK8e8PglBjpn4cK0lG2uddvO30hGGHpKgpryIg5cZtu5L +XikMX75sC5RcxcFr+GxXDKwVhpVnJd04RhxsEr6958JmYSAhAT/8rDjYMVXX +Kt1eGM797RXPv8TBt2v/rhCIovZ39tYeaeLg+3ePS1jeEgYzuYdKP3o4OPVw +V8+de8JgaX1aN3qIg99wft1f9kwYnFtP3OwS4eIKoTyJA4XC0G9V/SxnJRcL +61/ofTksDNY++3yGg7lYcnq8aGpSGFLV4ren3eBiucJTSaZ8ItBip/7bIo6L +1S2drZskRSAhSFfS4SkXG7maFotoicDsiJDqwzIuPn1LItnBVgTixu+OvJnP +w12jd2wkPoqAQKp1T30sD6cY6/m0FIvAcGyLTMM9Hj4UURH18rsIqM+6TRY+ +4uFGTeFv+xpEwLswbHRvFg9X7/PekDgsAu7moqNHq3n402sL9WU6oiAactLh +sBjBQbO9RnMrReH20q0TkzIEG2wPOVC9ThRoy7P+BSkQnN2WF+NrKgqa1//b +gFgEP5fRFv50WBRYhvwjWRsIvuPJP7Dzjih0PI2IPXiUYKu8RBGNJFGokvte +E+pJsJzwetZwqigEJtzd8MCb4MhEL/s7b0Qh6oOhz40ggi//aKpoLReFH5ir +ahFFsImiH/t1rSicMytfVxxL8JyzHO1yE1WfuJ89K57ggKltxov7ReHlaHB+ +0gOCTy15m3VKiAaPHwdeuviK4OW+e6pMJGjgFG2aCtkEsws4nAVyNHjxZMP7 +vncEu9mytPLUaPBsq3Lu8CeCNVM/mYRp0WDBqp67NkUEd5ADhxyW0cBU8oF7 +SgnBDtei4/k3UNs77XJGfhCsVLM0p8aYBorBJaumKwhuUC2tfryNBgJW3MiB +amr+b2fFzW1o8O39XEdIPcHm3cfOxfxHA03m7fcP2gneeo6VscWfBnufRvt0 +dlLzlW9uHDtPgwoH1i+ZHoINTS3X24XToKRdLHzRAMFrW4TdpWJpkCp/8Y80 +h+DVvp9u4QQa3NteX9POJVjn8Yph1lMaXKmcn7JliGCtjX0adS9ocPfPXf/a +vwQzfz3YHZpNgywPE67lCMGqngcuGH6gxucXmHs1Ss1HWC6TU0iD7q62jNkx +ghXuf29O+kqD04Jjo3oTlH/6IRJ7Kik9Ztx/75skWLp8g6FgHQ281TxtHKYI +lnAdOZrTTIMgrx0ndk8TTJvNuOPeSdWfaKu0bIZgoVuuXxgDNJCRnTo0TDHf +MtXRH4M06GpLNXo0S/DM5zrW+XEaTDS2vDT6R/CEfdTelf9ocPGcQR6meGTE +7GKHkBgET9vZ6s4RPBjO9ypOQgwEjCbDL1HM0cz7s1VODGwaa22KKO7L/09q +ki4GBlpFOWyKu6x0jNLVxICwUtP+UdzG6TjmoCUGh8M9V09T3Hz5XoLMMjFQ +Klff3U5xg4rV10I9MdhHqxJ4TXFttuS4j6EYNC+4b36M4iqLkkVaxmJAO5+n +LUVxWdc5qwYzMQgLcbubQNX7NWhtyI2dYmDOGE2RofjzAvLayFoMNHtLjE9S +8y3IeNrGsxODV9u2++VSeuRvOSzz0FkM+i3mNrMp/XKb6Zv2eYhBY47fM1GK +s09XnxA+JQb6E3seS1F6Z6SafPc4JwZ3bCaO1Y0T/MxoekL5shjo/tqjn0D5 +l1qbpV1xQwxWDGnfM6X8TRRadGV1vBiY2M3baEflIT6xJasrSQz+ha0I/DxI +cNya2x23H4uBvGqbrSIhOOKIKEy/EQPplPfjZ9kE35jBXi/yxOB364kP1/sJ +vhrnf/9QgRiIyRexQnoJPv+5f6q4XAzGLeX6VlN5DrBPWXKmVgzODMiZ9bcR +fGbkoO3iJjHALwp3X/9DsJdmWU54nxjYzbYdu/qb4GP5l7s2ETE4Zll7vrOO +6k+rjfOHRsUAtgdu0akl2PFy5ilrQXH4l3eLc5rqt51d0UtVVcXhtoFx/79C +Sv+lXbX2muLQdxKNdlL9vMNn3fl7OuJwtdwsLecDwdsE/lTR14lDXsDmeWo5 +VL+pLz0zf7c4yITOUxJ/Svnhfl5tr404FNkaJFs9Ihi9rP4abS8Oh23XtoQl +E2y0yV9Z2kMc0ipGwgvuEKxvX1JAuyQO5SvG/5lco/x5RD9mFioOxj/6I4Yv +Uf3JPj7/aqQ4bHY40R99nlqPAuTcBO+Jw9C+FtkYX4IXxx+S+JclDk5h6icz +nQlWqZ20Hu4Wh5Z2gdk9BgTfVbacW8URhwim5ssqPYIZLg+enforDmGvpRyN +llP9+XfrNPefOOyP+YMbmQTLysY96FOUgM8LL47qSRAsaLGc3bJdArRUxxzt +Gnj4UuzFOJXdEiDX8ysynVr/+ZpqN9rZSIBp0I7xvu88POMRGN3gLAFOl89d +WvqRh8eufdWvCZQAh1LmROUDHh4odg7++kICGLNza+8e4WG1mw3HIrMlgDU/ +UFzenoetHHdaW32QgCCzMaWAfdT1ZcJAp+2rBNj8fiYhaMLDMcvm1Y53SsCL +36HNsqo8vOEO1tZWkoT3qe7DGj+5OPyYSuWVq5Jg7La23lyHiwvXxeTtiJAE +uaKTHkpqXDwmREudFycJ9Lo/yr/mc/Hh5GH/+w8lgf/7R37JWer6X/udmZMv +CTlvDr0LruDglo1nz3T9laTWK+6SCE8OXj6PupE9JAUV6qeWnUpk456Inku3 +XKVg0onfJTmKje+Lj/f2HpeCntpY54+X2FhSiP4m3F8KLs6NtJYcZeOBsQNb +625KQXxL+DuxNWz8uLnFy+OzFCTFsVSOlA5glWfdOGqJNDwVuTOc3N6PxdGo +U/OwNNQEOpms6+nF/saLaW+npIGlsLR1tKYX92y2y4zil4E3AycFHxX24qJt +hVMmMjKg66dP/5bYiwP2RsSm6chAZgwfz3RvL2a7Lio54yQDKYP+O6Xf9+Cy +cOvF8yplQOvC1A2jc93YjHtwnGktC/faWfI7fnXghqIj/Ad154Hg/SljIt6I +c0I/O6qPzoOHwT+T6bvKsJuwb1tFhRyMXb+hqml3Bbt4B+ZI3p0PVR6HGku4 +pWiF+9IKC6cFUDHBXKzTXY8q5XQlfA3kIdLR4YtAbzva5OnZf89IHr625wV2 +TrejzNLM0iIkD9eeporkyXagyKBVl2W3ysO4rJeHiWEHsuhZO5u+Vx78svdP +lYV3oO95xqTjuDwMvaAtfLuiE5Uc3l+zO4naruATHHyiC33IvHRPV1ABDgbF +Zu/CPUjEwlrpjogCqPSfGbrwswft6ddO4BdXgLmr1teTu3tQL6v8dp2sAvhW +bo3JkOhF8xMUY4JVFcBEze/KjE0vOh6SEVproACmtKBZ94FepGxb5xt0SgG+ +dyrqygr1I7fRZyM9Pgqgc4qRPU++H72OCfTZ46cAU6/Uh/i0+pFZufp/WucV +4Ftmj+0zs37kY3L8RFWYAqzeWBbKuNGPfujyuWg+VYBQV4OOAOp5KZBfZ3dZ +iwK8/uwu3Tc3gHq2SDRotSvAv3YBNVNpNtodyjl0sUsBnGYHdaJU2EhT5uXJ +tWwFeLjyieTAejYqU1kT9WBCAY7vvNyed4qNVNdvqjg9XxF0J9ot85rZqMhr +r8XC7YrQbRzWPfqYg3Tf6NX6WSiCN7tmqPU1B90eXWD/c5cipJUE/sz5yEHH +g+qPX7NRhBnFV0TzFwctuGEfNuSiCHqyBtkyglzk9tjte8l5RTiqxPKQteMi +8eaAbV7ZinBO+nrM9WkuWuuXJhX1ThGuLqgTRUI85CTX8PPle0Ww8hFkdkjy +UO42fYehAur8rf0rhhbykFsO+e90uSIkT5aor0Y8VBh55F5AjyLEuHz/a3ie +hzhLYg/f61cEi/gxq69XeIheUrgon6MI5qplkpsjeMhrWvXV7F9FuEZWH+dL +5CGVo78/B88pglN5puvdXB7yN97Ju0qnw02z6XAzHg+lNgdlPVWmQ3Lh0MZn +IzxU6Zfu/1WVDttEPvONTfGQViZNUHwRHVwUEjNsRQmqUSpWjFhFh6eZQmsM +1Qj6lzPU/GINHWjt3uKCiwjS2aOeUrGODkPdOr9ydQgKvnZOV3YTHQrswg3Y ++gQtH1lnHGtOh+sVy1qP7SDoYJSbSLYlHe7+fT1xdzdBV3Ru/ajdTQf+3fXs +d9YENR/+a62wnw6PEqL25h4i6EZ5xrEEFzrEb5As/+lNUPcTjbjkIDq8zz41 +fvwWQZzL7ZOCwXRY9jj69scEgv46Pzx0NIQOM8m5gRP3CeJT01i66gYd2G3C +kjpPCFK6o15UdIcOUXOew4E5BGn4tmlr36NDkc2a/xTzCFq870FEWBIdzr85 +o5qYT5C+jPoBq8d0sOg6PHu4mKDd19QGu9/QwbV05npDJUH7XVutzd/SgSXm +DB9/EuS4OflDZh4dxPZWzw/7RdDxOdVrfgV08PQtF+toJMi75Q+nqZgO6gYh +i4+3EOT/IWkvlFLH/46zb2kl6KqfqqpYBVV/4c/ZoC6CIqz/hHhW00GqPN39 +eQ9BcXpJ/dW1dNi6wbCtoI+gh2Rhzt0maryNV8efcQh6Vt6iNPeHDooxp2MD +eARlpt8Pdumgg13l2fX6gwTluy+00O2nQ6ZOW7zrMEHFpi2vozl0+LNkbE/T +CEHfWfcVRwkdlv8KlzEcI6iK3+HcgWE6NHGfVl0cJ6i+VaXz4xgdFn20i3sz +QdCfj83bmFN0GFxQfqBskqCue4mZV2fpcHT3KvXKKYLYZ+0XsPkYEGVV0fN+ +mvJnv0rALiEGfImeyoiaIWhSv7k1S5QBm+dUvC1nKb8WJJrSJRgQsuiF/gjF +In/t0oOkGZC2QG885B9BUlXK89rnMaDBw+ztDMULMpvOmMoz4OzOWG/HOcrf +8HvNaXQGBPlXLU2jWOOYnYm0CgOu63xrb6Z48TblZ95qDFiyxjZukuIVWk1S +9UwGtA0d3fz/98Frhe75bNBigIHlOI9LsVHHwd/JSxhQni9zp4TizQVKSGgZ +A9ZvqdxwlWLzpMbUoysZIHzapWUFxbuD7oqX61HjeYgHFVH17T948NSqdQzA +FXL0TRQ7rlequ2XIAFpj0+sUan6uCo0bpjYyoNfy1/ZBSo8TIwkPHY0ZkON/ +oU2LYu+fB0SLt1D6rDl+Ziul39lXDE/tbQzw6jaQ3EXpGxz5+2fYDga8Cryf +ApT+V08krB/cyYCkU7aGypQ/cYsZQnnWDBCUXPVf2ChB9o5aTzttGVDpw+g0 +oPzWjNMzl7ZnwH3nsJ3U8w/KnrOMdnGm9MPx8uWEoCB9O71IVwac5lPyWUrl +acvxo3W5Rxkwz3Ow3JfKW23dJRXpkwwYP/L3QgWVx0TJaLzemwHR8kd/N1N5 +PWJy39nFlwGThqVr6qk8j7x49yw3kAHzRQ6PRbURNP8KZ41LKANUqsJ+zKsn +qPH9ZH1EGAP6k64cDK4lKGVQJDA3kgGzKQNjjdUErbbXKJS6xQC9+lRHqzKC +9urZWOY+ZECHnZ2ybQHlv4fLYEcqA96/bdiq/ZGgjqRTsVLPGBAo6RLZQfW3 +t3jYb+dMBtjGNp9dmEVQTDt2lfrAANe/5f9SU6n1SbGctv4TA97mf9n66wFB +TMvGdOdCBrD5w/OHEgl6kzsy9K6U0mPabAOJI+hn1JLzzrUMeBFVVTYTQtDd +krUaEfUMWKGg8T3yAkHO05s/v2tkAP0GXVwqkMq/m6O4VDsDzhVbOVT8R9C8 +TbG333EZULSW+eiII0ENPg8MOgYZ8NPIR/TAAYIepL1olhyh9Nvt8MXAiqCV +8l+ZzlMM+D3YerhgO5U3zkympKgS1BVcde3QIyj6rlupk7oSPHrSmB8kRJDf +mUs+QSwleH/GfIXtPx5y3JukdkdLCTKtzMbVJ3hIV7zOr0xXCV6/4dwOYPPQ +t7Omi9cZKMHzb2eDd1bzkMABzeuSe5XAcsX4uaAEHupfA/ra1kqw/yGPuSKG +h6pk7duNbZVApua2Y+UNHkr+Gmvg56gEvou/pjcE8pDResGB9mNKkGhSqCLj +wEO+ih3m70KUwKP0l6+MCg/ZD8+OVV9Vgg+Y++b+fB7aUsl4xLmuBAdWDf5k +SPCQ3LU90xrRSsDLNqlqmuSizLGC9PBEJVBe67L3Wh0X9f1KlnTOUYL66F06 +F8O56GCcQ4VkrxL8bumUWMzmIJUsceXjA0rwhu/g+rhWDmqtfuf+jasE8y/v +Z7NrOOiIjBz/1RElCOOniTjmc5DXjS96c/zKkPBoy6RlOAddCl6RMKSiDILd +8Y5HFnNQ2gn+I3V7lSEzStTi+R42OhGW+WqNjTIUR8q6xG9mo+XP7WZjDiiD +X0qJpo8+G73pzbm967AyyOs7VfHobJTvfOzbV09lCG273TX3ZwBV2dYs/xCq +DK2MLTIx7gNoYsvjyeRP1HiMwKTCY/0o6ENyyOdCZbgU1OXmY9eP+Fbfler/ +rAzpoB0qb9GPRNWiNFb/UAYroTXTOsv6kcKk//bP9cpg+Mb55T1eH9J7YZHQ +N6gMi8W0KhO9+pCX/Mj6VSwVOPJt/k8Xl17U2W3iX3RNBQbN5Pv2MLuRSXJF +ik6YCpRYItUaqW70wPZgeUykClQd8ZY2nexCjj/+Y7rcUoEc8sh2urILNb56 +UCb4SAUc93muzwrqQj8D/6mbflKBvE38xx1qOlHRvPffSkdU4F2uy7DomQ6U +snGVcrnTQjAdTj7tvbgVvbjiO899mSp8efdINyS4Bl2zdtkhOKoKfOKONzZa +fkT6zQ/TrpWrAf7zx/V8Xi6OX3LvRfkOdRBdvsSJF/4TXyiIiN+Rpw4TB/6a +3VJvxQMtBXGT79Vh5cqkwuBdrdhmejj6ab46GL2W1LI534p11x68LligDv6+ +Gks/NbXihnStgA9f1CH34K0v2LwNr76D7ZbWqkPvXFaktUA77vEcUpUg6lDI +zl3ofLQDWypbP/6uqQEP9th43ZHsxvFdywvstDQg1KDvq7daN+56QWviaGvA +gdYvusaru3EQ5MvKLNUAiUCzjrf7u3GGKyto3yoN2KbHLBZK6cbir4b2Nm/U +AM+21Z7qa3pw6ZZIPp6NBsgMuSWK7ezFctJHlS/YasBmM3PnlYd6sWO98VrZ +gxpwcIdG1bZTvXjMY/T4agcN8PX5cHZnTC/WirKvP+OiAcbpou3pv3rx5d86 +mXMnNWB32g2+Jwf6sLFXqd286xrwIfL8kT02/XiqoX/r5xsaQDs+Ht/h1o+z +N0uu9gvXgIew4qyTXz/WYuyhtURpwLevFlKL4/ux5OfG7Ge3NSDNbJNhfUM/ +bmDwpCBVA7ab9V/KshnAp0oWFHhhDXBIyvGX38LGOivXpWsUaoD5/kqlrXvZ +uPPugdu1RRpw5KiCiMthNrY5lXTC8IsGXOS/EOUUxMZGyosZIuUa8KtNyepU +FhvT/tvgfb9RAxyvZ4iULeTgZBVnzbJRDZhMV1E17ORgQ72ly53HNWALs7dK +mcfBtdtH1k1MaED/vJY97AkOpvld3aE5owGaWZqP9klz8anq595BAkzw4rtT +um09F8PV4QJdGSZcfB7ohEO5uDEx/3uRLBO+KVq2BcRw8emsK7W2ckww+dRf +wkrk4mdtin2X5Zmw8+TmFxtfcvG8DUYyLcpMeERF+mYtF3eQyw4Ri5nw/s/G +a2+UeThIZKc7S4cJeQZnsow1eVhhoeJ/eUuZwDzwY+CjLg+bm6dd7l7OhAK4 +4HpuIw+/SS1P36jPhAWWMROKjjwcckBhimvMhMaPbYvf3eNh1VOtgpc3M6GO ++/bBgkc8nHv1mZSSKRMq/vTUOD7nYU6WocbWbUzocRM7mJfLw1bSh7Yl7WTC +aMqY+9VaHtYsfnp7px2Tet7eUxpEI7hCdyK12Z4Joff0mFekCfa/vS3rmCNV +3+i1dwELCP7h0V951YkJRRt1QpapE+wtu1QMuzPBoMrU6PVaglUCAhUtPZig +K2lHYxkRXNL5Y1HTMSZo8+8evmhMMP3dCZNxTyZs2tdHF7UgGDtkBq44zQTa +oo/myw8TfLT03/WPvkwYbz+WQ3MlWG7VrvgdfkxYrQFaVR4EuwkNZrsHMGH7 +iz/SWj4ES6av4iUHU8e/b3nBvUzwwYnsw7IRTIj5uLKhP5VgIWfhk0mRTMjI +bXSJfUZw5g/rc7rRTHi7+HfZkgyC+ZPHErbFMmHw4url1PUfPzNdXxOcwIRD +8mdHFhYQvPdlaLv0PSa0l9xZubyY4Gn6b5KYyIQONGaw9AvBOzlnJfOSmaB2 +ZcsL9g+CR2M+mA49ZsKqPV49V+oITpqRsLrwlAlHFS7ZzzQQvM3N3lkqjQnL +E57GHGoiONFg9vySDCaszfc04LQSvPWRZcS7F0zwOLrzqXwHwUQy6Z7pSyZk +swsql3YRbNK2KdfpDRNk0u12qPYRzNke9YVkMcGSqZE41U/w7azW2nM5TDjT +9yalmE1w/9XgoYRcJkzMHytTJgTHDFbNab9nws+ph7zngwQbHdSQfvuB4jUy +RVp/CY5eVqTz8xMT+GZTArpGKD3W24ldKmBC7eUlP2GM8mvzSO+qIiZcctM6 +cXWc4LqdEV/ai6l6Jl+b5UwQzDug9fhmCRPmF424lE8SLOyKQ4xLmbD7jHZB +xRSVj1O2zkNfmWA8FWOXN03wmsAhePidCUnO0foRMwTvuHpDbU8ZE6pHQi3N +Zwl2vsn6x1fBBGftsZRBigMS85tfVTLBJsVJP/gfwTefWn84XM2Ey8hVaJLi +Z294CbI1TGgWT5exmyO44OM1/4JaJjwz4do8obj+q/r+U3VMyN0/9ruRYl5N +nr56AxMiuQ/iJygWad27oOo3E3wa62Oo+3+8cID990ITE8K1b38lFK8ZvVy9 +ooUJDbK9Bt8otuBTfdX6hwk6wj09YRS7SLyLjGpjAuPJp8p1FAco7PZEHUz4 +XZoxUkbVF6PRv4N0MkHpvxnrHRSn6V7SSe5mwvdGsZE3/3+/vU5ZbFcvtf9J +40pBihtMsnv/9VH9W6bWt5HSh1hafskcYAIHr0JOlH4iB3pSHTlMaDFb8MuT +0lf1yIUQaR7Vf3Gnn7tQ+uufpDt/IkxwEJItMKH8sQh4DV5D1Py0sxUkKP8C +oztny0eYEJhx/8Z+yu+Ye0HN58aofllQmdZE5eH5E/kPyyao/Bu2S20fourJ +N/OPmGaCad6qtFYuwYOlbTYbZ5lAP9vSQeMQLFpzVp/7j8rH5y1uyv///6U/ +/a+FAAvk437umukm2HJkS/WMIAvSSnpzv3cSfGSu5WWGMAvimm79d6md4Fh5 +WU9JMRbsStvR8KKZOr/x6d4fMiyYnYzIGKkmmGYp9SVwHgsa/vMolqokWM32 +SerS+SyIEU9eL1tG9aNXg1OYAguqXNO3VpcQnH7XqNl8IXX+jdUrt+QSXPT4 +1/spVRbs8Ll19lk2wY2vvBKeq7OgMChQb+wVdf7SBzbimixYqmoivDONWm+G +haq/6bDg5oJdXiSeYMfnWyrsdVkw8OCa3EAcwTZOl3+QZSzwfCivVR1N9W+l +4Bf5VSyYd9j18ZFQgrXSBT44rWNBbVj7zodnCO525ns8uZniDJcSn10ENzMg +JdyUBXY5/M/XmhNcW3UhWc2MBXw7jHR7thD8edNcgqk5C56f/qQgYUhwqtK/ +yJu7WVCey+g8waL0+zntv8SBBa9Erp2N/cvD9tc3nMl3pPTepteiwaHWewj0 +2XWYBXsqPtPvd/PwlswpT18XFkR9+a59sIFa/29MOhd6sODJy0MMks/Dncbj +FgfOsCA42X5e6CUedn79V/16FAvevu3/e3uOi09c2jdjfpOq1xBnF45yse++ +7HrJWBbMl31i/YvNxaGjvpHRt1lQQnPc966eizMNJqfv3Kfqr7NluGdy8WTh +XN2TdBYskHzbFrSfi6N/SkZ8LmXBLbePFz/Gc/DdR55Hr35jwTPu2X0Lwjn4 +0emKzdt+sKDf6pyy9QUOfqsQPfWjggUshy85ca4c3Hxw/tGaXyw41Se/VGoV +B2t3MjZ3dLJg290kKU4xG6/MDlBN7WaBpGCscG8OGxteaZp07aX8TluUUPaU +jS2077/qH6DyQYo+7Q9jY+/j6qpDQyxYtbx4/ck9bBxkdHHyzTBVz0VlkwIT +Nr4i1VF7epQFG9ePoxk9No5/+ShsYoIF3d7tW/UV2DglWMj9/RQLOko5bqtF +2Th9j6tJ0Mz/9fFNU5oYwNnMLws3/WPBC3ENJV7fAP40rDU5N8cC3+tPP2f8 +HsD/A1QMfro= + "]]}, + Annotation[#, "Charting`Private`Tag$4017#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwdmXk8lN/7xu3GLoUZhJkRJa1SkTo3JSVakbIUQirqQyJUSouyhooSJS0i +LShKHUtarRGylL0sZV/GLOf3fH/zx8zr/XqWc5/ruu7zLMN0O7rTQ0RISMib ++vrf7+3TbhLLDkSu20D+/4Pe12lb79b2Rucms1iTFJMP78K1tU+iDL5rZBPF +8vEvn0k3nUMhO1eYPKT4dnG0lrj2ZdTsaLbEjWKDoQMxxCsWXc7MPSRFcZt8 +qoDXGI8WjJcMpggI0nkgtXKGew3Jz32ar0HxkbUBPlNayUhj8ZfyCD5BufXt +GePrU1DCHt+5HTyCZg5bt454paEmjsjbeRTfEW69PGVxFxle5WbYcwnaUHl1 +3mRjOrryufG7/wxBf5IsS8a9M9Ds4+ztpzgERR3gO41x7yNexIk5/tME1XEP +Jg5rZSKzhOpT7EmCTnzUXDr0/DFyX22u83OcILWE+q9/12ej6AfXVC+MEeSm +D6IDXk/R/Ia1f24MEyTCDa4eD32GZnz2fxQdIqi+3W7uuMVzFBpMJh3/EhSU +LVM42vgCbdeq31LbR5BVfK/E6J1c1JC+2v/fb4I0gkpsR7zzkPqxwKGpHoKK +1wcOD3HzUSjLa6C6gyDJlk69v1qFaFJ3UDmxiaCm4rcBg38K0c+dWbQ5DQQ9 +fpBUNvD8NZq7ZqNjWB1BW/227utfX4SqeAG6mlUEXZd6ff23F0bxwcvO+5YS +lBdo5edPL0a3JP5l7MAEpfSvYoyFFiNz4RhDZhFBvjVKXqMWJehxuGv6hXyC +lFI+iYw0lqKLN/YKHXhIEFf+ZeYx0zLUO9Hx+fE9grrP3ts+fKcMOUY6KP1M +I+il1+nUIe/36F3fqQXSSQTtNVxh8o9bjmxFV+QHXSLo7pe0/wa0PiPzHm70 +czeCxpPy9X9FfUY/CldtsHcmaKPX165vnM/orraUWfduggZFp+xe131BgfIW +mkXWBK1eu9Xk8qUK1CV1/4ejEUE1T3kiekPViHljYu4+EapeJOUit7gGrbnV +YXKTK0BrdBNNLh2oQaYvl/e8GxegmPHMseDaGpR7ZWzifa8Arbj63cMtqxa5 +bafdeP9ZgM58MbBatq8OdSW4XrgeKUCPnr/SzbpWhxIMjYaPhAvQtyRz0XkV +dciJdwYtChEgHS+HIrpxPfLu9Lt3+JAAfRE9v1ho9nf0XWiOQbulAKmsbVGq +/tCAVDe/rHoi4KOcp5dbjixuRmGZq2RknPioX6k/ysq1GR191TLZtYOP9E5Y +rZuf2Iy2nVrh/NiSj+6Yytzt4jSjmI89uWQ5H8V/jvLcW96CDKsJVNL46ERX +7IilUxtyrh15y3nGQ2kyX8NnWbQj+hvFd5/HuGjd2hCnMJd2FFA26L7vNxe1 ++i40GgpsR/2cEO+uZi6if4vsrXjcjnbvtcp9WcJFV5OsN0codqAd6suYkTFc +FD6vSp60dCDxG48vjupwkReqTR7060L03H8FkxtmkFD65OuWyC7ktWrti+cr +Z1CSmEbrl4wuxLZYU+I0fwZ9+uypmdnQha41zF0fLjOD5tvy0j1MuindT1co +1XLQn4N62T+Fe9AXnnL5+j0cdCj+1LuauF70RO3kq0Uu08i3Z0FXXk4f+u6z +acTcdBK1u/yglXzuQ1k/d5//OH8S7WqKWFzZ3YfCF2WZmypPotVff5/sUetH +3rYiJyf/TiDR5/cVVS71ozZrffunqRMoKZS5LnDfABrujN6A+OOoZDYj2Vjx +L9Iuk3+79ukYkmae1/u1ehjNCso+JN4/jGIUv+rf3T+GDLa0PWBf6kVuLbZY +tGISVS/5blGW+g39V37e7ajeDLp9EFV72xbj58dkd9E389Fk3OX9P4+047sh +h/uX7hYC/aiSc9Iqf/G5NN6O8UFhmH5cZBn2cwxvX1rw38IxYfjwYHzT1MgY +1izxv+rGEYam1cbgJj6OX3f219SIi8CfGLnO2QbjeHTej21PNEWge1Z4dnfQ +OHbLzrfx3C4Cn1pGzJYrTmCzQt/NTbkicJBtoLfYaBLLW+l7K7wWAYe9+eVy +lpO4tbknYmOxCAyd6h755TCJg3hOn/IqRKCx2uiTY+gkfoa2WF7tEQH35hNm +z0onsfYHPQsrVVEY0Jozv8x6CgvVtUNRsCiE1X+N3GQ/jc/3vbsbfFYUdi9O +v1fmNY2lhG6LGEeIAuvuqPuik9NYadGe9/nXROFWS2x2xa1pPO9SreXTZ6Lw +vm6XhHH7NLZaU7o1vVcUHo982PzOg4MT7t1zitgpBneMLjAWuM9g+uuzbzfu +EYN9TtFr3PxmcErNPk3x/WLA5ryIjzg7gx/w1dvP+ojBlnDb/JS0GVywO9E9 +JEIMGs/W3u1onsGtMhcO+b4Tg3xL6bF6Gy7WPe4ZZKsvDr1DyVrq83h4kcmv +XWlLxeHDh00hsst4eIWQw5L+leKw9KSs56ApD5tHbe49s14chsKDvwba8rBL +hoFtlpM4nBr9LV10joev148uEYml9nfz0xtv4eHbNw/L2FwTB0ulu2pfe3k4 +Y393741b4mBjd9wgboSHXwx+v73okTi4/TpytVuCj6vECmX2lIhDn23to/yl +fCxudOb30zFxsPPf5T8Wxsey3KnSGY44ZGglbc68wsdKJcdSLYQkoM1R+4d1 +Ih9r27jZtchKQHKogazzQz429bAok9CVAP64mObdCj4+fk0mzdlBAhKnbo6/ +mC3A3RM37GXeSoBIhl1vY4IAp5sZ+reVScBYQptC0y0B3hddFfv0iwRo8z05 +JfcEuFlH/POuJgnwK4mc2JkrwLW7/NakjEmAl5XkxMFaAX733Fp7kb4kSIYf +dd4vRXAo/7cpWSoJ1xdunOYoEGy8OXxP7SpJoC3OFYSqEJzXXhgfYCEJOpf/ +W4PYBD9W0BN/t18S2CbC47lrCL7hI9y/9YYkdD6MTth7kGDbwhQJZqok1Ch9 +qYvwIVhJfDV7LEMSQpJvrrnjR3BMiq/TjReSEPvGxP9KKMHnv7ZU/aqUhK/4 +r6Z1LMHmqoEDz+sl4ZRl5aqyBIKJmxLtfAtVn3SgEzuJ4OCZTWbz+yTh6URY +Ueodgo8teJl7TIwG9++HnDv7jODFATtqzGVo4BpnkQF5BA8UDw7OUaLBkwdr +Xv95RbCnA1u3UIsGjzaqF4y9I1gn4515pC4N5izrvWlfSnDn0J59zotoYCF7 +xyu9nGDnS3FJwmuo7V2O+eNfCVarW5hfZ0YD1bDyZdwqgps0P9be30QDEdu/ +Mf211Pxf8qWt7Gnw+TXpDG8k2Krn0Kn4/2igw7r++k4HwRtPsbM3BNFg58M4 +/64uar7Krc2Tp2lQ5cz+rtBLsImFzWrHKBqUd0hFzesneGWbuJdcAg0ylM/+ +lB8keHnAu2s4mQa3NjfWdfwlWP/+kjH2QxpcqJ6dvmGEYN21f5gNT2hw8+fN +oPpRglnf72yPyKNBrrf5X5txgjV99pwxeUONLyxCnk1Q8xFXyhksoUFPd3s2 +f5JgldtfWlM/0eC46OSE4TTln1G4zI5qSg+e149dHILlK9eYiDbQwE/Lx955 +hmAZj/GD+a00CPXdcmQ7l2AaP/uGVxdVf4qD2iIewWLXPD4w+mmgoDizb4xi +oUWaE1+HadDdnmF6j08w730D+/QUDaab256aCgiedorduVRAg7OnjAsxxePj +lmc7xaQgjOvoYEAIHo4SepYoIwUippyocxQP6hT+3KgkBfbN9ZR9BP8p+k+O +Q5cCY93S/AGKu231TbO0pGCInZEpoLh9sPOQs64U7I/yWc6luPX8rWSFRVKg +Vqm9vYPiJg3bTyWGUrCLViPynOL6PNkpfxMpaJ1z2+oQxTXW5fN0zaSAdrpQ +T47iiu5Ttk2WUhAZ7nkzmar3U+jK8CtbpcCKMZGuQPH7OUPPTe2kQOd3udlR +ar7F2Q/b/zlKwbNNmwMLKD2KNuxXuOsmBX3WZP0ApV9BK33dLm8paM4PfCRJ +cd7x2iPix6TAaHrHfTlK7+wM8y/ep6Tghv30oYYpgh+ZcqfVz0uBwfcdRsmU +fxn1uXpVV6RgyYjeLQvK3xSxeReWJ0mBueOstY5UHpJS2nK7U6VAELkk5P0w +wYkrrndevy8FyprtDqpDBEcfkATuCymQT389dXKA4Cs87PukUAp+/Dry5nIf +wRcTg27vK5YCKeVSdvhvgk+/75spq5SCKRulP8upPAc7pS84US8FJ/qVLPva +CT4xvtdhfosU4Ccl2y//JNhXpyI/6o8UOPLbD138QfChovPd64ak4JBN/emu +Bqo/bdfOHpmQAtgcskG/nmCX8znH7ESlQVB4bfA41W9bu+MWampKw3Vjsz5B +CaX/wu56Jx1p+HMUTXRR/bzFf9XpW/rScLHSMjP/DcGbRH7W0FdJQ2Hw+lla ++VS/aS88MXu7NChEzFKTfkj54XVaa6e9NJQ6GKfZ3iMYPa39FOckDfsdVrZF +phFsui5IXd5bGjKrxqOKbxBs5FReTDsnDZVLpgTmlyh/7tEPWUZIg9nXvuix +c1R/DhyefTFGGtY7H+mLO02tR8FKnqK3pGFkV5tifADB85P2yQhypcE1Uvto +jhvBGvUcu7EeaWjrEOHvMCb4proNWTYoDdEsnac1hgQz3O88OjYqDZHP5VxM +F1P9ObqR+1cgDbvjf+JmFsGKiol3/qjKwPu5ZycMZQgWtV480LZZBnQ1J10c +mwT4XMLZRI3tMqDU+z0mi1r/hVrq1zray4BF6JapP18EmOcdEtfkJgOu50+d +W/hWgCcvfTKqC5EB54+s6eo7Atxf5hb26YkMMPhk5c0DAqx1telQTJ4MsGeH +SCs7CbCty1Y72zcyEGo5qRa8i7q+TBvrt3+SAfsfj2REzQU4ftGs+qkuGXjy +I6JVUVOA19zAenpqsvA6w2uM+Y2Pow5pVF+4KAtmnisbrfT5uGRVfOGWaFlQ +Kj3qrabFx5NitIxZibJAb/ip/n02H+9PGwu6fVcWhL+8FZblU9f/+i+s/CJZ +yH+x71VYFQ+3rT15ontUllqv/i6I9uHhxbOoG9l9clClfWzRsRQu7o3uPXfN +Qw44rsLuabFcfFt66vfvw3LQW5/g9vYcF8uK0V9EBcnBWTL+q/wgF/dP7tnY +cFUOktqiXkmt4OL7rW2+3u/lIDWRrXHg4wzWeNSDYxfIw0OJG2NpHRwsjSZc +W8fkoS7E1XxV7xQOMptPezkjD2yVhb8m6qZw73rHnFhhBXjRf1T0XskULt1U +MmOuoAAGgUb0zylTOHhndEKmvgLkxAv9s9g5hQc85pWfcFWA9OGgrfKvJ3FF +lN38WdUKoHtm5orpqQls+XfvFMtOEW51sJW3fB/FTaUHhPcazALR2zNmQ9L9 +OD/ivYv2xCy4G/Ytjb6tFXuKB7RXVSnB5OUrmjqO17C7X0i+7M3ZUOO9r7n8 +byNa4rWwytp1DlRNs+br9/xG1UoGMgHGyhDj4vxB5PcIWufj03fLVBk+dRSG +dHFHUM7HnI+lSBkuPcyQKFQcRTGhy84rblSGKUVfb3OTUWTdu5KftVMZAvN2 +z1REjaIvhWZDnYeVYeQJbe7LJWOofP/uuu2p1HYV/7CwI+PoTc65WwaiKrA3 +NCFvG55EEtZ2ajckVECj78TImW+TaEefXrKwtAqQi3aX03om0W925fUGRRUI +qN4Yny0zhWYnq8aHaaqAuVbgBZ79FDocnh1Rb6wCFrRQvlf/FFJ3aAgIPaYC +X7pUDRTFOMhz4tF4r78K6B9j5M1S5qDn8SH+OwJVYOaZ9oiQLgdZVmr/p3ta +BT7n9Do8suQgf/PDR2oiVWD52ooIxhUO+mog5K7zUAUiPIw7g6nnpRBh/e0V +bSrw/L2X/B8yg3o3yDTpdqiAoENEy0Kei7ZHDO47260Crvxh/VgNLtJReHp0 +5YAK3F36QLZ/NRdVaKyIvTOtAoe3nu8oPMZFmqvXVR2frQoG0x02ha1cVOq7 +03ruZlXoMYvsmbjPQwYvDOsDrVXBb6Bu5NdzHro+Mcfp2zZVyCwP+Zb/locO +hzYevmSvCjzVZ0M633lozhWnyBF3VTBUNM5TEOUjz/ueX8pPq8JBNba3oiMf +SbcGb/LNU4VT8pfjL3P5aGVgplzsK1W4OKdBEokJkKtS07enr1XB1l+U1Skr +QAWbjJxHiqnz/+pbMjJXgDzzh/47XqkKaZxy7eVIgEpiDtwK7lWFePcvoyan +BWhwQcL+W32qYJ00afvpggDRy0vmFQ2qgpVmhez6aAHy5Wo+44+qwqWh5YeF +UgRI4+CP92FEFVwrczxuFghQkNnWfxfpdLhqyY2y/CdAGa2huQ/V6ZBWMrL2 +0bgAVQdmBX3SpMMmifdCkzMCpJtDE5WeRwd3lZRsB0mC6tTKVKOX0eFhjtgK +Ey2CBPkjrU9W0IHW4SctOo8g/R3a6VWr6DDSo/+9QJ+gsEunDBTX0aHYMcp4 +wIigxeOrzBKs6HC5atGvQ1sI2hvrKZFnQ4ebo8+nb24n6IL+ta/12+kgvL1x +4JUdQa37R+1UdtPhXnLszoJ9BF2pzD6U7E6HpDWyld/8COp5wExMC6XD67xj +U4evETR4voMjGkaHRffjrr9NJmjU7e6+g+F04KUVhEzfJkhIi7lw2RU6DLSL +y+o/IEjthnZp6Q06xBKfsZB8gpgB7Xp6t+hQar/iP9VCgubvuhMdmUqH0y9O +aKYUEWSkoL3H9j4drLv38/eXEbT9ktZwzws6eHzkXW6qJmi3xy87q5d0YEu5 +wdtvBLmsT3uTU0gHqZ21syO/E3SYaF4KLKaDT0ClVGczQX5tPwdbyuigbRw+ +/3AbQUFvUnfCR+r4H4lObb8IuhioqSlVRdVf8o0f2k1QtN3PcJ9aOshVZnk9 +7iUo0TC1r7aeDhvXmLQX/yHo7tDc/Jst1HhrL049GiToUWWbGvlJB9X44wnB +/wjKybod5t5JB8fqk6uNhgkq8pprbdBHhxz99iSPMYLKLNqexw3S4eeCyR0t +4wR9Yd9WnRiiw+LvUQomkwTVCDuf2jNGh5a/D2vOThHU+Euj6+0kHea9dUx8 +MU3Qz7etm1gzdBieU7mngkNQ962UnIt8Ohzcvky7eoaggZNOcwaEGBBrW9X7 +mkv5s1sjeJsYAz7EzWTH8gjiGLX+ypVkwHqi4WfDp/yak2JBl2FA+LwnRuMU +S4w6ZoXKMyBzjuFUuIAguRr1WR2zGNDkbfmSR/GcnJYTFsoMOLk1wc+FUP5G +3WrNpDMgNKhmYSbFzEOO5vIaDLis/7mjleL5m9Qf+WkxYMEKh0QOxUt0W+Qa +WQxoHzm4/n/vg1eK3fJfo8sAY5upf38pNu3c+yNtAQMqixRulFO8vlgNiS1i +wOoN1WsuUmyV2pxxcCkDxI+7ty2heHvoTelKQ2o8b+nQUqq+3Xv3Hlu2igG4 +Som+jmKX1WoN10wYQGtueZ5Ozc9DpXnNzFoG/Lb5vnmY0uPIePJdFzMG5Aed +adel2O/bHsmyDZQ+Kw6f2Ejpd/IZw0dvEwN8e4xlt1H6hsX8+Ba5hQHPQm6n +A6X/xSPJq4e3MiD1mIOJOuVP4nyGWKEdA0Rll/0XOUGQk4vuwy4HBlT7M7qM +Kb91Eg2t5J0YcNstciv1/IPyiE2cuxulH05SrhwiKNTI0TDGgwHHhdT8F1J5 +2nD4YEPBQQbM8hmuDKDyVt9wTkP+KAOmDoyeqaLymCIbh1f7MSBO+eCPViqv +B8xvu7kHMIBj8nFFI5Xn8SevHhWEMGC2xP7J2HaCZl8YXOEewQCNmsivsxoJ +an7NaYyOZEBf6oW9YfUEpQ9LhBTEMICf3j/ZXEvQcidmidw1Bhg2ZrjYVhC0 +09DepuAuAzodHdUdiin/vd2HOzMY8Ppl00a9twR1ph5LkHvEgBBZ95hOqr/9 +pCN/uOUwwCGh9eTcXILiO7CH3BsGeIxWCjIyqPVJtZK2+h0DXhZ92Pj9DkEs +m+YstxIGDAhHFY2kEPSiYHzk1UdKD67lmqFEgr7FLjjtVs+AJ7E1Fbxwgm6W +r2RGNzJgiQrzS8wZgty469+/amYA/QpdWi6Eyr+ni7RcBwNOldk6V/1H0Kx1 +Cddf/WVA6UrWvQMuBDX53zHuHGbAN1N/yT17CLqT+aRVdpzSb7vzB2NbgpYq +f2K5zTDgx/Cv/cWbqbwN8nJkJdWgofiiR6chQXE3PT+6aqvBvQfNRaFiBAWe +OOcfylaD1yesljgIBMhlZ6rWDV01yLG1nNKeFiAD6YbACgM1eP5i8HrwgAB9 +Pmkxf5WxGjz+fDJsa60AiezRuSy7Uw1slkydCk0WoL4VYKRnpwa77/5jLYkX +oBpFpw4zBzVQqLvuUn1FgNI+JRgHuqhBwPxPWU0hAmS6WrS/45AapJiXaCg4 +C1CAaqfVq3A18P74PUBBQ4CcxviTtRfV4A3+++L2bAHaUM24N3hZDfYsG/7G +kBEgpUs7uMw4NfiXZ17TwuGjnMnirKgUNVBf6b7zUgMf/fmeJuuWrwaNcdv0 +z0bx0d5E5yrZ32rwo61LZv4AD2nkSqsf7leDF0J7Vyf+4qFfta+8Pv9Vg9nn +dw8M1PHQAQUl4YvjahApTJNwKeIh3ysfDImwOiTf28CxieKhc2FLkkc01EG0 +J8nlwHweyjwifKBhpzrkxEpaP97BRUcic56tsFeHshhF96T1XLT4sSM/fo86 +BKaX6/gbcdGL3/nXt+1XB2Uj15p/dC4qcjv0+ZOPOkS0X+8mP2dQjUPd4jcR +6vCLsUEh3msGTW+4z0l7R43HCEktOcRBoW/Swt+XqMO50G5Pf0cOElp+U67v +vTpkgV6EsjUHSWrFMpd/VQdbsRVc/UUcpMIJ2vy+UR1MXrg9vfVvGhk+sU7+ +M6wO86V0q1N8p5Gv8vjqZWwNOPB59jd39ynU1WMeVHpJA4Ytlf/sYE0g87Sq +dP1IDSi3QZp1chPojsPeyvgYDag54CdvwRlHLl//Y7lf04D8oXsO3Opx1Pzs +ToXoPQ1w2eWzOjd0HH0LEWhbvNOAwnXCh53rxlDprNefP45rwKsC9zHJE6Mo +fe0y9UrXuWAxlnbcb/4QenIhYJbXIk348OqeQXhYF7pk575FdEIThKRdrqy1 +qURGrXczL1VqAf750+N04SectODWk8ot2iC5eIHrv6hOfKY4OmlLoTZM7xm1 +vKY9hPvbihM5r7Vh6dLUkrBtQ9ieOxb3sEgbTJ/L6tqfHsIGK/deFi3WhqAA +5sJ3LUO4KUs3+M0HbSjYe+0DthrGy29gx4X12vCb5MbYiYzgXp8RTZkhbSgZ +KJjrdnAU26jb3f+iw4Q7O+x9b8hO4KTuxcWOukyIMP7zyU9rAnc/obUM6jFh +z68PBmbLJ3AoFCkqLGSCTIhl58vdEzjbgx26axkTNhmyysTSJ7D0s5GdrWuZ +4NO+3Ed7xST+uCFG6J89ExRGPFOktk5hJfmD6mccmLDe0spt6b4p7NJotlJx +LxP2bmHWbDo2hSe9Jw4vd2ZCgP+bk1vjp7BurFPjCXcmmGVJdmR9n8Lnf+jn +kKNM2J55RejBnmls5vvRcdZlJryJOX1ghz0HzzT1bXx/hQm0w1NJnZ4cnLde +dnlgFBPuwpKTroEcrMvYQWuLZcLnT9Zy85M4WPZ9c96j60zItFxn0tjEwU2M +f3KQwYTNln3ncu1n8LHyOcW+mAnOqflByhu4WH/pqixmCROsdlerbdzJxV03 +91yvL2XCgYMqEu77udj+WOoRkw9MOCt8JtY1lItN1eczJCqZ8L1dzfZYLhfT +/lvjd7uZCS6XsyUq5vJwmoabTsUEEzhZGpomXTxsYrhwsdsUEzawfteo/+Ph ++s3jq6anmdA3q23HwDQP0wIvbtHhMUEnV+feLnk+Plb72C9UhAW+Qjc+blrN +x3BxrNhAgQVnH4e44gg+bk4p+lKqyILPqjbtwfF8fDz3Qr2DEgvM3/WVs1P4 ++FG76p/zyizYenT9k7VP+XjWGlOFNnUW3KMifbWejzuHzjtHz2fB659rL71Q +F+BQia1ebH0WFBqfyDXTEWCVuar/FS5kAWvP1/63BgJsZZV5vmcxC4rhjMep +tQL8IqMya60RC+bYxE+rughw+B6Vmb9mLGh+2z7/1S0B1jz2S/T8ehY0/H15 +Z849AS64+EhOzYIFVT9761weC/Bgrglz4yYW9HpK7S0sEGBb+X2bUreyYCJ9 +0utivQDrlD28vtWRRT1v7/gYSiO4ymA6o9WJBRG3DFkX5AkOur4p95ALVd/E +pVfBcwj+6t1XfdGVBaVr9cMXaRPsp7hQCnuxwLjGwvT5SoI1gkNUbbxZYCDr +SGObElze9XVeyyEW6AlvHztrRjD91RHzKR8WrNv1hy5pTTB2zglZcpwFtHlv +rRbvJ/jgR8HltwEsmOo4lE/zIFhp2bakLYEsWM4E3Rpvgj3FhvO8glmw+clP +eV1/gmWzlv1LC6OOf9325O95gvdO5+1XjGZB/NulTX0ZBIu5iR9NjWFBdkGz +e8IjgnO+2p0yiGPBy/k/KhZkEyycNpm8KYEFw2eXL6au//iRxeq6sGQW7FM+ +OT63mOCdTyM65G+xoKP8xtLFZQRz6T+GUlJY0IkmjRd+IHjr4EnZwjQWaF3Y +8GTgK8ET8W8sRu6zYNkO394LDQSn8mRszzxkwUGVc068JoI3eTq5yWWyYHHy +w/h9LQSnGPNPL8hmwcoiH+PBXwRvvGcT/eoJC7wPbn2o3EnwkGzqLYunLMgb +KK5e2E2wefu6AtcXLFDIctyi+Yfgwc2xH4ZyWWDDYqbM9BF8PfdX/al8Fpz4 +8yK9bIDgvothI8kFLJiePVmhPkRw/HAN0XvNgm8zd/89HibYdC9T/uUbilco +lOqOEhy3qFT/2zsWCPHTg7vHKT1WO0qdK2ZB/fkF32CS8mv9+O9lpSw456l7 +5OIUwQ1boz90lFH1cJ5b5k8T/G+P7v2r5SyYXTruXskhWNwDh5t9ZMH2E3rF +VTNUPo45uI18YoHZTLxjIZfgFSEjcPcLC1Ld4oyieQRvuXhFa0cFC2rHI2ys ++AS7XWULhKpY4KY3mT5McXBKUeuzahbYp7sahQkIvvrQ7s3+WhacRx5iHIof +vfiXrFjHglbpLAVHQnDx20tBxfUseGT+1/4BxY2ftHcfa2BBwe7JH80U/6sr +NNJuYkHM3ztJ0xRL/No5p+YHC/ybG+Op+388t39g9EwLC6L0rn8aonjFxPna +JW0saFL8bfyZYmshzWe/frJAX7y3N5Jid5lXMbHtLGA8eFe9iuJgle0+qJMF +Pz5mj1dQ9cUz+7YMdbFA7T+e3RaKMw3O6af1sOBLs9T4i/+9316lLrXtN7X/ +UbNqUYqbzPN+C/5Q/Vuh9Wctpc+Qjc2HnH4WDOJlyJXST2JPb4bLIAvaLOd8 +96H01TxwJlz+H9V/iccfu1P6Gx2lu70bYoGzmGKxOeWPdfBz8B2h5qeXpyJD ++RcS18WvHGdBSPbtK7spv+NvhbaemqT6ZU51ZguVh8cPlN8smqbyb9Iht3mE +qqfIMiiaywKLwmWZv/4SPPyx3X4tnwX0k22dtEGCJetOGv0VUPl4v8FT/X// +v/RljVqLsEE58ds2Xg/BNuMbanmibMgs/13wpYvgA6TtabY4GxJbrv13roPg +BGVFH1kpNmzL3NL0pJU6v9nx318V2MDnRGeP1xJMs5H7EDKLDU3/eZfJVROs +5fAgY+FsNsRLp61WrKD60bfJNVKFDTUeWRtrywnOumnaajWXOv/a2qUbCggu +vf/99YwmG7b4Xzv5KI/g5me+yY+12VASGmI4+Yw6/8c79tI6bFioaS6+NZNa +b8bEaj/rs+HqnG2+Q0kEuzzeUOVkwIb+O5eU+hMJtnc9/3VoERt87irr1sZR +/Vst+kF5GRtm7fe4fyCCYN0skTeuq9hQH9mx9e4JgnvchO5z1lOc7V7uv43g +VgakR1mwwTFf+PFKK4Lra86kaVmyQWiLqUHvBoLfryPJFlZseHz8nYqMCcEZ +aoKYq9vZUFnA6DrCpvT7xg1a4MyGZxKXTiaMCrDT5TUnilwovTcZtjEHqfUe +Qvy37WfDjqr39Ns9ArwhZ8YnwJ0NsR++6O1totb/Kxy3Em82PHi6jzFUJMBd +ZlPWe06wISzNaVbEOQF2ez6qfTmWDS9f9o1eJ3x85NwuntVVql4TnFcywccB +u/IaZRPYMFvxgd33AT6OmAiIibvOhnKay65XjXycY8zh3rhN1d/gwPDK4WNO +CWl4kMWGObIv20N383HcN9no9x/ZcM3z7dm3STx8857PwYuf2fDo78ldc6J4 ++N7xqvWbvrKhz/aUut0ZHn6pEjfztYoNbOcP+YkePNy6d/bBuu9sOPZHeaHc +Mh7W62Ks7+xiw6abqXKDZVy8NC9YM6OHDbKiCeK/87nY5EILx+M35XfmvOSK +h1xsrXf7WV8/lY+h0ne7I7nY77C25sgIG5YtLlt9dAcXh5qe5bwYo+o5q25e +bM7FF+Q6649PsGHt6inEM+TipKf3Iqen2dDj17HRSIWL08PEvF7PsKHz46Dn +ckkuztrhYR7K+58+AZlq0zM4j/Vh7joBG55IM9X+/ZnB78Z0OYSwIeDyw/fZ +P2bw/wEgtaVK + "]]}, + Annotation[#, "Charting`Private`Tag$4017#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVmXk8lN8XxzHLtUYqZhBmRrakfaHlOUghqURlSaWyJEKJLKUSSpZsKVuk +b8pWoaIyl4qs2UKWCFEo+779nt/8MfN6v2ae85x7Puece+4zLOsLxmf5eHh4 +7Mm3/3/GX7Wmrz8TtOvi4v9fCD7VyRselbcnOqd4Hk6RvFhccFNe/gqx/ept +u06Sl4S/fiHYdINo3fnU4QPJ8ThYjiZ/m+imujy+TbLa4JmQRdtQQolLF9tL +ctuShIW5xnBCzv3ey/EFBAr/CWyZmY0iykx1AqNIPr/TzXFS7gERlXw0UpHk +7PqOlDGdOEL9o3hD6jyCGQfD1mHbRMJ6e9F+GZIf8bbentRNInrS38/6ziHY +XXlv1URjMqHceKqjYRbB75i9hWP2KcSS+1JzK0m+e2becnT2CfGh59iBIzMI +6mbtIofknhEumRYJD6cQXC6RXTf48jlh8Hx97H+TCKQi6sv/6qQTfTte1Dye +QGCtCpR+2ywi4aT6P5cxBHyznl/HvF8Q3saB37RHEdR3mK4c031JtMUS09QR +BB7pQnkjja8Ib8n2KctBBAbhPfSRR9mEvOe5hpG/CGQ8Ck2G7XOI5ZEPRq8M +IMA67kODs7lEm1nwkMUfBKilU+mvXB6xbaWL2IVOBE34g9vA7zxC8aovPbQD +wfP/Yj72v8wnjqRf2v3oBwIjV6MTfTrviYc+TXHRzQiiBfKje225xD/pVV21 +NQhy3A1cLzIwMeb3arvPVwRxfVuZo96YGPF93sOoROBULW47oltIYHaphsIX +BOJxX/iGG4uIlGEdnqAPCGaXvH7mvOMjcd7DXhLnI+i+/vjg0KOPhJ9dUXDP +GwSvba8mDNp/IowuyCaiVwjMN27S/Df7mbjG1xvw8AmCpLJEl365UmKk31uV +dgfBWEyuavvdUuJ0uUo2jz+CPbblXbXTpcSVpuJ1/dcRDFAmTfPryojvZdkS +wVcQbNtppHk7oII4V7K9i2qHoDprjk9p8Cthtt7jSIkW6S8hYCWiXk2c36SS +nr0DwXbFSM2AM9VEBn/P6tCtCELGno161lQT9NTLb5etQbDp3rez1mk1hMGO +PS6HJRFcK1MzWH+ijuhTF+h+8ZsOqS/fKKZF1RGZPUo59zrpUBujTVlVUUfo +zicOnmqlg4LtsfcMjXriq0p0fvVXOpRR/NR5ln0jHvGIsn7n0kFiZ4v41+IG +ouY1vwXfNTpkZt1uOa/eTMhz7fX4aXToE++7a3CqmYgoVZg+N08DpcsGu5Qj +m4nZ472fueM0eLRDKKlrupl4bjpQTPTQILz0ro355xbCpoU79KCYBpe7Qof3 +WrYR9ONuRu/8aJAoVH5zqW4HYXz3rlHjBBV27fSy9LXqIGLCh+8E/KVCq9Pq +zYPuHYTzrEyoajcVGLVBPRXPO4jCj+50/Roq3Isx1A8U+0n41Hcf+/2cCjdX +VS1ZbPlJ7B5e7M61oIItUfNgwLWLMKZnC+ZlU4AneSK/JaiLCP6ToUt7RoEY +qkxrWUoX0XxxIEw3gQJfSm1knzV0EUMnj7gmB1JA2WQu+axmN9E7YMWssqTA +bzul9B+8v4gYn+q6ET4KnAv3KagO6yH46h/qJ+/hA6dfKl05mX+Ik8YTmzZk +8ECH1Xf+wtI/BE+v1uOoBB443BSoXtn9h2Bb82z4G8oD28p7r/yS6iMOcAub +PVx5gPLyiZhEQB/xX16iL2UrD8R4s3a5n+gn7Orre354LRKFy5gPNMT+Ei8U +omNb/ecJQZafUvu2IUIqh0+e/8Q0ESJWrpp0cpQ4NbXqg/mvIcK6xYRLqZgg +Xpdwfyv8ayFcPvtZX1CaIQZk2l8nXP3CfeksfJihP0+4mFWF7X/8m5vk5dC3 +7igPyKss7QyoHufeSJw7NDbAC5d4Yh1w5Tz34Lq3LqtHeUFlxunvSN88V7bw +4j3raV7Y/c305DL+BW5+Z191NY0PLI8sr1upvcAdWfX9QIYsHzQ8/MR3NHeB +a52eu9/mIB+kl/ZZ74tZ5GrlOek3ZfNBiNSp+M6nPHiJgaq9aD4fFFH0TAxy +eXBr86/APZgPLlo5jD8t4sEec5Zfcir44KeFcsPuNh78gti3994vPijjMNdT +xXmxfLGSroEkBYYkRa3Cr/BinroOeO9JgZPtTXavgQ/7/SlI8rxOgcLkvPza +/XxYgCeeT4PUuXlqXLDTnA+LrzH7lBtFgZxuh+vfL/HhVQE1e7NeUKDuR8En +1VQ+bLC9yCi5hwKw2fSNkTAFRzx+bBloTIVtvzl1VmUUzMi//mGPGRX20p6n +l36j4LjqE7K0k1Ro1qQ7Kf6k4P/mpTuuO1LBw3oxIHeSgt8ejTztFUiFU6zj +GioKVNwqdOucUwEVvuTufX3Ck4oVL9l4mKjSYOBi9tF6aRpeo9l+OHEdDZZH +XbYsVaDhTTzH1vZtoUG3+W3Dl2toWPuufs81HRqMdsY2mRE0bJWiZpJmSYMf +42v4RaxpOLp+ZC1fKA1SSqNWTqbQcPxDB6H9UTTIrZw6zMig4ZST3T33Y2kw +QxxlqeXS8KuBb/FrUmlw5+lSx9WfabiKmidkVkiDrMW4XYHdNEzbfK03a5QG +vtFXo1/L07Hw7GTRzDQN3klumFxQomPxQucEXR469OxuStZYS8fy+61NW4Tp +cPE4q/TWTjrecVb3I12RDgVvbjZ4mNHxpSihxOPH6JClcWlrcQgdd4/fPyL0 +gQ582/HAz390nKy18WLbRzpMqPcIdY7R8YngqtCsMjo07RTxqpmh42YFWunh +JrKP1Shvu0pHuOaw6/a4UTpUun9+s2QlwgUvDeXXqCLQTV62h38vwt7zvTsW +1yF48WiT5+w+hDX0b5rVkH3X35rObTuIcE5HXribLoIWxajzF8wRfi6qRCs4 +ieBhP89k8XmE7zvy9hndR9C38/k/nRCETfLi6KwEcp8MaUxQDEdYnLaNM5pC +8mi22lQUwiFxTpb3yX0mTfh8g208wn7lLVXt5D7WdGCD5JU0hLUl3ftf1iNI +GP9uX5uJ8KK1OL9fC4KhvWa3pF4h7Dmjp6VM7rM6b0+KuL9F2FnldbYzlR92 +vG9lnfqEsLrboWptIX7QV9vkta4E4X48MLBcnB/4PqQH/StF2OYYRzFPjh8W +Li0v2/IVYYWUAu0gRX74mqI2hmsQ7hw0O3F8DT9sEnhbqVGP8PGAsBje7fxw +oI8aONmEsFTd6tw6LX5YKm9ydkcLwk2yJTVP9Ej7i+v7L7SR6389L2hwhB8k +K4i+5J8IG/w65xPuwg+xD4aCtv1BeI8PJ323Bz9c9UmP7usj17uitXniKj+Y ++ze3Bw0grKm7f5vFXX4wsUcqcYMIb2mj2YpE8MP26g5FoWGEN7gVRHEfkP65 +/7SyH0FY9cnaUc5TfkhpCbkyOoaw4s7frIYMfhhTvGQuN4Ew+9ujg4E5/LDn +67CL5iTCso5m1zTfkev31eLuniLXQxPPHCjkh/S0VK1d0whLxJe1Jnzhh/s3 +PKYUZ0j9Nt8UOvSVvN+8SNcCyUsqt2tSGvghurGGp3gWYaGzY3a5rfzQFr7t +kPccwvzz6fdtu/gh0q2ojjWPMDXqbDGzjx+E7s4GvCaZZ43sePkQP6Slejlq +LiA896mBc3WSHzTP9NzMIHnKMtR43QI/sGT7y0QXER4b23u9kyoAj+Z2a58i +eeguz4tIIQHg+5v/J4nkAYW8H3vEBQA/liusIfn3exeRaYYApMUd+jJEcreJ +6o40OQEYldq+uEByx0DnueOKAqCnUnt2juRWv9gHomsEoP4BY+43yU0yJl8K +NwrALrpM0SeS63OEJy9qCsCTr+NvQkmuNvy8SlFLAPxly9v0Sa7o9jFp2isA +qZ0VG0dJ/794b7l5x0gApmq35geR/Gn54MsdpgJg4WjisoxknP6045+FAPhN +XDa7Q8bj/e6ToknWApB1ZdF1iIzf21bGrsP2AnDmi1mBLsk5l2rO05wFQNlz +fvsdMt7pKdpl9j4CMAya1R2kXqk7Zqek/QTg54n53hFSz5T6bKWqOwLQNXZ8 +0xipdxx11a0NMQLgSq10/DSOcExcW3Z3ggAspJ62jCDzJXJTdGf0EwEIk0i9 +cWgU4eAz5Mz4SgDuTJdfiR1C+M4c1ykjj7T39J6hEpmP/pEe8SewAJSE1pgn +/0X46qc/Mx8rBeBKvoi6DZnPnpbJKpfrBaBprdF45m+EL4+ZH1NuEYAD2vfm +enoQdlKoyL37WwCoBcrVCl0In3vv171rUADENOUSVcl6sTHZuWx4XACGLltm +y7UjbOWX6WxKEYSr+5xfNjYjbNQdtlpWVhDW9Q+pXyPrtWJ1d72lgiD8ixic +VCXred/FrVdjVQVBoXl815cKhPX4flQztgqCUNyIYSPZD7TlV19edpBkxeCI +vR9IPWyvyhkfEYRwPgf3a/kIE1k1X8IsBUGv6Pev1DcI79jlIb3EXhAWH76x +r36J8GbLz5j/hiA0n9YgXJ+Q+jxmnNsbKAguxy4835JM1me/wzL/EEEY0V2a +NZBA9iNPcRtKrCCMLzy5uyYGYeWYE0IL2YJw2+5YHd8dhGXqp01HfwmCjUqR +z/w5hB9K719cPyAIfUyLm602CDNPP0p1HhEEZd07ezKsyfoc2TP7d0EQCv/2 +iCqQ/VhMLPLRb0khONwgP2WjhzDFUL2/TV8I4qK3BexmI3wj4nqkzEEhCDkv +nwZk/+dpqd9pcUQINsV75KkzyPqz9wprshYCfc6PpA4RhCcCvmyu8xIC/xVS +M7FTdNz30dr3S4YQ1M0Tzy6W07HcvaZzITlCYG7UWiL6mY5NrIxMTd4JQXzu +tsjYAjoumNJQ7fgiBDyPC/RuvKTj8DVL6ye7hED7sc2Tu9F0vP0+V0lJShju +vgu+/OA4Hd89J/P1lr8wvKywY71tp+HCreF5+4KFIaRm2dfDjTQ8QeVPWRop +DOHyvfXtVTR8MnHUIz5JGK4fNeIt/UDu//Vl7Nz3wsBfHHC74yENt+28crl7 +RBg2+bi2qxjTsPrShpU6J0TgIWM52ySXinuCe25EnRUBLwGtO2/SqDhecLK3 +10EE0tv/CSxJpmJhKuPVXQ8RSOJO2kaGUHHfhNmehnsisOG/Z/rIloqftLY5 +2X8SgctZUiuCVlCxTOovbqjKEpjf/XJiqz0FCxLjp1pHl8APmVKXZwO82ENL +mf/1zBJ4ePCk7dQPXtyjY5EZyisK9KEIbc0aXlykVzijLSoKp5jKtdG5vNjT +ODjimaoo8Dn5uub48OL+s6s+Xz4lCp45zfl3hHhxxV1T5aVfRcGyfbvd35U8 +eO9f80m2qRjY1eYmDhFz3KaiM7zmakuhaNzLZWPgKDc38JOV/PhSuNLR5m68 +/RfXhubWUVUlDh69vRIW1Efc065eucIPl4FlaMlpk5GfxFrb1VWGp5bDQ02p +hPb+YeKruJqQm8YK+CZyV8WveYbY5ej4J3bHCkivjdb4Nj1DZJZklhQRK8Bg +duL2CuYsEeK93k9szwpwZa5KOH10ljDs2TKfZrwCXoXcdN9YN0uU5WkNdjqs +gD5q8Op7JXPE55NH6w4mkN8npWOcvEC8y7wRq0aRgN3xTiVeorxANzSVuk+X +gG/qzPH2lbxw6I/SA15BCSBW8TzdqsYLvZzK6AYxCYiRznUs1OOFZQ8kw31l +JcD1KPPMzuu84HAzPbBeQwI20VcuVA7ygvSxBjdvZwlo6lvKEv7IBzbjqWM9 +FyVAfvmyvZVf+eBluNfFQ+4S8N6vKce3lQ/2Vsq7KF6VAElKhnbBODmHazuc +rw6SgJ41DxQjlChQrsZzWuGpBCgKp6nEkXO0F6/qwYo2CbhVVyn4j6CSc59Q +k+JPCbiqot2YbUCFg4EDJ653S4BAwaaTDqZUUBDNurClXwKupHjfzjpHhQqZ +TaGPpiSgWpNjHxRJBdltu6ouLZMElqf9zJ1fVChyMjZcqS8J512Uz3t400Dt +1cZ6d0NJiB6yGre9RYPo8eWWtQckgahvPa4XQgMH70aHgCOSML/0U3ZLIjk3 +37EMGj4tCYoVqiX7imhg88Sm7PNVSag63GxkSKWDYKunnlOOJPwo61nz1JsO +W9yfiYS+kYQzoR26a2/S4ZR4U21WviRci77x4NltOrzV23x8GJP2bQe7LkXT +wSZ30OVSpSRs9YqMOZtFh8KQM7GePZKQWSa5Jf0HHQZUIk7G/pEEjZG3xJFu +OjA+F656PyAJbyUe6I/8oYPTrOyL+RFJeLLR5iDPOB1k7L5/8l2UBAEpnYqL +ggg8tIz++TMYkOH2/lnuBgQprd7ZT6UZsPWQm/pVcm796p7m8UWWAa+pEb7b +diBQzOSnCK5iQJmY2/Ub5BxbJ/VRMng9A+ZvUJ46HEWwkDvcmrGJAcXKDXuL +LBCoHpJPrtrKADe1jkRBcs71DfBRE9vFgOrdKg7OdgjUx7ZqRRgwoNfcWinM +A4F5qA09Zz8DxtxuaV7yRnBLNaq8/iADeL1/Dun7Img9OWIqcZQBmtn9O8sC +ENypTD/34DQDXqmVMmWjEfz6jxWZ6M2AuwGR02IvEAz4/Zym+DKg02tgnVE2 +ghHrpBN2N0l/3cssPV8j4JFjrV5/hwEv7Ki3E98jkLovX1R0nwFp18InZL4g +YLl1KCnFMkBcqzeypgyB8uFHwUEJDPhB+y7hRs7Zm0XlzUyeMEAjjb8gsBbB +wQC5oV+vyPtH+dh2knP20bPtpgavGdDsrz8k8gOBlU7iu8w8BgTMtxopdyBw +WJQNcMekfYZ5gEo3Ate2HwMtHxnQdM7aSqyH1OddgjGUkNcnX6D19JLnCHdZ +WYEqBvgstSo43o8g2PTHTccaUo/vuHJxAEHkxoQ/NfUMuJS+OjXsH4KkwZW5 +D1sYUJKRknd1GEFqZZvU4g8G3HO8/69lBEFmWrzv6U4G+FlY9CmNIXhvu9JQ +7Q8D+ORTN9ydQPBRt+1l2AADbBI9fFImEXkujpccHyTjmfgsKG0KQTXvcR+z +UQacGfGxTJpG0Ngu0/VhggGtlbsHb80g+PGhVY89w4Ccr2Y6ZrMIumPjMv3n +GWA0p3BMeg5B/xXL5f08THDgSq2pIHnkqIznASoTIgfeFTrMI5je3NqejZjg +yo1aMUMyz/I4XYYQE9itWsruCwjoIxZp3kuYcO2AzXQnySLV0kt/LmWCdWhu +4M5FBMszWy7rrmBCi+e/b/4kS92NbX3GYMJx89aOApJZ5yy0l8gwobf9yLNf +JCvrSae6yjFBTkl77SzJaxVbRBrZTLDLDXH9//PgLdTYi9sVmaTfGhdHSN7R +af49UYUJDyv3ra8nWQdLEdQ1TFC92JKeQrJBQnOK3TomUO8L9pwm+aD3Q8HK +jUxQ+oralpJ81Nzcef1WJohKLwnPJP232ibVEKXJBP+uMzRynoezEs3bZ3Yy +wXHmxNYccv3nxx4kWWkxIfDhCeWVJLvWmqGPu5mwwba66RIZvysvmI5KekwQ +P79a/x0Zb9+Q77VB+5jwSWbiyhCph//5B9uGjJhw2aTIYTnJkcpMap4pE/hK +uyOVST0trRSfdh0j4yVx+NxqUm+FyI0GSyyZMHH7tyZ5/oGcxf1hp62ZEB+6 +ofr7KALvzRYbQ84y4ajv4ehHZD7tdrBreGvHhMpDl8yPkflW33BDZskFJuSV +j7c/JPMxTjiMu82VCWpiSx6v+ovgjHa89Wk3Jmw/H2WbRObzWMab1LdeTAih +fply+I1g2a2BTacDmbCiNfXY/p8ImvOnG4ODmLB2a7fOyXYEyUN0r7chTNg1 +s1bjTBuCDZasQpEoJtgkze4hviMw3nhk/9skJvT5+S3Xrib1tz891JnCBOHb +bLc2sn47E5wjRFKZYKlf1mdfTsZTMOi7dSYTbjidlT5SjCD8J/esyDsmVLhJ +cb3ekf1JspJ/WwEZf5EV44lvEbD3N6dZFzLBmdd+f24ugldvx4bflDDh/pzb ++ewsBLWhKlet65lQ5BD3YD6ZPOd/3sIKbmTC4+oYybREBNazOp/eNDMh3Da8 +RD+OzH8bK0GRn0xICF/8bB6FYOmuiOg3f0k9n5l5lvuT5/qLjzQ6h8jvHaM/ +891E8OhZRqvwGBPezX02WX0NwboVX9jWM6T9sad6B93JfBuYyxRGUvBIbFXF +HxsEYQ9tSk7JS8HM3OPg4zoI3C/fuOjNkQLh7+6col1k/hknyN1XlIIb19zy +GJoI1AQb3CvUpIDmv344dh2C0iu6yls1pACOWnTMyCDgM1O4LWwsBZ6nr1it +HKXDn02wWclUCninN5g//kuHajHLn1rHpGCf7LC/9G86JH6J0HC3koJjsg2+ +na102LGN0vfznBSMD4eZln+mg5tkp8Gbm1IQanoyRiiKDpaj8xM1/lJQcWDD +ntchdNj9lfl44LYUUFZtsjocSAfxgEOzrDApeIU2tJ7xokPmBE67GycFkXZl +Pr9O0uH3t0Rh61wpSEp/135ShQ7mkcerhHul4HRPH7/VCxrIZAtKO/RJgb+v +jmrWUxq017yxLf0rBUseXx8aSqDBGVFxXv8xKVDm9ffbE0wDpzvFGxd5pSHb +c9RT054GN3zXPhiWkYaitJE9+2Rp8Ow875kG4/8zLY/wocL5oMwXm45Ig7iD +ocErVyqoP7eYDzeThu8akRYSdlR41ZsbfeCkNFT36slkG1PhvfW50i+O0mCj +7NJPKFGh+lid+rtAabBddjEoo5ICU7ufTCcWkPaNW7csFaOA97vEm58KpcH6 ++OrgaCoFeDY8FPnzSRp8nVcqik3zAZILZW0olwaCYruj4ycfSEx76H9qlIZ0 +2p2PY6/4YGOG4YPfQ9Lww98ydtyYD5xWjG1bz5EBocaQtjt3eKHrl7ZHUYAM +/O6Xa/XMXiS0E6uSVYNkIHXMKuN95CLx6Jh5ZXiIDGy7nxbV67ZIWJW7sE9H +yUBY7zh1eusi0fziUQXlsQyIzD+uF363QNR6LcjrFsiAxI/r8sIf5omipfml +JWMyIB614q/Qy1kieed66cpTK+HShHujqdUkkXHLbantGll4FjFe9An+EgGm +p/dRxmXJOaJY6d/0N2Jza9KzgEo5EFWyrZANquXGqMRmVO6TB8HPH+6drevn +XsPBMfvy5MHz4/j4hWOT3L42HDmdLw8KKVvuPfKa5B6ZHQ17+l4e/vrdjsMJ +k1y1Lea3KVgepBhmj6q6J7lNaYqe74rlYTl/xzM55ynuhvtci9X18tC8KHLE +9+Y0t8dxWFZoUB6ST0WpRcTNcvdLmz4pU2CBs+f1VV3hi9yYbnVsocgCwyOW +a9SyFrndGfwtA0osoB9Q/XiqfJHrDe/FRFezQC8uV6WUlwenn+V4H17Pgsv/ +mYXf1ODBgi+GjVt3ssBYuecQ4ykPLtkdwvPvCAvKN+3fHODJi8WX2ElfO8YC +19w3+mcCeLFVo9YWMXMW+E0x4rZE8uIJ+3GHDcdZEBNt2JKfwYsVQy0bL59m +gQv+/Bs6eLHfd9XMxQssmFuw9d2hw4e1nEoslt5mgXC/ldAHHgqeafqz59Md +FuwJyxtREaHgHB3hDe53WXDFuUvqNpOCFZmH+NtCWXA/elpAdgMFC39qzkmN +ZgE3N9MhyZqCm5j/RCCFBe7j6sn0Qgp2/rwcO3FZULwlUErsIhWrrtuaxipk +gcd16cgcHyruemgWXV/Egn1VYbsNAqn4iHPCec1iFrC0Elfrx1PxDmllJr2S +BY+UlxORxVTM77LdNb6ZjKctL81MgoYTZawVKsZZMOsbFe3wnIY1N65Wt55k +QbZZRmvkKxqu1x/bOjXFgguVZ31e5NMwv7v/PoU5Flj4W+QXlNGwc81zV28+ +NhjDy6gtfTQM/qNYTZQNP7kyt0MV6bg57n1ZkRgbGms0lFvX0PGl7Fv1x8TZ +8MroQr3UZjpO7ZD87beCDZ4RI1pOOnS8dPsO0TZpNmhKDI2eP0HHnYN+x4OV +2SBs6/TrcyQde9ONbDmqbNiXFrNnfSwdS6yUdMlbzYbmGwznkCQ6NjB45vdL +nQ1hznLCspl0/CqlMm3nZjZ8zXOcuVdMxzfNJGb+arHhTEiqVekYHcs6t1P8 +dNhwcsNtjwMzdPzWP1VESpcNUkp/ZUsW6XggW5O1R48NaiIBlCBBhE2WnNBL +MGLDtpmpyjNyCCt8fBptZMEmz9s+Ucf3IFylNpXSasmG/3L++95lgLBHtF72 +OSvSv8knApYHEC63//PV/xQZr8wTbPYxhF3FVgtwbdmw2nLTX6o9wjKeXpL7 +7dnA0t+9R8oR4c9d5atazrGhjcf7MssFYcab89qTjmxw2pVpTLuCMPd4ptfa +S2wobhF5yw5E2K5k4fYHNzZcURELLA5CWHz9gZh97mzoYbyQsQxF2IY6lGPr +yYZJXqUgy2iEhdPW/0v0ZYP/PhvtV48RNp/KOSkWzAb1EAXrrHcIU61pFxJC +2HBdsPuOUwHCmeWmPmphbAj8kWwmV4gwb+LEA70INlz6+aTTtBjhVN1tdb4P +2ICqzd0lqhE2zgr8uSSWDfb1LinWtQjPMr4PxsWxoS/Lw+FRPcJGA1eE8xLJ +/Dg9WjjUhPB4+Dvd4Sds+PW+9nx3B8IJc0Im156yoSrslO6HToT1bCytRZ6x +ofPVfEZAN8JxGvNXVdLZoLxffPVwL8J7Hu8PfpPBhgNVnjvD/iA8KJwQq5vF +hpIX1S3y/Qhrd+x6e+oVmT/Y763EP4QH9EOLB7PZkP+dMe41iHB0dnu9Ty4b +jqnT82uHEP7j7zv84C0bZkLefjcZRTh8qHpRKZ8Nst7TG3zHEN5hzlry+h0b +EmyDlsaPIxy2pki1toANeOeMRdokGY9tFgI3MBsSOYnxL6ZIvXTGetcXkf5X +yNSkTCPcYBRc/PMjG8o9P48HzCD8z0zxyb3PbAi5NyloPosw7Sz3plYJG97H +rBQj538s43zMevgLG15uz6SWk7zJaxiSytgwoa/2234e4X3+d+QOVbAh/o1i +/iTJ1vc4CzxVbLgTv83z0gLCnnHvW198Jf3TEFDuIPneU9N3J2vY8Hhw30fN +RdLfV/8eiNWxYZUe3udHMv4Q4IHr2bAwvL7wPcmNX+SPOjewoazQg9NN8r+6 +vM3yTWxQfeXhOkMyvd14efV3NjR0sTLJ+R+v7OsfudbChmfxzg2jJG8a96tZ +28aGZEPH/gaSDXlkX7T/YEPHTbW/qSSfFnoTEtrBhoi5qhZ7kj0lDjoSnWzo +irr+hklyOOvPvsEuNtSb+Pi+Jf1/pnZDNfEXGxhn0NY9/3++vVVa4EAv+ftl +Li1F5PqbtHN6F36zIf27pJM6yYP79xdn9rFh+MDZwUAyfnSznhSrAbI+Nn89 +UUvGW/bMtZtL/pH1d6GRK0jy5gsM64JBNuyhCIttIPUx9HwJTsNsiF6JDumR ++nmFdc1XjrHBUmviqRapd3isd6vPBFkvByy4ChMIP/9vxbs1U2xQGbArmyDz +pen9Xo/gWTaMGfwqsB1BeKik48jOeTbUSik+pw8jjOqubP67wAbriOy7kf// +/+VP2oghHwfEBtu2+wwgvH9sd80chQNEfYZgUx/CZxbbstJpHMg6s+4bi8z3 +iBVijsICHJgt2GZ94xdpX+tSb7koB656nbvu3oYw/36RYq+lHLBeEWps0IKw +3LH/UlYv48C/ve6qwt/JenRqOhUkwQHLuzzjlmR9pj3c0WqwkgNr/8UpbCxD +uOjJt/wZWQ54SKyzuFqCcPMLpwfP5TlwLz7uv7efSPslj44IKnDgUfTwzRmy +X9iMUmtKVTngeOBdePYrhK2e766yVOPAi7e/grOyED5yyq98cA0HxDXCWuPS +yfr9SilesZ4DIvzC3vv+Q1gxje/dqa0caFdWmZ2KQfiXNc+TaR0OJBYK1kd7 +IdzKhOS7uhyg6l1fTHVHuL76WqLcXg7AtjVJ6RcR/rRr8YGuAQd8G5ccCnRA +OEVqIeTeQQ48NDj8/J45Gb/aWQ+V4+T1uqti/21G2PL29svvrch4X+45y1xP +9nvwunjgJAc+PIyo3ayG8O7MGUe30xzoX94Ur8Mm+/+daetCew68/4gOZ4sg +3KU1aWh2mVy/O02k5ycdW78ckb8dygF+/bVbXl6j4/M3Ds8Z3OPAJ4fQvYc8 +6NjtcE6jcAQHltzdwdPhTMeB424hYdEciPT3v1p6io4zNaZn78dzgCeJ73Cl +Nh1PFy42/JfGAdHbganxvHQcVisc/KmEA0PCRqwQVxp++NjRzr+UA7tcY3eJ +2tPw40tVOnrlZH4sxtdfO0HDryXCZsqrOND82SRwrSENt5ovs6v7xgETp4Md +//8/W6mLqdPZxYHXo1sEh2upeF2Op2zKLw7oa6vvdvxCxZq3WqbP9nLgENHq ++v0DFRsqxb/400fa3yj+9XoqFbs6yMsOD3PgiXX4uWXkfOK94/r0q1HSn6TI +9WKuVHxLpLP+0jgH1M9Nr523oeKYrMdBU1McUJNQGX96kIqTfam2+TMc6Ita +X3lWl4rTDp3V9p4j41MhubhMk4pz2MUrdy1wgO9LTMQrdSouGFWcXlzkAOOp +T4QWh4r/B6MAlcc= + "]]}, + Annotation[#, "Charting`Private`Tag$4017#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-2.9999993900387194`, 2.9999999999999374`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.896375366032028*^9, 3.89818656915065*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"1841f7fd-e54f-456c-8ec5-b366b196a4d9"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes fases", "Subsection", + CellChangeTimes->{{3.898186785403789*^9, + 3.898186789161145*^9}},ExpressionUUID->"94d5e20f-274e-4c2b-85f2-\ +a87beafad44e"], + +Cell["La magnitud \[Delta] es la fase de la oscilaci\[OAcute]n", "Text", + CellChangeTimes->{{3.898186395938053*^9, + 3.898186406368935*^9}},ExpressionUUID->"0fa6729c-0b40-47bd-a7ae-\ +372b402ba015"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{"A", ",", "\[Omega]0", ",", "\[Delta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"A", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Delta]", "->", " ", "0"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Delta]", "->", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Delta]", "->", " ", "2"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.89637540853389*^9, 3.89637544212473*^9}, {3.8981864117139606`*^9, + 3.898186412177678*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"55997f47-8c50-4b22-ac6b-477e1f06aa51"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVmXc8le8bx23HlsI5yDhHlDSlInVflJRoImUUQirqSyJUSkOZoaJESUOk +gaLUbSQNM0JG9jzjJnvl9/zOH+e83q9n3Nf9+Xyu+xlHw/nkXlcBPj4+D+rr +/7/3zzuLrDoStmnL3P8/BH2uUbfYr+6BLo2lM8convvyKURd/SxKnXUKa6BY +OubtK/GGSyhw7xrDpxTfL4hQE1a/jhrtjFc4U6xLjkTOuUeh62lZx8QobpFO ++jdTH4OWjBRyEv8RpPlEbO3U9C0kvfBljgrFJzb6eo6rJSCV5d9LQmcJyqpt +Sx3ZnIhiD3gtbJ8haOq4RfOQezJqmBT4uIjiB/zN18dNHyK9m9OpNtMEbSm/ +uWisPgXd+Fb/y2eKoL54s8IRj1Q0/zRr97lJgsKPzNoPTz9GM6FnFvhMEFQz +fTRuUC0NGcdWnmONEXSmVHUlef0cuaw30fwzQpBSbO0P7uYMFPHkluKVYYKc +dUCQ7f4SLa7b2HdnkCCB6YDKkaBXaMrzcKkgIai2zXrhiOlrFBQwN2bHJcg/ +QyLvb/0btFutdkd1P0HmMT0ifx9kobqU9T68XoJU/AuthjyykfIpPzLeTVDB +Zr9BMp2Dgpju7Mp2gkSbOrS5anloTIsjH9dAUEPBR19OXx76szedtqCOoOdP +4ovZr9+jhRu22gXXELTTe+ehgc35qGLGV0u1gqDbYu9v97pjFBOw6rJXEUHZ +fubePvQCdE+El7oHE5Q4sI4xHFSATPgj9TTyCfKqknP/a1qInoc4pVzJIUgu +8avAUH0RunrnIN+RpwRNS79NO2VUjHpG2789f0RQ18VHuwcfFCO7MFu5P8kE +vXU/n0Q8PqNP/eeWiMcTdFBvjSFvugRZCa7J8b9G0MPvyf+x1b4hk+7piNfO +BI3E5+i0hn9Dv/PWbbFxIGir+4/On5Pf0EN1MeOu/QRxBMet39d8R37Spqr5 +FgSt37jT8Pq1MtQp9vi3nT5BVS9nBLRJJdK4M7rwkABVLxJzlFpehTbcaze8 +O81DG7TiDK8dqUJGb1d3fxrhociRtOGA6iqUdWN49HMPD625+cvVOb0aOe+m +3fn8jYcufNc1X3WoBnXGOl25HcZDz16/00q/VYNi9fQHT4Tw0M94E8FFZTXI +fuYCWhbIQ5rutvl0g1rk0eH96PgxHvoueHk53/xf6BffAt02Mx5S2NgkV/ml +Diluf1vx4h8XZb683nRieSMKTlsnIWHPRQNyA+HmTo3o5Lumsc49XKR9xnzT +4rhGtOvcGofnZlz0wEjiYedkI4os7c6aW81FMd/C3Q6WNCG9yjkop3HRmc6o +ITP7FuRQPfRx8hUHJUv8CJln2oboH2Q/fRtmo00bA+2DHduQbzHH5VAvGzV7 +LdUnfm1oYDLQo7ORjeg/w3rKnreh/QfNs94WstHNeIvtobLtaI/yKo2wSDYK +WVQhPdfUjoTvPL/6V5ON3FF1Ase7E9GzeLljWwYQX8rY+6awTuS+buOb12sH +ULyQSvP31E7EMt1QaL94AH395qaaVteJbtUt3BwiMYAWW82kuBp2UbqfL5Or +7kd9R7Uz/vB3o+8z8iWbD/SjYzHnPlVF96AXSmffLXPsQ17dSzqzM/vRL89t +QyZGPajN8Tet8Fs/Sv+z/3Lp4h60ryF0eXlXPwpZlm5iJN+D1v/oPdutNIA8 +rATOjnG7keDrx7IK1wZQi4WOzcukbhQfpLHJ7xAbDXZEbEGzXahwPiPBQJaL +1IulP2582YnENS5rt64fRPP8M44JD7ShSNkfOg8PDyPdHS1PWNfqkHOTFRYs +G0OVK36ZFicVof9KLjuf1J5C94+iSg+rV/j1Kcl99O2zaCz6+uE/J6rww8Dj +Ayv384FOeOElcYUWfCl5Zs8Ihx8mnuebBf/pxLtX5v63dJgfvjwZ2TY+1IlV +C31uOk/yQ8N6A3AW7sLvOwaqqoQFoC9SqmO+bhf+u+j3rheqAtA1LySjy78L +O2fkWLrtFoCvTUPGq2W7sXGe1/aGLAE4ytLVXq7fg6XNdTxk3guA7cGcEimz +Htzc2B26tUAAyLmuoVbbHuw/Y/81u0wA6iv1v9oF9eBXaIfZzW4BcGk8Y/yq +qAerf9E2NVcUBLbagsXFFr2Yr6YN8gMEIbj2R9g2mz58uf/Tw4CLgrB/ecqj +Yvc+LMZ3X8AgVBCYD/+6LDvbh+WWHficc0sQ7jVFZZTd68OLrlWbvXwlCJ9r +9okYtPVh8w1FO1N6BOH50Jftn1z7ceyjR/ahe4Xggf4VxhKXAUx/f/Hj1gNC +cMg+YoOz9wBOrDqkKnxYCFiTb2JCLw7gJ7PKbRc9hWBHiFVOYvIAzt0f5xIY +KgT1F6sftjcO4GaJK8e8PglBjpn4cK0lG2uddvO30hGGHpKgpryIg5cZtu5L +XikMX75sC5RcxcFr+GxXDKwVhpVnJd04RhxsEr6958JmYSAhAT/8rDjYMVXX +Kt1eGM797RXPv8TBt2v/rhCIovZ39tYeaeLg+3ePS1jeEgYzuYdKP3o4OPVw +V8+de8JgaX1aN3qIg99wft1f9kwYnFtP3OwS4eIKoTyJA4XC0G9V/SxnJRcL +61/ofTksDNY++3yGg7lYcnq8aGpSGFLV4ren3eBiucJTSaZ8ItBip/7bIo6L +1S2drZskRSAhSFfS4SkXG7maFotoicDsiJDqwzIuPn1LItnBVgTixu+OvJnP +w12jd2wkPoqAQKp1T30sD6cY6/m0FIvAcGyLTMM9Hj4UURH18rsIqM+6TRY+ +4uFGTeFv+xpEwLswbHRvFg9X7/PekDgsAu7moqNHq3n402sL9WU6oiAactLh +sBjBQbO9RnMrReH20q0TkzIEG2wPOVC9ThRoy7P+BSkQnN2WF+NrKgqa1//b +gFgEP5fRFv50WBRYhvwjWRsIvuPJP7Dzjih0PI2IPXiUYKu8RBGNJFGokvte +E+pJsJzwetZwqigEJtzd8MCb4MhEL/s7b0Qh6oOhz40ggi//aKpoLReFH5ir +ahFFsImiH/t1rSicMytfVxxL8JyzHO1yE1WfuJ89K57ggKltxov7ReHlaHB+ +0gOCTy15m3VKiAaPHwdeuviK4OW+e6pMJGjgFG2aCtkEsws4nAVyNHjxZMP7 +vncEu9mytPLUaPBsq3Lu8CeCNVM/mYRp0WDBqp67NkUEd5ADhxyW0cBU8oF7 +SgnBDtei4/k3UNs77XJGfhCsVLM0p8aYBorBJaumKwhuUC2tfryNBgJW3MiB +amr+b2fFzW1o8O39XEdIPcHm3cfOxfxHA03m7fcP2gneeo6VscWfBnufRvt0 +dlLzlW9uHDtPgwoH1i+ZHoINTS3X24XToKRdLHzRAMFrW4TdpWJpkCp/8Y80 +h+DVvp9u4QQa3NteX9POJVjn8Yph1lMaXKmcn7JliGCtjX0adS9ocPfPXf/a +vwQzfz3YHZpNgywPE67lCMGqngcuGH6gxucXmHs1Ss1HWC6TU0iD7q62jNkx +ghXuf29O+kqD04Jjo3oTlH/6IRJ7Kik9Ztx/75skWLp8g6FgHQ281TxtHKYI +lnAdOZrTTIMgrx0ndk8TTJvNuOPeSdWfaKu0bIZgoVuuXxgDNJCRnTo0TDHf +MtXRH4M06GpLNXo0S/DM5zrW+XEaTDS2vDT6R/CEfdTelf9ocPGcQR6meGTE +7GKHkBgET9vZ6s4RPBjO9ypOQgwEjCbDL1HM0cz7s1VODGwaa22KKO7L/09q +ki4GBlpFOWyKu6x0jNLVxICwUtP+UdzG6TjmoCUGh8M9V09T3Hz5XoLMMjFQ +Klff3U5xg4rV10I9MdhHqxJ4TXFttuS4j6EYNC+4b36M4iqLkkVaxmJAO5+n +LUVxWdc5qwYzMQgLcbubQNX7NWhtyI2dYmDOGE2RofjzAvLayFoMNHtLjE9S +8y3IeNrGsxODV9u2++VSeuRvOSzz0FkM+i3mNrMp/XKb6Zv2eYhBY47fM1GK +s09XnxA+JQb6E3seS1F6Z6SafPc4JwZ3bCaO1Y0T/MxoekL5shjo/tqjn0D5 +l1qbpV1xQwxWDGnfM6X8TRRadGV1vBiY2M3baEflIT6xJasrSQz+ha0I/DxI +cNya2x23H4uBvGqbrSIhOOKIKEy/EQPplPfjZ9kE35jBXi/yxOB364kP1/sJ +vhrnf/9QgRiIyRexQnoJPv+5f6q4XAzGLeX6VlN5DrBPWXKmVgzODMiZ9bcR +fGbkoO3iJjHALwp3X/9DsJdmWU54nxjYzbYdu/qb4GP5l7s2ETE4Zll7vrOO +6k+rjfOHRsUAtgdu0akl2PFy5ilrQXH4l3eLc5rqt51d0UtVVcXhtoFx/79C +Sv+lXbX2muLQdxKNdlL9vMNn3fl7OuJwtdwsLecDwdsE/lTR14lDXsDmeWo5 +VL+pLz0zf7c4yITOUxJ/Svnhfl5tr404FNkaJFs9Ihi9rP4abS8Oh23XtoQl +E2y0yV9Z2kMc0ipGwgvuEKxvX1JAuyQO5SvG/5lco/x5RD9mFioOxj/6I4Yv +Uf3JPj7/aqQ4bHY40R99nlqPAuTcBO+Jw9C+FtkYX4IXxx+S+JclDk5h6icz +nQlWqZ20Hu4Wh5Z2gdk9BgTfVbacW8URhwim5ssqPYIZLg+enforDmGvpRyN +llP9+XfrNPefOOyP+YMbmQTLysY96FOUgM8LL47qSRAsaLGc3bJdArRUxxzt +Gnj4UuzFOJXdEiDX8ysynVr/+ZpqN9rZSIBp0I7xvu88POMRGN3gLAFOl89d +WvqRh8eufdWvCZQAh1LmROUDHh4odg7++kICGLNza+8e4WG1mw3HIrMlgDU/ +UFzenoetHHdaW32QgCCzMaWAfdT1ZcJAp+2rBNj8fiYhaMLDMcvm1Y53SsCL +36HNsqo8vOEO1tZWkoT3qe7DGj+5OPyYSuWVq5Jg7La23lyHiwvXxeTtiJAE +uaKTHkpqXDwmREudFycJ9Lo/yr/mc/Hh5GH/+w8lgf/7R37JWer6X/udmZMv +CTlvDr0LruDglo1nz3T9laTWK+6SCE8OXj6PupE9JAUV6qeWnUpk456Inku3 +XKVg0onfJTmKje+Lj/f2HpeCntpY54+X2FhSiP4m3F8KLs6NtJYcZeOBsQNb +625KQXxL+DuxNWz8uLnFy+OzFCTFsVSOlA5glWfdOGqJNDwVuTOc3N6PxdGo +U/OwNNQEOpms6+nF/saLaW+npIGlsLR1tKYX92y2y4zil4E3AycFHxX24qJt +hVMmMjKg66dP/5bYiwP2RsSm6chAZgwfz3RvL2a7Lio54yQDKYP+O6Xf9+Cy +cOvF8yplQOvC1A2jc93YjHtwnGktC/faWfI7fnXghqIj/Ad154Hg/SljIt6I +c0I/O6qPzoOHwT+T6bvKsJuwb1tFhRyMXb+hqml3Bbt4B+ZI3p0PVR6HGku4 +pWiF+9IKC6cFUDHBXKzTXY8q5XQlfA3kIdLR4YtAbzva5OnZf89IHr625wV2 +TrejzNLM0iIkD9eeporkyXagyKBVl2W3ysO4rJeHiWEHsuhZO5u+Vx78svdP +lYV3oO95xqTjuDwMvaAtfLuiE5Uc3l+zO4naruATHHyiC33IvHRPV1ABDgbF +Zu/CPUjEwlrpjogCqPSfGbrwswft6ddO4BdXgLmr1teTu3tQL6v8dp2sAvhW +bo3JkOhF8xMUY4JVFcBEze/KjE0vOh6SEVproACmtKBZ94FepGxb5xt0SgG+ +dyrqygr1I7fRZyM9Pgqgc4qRPU++H72OCfTZ46cAU6/Uh/i0+pFZufp/WucV +4Ftmj+0zs37kY3L8RFWYAqzeWBbKuNGPfujyuWg+VYBQV4OOAOp5KZBfZ3dZ +iwK8/uwu3Tc3gHq2SDRotSvAv3YBNVNpNtodyjl0sUsBnGYHdaJU2EhT5uXJ +tWwFeLjyieTAejYqU1kT9WBCAY7vvNyed4qNVNdvqjg9XxF0J9ot85rZqMhr +r8XC7YrQbRzWPfqYg3Tf6NX6WSiCN7tmqPU1B90eXWD/c5cipJUE/sz5yEHH +g+qPX7NRhBnFV0TzFwctuGEfNuSiCHqyBtkyglzk9tjte8l5RTiqxPKQteMi +8eaAbV7ZinBO+nrM9WkuWuuXJhX1ThGuLqgTRUI85CTX8PPle0Ww8hFkdkjy +UO42fYehAur8rf0rhhbykFsO+e90uSIkT5aor0Y8VBh55F5AjyLEuHz/a3ie +hzhLYg/f61cEi/gxq69XeIheUrgon6MI5qplkpsjeMhrWvXV7F9FuEZWH+dL +5CGVo78/B88pglN5puvdXB7yN97Ju0qnw02z6XAzHg+lNgdlPVWmQ3Lh0MZn +IzxU6Zfu/1WVDttEPvONTfGQViZNUHwRHVwUEjNsRQmqUSpWjFhFh6eZQmsM +1Qj6lzPU/GINHWjt3uKCiwjS2aOeUrGODkPdOr9ydQgKvnZOV3YTHQrswg3Y ++gQtH1lnHGtOh+sVy1qP7SDoYJSbSLYlHe7+fT1xdzdBV3Ru/ajdTQf+3fXs +d9YENR/+a62wnw6PEqL25h4i6EZ5xrEEFzrEb5As/+lNUPcTjbjkIDq8zz41 +fvwWQZzL7ZOCwXRY9jj69scEgv46Pzx0NIQOM8m5gRP3CeJT01i66gYd2G3C +kjpPCFK6o15UdIcOUXOew4E5BGn4tmlr36NDkc2a/xTzCFq870FEWBIdzr85 +o5qYT5C+jPoBq8d0sOg6PHu4mKDd19QGu9/QwbV05npDJUH7XVutzd/SgSXm +DB9/EuS4OflDZh4dxPZWzw/7RdDxOdVrfgV08PQtF+toJMi75Q+nqZgO6gYh +i4+3EOT/IWkvlFLH/46zb2kl6KqfqqpYBVV/4c/ZoC6CIqz/hHhW00GqPN39 +eQ9BcXpJ/dW1dNi6wbCtoI+gh2Rhzt0maryNV8efcQh6Vt6iNPeHDooxp2MD +eARlpt8Pdumgg13l2fX6gwTluy+00O2nQ6ZOW7zrMEHFpi2vozl0+LNkbE/T +CEHfWfcVRwkdlv8KlzEcI6iK3+HcgWE6NHGfVl0cJ6i+VaXz4xgdFn20i3sz +QdCfj83bmFN0GFxQfqBskqCue4mZV2fpcHT3KvXKKYLYZ+0XsPkYEGVV0fN+ +mvJnv0rALiEGfImeyoiaIWhSv7k1S5QBm+dUvC1nKb8WJJrSJRgQsuiF/gjF +In/t0oOkGZC2QG885B9BUlXK89rnMaDBw+ztDMULMpvOmMoz4OzOWG/HOcrf +8HvNaXQGBPlXLU2jWOOYnYm0CgOu63xrb6Z48TblZ95qDFiyxjZukuIVWk1S +9UwGtA0d3fz/98Frhe75bNBigIHlOI9LsVHHwd/JSxhQni9zp4TizQVKSGgZ +A9ZvqdxwlWLzpMbUoysZIHzapWUFxbuD7oqX61HjeYgHFVH17T948NSqdQzA +FXL0TRQ7rlequ2XIAFpj0+sUan6uCo0bpjYyoNfy1/ZBSo8TIwkPHY0ZkON/ +oU2LYu+fB0SLt1D6rDl+Ziul39lXDE/tbQzw6jaQ3EXpGxz5+2fYDga8Cryf +ApT+V08krB/cyYCkU7aGypQ/cYsZQnnWDBCUXPVf2ChB9o5aTzttGVDpw+g0 +oPzWjNMzl7ZnwH3nsJ3U8w/KnrOMdnGm9MPx8uWEoCB9O71IVwac5lPyWUrl +acvxo3W5Rxkwz3Ow3JfKW23dJRXpkwwYP/L3QgWVx0TJaLzemwHR8kd/N1N5 +PWJy39nFlwGThqVr6qk8j7x49yw3kAHzRQ6PRbURNP8KZ41LKANUqsJ+zKsn +qPH9ZH1EGAP6k64cDK4lKGVQJDA3kgGzKQNjjdUErbbXKJS6xQC9+lRHqzKC +9urZWOY+ZECHnZ2ybQHlv4fLYEcqA96/bdiq/ZGgjqRTsVLPGBAo6RLZQfW3 +t3jYb+dMBtjGNp9dmEVQTDt2lfrAANe/5f9SU6n1SbGctv4TA97mf9n66wFB +TMvGdOdCBrD5w/OHEgl6kzsy9K6U0mPabAOJI+hn1JLzzrUMeBFVVTYTQtDd +krUaEfUMWKGg8T3yAkHO05s/v2tkAP0GXVwqkMq/m6O4VDsDzhVbOVT8R9C8 +TbG333EZULSW+eiII0ENPg8MOgYZ8NPIR/TAAYIepL1olhyh9Nvt8MXAiqCV +8l+ZzlMM+D3YerhgO5U3zkympKgS1BVcde3QIyj6rlupk7oSPHrSmB8kRJDf +mUs+QSwleH/GfIXtPx5y3JukdkdLCTKtzMbVJ3hIV7zOr0xXCV6/4dwOYPPQ +t7Omi9cZKMHzb2eDd1bzkMABzeuSe5XAcsX4uaAEHupfA/ra1kqw/yGPuSKG +h6pk7duNbZVApua2Y+UNHkr+Gmvg56gEvou/pjcE8pDResGB9mNKkGhSqCLj +wEO+ih3m70KUwKP0l6+MCg/ZD8+OVV9Vgg+Y++b+fB7aUsl4xLmuBAdWDf5k +SPCQ3LU90xrRSsDLNqlqmuSizLGC9PBEJVBe67L3Wh0X9f1KlnTOUYL66F06 +F8O56GCcQ4VkrxL8bumUWMzmIJUsceXjA0rwhu/g+rhWDmqtfuf+jasE8y/v +Z7NrOOiIjBz/1RElCOOniTjmc5DXjS96c/zKkPBoy6RlOAddCl6RMKSiDILd +8Y5HFnNQ2gn+I3V7lSEzStTi+R42OhGW+WqNjTIUR8q6xG9mo+XP7WZjDiiD +X0qJpo8+G73pzbm967AyyOs7VfHobJTvfOzbV09lCG273TX3ZwBV2dYs/xCq +DK2MLTIx7gNoYsvjyeRP1HiMwKTCY/0o6ENyyOdCZbgU1OXmY9eP+Fbfler/ +rAzpoB0qb9GPRNWiNFb/UAYroTXTOsv6kcKk//bP9cpg+Mb55T1eH9J7YZHQ +N6gMi8W0KhO9+pCX/Mj6VSwVOPJt/k8Xl17U2W3iX3RNBQbN5Pv2MLuRSXJF +ik6YCpRYItUaqW70wPZgeUykClQd8ZY2nexCjj/+Y7rcUoEc8sh2urILNb56 +UCb4SAUc93muzwrqQj8D/6mbflKBvE38xx1qOlHRvPffSkdU4F2uy7DomQ6U +snGVcrnTQjAdTj7tvbgVvbjiO899mSp8efdINyS4Bl2zdtkhOKoKfOKONzZa +fkT6zQ/TrpWrAf7zx/V8Xi6OX3LvRfkOdRBdvsSJF/4TXyiIiN+Rpw4TB/6a +3VJvxQMtBXGT79Vh5cqkwuBdrdhmejj6ab46GL2W1LI534p11x68LligDv6+ +Gks/NbXihnStgA9f1CH34K0v2LwNr76D7ZbWqkPvXFaktUA77vEcUpUg6lDI +zl3ofLQDWypbP/6uqQEP9th43ZHsxvFdywvstDQg1KDvq7daN+56QWviaGvA +gdYvusaru3EQ5MvKLNUAiUCzjrf7u3GGKyto3yoN2KbHLBZK6cbir4b2Nm/U +AM+21Z7qa3pw6ZZIPp6NBsgMuSWK7ezFctJHlS/YasBmM3PnlYd6sWO98VrZ +gxpwcIdG1bZTvXjMY/T4agcN8PX5cHZnTC/WirKvP+OiAcbpou3pv3rx5d86 +mXMnNWB32g2+Jwf6sLFXqd286xrwIfL8kT02/XiqoX/r5xsaQDs+Ht/h1o+z +N0uu9gvXgIew4qyTXz/WYuyhtURpwLevFlKL4/ux5OfG7Ge3NSDNbJNhfUM/ +bmDwpCBVA7ab9V/KshnAp0oWFHhhDXBIyvGX38LGOivXpWsUaoD5/kqlrXvZ +uPPugdu1RRpw5KiCiMthNrY5lXTC8IsGXOS/EOUUxMZGyosZIuUa8KtNyepU +FhvT/tvgfb9RAxyvZ4iULeTgZBVnzbJRDZhMV1E17ORgQ72ly53HNWALs7dK +mcfBtdtH1k1MaED/vJY97AkOpvld3aE5owGaWZqP9klz8anq595BAkzw4rtT +um09F8PV4QJdGSZcfB7ohEO5uDEx/3uRLBO+KVq2BcRw8emsK7W2ckww+dRf +wkrk4mdtin2X5Zmw8+TmFxtfcvG8DUYyLcpMeERF+mYtF3eQyw4Ri5nw/s/G +a2+UeThIZKc7S4cJeQZnsow1eVhhoeJ/eUuZwDzwY+CjLg+bm6dd7l7OhAK4 +4HpuIw+/SS1P36jPhAWWMROKjjwcckBhimvMhMaPbYvf3eNh1VOtgpc3M6GO ++/bBgkc8nHv1mZSSKRMq/vTUOD7nYU6WocbWbUzocRM7mJfLw1bSh7Yl7WTC +aMqY+9VaHtYsfnp7px2Tet7eUxpEI7hCdyK12Z4Joff0mFekCfa/vS3rmCNV +3+i1dwELCP7h0V951YkJRRt1QpapE+wtu1QMuzPBoMrU6PVaglUCAhUtPZig +K2lHYxkRXNL5Y1HTMSZo8+8evmhMMP3dCZNxTyZs2tdHF7UgGDtkBq44zQTa +oo/myw8TfLT03/WPvkwYbz+WQ3MlWG7VrvgdfkxYrQFaVR4EuwkNZrsHMGH7 +iz/SWj4ES6av4iUHU8e/b3nBvUzwwYnsw7IRTIj5uLKhP5VgIWfhk0mRTMjI +bXSJfUZw5g/rc7rRTHi7+HfZkgyC+ZPHErbFMmHw4url1PUfPzNdXxOcwIRD +8mdHFhYQvPdlaLv0PSa0l9xZubyY4Gn6b5KYyIQONGaw9AvBOzlnJfOSmaB2 +ZcsL9g+CR2M+mA49ZsKqPV49V+oITpqRsLrwlAlHFS7ZzzQQvM3N3lkqjQnL +E57GHGoiONFg9vySDCaszfc04LQSvPWRZcS7F0zwOLrzqXwHwUQy6Z7pSyZk +swsql3YRbNK2KdfpDRNk0u12qPYRzNke9YVkMcGSqZE41U/w7azW2nM5TDjT +9yalmE1w/9XgoYRcJkzMHytTJgTHDFbNab9nws+ph7zngwQbHdSQfvuB4jUy +RVp/CY5eVqTz8xMT+GZTArpGKD3W24ldKmBC7eUlP2GM8mvzSO+qIiZcctM6 +cXWc4LqdEV/ai6l6Jl+b5UwQzDug9fhmCRPmF424lE8SLOyKQ4xLmbD7jHZB +xRSVj1O2zkNfmWA8FWOXN03wmsAhePidCUnO0foRMwTvuHpDbU8ZE6pHQi3N +Zwl2vsn6x1fBBGftsZRBigMS85tfVTLBJsVJP/gfwTefWn84XM2Ey8hVaJLi +Z294CbI1TGgWT5exmyO44OM1/4JaJjwz4do8obj+q/r+U3VMyN0/9ruRYl5N +nr56AxMiuQ/iJygWad27oOo3E3wa62Oo+3+8cID990ITE8K1b38lFK8ZvVy9 +ooUJDbK9Bt8otuBTfdX6hwk6wj09YRS7SLyLjGpjAuPJp8p1FAco7PZEHUz4 +XZoxUkbVF6PRv4N0MkHpvxnrHRSn6V7SSe5mwvdGsZE3/3+/vU5ZbFcvtf9J +40pBihtMsnv/9VH9W6bWt5HSh1hafskcYAIHr0JOlH4iB3pSHTlMaDFb8MuT +0lf1yIUQaR7Vf3Gnn7tQ+uufpDt/IkxwEJItMKH8sQh4DV5D1Py0sxUkKP8C +oztny0eYEJhx/8Z+yu+Ye0HN58aofllQmdZE5eH5E/kPyyao/Bu2S20fourJ +N/OPmGaCad6qtFYuwYOlbTYbZ5lAP9vSQeMQLFpzVp/7j8rH5y1uyv///6U/ +/a+FAAvk437umukm2HJkS/WMIAvSSnpzv3cSfGSu5WWGMAvimm79d6md4Fh5 +WU9JMRbsStvR8KKZOr/x6d4fMiyYnYzIGKkmmGYp9SVwHgsa/vMolqokWM32 +SerS+SyIEU9eL1tG9aNXg1OYAguqXNO3VpcQnH7XqNl8IXX+jdUrt+QSXPT4 +1/spVRbs8Ll19lk2wY2vvBKeq7OgMChQb+wVdf7SBzbimixYqmoivDONWm+G +haq/6bDg5oJdXiSeYMfnWyrsdVkw8OCa3EAcwTZOl3+QZSzwfCivVR1N9W+l +4Bf5VSyYd9j18ZFQgrXSBT44rWNBbVj7zodnCO525ns8uZniDJcSn10ENzMg +JdyUBXY5/M/XmhNcW3UhWc2MBXw7jHR7thD8edNcgqk5C56f/qQgYUhwqtK/ +yJu7WVCey+g8waL0+zntv8SBBa9Erp2N/cvD9tc3nMl3pPTepteiwaHWewj0 +2XWYBXsqPtPvd/PwlswpT18XFkR9+a59sIFa/29MOhd6sODJy0MMks/Dncbj +FgfOsCA42X5e6CUedn79V/16FAvevu3/e3uOi09c2jdjfpOq1xBnF45yse++ +7HrJWBbMl31i/YvNxaGjvpHRt1lQQnPc966eizMNJqfv3Kfqr7NluGdy8WTh +XN2TdBYskHzbFrSfi6N/SkZ8LmXBLbePFz/Gc/DdR55Hr35jwTPu2X0Lwjn4 +0emKzdt+sKDf6pyy9QUOfqsQPfWjggUshy85ca4c3Hxw/tGaXyw41Se/VGoV +B2t3MjZ3dLJg290kKU4xG6/MDlBN7WaBpGCscG8OGxteaZp07aX8TluUUPaU +jS2077/qH6DyQYo+7Q9jY+/j6qpDQyxYtbx4/ck9bBxkdHHyzTBVz0VlkwIT +Nr4i1VF7epQFG9ePoxk9No5/+ShsYoIF3d7tW/UV2DglWMj9/RQLOko5bqtF +2Th9j6tJ0Mz/9fFNU5oYwNnMLws3/WPBC3ENJV7fAP40rDU5N8cC3+tPP2f8 +HsD/A1QMfro= + "]]}, + Annotation[#, "Charting`Private`Tag$4085#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVmHk8VN8bx2dsFSnLDKK4g6IISUrbeSopJYkSsiWFskTaF4VSSpavEIlC +KZVIinBsoexR1pJ9m5lrzdh/9/fPzOv9x515zufzeZ5zzmU5eJie5KPRaLrU +x/+/Y284CK1zvL9dodL3g8q+dlRcRxgdJVyQeVnE8jmddjRfkudHEJdRKF17 +4JtCO4rND1IQJO6h1OgDvTvG/yLXbefdJhQeo3bB940ZcX9R3bRz+JDCKyTp +5Wvm2N2GFrR0qHAUspDf9pg3NYq/0bPvcZ6DCt/QnKLAi7suDehd6r0WV41m +9EqwVGkophg5odrHbK9O9LE7cbM+9zl2717dmfGuH3HXVbetcqrEwix/lbZN +Q6jsD7PS/GwLfihWvuaZ/ShS1n0Utlq+E2dtXPHR2H0U8d+fviqh04m7bD3Q +zNVRFP7xszXHsBNveSt5+GjkKBJm2xZfOt+J+wytr4tWjaLfnDSPrvJOvMuP +U315yxiSiIw8R7/QhXnjS8+bSo2jkqeNxj153VhphcP8vNI4SlwhMU/+6MbG ++hn33q4bR9YDNjn9Pd04Kczi6cID42jLqzqlt0t6sKnms9I8v3EUl3NMzMum +B7911pZVGx5HHQ7DDb0TPdih5TDmr/iHDkeq2bKIPiwc0+7m2fQPDVntyc5d +14fTrdyXt/X8QxeOPRYx3NWH+ZsDLmfTJ9DGp9et1U/14cTG7PWeGycQi7bZ +XjmlD/f8JJL/PJ9AsYFL7arX9ePTNeyQrMs8FN+RBnjdAJYIuYxUAnjIaOM4 +UtoxgLMPCnHDwymWGM73NhnAItUK+8+m8tAvx3/L/7oP4DeVpoIq3Tw0cs9E +ouH1AOZ+/3w53GQS/Qw1LNmqMIg9v/o7eKhMoeyh5Pfxk4NYvstA6N/6KWR9 +xJVTIMjG5XyLXl+DKeT78tpsrTgbr4Sg4XuWU2ibzMzlvNVs3JT96Gbi/Sm0 +O1NUpsyCjXe8f/G0iZxCV62WJEd+YGPxmLLmXZ+n0c39owa8YxyclxV443vx +NGIPLnTpOcnBZxqNFA/VTqORd1F3Cj04+Cuz1sV2YBrJpQo+0ffj4MshTbxL +y2fQCtmYex6vOLj99oDUu5szKPulpf2xEQ5OO7vYTMZwFlkhm0rHC1xcES15 ++a35LDLoO/0g5QYX9xTLxu10nEX35MMOtd7hYtllqwddfWYR+Tf+13QEF/sX +7PYr+DiLhjY5rNHO5GJzCZ8PpxXnkM/YV9bFIS4+u/VO07zmHPK9ORB/bIKL +A08FzYdvm0OPkWb16jkuxtkx+7HFHIpyur/ST4TEqic+d0oGz6GREW2d1StJ +PPVhWDJ3eg6F/nTo3H6YxIw/PD3TRfOIedRMLceSxBoLafa9UvOI9eVGi6Id +iU9YL3kjrj2PGjIETr5xIXGFgJr+Ked5pKFV/yH1Ool7NLRPT5+fR3fiteov ++pKYZqkXEuI3jwQ3u6HVASTe8HZPa/bTefR+iVj/nhASPz3i6L305zxalntI +w/sZiT/7nIlO7JhHHhfD9t1JInHdK698vaF5VNbuEXXrFYkFfEAoXZAGHeMR +uevTSLypzti0laDBsTf72m9jEu92Nu1+oUKDsovp29oLSWw6e+SSpwYNPPcE +Z64sIbGris1Toa00OL75wJhLBYmfXT0zoHWUBvo108fbGkislb+IF2BDg1yD +eY2jzSTOF0gWbDtBg0OCD6ayW0n8N6iLCDpLg0yuUYBBO4nP/vDV6LpAA2OT +F7vdO0k8L8XauuU6DY661M3c6iaxfLzN0f57NPAJuG7i1k/id13TjhBCgzpH +/wH9QRJvWx3tFRlBg9AUr0sLOSS2Tv8VtDuBBpXxCWfMhkjM/ucd8+QVDd60 +11c1D5P46hbJV6OpNFiY/p1lPEri6OKDxc9yaHAj78x/vHESr1nEreUV0oA8 +dvq95gSJsw48aDv4jQZRRvVZpjwS7w1bw3lRTYM1JSPvjk+SuPFX2dTsTxp8 +jZYLtp4isbOc08IjrTRw1kuz3DVN4gk7Qak3HTQ4+E5xidQMie8kJijx99PA +LGEwpZ5iqf4d66xIGmy2D9f2mSXxi7V/t6eN04CvPO0Zc47y2+uG0cIZGqx0 +7uZFUlycudzKjo8Ov6x+bxSaJ/Hh6WynzIV0WH/ysK09xV3I8rzoUjp49Im7 +vqD4nP+EryOTDhNd/faNFPN9exTyRY4OwVM5W/9RHCaq81RCkQ4nnC/Nz1Os +aPojxUWVDkxRqVfjFKdFnM3K16BD/qkneg0UQ8uSUukNdBgJk09LpLhG4W29 ++xY6JBnnLLWl2N5xf8fXHXRY+e/ZEX6KyeR+cvleOkz5L/QLp+q/wQmYPWdM +h7xHG6LEKV6ivUqk/DAd/h2/+ugKtf6nF4plFI/R4U/BpqvVlD5rvzisunyc +DmrqTYZiFOfM03RqnOjw7WM9fRulr5F+3A4VdzqEir9POELp33p328Eb3nQY +Dp7RtKL8OVPZYv3zCh0i5S1e7qP8CzSXueQXQIct60ctScpv2ZjM281BdFBI +eBuRMEbiV22H/1sXTgflf64Fu6h8lDmHvmuLp0PB1ytde6g8WbzVzNF9SYcZ +/ld/Urgk7h2u/Bb0lg6eL2O+T7NJLHRVuHtLNh3e6Mhcs6PyGoGTR8Ly6TCX +2LPrXC+JVwrsoQ2U0EH3Dh/fOSrf+kF+clF1dDBdoXtKl+oH37iZQ2NsOux4 +9HOsguonE63PnmqjdHhkUB5z4CfVDwXnQh0mqfWVNol8+UHi7I6BmhpBPuhu +8j1gXUnikZVNB9/K80FaguXtzwVU/2WGe3Qp88G2BcsS4vJI/HCPSbCcGh80 +fngWee4LlXeX0qp7G/lAUKxocUcGiR3efDxwyoQP4iWy7ZpeUP28zdMt1pwP +jsz1nFFJIPFcpXpQvTUfZNR72jnEUf1DJlTsdOEDo7ISwbhIEv/QDtuv4MsH +PMvJ0PXUvNqR5W7Y+IEPZPUiO8odKL/3rXFZms0HWTaND/ttKL+au+8a5PPB +x887jcYsSHxpxroso4IPTKcjhGqNSfwe7d8T2s0Hqaix+qUeiYkSld37pPmh +KGb4YSU1j7nmnY63VvDDRYm6ylxBKh+9T/0/K/GDL7+UWcw8F1sskipepcUP +j+xjkPwoF4cYCeziN+SHbQeWieg3cTGt7i/kXOGH8o4rXRLPqf2iP+/ZlVv8 +YFfOZ7QlmosX0WL59O7yw4JvH8cOhHGxxFrL4o+P+GHzJR1C25eLVwbU7kl9 +zw+zdjK3/tlz8b4thcbPe/ih4rbgK29ZLq46FJ9qz+GHYLlffbvEudjM+YaY +whg/dAmvLJ9dwMXWjzb/iKELwC7ZV6HrxjnYnUw/8mi5AJxk3O14XMXB/yUk +WN81FYBxefGX565zsEz2rVwDSwHYXxNpMOTFwU9q7OQF7QVgee6KyaPOHPxi +Vu7vLTcB6Dhq9rHPlIM/Hw0/cfWuALgaN9qLqXBwq8jt0+55ArDUzsjZp5yN +V3mfunR4jSDov/O3kKLOA2s3t5nFaQlC7vYvft28QaxDs9Ac0BUEaXaRfQJ7 +EO98YNjjs0sQ1GXeGA/WDWLbRPXDKdaCcCWopubNs0EcUT+iyRcsCJBOM5zV +G8SCG3x6U0cFYbmzl4Co7QDuGo80F8kVgpr/VJfXnu/Dz3esP/e7SAhuPJns +03Lsw3ZBVcGp34Wga2/51A3TPtysLPjNrFEIDHqHiB6NPlxr5rXlyagQ3Dr2 +qKO9pxfnpRkRa9csAJabG44268WRbvQB48gF0NU0+vAs0YP3dZ++Hua5ENbS +VIy/BXZi464QNXl5YdiUJbnEIKMFDxQ53Cx7KwK8+x83H5uuxhriv1bsshOF +K8o6BlODiVgYjR9vHV0C9074jm6eLEJ7OFYTikfEwMusTllbqwE1FjrSrdTF +QaRTwDQnuB0N7WiWva4pDofdwwvTEtvRgoKDOvHa4pAyNWHxJKsd6eLNTj2b +xIEdUV5k0tmOwr+IVXrtFgfOc3G1Dbod6GBGTtR9W3GQesxmtTd1oJIkhlZu +iDgIu2ppuct0oY93i22JcXFwEPJclOXRg5L3lcsE8MThd6XmZ2m/HhS9+McP +zrQ4RLyfVDgV0YNuhrQZfOGTgAqzro7anB5kFDWlYS4mAak2SumdC3tRx0ut ++ftqEsBO4b/RFduLlpQ+iZs4LgFarJWBs9l9iH4vwdL2pATEOnzYpFfRh8b2 +vZb86iwBN77rTTr87kNNVZ8CwjwkwCki6sbN+T6U+OuHx9rrEqBQaLWzY2c/ +2tyzEE5EScCi4gkp3ZJ+dErw/N+qKgmqPxsmK/IGkKzCt4bpWgkwrhg4+ali +AFVtWlGt+lMCGEqZnJDmAaTr+jXXt0UC+jb8t1b83wASqmPG6PZJwIN3Mdd2 +qw+ipPjMI0/pkrCpu4F9/tEg6trC++6mIwnPls/zcqzYKOqIUWH0Rkmw828o +unKKjYw84rNKN0tCezUreZUXG2U835vM2iEJLhav4/beYyP/RY9v/zwgCR/H +LHwyMtlIuUEPtjlJws8/nIqVSzjohNfVj4ujJUHXu9wSpXKQrvafj6tjJcFB +t+2x32cOEh6BTIN4SWiJrm/8WMBB7z2FPt18IQm9D1Zt66rjoJmzoZ/H0iXh +iLKckPMEB0V4vPzSWi4JV7/0jwht4SIXTeGcySqqviMPn6ju4qKtpGuO1A9J +8LkgPbxxPxd1umvnmjRKQtMbqwCFY1yk5Z6bV9wlCTU1KR3iV7jom2tdwZtZ +SXCnmRr6ZHDRE3Xdwm80BthO5Hhc/sJFZ9lRhT38DNhXsZpnX8hFUq62RYQw +A1bbW8rzqrnI4Ux/cbgUA66JfDlgMMBFMy7zpdc0GeDWJlxuK0ei6tUOZY+1 +GfBU2E1nLYtEz/uLyzI3MMBQYENh3yoSGboEfhvawgCRnBXbVLRJFOHMLHfc +y4DrJj2HCvaQSNNJrcroOPX80f9WO3mQ6I+LgsdbRwb0jf/+6eJNogeukmJL +nBkwMKzFNL9Mon7P6UPV7gwIXfRv+6AviRKulf88dI0BlqYv/y54RCJTH3wh +3YcB7bEeJeaPSUTz/SAt6ceAdVVs5eBYEtkExFjW32OA3NBiyEkikXTYmd/m +kQwwk49+uuAjiUrC7W58imYAnXFw8tlnEnlHminIPGWAkqVL5socEtU+2XK8 +KZEBHpKNB/oLSXQzTpNvczIDWucslVaXkEjjuVJCdAoDslc/OWT6jUT3X4p0 +H0tnwFCJW6p9NYk2v56/nfORAX87U5p3/yBR35vRVSuyGOAftcCc8ZNEu9Nb +nP9gBqTPr9rg1kyi+ZwUtn0lAxa9nrJf0kWidzguqKCGAdMbXzVu6yGRdeF/ +Gor1DLjxdVOYeR+Jskqvnu1sZsD582Jfd7FJ5PzdQ1z/D6UfeX+LDJdEUpUn +0hPbqXrkDnJ/kiQ692P/2Mk+BrzI+sovOkoixZ/oUckg5ZeVhuOdMRLVNKzX +VSEZICZiONM3TqIbzSoNASMM6JyVKdeZINHa33KX+sYZ8PB5WrULj0StbUuX +GU4y4HGy7qK7kyQK7ODPfjXDgNfzLReCp0i0qXvCSpjGBJnGbumb0yTq7R2c +Ps3PBPeE5EHLGSofA21PyoWY0M+4N7x8lkT6nLpt6sJM6GDNqH6jeIQs/fNA +lAkb+AJCbedI9Gzkiw9HjAkRWnjNb4pNxlMJYwYT2k7vG9OfJ9HcRELBO2km +HEz/w3lE8ZupSIelckzA+3dK11B8bPY+/1l5JlTg/WdHKRam3UysYTFhrLmd +R51/0Wc+793rVjLhxdvp99T5l5pXzj2hqkwwehAfVU8xc6F1wIgaE/SX9qU+ +obhY2ETVTJMJVRJT/w5Q7CWq/+2DNhNGMpe491H1EWKbTjN0mWBu5850pbha +Ql3kvB4TRD54chqp9W13c+uP2coEqVntBVsoflf6rrQQMcFyzFv/HqWPvOJQ +Uv9OJrT/S0oqovR7eG2dv5gBEw58ArUBSt+5X14OGw2Z4L+14ucMpb/bugyw +NWKCfXtL0jTlj1GP7myKKRPmIySycv+RKAcutfw4woSG2djZm5S/6jFZWZMW +THiueeG0FuW/iMnWC3vsmDCnYpNvNkyiK6+vH3Z3YMLxOu2UUio/AwJY+9FJ +JmyX6CxQofL1PWsH2XGGCSf8+y68GaDyzvCrXOTBhNBlTtK1VD5fuxenaHkx +4b2AZF87ld97Snucb1xiwsaxCvmyDhLxrt81SLrKBKLwVEDsXyq/jd+UK24w +wfXi7pV2f0i0N8iofdltJnRanxV62UT50xuE4S6Vj8TXRmsbSKSyszrW6T4T +lvMJVcXVk0ho4pDVx1AmOOr63TWk+u+r/dE6k6dMar+cFXlfRCKdL1FpF58x +Ycj/oFVUPokSmc3BTxOZsMyybNg1l0T+362N2K+ZcOS4jEBLJol26jh8DfjE +hN+exkPfk0mU/jAh4V02lY+T0QVMap4o9nfd+pnLBK9dLI7RMxLRnzptVypm +grOQqfVNah7lL3D7lFfDhJsrhf9O3yWRlsO7R911TIg//7z0lT+J4nPIc4sb +mOA7HLFC/yaJfDy9tKx+M+Gr6gOF7RepfLRcfDXez4RxW2b5HkcSfXnnG6PO +LwVJvTUnMjZT6zU6IhspJAWnJ5+0puuQ6FC/ymO6sBRsNVH6L1qD6jelyohf +YlKwfuXG8pWKJJJ8LB12U14KavoE+9QWkuiM35u79XpSYDdfs2Samv+ZhM8C +tE0KJMeangSXcRE979CdVyAFsrwrn0QLuCiS98/vxh4pWKxzLbkkjYuK3Hb4 +qB6RgtXV1VLqYVwkZ/Hr/LWzUkCQtfrfjbno1HjyWM85Kfhbu+TQ1G4uSgu7 +eu7QRSlo3UwYMrZx0Z5KwnPVDSnYdrBESkiNi87tPONac18KTo1/b28X5KJy +ddoJ5ZdSUMB8tOnmJw66Sl9jUvFbClY9qNS7L8xBPfoijavapWD7yRdBW+fZ +yOQu2+5WlxRYrL/u0zRK7d9LUz10B6XAa/9Gm1+tbFSxXCc4nicFjAifrta3 +bCS/aXuVt6Q0BF2RdFc2YqNCd1OjFYbScGyJ3dvmy4NIPX19/UUjaRC5PndY +zHUQRYwzrH8clIb2HL5MbdtBdOZaw5kAc2k4mbOrfNvOQcQItL4/fEIajH+2 +m7svGkSnkk59/3pDGmhWtvk7wgeQcOuVve4Z0mD17SV9OqYf6V58JRr8SRr+ +xbdODD/oR8clGn+kZkvDwjhZ46br/ejz3g02w/nS0MRLRpftqPPTR9LTu1Ia +7q/q2jLP6kcFDx1jrvRIw5jr+T9qiX3o0g5j7h0ZGViauaZ9P3We637BCo+7 +JgPXZ3LEuh27Edu/fZL/pgxUlE1Kp5p0oxGHZ3bOfjLwa6L9u8vWbkRTYKmt +C5QB1dil7mmS3Ug2kigsjJQB/KJQ/35BFzIJUBjqTpeBq9pMjQuyXSjHaYWR +er8MxD5P44YVdKBw1WUCWUeWwdZzgoNpNW0oJPpU6XFCFu6uMs+9Y1CPrMJt +qhb3ysJIenYbyyEf8fSTJuPy5KBkdHzYkf8j7uzeeakwYDm4ml2I+PC4Fj/f +tk6u8vgK2H3URLZK5w9+e/u8uNNaecgPnjhUbN+F2VttfG9ryYNXS47g9Lku +rD6mP5qwXh78dq/ZtzKgC792YPz8qycPHB8X88Nvu3Ay+hBlZSAPt01lNslN +duHEySEFYzt58FX1ltr5sBtHu7lqbAiVh/cT6GHSux7q/nE4zixcHlw1Aqw2 +5ffgZa1bxLwi5SFDsP5Qbm0PjtonMvIuVh5owuyI2LEe/Ejl9UfV1/KgZ84x +zdTrxSHtvVuXF8nD2clJV1TQiwOOnNjPPy4P7IqcUuev1P3nYKv1SZ48bNb7 +pOT7qw/nGB5xL52Wh7+/DL/c6+3DI9v2hN7nU4A2g0DXE4v6sfUqtQZJMQWY +67x9Gxn1Y+2JEQdlNQVwPC6vHlLVj/9E+V7ZfVwBVug9q9n5dQBPhk3ff+mo +APVbF9FF6wcwI8g7dpGzAmzZ94BW3DGADW+dyq90V4ALub928uYHcIbLPiHz +awrw9r1K2iXq/ha4WSLsVKQCeO19vKcmeRBvaH32KqBSASLqrtQ/usTGYhrO +vNQaBWiP8B9i+LMx20djT2OdAlTuYO/xDWbjRKUvXarNClBrefKBygs2Zpyp +V/jeowBVFdYvY36w8dQ1/v1CNAK0O4aUlVU5uC/plFc0nYB9qOqznzYH/6r6 +9liDn4BcF0u52q0cnE6E9JkLEbBbpUF7wyEOPl28/M7LxQR41N2YYl3m4CYR +3YK9ywj45+UcePcrB5foPO5rlSVAL71QoZC6T2fYzCz1XE7AV9pZxf4GDg5J +LbR9rEDAsax5i/l+Dt5rdnCmfyUBezMJ7n5RLv4c7bzxvjYBq3cK8exNuPhF +Ubmtgg4BbSVvqt0tuDicrXHnwwbq/57+znOh7v9nt4/Xt2wioNtUqGbVWS5W +7bjlpY4I6FFlbch9yMVRq2PeVu4nwOtREde8jIvHRg2S/A4QkLhvh0pJNRcf +zBt5oneQgHdshXr5Bi4WMtv3IMmUgIKZ4PMPurn4/LXJ09ctCVg2VaZvQSdx +jUGSw/pjBDx1cA6SWEhidfFDVv3WBFwe0GVlLiFxV1Ky4RF7Apbc5ZfOkiOx +afVR1bVOBFgj909vdUj87jE/0elMQOj7lT/TNpN4kWOq9OPTBGzJoi+LAxLn +84QWCLoTYHmhjb7BiMSaipndrd4EnIjt6DjgQOLF5xkJD3wJ4FbHu2sFktgZ +5Ufv9CcgxbVP+OtDEhctcg3j3SYg/XN18M7/SHzladEtx3sEnC5zMeDFkLi/ +1Mt+awgBwd3jS4zfkFg/TN5iJJQAmy5u5Or3JI63/n4w+T8CBrxkhjkfSGwx +zEKMSII6Py1YtO4LiUtka1ewYwn40GF+J76MxIrd15jP4wg4V26zp7CcxNdT +VUUtnhEQ1H+iuKKKxDr6N2eKEgno1Y/qj6knccgS9bHLLwiIMb8TZN9A4sHG +hkHNZALeG452iTaT+LmbZktMCgGLp/xfKLaReG5jy49DbwlQ5g4vDmwnsSVf +wPcFqQRMrHdXaO4ksVjkn6xz6QRUt/7dodNHYtfjgWmrMwgIEEg23j5A4jI1 +3VdtHwn4vIigr2OT2Cc/KGp/FlWP8s1DNSSJB37nh09mE8ATv2F6fpjE5tOj +IS9zCJjlF6zgHyVxgYxK0JE8An4OTedcHaP81rW6x59P5S3dUvn3OIkjzYJu +pxUQ8G3RSrrqBIn5PPNv2RURsCjG29SaR2K3h6PXRb8SkDPiLn3l/++vU1Zd ++VJCAMt/38FbUyTe9c3ygksZAZqvD0x6TlP56HngJf2dAEZyFcNohsSyAvnu +X8spP1+tf7Z0lsS3WaOnz1USsKB4JDaH4qHtq5xY1VSexkOFzeZIbG1teaK6 +hoCEVS97flBcevmB3fUflL6rG9dtnSexdiQ+plZPQOCX5sGHFMdmjBxt+klA +pJ83o5zihT9WHg5oIGBa8mrKEMXepIXJhiYCMvrr3v//fXXb4gdGnc0EpLp6 +K/Mo3rcG7w1tJaCCPC7UTHHmnhF99IeAP+/TzJMoZp1cuYPTRkB0412mFcUP +fC22xbQTcOPK8l08qr6JuPt6hp0EvA5Pa/Oh2CE3b8NEF1Xv0tjBIWp9Vc3D +65J6CDiat8tpP8V6PGUNsz6qP2xkzYIpfRKZFmvoAwQI/5eUmkPpJ7b+/qrU +QQJmuJev11H6XjXJU7ThUHnr35JbR+nf4zYsL0JS+e2M88il/Dl0X1kua4iA +sZWnH4VQ/uUkH5V2GiHA6a+75oF/JP6vM3dp0Tg1L+dLi3ypPMzRhkU8Jwj4 +vZORP03l5bS88kKFSUqvL4E6tkMkBstA2tUZAuBPeGAblbeUC7kzqnNUvXfi +3OeoPEqFD/F+zRMgal9YLdRPYk6V+bA2Pws0TTlL6rtIHK2v1DGwiAUztx6n +2LeQWNDB/E+UCAuMWj49L28k8Vmfe80GoizwX1esRPwi8Z5s8sdzMRZ09W8v +v11D4jHNnCIraRZwXx7r21VMYrsDlKfLWFAsJes0nU/i76cVczJlWeCwPOzm +k1yq35PuZkjIsyCNuSMoJpPEB+SOJH1XZoFrqujhoJckjurSyD+2igXu/IHL +GhKo+fZ2YQtbhQWtbM450XgSX4McsaVqLGBXFQ+hKBK/Oal0zWwdCw59/mCc +E0BinsZsRJc2C4pU5edP+1Hzhvcr7bwOC/Q0zS2EfEjcEhjYG7mRBSdL+MX4 +L5BY+P2waes2FiSH5nUwTlD9eLnczQ2x4CXfG5XVttR82Jl0dw5YEP1GX32N +JZWHnxZ5hD5V767SmyPG1DycwqtP7mOBt3dd6hM9Kv/6D2lccxZcHMqWsBIh +scQSZzkfCxbMlki2bhEksW3DDl0xKxbwBaTECM9z8T+X8TPaNiwYkmpY7DHC +xauCrRsunGCB1AIn5cONXOzftObdvAcLmpxaP4fFc/EO99Jj4vdYYPN7hxVN +iYunGvsNigMpvzozntYu4+KMXYu1Lz6geFPfmiAx6veWHVr4O5iqd8p2Q9Es +By8ubs5IjmDB4MPntWrU/ti4jCsKiSzQaNtjNn6bg89+ZeS7YxasSV4h8LSO +jddobUxhFbDg1OnG4yWlbNwZbRlRX8gCyTVouukLG5uffeq6uYQFIrH3+IsS +2HirnOoyoUoWcKKTbGO92Hih5xav2GYWsJ6ZMa4uZuO45Q7KFeMs8BweVFu+ +bhBvXq+m4TDBgjijZy/SlQZxveHYRh6PBUvDqpdukhrECy/e2a88w4Kx5YHV +S6cH8Nna117X+BShr8x7bLRoAMOd0Xz1pYqwR23gQoTpAO4g/W2CVBXhF90u +xu9EP1YuehlhfEwRXPo1vi0z78VV6rzEVmtFiJ/S6F+8uxdfitj74bStIhw2 +fsAbXt+Ly136q+8cV4Q1JoVLwsR7sZeY2iLspAjG0u+2qlX0YGzz7qqmtyLc +VA799X17D7biZdiLBSlCxYC5l7BsNw5ZW7jmR54i3Nv7Po2W0oFPjQrUfluj +BGa9J071xjdhh7QR4l6wErwt5n6yNS/Hrr5mM/tClSAxsPT1+b7v+LxZRsPi +/5TAoaqh4eKV7/ju+PmHIRFKUKF5WAc9/Ybf6U1OR8YqwTUraf3OrlI8WTD/ +60WKEsip/rYsdy/GIT8WBxWXKkFzuU5VNzcbRye4Od/5pgRBzWdOrl2ajRO8 +q3btLVeCokuRf+w1s3CmVMhUeZUS7FAkVz/0+IRbrSSd634qgW9RniiT/IBV +Opft6uhUou7vpZO/fr3CWhlX5BO7leDYzuTH/sxkvPl2y+TJXiVwKWp6pnD4 +BTZSiX3fP6AEf0uHzJVqn2OvM4T88LASWAaUhS55FImvbb01mT6qBJ/IN+iB +eDi+LdpR7z2uBOrCFzymgkJwVGrCfR5PCVZ7sWxOifrh5zcFnLKnlODFkaiU +xYsv4ZRDJ3dem1GCi7LLl3lPncAZiiUrts8pQYCdj+ItAxOUN7pqcn5eCRL2 +pl6+SHih/wGO4Pr3 + "]]}, + Annotation[#, "Charting`Private`Tag$4085#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVmHk4VF8Yx6WiRGaQipmxjLUskZSlzmmzpRSRiopkS4qiiDYipCxZIiFE +lCRSyLFmzb4TsgzGzFzGTvjd3z8zz+c59zn3Pe/3+5733CNhfdP4GicHB8dR +/Of//7gH1lwqNkGHWqteUWTfdaPyFnHDc+IOQLzKCGto6EZrv4p8xMU9QFRR +8wH7lW4UVxwstlE8AByX+V1ha96DnA663ZgXew24RSh50Xy9qGXZ/tWk2Acg +Er49Mu/OH8TdMyjLFPsBTgR2HgwRGUCJNfEuE2LVoInfKuZy4SCaic7d1f+8 +GiB14egbzYNIx652qHmxGlRREPvG2CBirJ83zW+pATaiex8eFxpCBw6e0gzw +rwPC3qUHTl0fQo2f/3HKYg3AvCbp1nfhYfSwRsFA5XILmAE0aV/rEZT2JU8m +I6IFdArLvkfuI6g5+sh66boWoJl1/vVE4AiSsjMv3KHRCqpY8m+Fvo6gmvW+ +ShyCbcDhOU/QB04aEj7YI9Dwqx38vrrdpvktDWV+DuhxUuoG5EfP+IpqRhFd +gP7cwKob3Nf7Ev69ZxTJuhscknvVDXxiEHcyYxQlaG9JHFrsBn472l+c3DqG +wqqf216o6AFo3/rJ8dNjyH3o5ZSuxR9g+LK5/VDLGIrfUutDPD4A3kjJrhDr +xtGhg/ctHl0aAAd0nHWFe8ZRr/PufdjdAfD3UqQ2D30c7WgOotWlDwCpT7Xr +SrjpKDTaUP8Z4S9QftM3ZX+Ejnyk67eu9fwFzFc+F2Ny6MgONL1muA4ByptJ +4ePPJxDHu7n8nqAhsJp4JZIRPYGiN5B6a5KHQLDazbM+KROoqtqW8qF9CMi9 +7r/xoGgCyZ399+6a5jCoPf7iSDo2gcbsZT/2rRsBbildC02nGMgxzLuoMYQG +AiRvjSpzMBHn7Lt+9IEGTvyK3vuFh4lizlVxfC6lgTfT/X/EtzFRDUnwaPAM +Ddyz9NpbK89Eu1PTKvXNR4FpgazaCWMmYhS0NJaKjYG7/+4fmI5nIucR+aGc +zHFgM2g5la/IQgOXujaVVI+D+BCTrkx1FjLpfKb0e3gcyAR77w4GLHSgdtRj +RIQOfHllZjedYaH1X1IIwv50EMJQvvXPlYWivSQO3b08AR7pHan9nc1CPHON +V308J4B3rPCja/ks5H3zUcDLiAnQwc11eLSEhayt+1tTaydAk0RzU1ojCyno +xV3v3M8A0qvNb6hMFioR3Plag8AEUUvVHtMSGFILrio6vpsJ6ib3vJSXw9B7 +rnvDZ3SY4HCTrrW+EoaeL7YrO3oxgcKo0B4dTQyZ9b/6FTPGBNNXI6b3nsFQ +lfkxxvv1LKDu5PYwzwxDWs3TxK8UFrBYLk2VssCQeIWxZe1ZFrBhqRUV2GKI +nk6YWS5mgdqWzte9nhiykCreuamXBbq7diZ8fIihhribQGieBRKTnkrb+mIo +J6Q+UEERA5eVbiREBGPooftzCcvXGJDZjS2PvMUQG9PSdcjBwFLfs4R1SRiy +cZhwcmvAwKUb/BlcqRiSVpLu/cU5CWC0O60uE0M8Er6y/QcmAbHgULr+Tzx+ +7VDlB8cnwWvV8d/uxRjyM3+7n2w8CchiH5VDyjDEGfJd9+L1SfCS0ZjiX42h +4owKo6W7kyDA3OvbtToMPahsPvfadxKMnWlZUW7A0NIqw64jbhIgh7fyAa0Y ++i6ydNM9fRJIhRXx7OjAkLs6971teZOgzXJQNLwLj/+GxDOTxkmg8kyo6mQf +hiZ6TdMaOKdATNi0WBsNQ+kL1lnO/FPg6UK6ecUYhuyFbn3nI00BN1nbb4l0 +DA2fCKw6sW8KbAo17qWwMPTOLqqRfngKvN9s/g5hGLrik9wZcAqfr2pzgOEU +hnrzi8Yq7aaAduS7nF0zGIppr520vTMFjjUUz9+fxZA5u3Nh4+MpcCd58dyP +OQwJb6VxpARPAYfX/q2D8xhqlZ/edCxmCnCHfXFaWMBQ2HEO4tD7KTDWXCO2 +tIih01Z8O598nQJ16/YyR5cwtNVbREKieAosSZu1lixjqC5aVr64Do8n7WOr +/z8MBeaoqVzumgIE0wKmxgqG9BoPa6yOTIEj5wXFOnHmYpw6HMeeAgPHje2t +VzFUzm2hr702BZK2SlZ34vyE6nCmZwsbePFoHNZawxAE7uc9d7BBzfT5xgCc +Vy/4WO2UZoP7Yybu5TgXuoc4fFdhA0VHzr0TOHuGxbmcO8QG8NJJrlWcD2Sm +e8wZsAGTT37yH85z1XmPI86xgY5M5OQozjkj5QFqNmxw4HsiN8LZdV1zaMst +NvA7cG3fE5z3kPtfu3qzQfZDLk8VnFkHGInEQDbAqvPa6vB4P51d/JAVyQYL +3/L0zuLsdIsr2yiJDSb1z7RU4uvd9Vwwn/WZDVTGe9xkcR5LFS8NLmQDoUsF +e27j+XpfplijUM0Gea2XN2Tg+bTp12yubWODLz3Hp+rxfEsu63Y7DrJB7dW5 ++T5cj7eq1vS0ZTawTdphWobrZ3HqJlt30zQ4KNX9MQrXV8TRa4kmNA0I3zdK +mOP6RyZG8kgrTYOOxlKrODaGzv5MEijXnAY54tx7JHH/CHRliVzVnQand4hS +wnF/vSDU7kq8Mg0+JcVbajAw9GM/OfeU8zSg3Kq7qvu/Py/dBP/uT4NsHant +h3D/an0SPHsuahpMLJwPGhnCkG3rtb4NKdOgeMDGKPIv7qflPPvsbJzHZn4p +9+Pr17fw5qufBmcqfnSQujEk5JLJXdAzDdx6k+7cwusJRHOE2Y9PgwOR3nUf +8XqLpCW/L9swAxRDpHP76zF01IfZ4KE1A/pec6UqlWLIOR1ckNWfAZkZueeq +inD/N4UOt5rNgMkj59sMCjA0Kaa+qOw6Awx6Sg/z5OD5K3wgSUubAVmHvu26 +nYyh6qHGj+HfZsAnA/kXJgkYmuGh7j9cPgPCi5pbSW8wdOJ85Yk3/TNAVWD3 +DsdwDC3M8rsZC8+CKzlnmrBHGKKSrdfWqLMgdsUqbbsXhk4dywn4pDILhh9S +veXuYiglzPztppOzYPf9/Uobb2DIWDmxsshnFmS1FW7POIf7x15VZPfULDhH +53r2Ed+vO1/6JneuzoJAtRB+W0kMbchrV/LjnQO93OfaN5EwdGHj/aN/ZefA +TRc9NR5+DG16V+YUdWkOaPLxfP83jfeLnrNofd0csH3fpZvyA+8vsX9vuHTh +40HrlHbi/Sb7gjOpnzYHjndudLubjvenbn+P/HXzQC9yr9Z0DAsld+bvddk/ +DxJ0bI+MebIQrU08re/dPOC1ngG/8X73IuKTmWHWPFD3luoex/uhuqnmxvyf +8+DugqHqlBQL+beaWEd0zoPt0737igVYSK7Fj2S4dQHs/RV56AqTiRwbGSE/ +PBaAZqiaQuZbJhII8QCy/gtAJrmp0OMVE+UbcbFevVoAfR737+4JZKItDWIn +bn1eAK9c1/wvuzHRx9/GG2VHFsBNyyPD5QZMxKr57vHq9CK4En1G8esUA7lU ++FrflF0CuUO+QmZ7GIgyrMM1t3cJDJpPcLtKMVAt5+Z0L7gEJNsaCrx2MJA0 +DJ4KOL8Els47P7nEwUBd+RGPkoOWgEhXw4WzDRPocNb7t13YElCrX+jkd5xA +xNiq7qPfl4EcKVllJYyOin4EPqgpXwZ1HGMqHE/p6HqnoeSZpmXgVKo3xXan +o4ptTQ6X6MtA7N2fhtQLdOQR0rVwj/QPLBePrxlJ0NHfp3ThzEf/wDYf/7HE +jHH05RavyQ79FdBYwl0alDOG6mIEPT6ZrQCefReHDiWNIVq5SPwRmxUAK82P +DoSOIZGd8hNOD1eA6uStKabzGPItOe5TkrsClB7k2KnLjSEzgYdfHSVXQYbn +INsvahQtfZ0S/Lm8CmScW4qfONBQ4v3r9D3nOOBpYpMm688QehL/78wMYx38 +u3d3ZJHQH8TRMgALPddDl5uqSbX+TUjmju29s7s2QuMve24ZE7+g4dkosy0/ +uaCc3riBUkQxMBhx9A5z2QTpfj949/i3gVPDIbspFB5Yf61NnKtmANTtHm61 +kOKBMRGB7cf6B8CJ2/sfxO7igdz6V495zAwAPc6+xh37eSDpa7tQGeUvOCK+ +213wNA/MJz8X73L9C/ZZVBRvesIDK854fFu/cxCQWhdNp0d44IfCzKYliyFA +L7N+VPVpC6z1XjxbWTwCxEI7HV/kbIG5hrnab1tHwNlLp0zPFmyBAs8DH1wb +GwFFCxq7Bqq2wN3GHR3l/DQQpkhsnR/aAiWP1ZlVWNKAVhSSlRXhhTVdyhdK +5mjguSOp4akfL3SdcbivQxoDJfvDfpwI5oX/HvBv3ao0BuY2bEomvuKFmhPZ +J8rBGLgSP30vLpEXWljsj/hnPQbUWmskcwt5IXPpN0ds2hj4c9DDfZjNC2Ue +G1zx3TMOlIjt5KOX+aBhio5Ariod0IJpTyKu8cGnYaZA9TAdxPHMj45e54Pf +FbS5443ogHfDjuzn9/hgT0zYUV0nOqDPnddpD+WDv4K+3mlKpoOU3j/ODuV8 +sGyXOl+FwAQgpY2gl/JbYarJ1r/MvxOgVWpOalB5K3S0myk6yZoAQYlcgWrq +W+FISsHuN0sTYClG9mzXka3wyn6t8A2CDNAZ7DAmabEVzpc9ruA8ygDht5mE +by+2QicJk/2Z8QzAA2ateqe3QtaNkaiXJ5jg3mG5Td+WtsJ1gWmWQWZMQDt6 +MfPlOn4oUZqa4GLFBKV6JUtH+Pmh54rrgxV3JvA0Dg7/sIsfnn5v+ZOYyAQT +16Qr3K34Id+xzDjpKSa4YG9+/bQ9PyQ0M2IqlpigyjGIuOsmP0xjrLwx2sAC +yTenLP948UO76U/hEtvxc6vHz7mj0fxQ4aBDUKEWC9Q9N5UjNvBDs+mk7qpH +LKD58lk9vY0flmvsWccVwAJpoQV3ynv5oYfVkXKFUBbwjZQouUvnh/4Z4pv2 +J7IApXFOAeMkQJ6ce0MH8XNve1dphSmFAHeFmG8gLLEA38Xe6FIJAjQ1FzcY +5sDAsd7Z68rSBLj5c2BrIjcGsvvkBDYrEOCmDeFJnUIYeDH04lKhBgEukhWT +1ZQwoMu8MC9pSoC+Jfpq7yww8FbIp+WhOQHqKK4kYFYYmNHK+Nx7kQCv7f/e +L2OHgYTAZbtIawKsEI0sN3bBz82ybzo33yLAmJrIqnhfDJw2Ks+xvU2AS1LI +SisAA+/dGSFl7gR4yE7+S3EwBkwqtPW9vQlww5ctts8iMfDR+s+PyUA83gbX +5i2pGOAM3Bh58gUBXklLrZxJx4D5F0XX9FAC5P6ld7EyEwMbOR7ssokmwIS9 +RBP5b/g5PY4S25FCgHu1l7UHyjCQU65zV+0DAWqzrv7ZVokBHoazSehHAmQE +nNu0rwYDeZpoy4mvBHhBgjSr3IgBQudlr6JiAnzYqD25vQcDtmv+5qLlBLhc ++Dn99R8MFMpkqd2rJMDADeX9GwYw4ODGwVSpJ0BhAZ6vUcMYKH4jV/2iiQD9 +LDlOIRoGhMtPp0y0EqA6UcKycQwDpQKJlik9BCj9b2dzJgMDOzSrNTj7CfC2 +qvo+LxYGnK2mtl0eJEDepg3ceycxUP5sJ7tghABtco10WqYwIJp1uH7HOAEO +ZU1OWUxjwLXDId2NQYC5AU2bGmcwULUa6teMEWDI8kSAwhwG7pwcPPR8jgD3 +OGyoTFzAQM0dHtHxRQI8n3n8cf4iBsTfqM4fXyHAF+K67wqXMOBedqHlHQcR +Kpwxlk9bxsBv+pPPa+uJsKqmeJv3PwxICWQEWXATYQrxn63WCgY8NVrsfvAQ +ITnZmzSEc+OV5aPCW4lw/XL9vjur+HfVM6r4bSIRTgcEZLNw9vp84l+DEBG+ +RWZhxmsYaG6/3amwA3+ea7I1Hme51dicAFEiTC6leLbj/FC6PIRGIcJMs8LH +czi3GzKcjkoSIUEse2INZ4U7QvoJ0kT44s5iHhvnJ7Ha0ityRFieEUurx7mz +1GbdBQUilNyWffcVzpOHu0W8lYlw16XvIfo4c5cYqSWoEuGI06VlOh4fBVac +LNtHhHnOfXn3cFZHmna0A0Q4nvHgFxtf36lDWY82axPhU/9Q2fM4X/spHaMA +iJD60K0nA8+Pl3bsV6MjRJi6K2KQjufvVQHht+txItyibXdQGOePmn60CD0i +5H3ozFDE8132Y3nt+wki/NupMamC69F9wGVn7yki7NW10ZfE9WLn0VTXzhCh +wNCrhVVcz837LQwlTYmQ1fVgtXIW1+9b07Xj5rg+t/9e9Mb1N8opjA66RISR +kgbin3C/2O5Vzc60wuPV2BIgi/vpQXZqbZMNERrP5Ru+wP32MStsdft1IuQ5 ++3dMfAL3m/KmHVrORHg58XaZ4TgGejK9VS65ECGFsXvFZhSvn0/2Nsl3idA3 +pSbswhAGJBX6vCs9iVDfTHFq/18MaGSYRNG9iVDJP/Prun4M2H84VLPHlwjD +4gMcL3Rj4FeK0J6fIUQI1LKrxPF665MK1B8IJ8LEpbJbVr8xMJu0Zr0+CvfL +P9mAF3h9Sr2jR+jHEaHpuRFiZjmu79vi5bYPREgU//2N8zsGYsjq2xY/4n44 +nCOUin+3f3mToUTKwscvUtn7v2BgICbSyvobEZ6/s0NNDN8/DkU5VbJKiTD7 +oLvAhlgMmAkPDhB/EaGljFU6bxQGbkScW1KrxuO5ubl1XTgG3oQfUbzfQIRi +ciG0L4H4/vZyRzh3L/6+iQ1n5D0wkPus/JL4LBHWvSSn3jXGQJpB7Q7/BSI8 +RzXf1W2Ix8fb3MxcJkJOXfYWGV0MPArp1yngFIAcj1uXPLQwYBi9pGRGEIC0 +qPpVASoGBlP3rAXtFoDf3TeE8rFYoM1h/w+2kgBcnKzg3TTKAlW7D90+ryoA +Zfqf7mH0s8CnzydGZTQEoFNYgq9LEwvcy7NtKNERgEFlUtO3vrLA1so38fNW +AnDL2rGfurdZYF1A0vlL1/D5zJjH+h1ZYMYgXbDCXgDy9Z6vv2LNAl31ef5h +NwWgpob4msQZvJ+1N99U9BaApZbwWZwi3q9om+DVaAGoIh8/8WCQCWw3ug3U +1wtAdx61ClFtJhARq+5YbhKArlY/+n6qMEH9AXKDXBu+nm3hoSdlmUDdqeLn +kx4B6Pss4c8+ASbgatkWqz4mAC8M7avZNcoAKQnfTN+uE4Qe2knTGcEMMKy1 +UHNDTRB2jJKaDv6eANGmhqUx+wVhwoc32QnFE8DwZsKPSk1BuOC+XZj9dQLk +vNNLkzgsCLV8OX2uxEwA382vn7adFIQ36/Z2ONlOAKkODXjQThBKnNyQaLBM +B1dd7+fyxgjCx1ICX8x20IG6al+ufJwgTO1avDS8mQ542PCbToIgFCyp1rFe +HgdZLlx5j94LwkBXk1GlvnHw71bo95lsQei938uGN2kcRN5MLeitFYT+nSEq +A/LjoNqppeTjiiAMSdspqKAwBpTtdtcbWgnBsYuvPT030kCfg9jNTzZCUOOd +13LH1Ah47iRI2GovBO+qSHZI942AcZflMw3OQrDHjd4e9m0EJHnVtp3xEoJ8 +o+d8v9qOgO1h1/+YRQlBD5/2naTyYbBWmMG48lsIMirTPCdvD4EGAYUtbhrb +4OF+rZ7F9AFQkPkkVmG9MJxj2RrHrrWB++t2na77IwyPzqjYRfiXAJ5eTz3n +nO0whnDwF/1eNhp5L/Eq3msHPHF5qUSc1Yheye3c8MN0J5RltC4MB/xBITG2 +lVbiIrh/wjI3EYbRXfcnt72oIjAuY8/li9RhdMn4rViUjAhsaVljJaoPIwWe +9rt1CiIwSbHGm8dyGFV7HJfbryECtbe3COl9GEac56UCeI1FoMfpY7LXwQhy +2z5okOcjApujPlhxWtOQxfTKXJOfCMximvEW3KahYw07kxgBIrD2320V26c0 +JOB/ZlkiRARyq7sVh6fRUOZcccbzNyLw25331QYsGhpri+e1zhWBbZJeNmJ3 +R9GFV5b1vKMi8J7glInogzFE+sojep0uAt9dTFNyfDmG+pvy7KqZIrDf6e/b +1IQxZMMvsM5vRgRSK1e3skrHkHPgr71r60Qhq/x9dyrXOHrySPn1FEkUKgVX +ZpYHjqMPTuts2o1FYbeo0WVj/PvMKSgzS81MFNpOySpbvqIjpfSLK2HnRSGb +ikmbJtFR9mhupNEVUajeMmDJW0JHhdaO1VU3RKGMt2NT5DIdNZq3KBU8E4Vz +pRrlAjcm0MKxlMX4IlE4ciouxOowA3kVxPuUl4jCpe5zO2VOMhCHagzfeLko +7L2RLt9lzkDcYi8lVGtFoZowKOe5xUDCi/f0yztEoZdx9M7YOAba+8nw9dik +KJw00VVwnGWgb1RdKt+MKOTUjBsS5GAizZjDn1TmRSHBZntOBg8THfFXL/Fc +EYVHYy/6pYgx0Wkr8XFeHhJ83FShVaLHRM7bZg6oUEnQKODH9fAoJmIHsUpN +ZUiwImu2UDSRidw4xw095UmQv5xVFprORF7YnytlyiR46PmvHp2fTBRUXfnM +VJsE8wJOhbX+ZaI079hOD1MS1Mndrukhy0JDI0fulfqT4A5loarSZBY6El// +blcQCcYXUYNDP7JQgvmF32EvSLBH5RPRIIeFLtW6SF6NIMG/Ee1H7pWxUHdW +Qt36JBL82ZT+sWqAhZrvr4ofLyLBgsUG3n3bMaSyL/DEpxISzBRuN4wjYyiE +tc19WwUJqu89u8SiYuiUlWLtSC0JRua7Bp3ag6EaHQs3vy4SLIwb3byqi6FS +Yn515QwJKuzcXityG0MStcdnlBdIsOOF+8D2exh65NtEiV4mwaRtGRKrXhg6 +ND92256TDLlsnHb6+WEov3c7ZTOBDPVo/Q98ojG0MzJJz0WQDC/Q14dXv8HQ +PSPl213CZPjE69L3hQQMqZfqVH0gk2FncdIugQ8Yyk51czXYTYY5EYEWKt8x +RLRaF5etRIaVN3k+oAIM3RIJrhRRJcOGfwaT6ghDSsHJpIkD+HyHCNcGKjAU +rLNH10SbDNuKUbBANYYYawUuBYAMWa+epirWYSjdteVXkA4Z/iyxSqE0Y2iz +wuWpaX0y1Poh93SmFUP2I3RRi5NkqHzU7uTXDgzJmHO6KJwlQ1k/m5cTvRh6 +d1BF9LcVGUqXF6bo0PB8neLxWbYhw/yh8x5wDEODl4fo8vZkaHDdkCJDxxD1 +SUS+nzMZ8uS7dOQwMXQs3Fky14UM+1xsxi0xDNkk6wYO3SHDq3cUqtiTGEr+ +tXge3idD+VK9sf5pDJV3NJc4PyDDA/vKZA/MYmh4LEM+7jEZlh29vMdrDkMb +lnxDa33JsHjeaN3HeQxJbbm0uOhPhnSptteVC/j7SPut5ILIUNtBa7F+EX+f +IqHa7AUZXlbspZQuYcj30Piep6FkKJhC5klcxlCKUWn011dkGNngmn/9H4Z+ +XYnlGIwiw/m7F5UlVzBEc7ljT4glQ4d9Nvbl/99P+5xsPPSWDIOvy1wzXsXz +9UrmwI1EXD8DPen/73t1UtbiY5Px+Ru90v6/D7b91sldk0qGSxU+rP/vi/0q +v9xcSMfnL5Of//8++X1nYIdMJj6upFc6hvOv8avA9AsZOmlUGK3gTFvSTvXJ +IcPDQ+Hx/zMXrzB/dh4Zri5+/TKOsywZcx/IJ8MfO1T9SnDWU6rq21pEhkJp +suSnONuDRJ2DJWS4qy/fXQ3nZ6c9M6+Xk+G9Ikp4Ax5vmpWJcEwlGRbuDHc1 +w7nKVeFBVQ0Z1gfbbKv+/z7aZyNt7jcZ3nrKuP///fSmiL6T0k1kSDwQ+t4F +z5fc+7xck1YyDPtQEZGK51MvL4T8pANfz4fNBtV4vu2rHJ5mdZOhTNt4WTuu +xwe6qCnfXzI0EpriycX1q1meKdQaJsPxcy5dT3F96bz1Uo6jZPhRCt46guu/ +S/nRzC8m7je7TUsP2BgygOctZifJMO9iCWsV94/jGdVy6gwZSrTofnbE/ZV+ +ezj80RIZcvdXRW1k4PP7/lzOXCHDCMXxEjXcn/SIyKt/OCjwgqtkoRHu393f +9fZqclMg4XeetP4whgyrJWLteSiwoCw+SnYQQ07dS5xRfBToeut731Q/hj7+ ++9g8LUiBOhvF2fo9GKrj89OU3E6Bq91XSjo68fqjXH53WoQCt8Fv18+0Y0jh +MNH1kzgFninbar6pCUOfnroR7RQp8DXxNPLF65ehbfnk6R4KtHl9Tv1xKf78 +zLHppL0U2CurdckRr/d0a6G2AQ0KzDWVruL8gesFvkZf0KHA/oo1LcMMXJ+5 +mM0e+hSYQeZ3yUzF/ZD5xDPKkAJTTunbrSTh/iIZW7QaU+DvXccSrPD9KHlx +UuzUZQrUmt3id/Q5Xl9ZnSFO1hR49mTnRt5neP3aF68LukaBH8W3XCjxweu/ +/eVQ5XUKfJIvFsj2xFD8V6XUw/co8DaYOnvTHkMxN5yU9oVSYFxWgUgbwFC3 +1Nl4k1d4vro99zpp4vthrxbBNYoCC/mbjSbVMBRtsIWdGUeB54+mJyB5DEXI +pufKpVNg94Dq+vsC+P79d1SbVEaBT7vG2Xb4ft8Y3fBJ8xcFelbeYDV2sRD/ +6TzK+WoK7Ck8LifbwkIvivw4Ihso8LOdil1sBQs9j5Uu5++lQJNhVb+kDyzk +b3r1xPpZCtx6Y55f3ZmF3hn1WlxboMBz9X/ZtddYqFDf1LlyGdd7Wme7oSUL +sQ/qhgZxisE7fYPaWwxZyEJmd4cgQQwmxN788FSOhVTn2dZSu8Xg/mt8Gbf+ +MFFf9BPP41ZiMCU366XRfiZaDFsOSrURgw7S/K80FZhIKPhO3GZ7Megzvy+f +IMFE+o9ti387i0GLzt6gB3h/znEw4DLzEoOPXzbJWvUyUKCmQJhtlBgU+7b6 +XN+Lgfb1Jn7w/42Pk+yuDn+cQAQl+4XPjWLwCPnpXcWECcR4qKTb2SIGtdw4 +Ta+FT6BkasGwXLcYzD287nmixwQSut4qVkMTg8evZNUaHp9AS17rT3BxiMPT +i99L3LroqGuLeoneTnG4ziVX6eTsOIqWj/30+4Q4/MLUbiasjKKZaZ0Un5Pi +MF35uiqdPoqMithvNIzEYZbiRYHszlHEZWLwPMVYHD64PuDHlzOK3LwWHb3P +i0N5mfH8GYdRZNxwTk7RThyek43RCmmmIV43oaTnT8Th/NmMYMuoEfSwODj6 +xA9xSOtfqvNnD6KToqYpNVISUJKL2qZ/uhsddq68SAyQgFfJD/RU6HUonmQt +VTcrAU0/nhEqLXqJpMpSI09dlIQfG19OWh+tBCGKpbuaiyShgdZrDYvQDmA7 +vaGpehcVdoRtNyEU/wWX0o/VWyhQ4cDzmJK11r/AzMq3FlOkQsvjBKnh8b9A +p2H9r20qVNh2cVtokOAgkMngLLDaT4V6v5rfmdgOghFrjpTFo1To+c7L/efm +IWDTvHxP3pIKW+wdh+J1h4H1F7Z4wEsqVOzubFh4QwNOT0z+GYRS4ZmEWy2t +WTTgZpLTwRtOhZ8ycozjy2ng2azbi5BIKuQjq/qvTdBApsbiclQcFfK8CxGb +0BgFiyVr7e8zqNAt8M68VfMoCGnmDS6vpEInnQAX+9kxEJN0w96vmgrvyTRb +znONg6Q79Uf1aqmQJMy94LpjHHwTDlmqrafCxDxdjj1a46D3gqB9SxsVnm1n +jqOH40B2aOfRwSEqvPu5MHH3RjrYk+NJSR6hwmsOezUfbqMDzac9i9dGqTC5 +5OfnImk6MJSNyxqnU2FOweQahw4duF4Xp0xNUeForGtX6FM68NJ+vJg9TYVp +DwpXj0TQwVO+wdY7s1Q4Qrr3tj+ZDqI/JwUtLFBh7k4xck8ZHbx7tMEufwnP +t6fYsEYLHWScuXbE6x8VcnwumPUZpIMcyV/kQ6v4fCQZnR9TdFA0LbO4tkaF +08qJ1V0cE+A/nS6ySw== + "]]}, + Annotation[#, "Charting`Private`Tag$4085#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-0.9999999990134366, 0.9999999999999791}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.8963754296247683`*^9, 3.8963754426608*^9}, + 3.898186570974169*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"babfb7c7-af03-4fda-9ce1-dac18dfd6b21"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes frecuencias", "Subsection", + CellChangeTimes->{{3.8981868120360413`*^9, + 3.898186817109716*^9}},ExpressionUUID->"b114e5cb-2d36-449a-8a94-\ +9c8ee0ce58a1"], + +Cell["La magnitud \[Omega]0 nos da la frecuencia de la oscilaci\[OAcute]n", \ +"Text", + CellChangeTimes->{{3.898186417401072*^9, + 3.8981864329443903`*^9}},ExpressionUUID->"66a59f3c-f765-4ac3-b9c8-\ +ec747eea23b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{"A", ",", "\[Omega]0", ",", "\[Delta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Omega]0", "->", " ", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Omega]0", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", " ", + RowBox[{"\[Omega]0", "->", " ", "3"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896375501396002*^9, 3.896375513740144*^9}, {3.898186437737795*^9, + 3.898186438841354*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"41edee6c-f3f7-4d4b-a7c2-e6426320961f"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVmXc8le8bx23HlsI5yDhHlDSlInVflJRoImUUQirqSyJUSkOZoaJESUOk +gaLUbSQNM0JG9jzjJnvl9/zOH+e83q9n3Nf9+Xyu+xlHw/nkXlcBPj4+D+rr +/7/3zzuLrDoStmnL3P8/BH2uUbfYr+6BLo2lM8convvyKURd/SxKnXUKa6BY +OubtK/GGSyhw7xrDpxTfL4hQE1a/jhrtjFc4U6xLjkTOuUeh62lZx8QobpFO ++jdTH4OWjBRyEv8RpPlEbO3U9C0kvfBljgrFJzb6eo6rJSCV5d9LQmcJyqpt +Sx3ZnIhiD3gtbJ8haOq4RfOQezJqmBT4uIjiB/zN18dNHyK9m9OpNtMEbSm/ +uWisPgXd+Fb/y2eKoL54s8IRj1Q0/zRr97lJgsKPzNoPTz9GM6FnFvhMEFQz +fTRuUC0NGcdWnmONEXSmVHUlef0cuaw30fwzQpBSbO0P7uYMFPHkluKVYYKc +dUCQ7f4SLa7b2HdnkCCB6YDKkaBXaMrzcKkgIai2zXrhiOlrFBQwN2bHJcg/ +QyLvb/0btFutdkd1P0HmMT0ifx9kobqU9T68XoJU/AuthjyykfIpPzLeTVDB +Zr9BMp2Dgpju7Mp2gkSbOrS5anloTIsjH9dAUEPBR19OXx76szedtqCOoOdP +4ovZr9+jhRu22gXXELTTe+ehgc35qGLGV0u1gqDbYu9v97pjFBOw6rJXEUHZ +fubePvQCdE+El7oHE5Q4sI4xHFSATPgj9TTyCfKqknP/a1qInoc4pVzJIUgu +8avAUH0RunrnIN+RpwRNS79NO2VUjHpG2789f0RQ18VHuwcfFCO7MFu5P8kE +vXU/n0Q8PqNP/eeWiMcTdFBvjSFvugRZCa7J8b9G0MPvyf+x1b4hk+7piNfO +BI3E5+i0hn9Dv/PWbbFxIGir+4/On5Pf0EN1MeOu/QRxBMet39d8R37Spqr5 +FgSt37jT8Pq1MtQp9vi3nT5BVS9nBLRJJdK4M7rwkABVLxJzlFpehTbcaze8 +O81DG7TiDK8dqUJGb1d3fxrhociRtOGA6iqUdWN49HMPD625+cvVOb0aOe+m +3fn8jYcufNc1X3WoBnXGOl25HcZDz16/00q/VYNi9fQHT4Tw0M94E8FFZTXI +fuYCWhbIQ5rutvl0g1rk0eH96PgxHvoueHk53/xf6BffAt02Mx5S2NgkV/ml +Diluf1vx4h8XZb683nRieSMKTlsnIWHPRQNyA+HmTo3o5Lumsc49XKR9xnzT +4rhGtOvcGofnZlz0wEjiYedkI4os7c6aW81FMd/C3Q6WNCG9yjkop3HRmc6o +ITP7FuRQPfRx8hUHJUv8CJln2oboH2Q/fRtmo00bA+2DHduQbzHH5VAvGzV7 +LdUnfm1oYDLQo7ORjeg/w3rKnreh/QfNs94WstHNeIvtobLtaI/yKo2wSDYK +WVQhPdfUjoTvPL/6V5ON3FF1Ase7E9GzeLljWwYQX8rY+6awTuS+buOb12sH +ULyQSvP31E7EMt1QaL94AH395qaaVteJbtUt3BwiMYAWW82kuBp2UbqfL5Or +7kd9R7Uz/vB3o+8z8iWbD/SjYzHnPlVF96AXSmffLXPsQ17dSzqzM/vRL89t +QyZGPajN8Tet8Fs/Sv+z/3Lp4h60ryF0eXlXPwpZlm5iJN+D1v/oPdutNIA8 +rATOjnG7keDrx7IK1wZQi4WOzcukbhQfpLHJ7xAbDXZEbEGzXahwPiPBQJaL +1IulP2582YnENS5rt64fRPP8M44JD7ShSNkfOg8PDyPdHS1PWNfqkHOTFRYs +G0OVK36ZFicVof9KLjuf1J5C94+iSg+rV/j1Kcl99O2zaCz6+uE/J6rww8Dj +Ayv384FOeOElcYUWfCl5Zs8Ihx8mnuebBf/pxLtX5v63dJgfvjwZ2TY+1IlV +C31uOk/yQ8N6A3AW7sLvOwaqqoQFoC9SqmO+bhf+u+j3rheqAtA1LySjy78L +O2fkWLrtFoCvTUPGq2W7sXGe1/aGLAE4ytLVXq7fg6XNdTxk3guA7cGcEimz +Htzc2B26tUAAyLmuoVbbHuw/Y/81u0wA6iv1v9oF9eBXaIfZzW4BcGk8Y/yq +qAerf9E2NVcUBLbagsXFFr2Yr6YN8gMEIbj2R9g2mz58uf/Tw4CLgrB/ecqj +Yvc+LMZ3X8AgVBCYD/+6LDvbh+WWHficc0sQ7jVFZZTd68OLrlWbvXwlCJ9r +9okYtPVh8w1FO1N6BOH50Jftn1z7ceyjR/ahe4Xggf4VxhKXAUx/f/Hj1gNC +cMg+YoOz9wBOrDqkKnxYCFiTb2JCLw7gJ7PKbRc9hWBHiFVOYvIAzt0f5xIY +KgT1F6sftjcO4GaJK8e8PglBjpn4cK0lG2uddvO30hGGHpKgpryIg5cZtu5L +XikMX75sC5RcxcFr+GxXDKwVhpVnJd04RhxsEr6958JmYSAhAT/8rDjYMVXX +Kt1eGM797RXPv8TBt2v/rhCIovZ39tYeaeLg+3ePS1jeEgYzuYdKP3o4OPVw +V8+de8JgaX1aN3qIg99wft1f9kwYnFtP3OwS4eIKoTyJA4XC0G9V/SxnJRcL +61/ofTksDNY++3yGg7lYcnq8aGpSGFLV4ren3eBiucJTSaZ8ItBip/7bIo6L +1S2drZskRSAhSFfS4SkXG7maFotoicDsiJDqwzIuPn1LItnBVgTixu+OvJnP +w12jd2wkPoqAQKp1T30sD6cY6/m0FIvAcGyLTMM9Hj4UURH18rsIqM+6TRY+ +4uFGTeFv+xpEwLswbHRvFg9X7/PekDgsAu7moqNHq3n402sL9WU6oiAactLh +sBjBQbO9RnMrReH20q0TkzIEG2wPOVC9ThRoy7P+BSkQnN2WF+NrKgqa1//b +gFgEP5fRFv50WBRYhvwjWRsIvuPJP7Dzjih0PI2IPXiUYKu8RBGNJFGokvte +E+pJsJzwetZwqigEJtzd8MCb4MhEL/s7b0Qh6oOhz40ggi//aKpoLReFH5ir +ahFFsImiH/t1rSicMytfVxxL8JyzHO1yE1WfuJ89K57ggKltxov7ReHlaHB+ +0gOCTy15m3VKiAaPHwdeuviK4OW+e6pMJGjgFG2aCtkEsws4nAVyNHjxZMP7 +vncEu9mytPLUaPBsq3Lu8CeCNVM/mYRp0WDBqp67NkUEd5ADhxyW0cBU8oF7 +SgnBDtei4/k3UNs77XJGfhCsVLM0p8aYBorBJaumKwhuUC2tfryNBgJW3MiB +amr+b2fFzW1o8O39XEdIPcHm3cfOxfxHA03m7fcP2gneeo6VscWfBnufRvt0 +dlLzlW9uHDtPgwoH1i+ZHoINTS3X24XToKRdLHzRAMFrW4TdpWJpkCp/8Y80 +h+DVvp9u4QQa3NteX9POJVjn8Yph1lMaXKmcn7JliGCtjX0adS9ocPfPXf/a +vwQzfz3YHZpNgywPE67lCMGqngcuGH6gxucXmHs1Ss1HWC6TU0iD7q62jNkx +ghXuf29O+kqD04Jjo3oTlH/6IRJ7Kik9Ztx/75skWLp8g6FgHQ281TxtHKYI +lnAdOZrTTIMgrx0ndk8TTJvNuOPeSdWfaKu0bIZgoVuuXxgDNJCRnTo0TDHf +MtXRH4M06GpLNXo0S/DM5zrW+XEaTDS2vDT6R/CEfdTelf9ocPGcQR6meGTE +7GKHkBgET9vZ6s4RPBjO9ypOQgwEjCbDL1HM0cz7s1VODGwaa22KKO7L/09q +ki4GBlpFOWyKu6x0jNLVxICwUtP+UdzG6TjmoCUGh8M9V09T3Hz5XoLMMjFQ +Klff3U5xg4rV10I9MdhHqxJ4TXFttuS4j6EYNC+4b36M4iqLkkVaxmJAO5+n +LUVxWdc5qwYzMQgLcbubQNX7NWhtyI2dYmDOGE2RofjzAvLayFoMNHtLjE9S +8y3IeNrGsxODV9u2++VSeuRvOSzz0FkM+i3mNrMp/XKb6Zv2eYhBY47fM1GK +s09XnxA+JQb6E3seS1F6Z6SafPc4JwZ3bCaO1Y0T/MxoekL5shjo/tqjn0D5 +l1qbpV1xQwxWDGnfM6X8TRRadGV1vBiY2M3baEflIT6xJasrSQz+ha0I/DxI +cNya2x23H4uBvGqbrSIhOOKIKEy/EQPplPfjZ9kE35jBXi/yxOB364kP1/sJ +vhrnf/9QgRiIyRexQnoJPv+5f6q4XAzGLeX6VlN5DrBPWXKmVgzODMiZ9bcR +fGbkoO3iJjHALwp3X/9DsJdmWU54nxjYzbYdu/qb4GP5l7s2ETE4Zll7vrOO +6k+rjfOHRsUAtgdu0akl2PFy5ilrQXH4l3eLc5rqt51d0UtVVcXhtoFx/79C +Sv+lXbX2muLQdxKNdlL9vMNn3fl7OuJwtdwsLecDwdsE/lTR14lDXsDmeWo5 +VL+pLz0zf7c4yITOUxJ/Svnhfl5tr404FNkaJFs9Ihi9rP4abS8Oh23XtoQl +E2y0yV9Z2kMc0ipGwgvuEKxvX1JAuyQO5SvG/5lco/x5RD9mFioOxj/6I4Yv +Uf3JPj7/aqQ4bHY40R99nlqPAuTcBO+Jw9C+FtkYX4IXxx+S+JclDk5h6icz +nQlWqZ20Hu4Wh5Z2gdk9BgTfVbacW8URhwim5ssqPYIZLg+enforDmGvpRyN +llP9+XfrNPefOOyP+YMbmQTLysY96FOUgM8LL47qSRAsaLGc3bJdArRUxxzt +Gnj4UuzFOJXdEiDX8ysynVr/+ZpqN9rZSIBp0I7xvu88POMRGN3gLAFOl89d +WvqRh8eufdWvCZQAh1LmROUDHh4odg7++kICGLNza+8e4WG1mw3HIrMlgDU/ +UFzenoetHHdaW32QgCCzMaWAfdT1ZcJAp+2rBNj8fiYhaMLDMcvm1Y53SsCL +36HNsqo8vOEO1tZWkoT3qe7DGj+5OPyYSuWVq5Jg7La23lyHiwvXxeTtiJAE +uaKTHkpqXDwmREudFycJ9Lo/yr/mc/Hh5GH/+w8lgf/7R37JWer6X/udmZMv +CTlvDr0LruDglo1nz3T9laTWK+6SCE8OXj6PupE9JAUV6qeWnUpk456Inku3 +XKVg0onfJTmKje+Lj/f2HpeCntpY54+X2FhSiP4m3F8KLs6NtJYcZeOBsQNb +625KQXxL+DuxNWz8uLnFy+OzFCTFsVSOlA5glWfdOGqJNDwVuTOc3N6PxdGo +U/OwNNQEOpms6+nF/saLaW+npIGlsLR1tKYX92y2y4zil4E3AycFHxX24qJt +hVMmMjKg66dP/5bYiwP2RsSm6chAZgwfz3RvL2a7Lio54yQDKYP+O6Xf9+Cy +cOvF8yplQOvC1A2jc93YjHtwnGktC/faWfI7fnXghqIj/Ad154Hg/SljIt6I +c0I/O6qPzoOHwT+T6bvKsJuwb1tFhRyMXb+hqml3Bbt4B+ZI3p0PVR6HGku4 +pWiF+9IKC6cFUDHBXKzTXY8q5XQlfA3kIdLR4YtAbzva5OnZf89IHr625wV2 +TrejzNLM0iIkD9eeporkyXagyKBVl2W3ysO4rJeHiWEHsuhZO5u+Vx78svdP +lYV3oO95xqTjuDwMvaAtfLuiE5Uc3l+zO4naruATHHyiC33IvHRPV1ABDgbF +Zu/CPUjEwlrpjogCqPSfGbrwswft6ddO4BdXgLmr1teTu3tQL6v8dp2sAvhW +bo3JkOhF8xMUY4JVFcBEze/KjE0vOh6SEVproACmtKBZ94FepGxb5xt0SgG+ +dyrqygr1I7fRZyM9Pgqgc4qRPU++H72OCfTZ46cAU6/Uh/i0+pFZufp/WucV +4Ftmj+0zs37kY3L8RFWYAqzeWBbKuNGPfujyuWg+VYBQV4OOAOp5KZBfZ3dZ +iwK8/uwu3Tc3gHq2SDRotSvAv3YBNVNpNtodyjl0sUsBnGYHdaJU2EhT5uXJ +tWwFeLjyieTAejYqU1kT9WBCAY7vvNyed4qNVNdvqjg9XxF0J9ot85rZqMhr +r8XC7YrQbRzWPfqYg3Tf6NX6WSiCN7tmqPU1B90eXWD/c5cipJUE/sz5yEHH +g+qPX7NRhBnFV0TzFwctuGEfNuSiCHqyBtkyglzk9tjte8l5RTiqxPKQteMi +8eaAbV7ZinBO+nrM9WkuWuuXJhX1ThGuLqgTRUI85CTX8PPle0Ww8hFkdkjy +UO42fYehAur8rf0rhhbykFsO+e90uSIkT5aor0Y8VBh55F5AjyLEuHz/a3ie +hzhLYg/f61cEi/gxq69XeIheUrgon6MI5qplkpsjeMhrWvXV7F9FuEZWH+dL +5CGVo78/B88pglN5puvdXB7yN97Ju0qnw02z6XAzHg+lNgdlPVWmQ3Lh0MZn +IzxU6Zfu/1WVDttEPvONTfGQViZNUHwRHVwUEjNsRQmqUSpWjFhFh6eZQmsM +1Qj6lzPU/GINHWjt3uKCiwjS2aOeUrGODkPdOr9ydQgKvnZOV3YTHQrswg3Y ++gQtH1lnHGtOh+sVy1qP7SDoYJSbSLYlHe7+fT1xdzdBV3Ru/ajdTQf+3fXs +d9YENR/+a62wnw6PEqL25h4i6EZ5xrEEFzrEb5As/+lNUPcTjbjkIDq8zz41 +fvwWQZzL7ZOCwXRY9jj69scEgv46Pzx0NIQOM8m5gRP3CeJT01i66gYd2G3C +kjpPCFK6o15UdIcOUXOew4E5BGn4tmlr36NDkc2a/xTzCFq870FEWBIdzr85 +o5qYT5C+jPoBq8d0sOg6PHu4mKDd19QGu9/QwbV05npDJUH7XVutzd/SgSXm +DB9/EuS4OflDZh4dxPZWzw/7RdDxOdVrfgV08PQtF+toJMi75Q+nqZgO6gYh +i4+3EOT/IWkvlFLH/46zb2kl6KqfqqpYBVV/4c/ZoC6CIqz/hHhW00GqPN39 +eQ9BcXpJ/dW1dNi6wbCtoI+gh2Rhzt0maryNV8efcQh6Vt6iNPeHDooxp2MD +eARlpt8Pdumgg13l2fX6gwTluy+00O2nQ6ZOW7zrMEHFpi2vozl0+LNkbE/T +CEHfWfcVRwkdlv8KlzEcI6iK3+HcgWE6NHGfVl0cJ6i+VaXz4xgdFn20i3sz +QdCfj83bmFN0GFxQfqBskqCue4mZV2fpcHT3KvXKKYLYZ+0XsPkYEGVV0fN+ +mvJnv0rALiEGfImeyoiaIWhSv7k1S5QBm+dUvC1nKb8WJJrSJRgQsuiF/gjF +In/t0oOkGZC2QG885B9BUlXK89rnMaDBw+ztDMULMpvOmMoz4OzOWG/HOcrf +8HvNaXQGBPlXLU2jWOOYnYm0CgOu63xrb6Z48TblZ95qDFiyxjZukuIVWk1S +9UwGtA0d3fz/98Frhe75bNBigIHlOI9LsVHHwd/JSxhQni9zp4TizQVKSGgZ +A9ZvqdxwlWLzpMbUoysZIHzapWUFxbuD7oqX61HjeYgHFVH17T948NSqdQzA +FXL0TRQ7rlequ2XIAFpj0+sUan6uCo0bpjYyoNfy1/ZBSo8TIwkPHY0ZkON/ +oU2LYu+fB0SLt1D6rDl+Ziul39lXDE/tbQzw6jaQ3EXpGxz5+2fYDga8Cryf +ApT+V08krB/cyYCkU7aGypQ/cYsZQnnWDBCUXPVf2ChB9o5aTzttGVDpw+g0 +oPzWjNMzl7ZnwH3nsJ3U8w/KnrOMdnGm9MPx8uWEoCB9O71IVwac5lPyWUrl +acvxo3W5Rxkwz3Ow3JfKW23dJRXpkwwYP/L3QgWVx0TJaLzemwHR8kd/N1N5 +PWJy39nFlwGThqVr6qk8j7x49yw3kAHzRQ6PRbURNP8KZ41LKANUqsJ+zKsn +qPH9ZH1EGAP6k64cDK4lKGVQJDA3kgGzKQNjjdUErbbXKJS6xQC9+lRHqzKC +9urZWOY+ZECHnZ2ybQHlv4fLYEcqA96/bdiq/ZGgjqRTsVLPGBAo6RLZQfW3 +t3jYb+dMBtjGNp9dmEVQTDt2lfrAANe/5f9SU6n1SbGctv4TA97mf9n66wFB +TMvGdOdCBrD5w/OHEgl6kzsy9K6U0mPabAOJI+hn1JLzzrUMeBFVVTYTQtDd +krUaEfUMWKGg8T3yAkHO05s/v2tkAP0GXVwqkMq/m6O4VDsDzhVbOVT8R9C8 +TbG333EZULSW+eiII0ENPg8MOgYZ8NPIR/TAAYIepL1olhyh9Nvt8MXAiqCV +8l+ZzlMM+D3YerhgO5U3zkympKgS1BVcde3QIyj6rlupk7oSPHrSmB8kRJDf +mUs+QSwleH/GfIXtPx5y3JukdkdLCTKtzMbVJ3hIV7zOr0xXCV6/4dwOYPPQ +t7Omi9cZKMHzb2eDd1bzkMABzeuSe5XAcsX4uaAEHupfA/ra1kqw/yGPuSKG +h6pk7duNbZVApua2Y+UNHkr+Gmvg56gEvou/pjcE8pDResGB9mNKkGhSqCLj +wEO+ih3m70KUwKP0l6+MCg/ZD8+OVV9Vgg+Y++b+fB7aUsl4xLmuBAdWDf5k +SPCQ3LU90xrRSsDLNqlqmuSizLGC9PBEJVBe67L3Wh0X9f1KlnTOUYL66F06 +F8O56GCcQ4VkrxL8bumUWMzmIJUsceXjA0rwhu/g+rhWDmqtfuf+jasE8y/v +Z7NrOOiIjBz/1RElCOOniTjmc5DXjS96c/zKkPBoy6RlOAddCl6RMKSiDILd +8Y5HFnNQ2gn+I3V7lSEzStTi+R42OhGW+WqNjTIUR8q6xG9mo+XP7WZjDiiD +X0qJpo8+G73pzbm967AyyOs7VfHobJTvfOzbV09lCG273TX3ZwBV2dYs/xCq +DK2MLTIx7gNoYsvjyeRP1HiMwKTCY/0o6ENyyOdCZbgU1OXmY9eP+Fbfler/ +rAzpoB0qb9GPRNWiNFb/UAYroTXTOsv6kcKk//bP9cpg+Mb55T1eH9J7YZHQ +N6gMi8W0KhO9+pCX/Mj6VSwVOPJt/k8Xl17U2W3iX3RNBQbN5Pv2MLuRSXJF +ik6YCpRYItUaqW70wPZgeUykClQd8ZY2nexCjj/+Y7rcUoEc8sh2urILNb56 +UCb4SAUc93muzwrqQj8D/6mbflKBvE38xx1qOlHRvPffSkdU4F2uy7DomQ6U +snGVcrnTQjAdTj7tvbgVvbjiO899mSp8efdINyS4Bl2zdtkhOKoKfOKONzZa +fkT6zQ/TrpWrAf7zx/V8Xi6OX3LvRfkOdRBdvsSJF/4TXyiIiN+Rpw4TB/6a +3VJvxQMtBXGT79Vh5cqkwuBdrdhmejj6ab46GL2W1LI534p11x68LligDv6+ +Gks/NbXihnStgA9f1CH34K0v2LwNr76D7ZbWqkPvXFaktUA77vEcUpUg6lDI +zl3ofLQDWypbP/6uqQEP9th43ZHsxvFdywvstDQg1KDvq7daN+56QWviaGvA +gdYvusaru3EQ5MvKLNUAiUCzjrf7u3GGKyto3yoN2KbHLBZK6cbir4b2Nm/U +AM+21Z7qa3pw6ZZIPp6NBsgMuSWK7ezFctJHlS/YasBmM3PnlYd6sWO98VrZ +gxpwcIdG1bZTvXjMY/T4agcN8PX5cHZnTC/WirKvP+OiAcbpou3pv3rx5d86 +mXMnNWB32g2+Jwf6sLFXqd286xrwIfL8kT02/XiqoX/r5xsaQDs+Ht/h1o+z +N0uu9gvXgIew4qyTXz/WYuyhtURpwLevFlKL4/ux5OfG7Ge3NSDNbJNhfUM/ +bmDwpCBVA7ab9V/KshnAp0oWFHhhDXBIyvGX38LGOivXpWsUaoD5/kqlrXvZ +uPPugdu1RRpw5KiCiMthNrY5lXTC8IsGXOS/EOUUxMZGyosZIuUa8KtNyepU +FhvT/tvgfb9RAxyvZ4iULeTgZBVnzbJRDZhMV1E17ORgQ72ly53HNWALs7dK +mcfBtdtH1k1MaED/vJY97AkOpvld3aE5owGaWZqP9klz8anq595BAkzw4rtT +um09F8PV4QJdGSZcfB7ohEO5uDEx/3uRLBO+KVq2BcRw8emsK7W2ckww+dRf +wkrk4mdtin2X5Zmw8+TmFxtfcvG8DUYyLcpMeERF+mYtF3eQyw4Ri5nw/s/G +a2+UeThIZKc7S4cJeQZnsow1eVhhoeJ/eUuZwDzwY+CjLg+bm6dd7l7OhAK4 +4HpuIw+/SS1P36jPhAWWMROKjjwcckBhimvMhMaPbYvf3eNh1VOtgpc3M6GO ++/bBgkc8nHv1mZSSKRMq/vTUOD7nYU6WocbWbUzocRM7mJfLw1bSh7Yl7WTC +aMqY+9VaHtYsfnp7px2Tet7eUxpEI7hCdyK12Z4Joff0mFekCfa/vS3rmCNV +3+i1dwELCP7h0V951YkJRRt1QpapE+wtu1QMuzPBoMrU6PVaglUCAhUtPZig +K2lHYxkRXNL5Y1HTMSZo8+8evmhMMP3dCZNxTyZs2tdHF7UgGDtkBq44zQTa +oo/myw8TfLT03/WPvkwYbz+WQ3MlWG7VrvgdfkxYrQFaVR4EuwkNZrsHMGH7 +iz/SWj4ES6av4iUHU8e/b3nBvUzwwYnsw7IRTIj5uLKhP5VgIWfhk0mRTMjI +bXSJfUZw5g/rc7rRTHi7+HfZkgyC+ZPHErbFMmHw4url1PUfPzNdXxOcwIRD +8mdHFhYQvPdlaLv0PSa0l9xZubyY4Gn6b5KYyIQONGaw9AvBOzlnJfOSmaB2 +ZcsL9g+CR2M+mA49ZsKqPV49V+oITpqRsLrwlAlHFS7ZzzQQvM3N3lkqjQnL +E57GHGoiONFg9vySDCaszfc04LQSvPWRZcS7F0zwOLrzqXwHwUQy6Z7pSyZk +swsql3YRbNK2KdfpDRNk0u12qPYRzNke9YVkMcGSqZE41U/w7azW2nM5TDjT +9yalmE1w/9XgoYRcJkzMHytTJgTHDFbNab9nws+ph7zngwQbHdSQfvuB4jUy +RVp/CY5eVqTz8xMT+GZTArpGKD3W24ldKmBC7eUlP2GM8mvzSO+qIiZcctM6 +cXWc4LqdEV/ai6l6Jl+b5UwQzDug9fhmCRPmF424lE8SLOyKQ4xLmbD7jHZB +xRSVj1O2zkNfmWA8FWOXN03wmsAhePidCUnO0foRMwTvuHpDbU8ZE6pHQi3N +Zwl2vsn6x1fBBGftsZRBigMS85tfVTLBJsVJP/gfwTefWn84XM2Ey8hVaJLi +Z294CbI1TGgWT5exmyO44OM1/4JaJjwz4do8obj+q/r+U3VMyN0/9ruRYl5N +nr56AxMiuQ/iJygWad27oOo3E3wa62Oo+3+8cID990ITE8K1b38lFK8ZvVy9 +ooUJDbK9Bt8otuBTfdX6hwk6wj09YRS7SLyLjGpjAuPJp8p1FAco7PZEHUz4 +XZoxUkbVF6PRv4N0MkHpvxnrHRSn6V7SSe5mwvdGsZE3/3+/vU5ZbFcvtf9J +40pBihtMsnv/9VH9W6bWt5HSh1hafskcYAIHr0JOlH4iB3pSHTlMaDFb8MuT +0lf1yIUQaR7Vf3Gnn7tQ+uufpDt/IkxwEJItMKH8sQh4DV5D1Py0sxUkKP8C +oztny0eYEJhx/8Z+yu+Ye0HN58aofllQmdZE5eH5E/kPyyao/Bu2S20fourJ +N/OPmGaCad6qtFYuwYOlbTYbZ5lAP9vSQeMQLFpzVp/7j8rH5y1uyv///6U/ +/a+FAAvk437umukm2HJkS/WMIAvSSnpzv3cSfGSu5WWGMAvimm79d6md4Fh5 +WU9JMRbsStvR8KKZOr/x6d4fMiyYnYzIGKkmmGYp9SVwHgsa/vMolqokWM32 +SerS+SyIEU9eL1tG9aNXg1OYAguqXNO3VpcQnH7XqNl8IXX+jdUrt+QSXPT4 +1/spVRbs8Ll19lk2wY2vvBKeq7OgMChQb+wVdf7SBzbimixYqmoivDONWm+G +haq/6bDg5oJdXiSeYMfnWyrsdVkw8OCa3EAcwTZOl3+QZSzwfCivVR1N9W+l +4Bf5VSyYd9j18ZFQgrXSBT44rWNBbVj7zodnCO525ns8uZniDJcSn10ENzMg +JdyUBXY5/M/XmhNcW3UhWc2MBXw7jHR7thD8edNcgqk5C56f/qQgYUhwqtK/ +yJu7WVCey+g8waL0+zntv8SBBa9Erp2N/cvD9tc3nMl3pPTepteiwaHWewj0 +2XWYBXsqPtPvd/PwlswpT18XFkR9+a59sIFa/29MOhd6sODJy0MMks/Dncbj +FgfOsCA42X5e6CUedn79V/16FAvevu3/e3uOi09c2jdjfpOq1xBnF45yse++ +7HrJWBbMl31i/YvNxaGjvpHRt1lQQnPc966eizMNJqfv3Kfqr7NluGdy8WTh +XN2TdBYskHzbFrSfi6N/SkZ8LmXBLbePFz/Gc/DdR55Hr35jwTPu2X0Lwjn4 +0emKzdt+sKDf6pyy9QUOfqsQPfWjggUshy85ca4c3Hxw/tGaXyw41Se/VGoV +B2t3MjZ3dLJg290kKU4xG6/MDlBN7WaBpGCscG8OGxteaZp07aX8TluUUPaU +jS2077/qH6DyQYo+7Q9jY+/j6qpDQyxYtbx4/ck9bBxkdHHyzTBVz0VlkwIT +Nr4i1VF7epQFG9ePoxk9No5/+ShsYoIF3d7tW/UV2DglWMj9/RQLOko5bqtF +2Th9j6tJ0Mz/9fFNU5oYwNnMLws3/WPBC3ENJV7fAP40rDU5N8cC3+tPP2f8 +HsD/A1QMfro= + "]]}, + Annotation[#, "Charting`Private`Tag$4154#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVm3k8VO8Xx5Ul+zKEEYaZQooWKm2eU1LSJtmSVBL6WtKikEoSqZSk7FtR +iigpER5ZEkIi+74bM3Pt+/K7P/94fV7XPc/nOec8d877voayzSXjC8u5uLgi +uLm4/v87+rYN3ybbR7qUhSXyh0BFNUqHzZUuogXOl4cNpF76mXdPSckD2e0d +1LAhtWjw14+CDT5oe00uM2qRQNH5gTRepQD0TlCu8MECgdYTtk+W7J8in6Y3 +WWvmCdQqGrM4Xx+MIr9WVV+dJdDqNwJbZ+deINvHBWJXpwnktNvNeYoWjsK/ +XXJnTBLoc21HwrheFJKeC5C4P0agWcfDLSP2sajMwa8zdJhAcctaAqb041HJ +qSjiFJtA+yqerZmsf4U8zxXrVQ8SaCDswI/xiwmIWzW3b6qXQI9tF6zG5hLR +2/PLuqo6CVQz5xAyTHuHags3CIU0EOh6ieJG4tN79DWl7Zh3DYHknteWs/VS +0N4z5+UUKwlkow7cQ/ZpKJVaet2lgEDL5zyrxr0+ohuE5xrlHALVdpgqjOt/ +Qh+6Xz+//4VA7ilCWaP16aj2oMHw+bcEMgzu4xuN+4yclaOWtcUSSN79h8nI +xQzU9FhGVjCMQPl6N4aJuS+oZa/nK3d/Aq1o7lJl07JQUUi0+ycbAjXk57qx +BrJQZmvYTK4Fgd6/CSsc+pSNarYpbLh1lEBHrxw9w9TLQbY2cQpS2wn0UiD7 +Zb89Rnm/YO6NIIEybhheuSqbj3jezYscXuSgKOY26phXPjr0eX9GwggHufyh +2I/q/0CebWLbL9dzECXq1/KR+gL06Yr5d89YDpoT/frOdVchKuTatYCDOKjn +7muj4bhCtGymoiPrLgd9tb8dQ1wsQjZfu5R/23CQpZb2Ds5cMUrjev/TRZmD +4stiLw/RStF/+ezff4LYaDzsi3r741LkJr28uPImG+23L+/+O1OKoGPR8IYd +G7G4p0yza8pQEiE682sHG+nsProjwP83mkgfbnVrZ6E/afPLVYkqxBMpxdlI +ZSEKErAW0fyD/smFNE4uDqGdKiE7/G3/oHP701859gyhJ+Pvxjyr/6D7sw7L +z6cOIe1n/y7YJFejTRbKkc90h9CdsvWGm87UoF1XufdsNWKipE+ZKskvatCN ++Idi4puY6G/YXu41v2vQER2jyWgJJlptb5Eju70WMV9Pe9RXD6Iybl9NLsl/ +yGiFjH/50UEkvbuZUvWzDslOyHQL7RxAqWkBzU6aTWi5Xbp/VnsvYlKYjw3P +NSHR3rQ7t7J7kep1Q121kCZUfZ0IEnzRi+J2CcV3zzSh1xU7Pe8e7EXBpY/t +LIub0eNza7tZaT3oevfTkQNWrSjC9FSM2NVuFCtUfk9CvwM1XTV1PPSvA9mj +6nDWlW4kZCu++eXeOuTSu7Y7I3UQabSPSB17GY87rBv5f5QOomUgdHjrVAI+ +0fBAs6JnELn/vBbeaZ6Edcr7PXrlmKhBWK/ltGwa5v6UKC7tz0TLlI/evGT4 +FYd5KeveODOERo6vL+9t+YF/SFLDt4uzkesReUUd5SosqOyr2q4zjOyF/gtb +v7sF/9r1bMNt/WE0w0s/kRjagv0sYrYpGA8jVsrF7rqRFrw86NuBU47D6FX8 +Be5zia14dpFlXx89jN58H22f5m/HQy2mSVXLR5AO79Gt3zs68O8w1bX5v0fQ +Puq/sD73bvwwQ3vTmcYR5LMvS7strhsb/NmzfbF3BF3mqp1I+NWNi1ZYHdy1 +NILK5NdYxcj04JzrQRe/bRpFypd9uLd+7sEfTGbefXw5iq4fKkpN6OjFT8TL +1ePPjqEHgr/psxIDOGubwpejLmOo4sg1Ws+WAdxjfQnN3xxDrJ8+Zv4nB/DO +D5Im5qFjqJfDqZmKHcADB61uiVSOoVV1z5rc1g5ivXvsKo+d40g6VGX/U00m +dnmPLFUPjqNPUo+6W48wcUT1s55as3Ek1fA8qt2JiYdpW2c2XBlHN9b1Tc2+ +Y+KYnNv0vqRxJERxj/dXGsLTE2JuxtIT6Gf/GXrq4hBmKNgsLTEm0B1/j1Fe +Kgsf3ZcR8GHTBDoqzBMnpMXCicEWMfxHJtCp8zK2NDsWNt4QX5J3bwLVnqr0 +OPuLhW+bjR13ekZe17gpS+tg4Xe39FuosRNI7lbY0YApFub6PTh8LXsCvT54 +wvXMGjb+4LBZbt3IBLKIOmsodIuNG576JjQsTqDTW1ysacFszJNZp+knPIkK +k0OXtb5hY0vem3qdqpOIdiiT26SKjflfFTqFWk+ijD6hEHV5DrZpNsHcvyfR ++7YnUoaJHCwY2el8uXES6btITYZkcHC6pYt8e98k+u2zyiSgkIO5m/w9spdN +oTJV2TbnDg5OaMjWurxtCn3ZubVMWZrAh8MOdLXtm0L/jB6tzaATeNy8Nuiw +8RT6piBfxdEksH49m63qPIXwo5W2VvsJ3PdPKant1RRKCn6tsfIygZ+8+GB2 ++OMUMtUz3tjnSeCtpjt4s3OnUKN2nre1L4H9a0/YvGiYQsy3IvH7XhJ4Y0iH +OHffFOJp8NFNjyFwwwln7Do2hRjajUU/3xBYrcZP/rDoNDohL7W55wuB/wRL +lmetmkbsCzYcVg6B3Y3jPFTXTqOYygu6UYUEVqJoqL3YOo0GEg3ERksJXFqd +Vbd83zQ6aLvpGKeKwFee7b/venwa+bfuZQf9I7Dc8RqtNutppO0a1djYROD/ +/rCCsjymUcGqFzbWPQSmBHkgVf9pdGP9+Z7wAQJnH+PjhIRMo9pn9bdvsghs +I/Y8avmraVRcslyVe5jAQlW0Q65p0yglc/TvxjECZzxJmWnNmUa2tekePJME +tjq6PelQ2TTy0joseXuawDyiP82y6qfR+9fFYdGzBE6pMOZV7Z1GLvkMnvPz +BDYJbP8cMjqNRpZfNKpcIPD8YSeb5VwzSOzPC4/2RQInCM+Iu4rMoNh7SV4v +lwh85Pd93Co3g5ju0eZjpJ58RHE5pDaDLMQvCUySOuZQrHzWlhl0In1lcAyp +9wutL1fRm0Enq/xHWWQ8Ttk3jxCjGWTQmrW+k1zv5UN9teXWM6jpeIzeTdKP +ruHfukuOM8gyYs3O76TfPoEz91vdZ1CAuK5sPLmfp6VDWof8ZlA2q6ZjPblf +nQD3rm/PZ5DSlupIazIfHQa8z1TiZ5DZe4XjW8l8PeAPRiGpM0jmU4xABpnP +jb8UOctyZpDG9m1V9WS+G/yToy6VzqDQ+JKUeLIe3gd0DrXWzaC+cI1UiQ6y +P1YUzxj2zKBfXPs6VJvJ/vh5POnbyAyqx11GPWR93f3azFSWZtDzhDbRA3/I +/tjvyBsiPIsitwqoG5UR+HKxr80l1Vl0cSUtxzSXwIo9+/kmtWbRh00mVRVf +CVy+XOC9F8yi2twJ+nQagddA4EjAyVkUtG5v1fl4Av+1PvZC3G4W3eZKPpQY +TuA7tyS2h16ZRTa1c8fCnxG4MfuFd8KjWST+fQ6FexPYr9F89bqwWZQjZmGa +eIPAWtPUX58SZtG496S+rQuBA7fEiOHcWbST+7rUnCWB93x8E9NIzKJ7Z9eJ +P91I1qfSYe/Z+VlUVyqdoL2GwJFs9b4+/jkUe/xMayCVwBPqaRrjynNIehfP +51PLCPwuMTNH1GQO5chb6DhUcLBE5K8mvW9zaIWqjuc5cw7Oy3p4u6xoDiU/ +sLM2OsDBjg2H6ceryXjLWCsmtnJw8crqi9bMOXTYX+bw2ZUc7BHUOO0uP48w +5YRaYSUbd95nSqd6zyPtgo8zHVps/CQhJVs7cB7tjggOABob7yx0sf4ePo+u +HojIsBBk4xdcY4m/0ufR0bCyd5/bWfjgzTnt7h7yuk5gHdWfhT+5Cp+QPbiA +hr9tjKn/NYR/R0h6fDBbIOcAdsT3D0O4r0gudq/tAgonjlQeCx7CctS1Q053 +FpBvhKD0Q8sh7PtD/96PLwsovq2d71g/E5tR7nz+j76Ipm3O7LIdHcSzn0ck +c+cWUVbw0Klt1f1Yqm16u7HAEnp26g3jd0o/1uTnOtsvvYSaJLxT5B/04/NW +oikSm0ltdOLd6O5+/Jtn3T47hyUU22MkfvtNH44xtb0m9m8JrebTEbrq2Ivj +bzoyN5pzwfLZfV2LJV14Y77AtP9pLhC8relXF9OF83mSeNvPc0Gj+TObO25d +uCOwRynQlQsuNSba7qd3YcW40+aDAVwwf8ab74tHJ44oOlYUn8MFQ66Z45eV +OnCwiHYMhb4M3O1KfGrimrBP7PzxcdYy8Ow1fttzpAJz1XRAjic3uHDWFyRT +ipDvYF68511uqJu+4JTWX4QEuKKXb3/ADbtu3E2+kVOMKBoni7684Ia4rz1u +hy+UoDX+1QfSPnKD1pP2PcWfy5DhzoKjr/q4odo9SG8s7g96/vq11QNjHrB9 +zUIWAvVINvtu7v6TPDB50GWq07keRf05o8h7lgee9CrLrP1bj94srOq468wD +2T1lq4bCG9A385DzNx/wgHp83G6aShNqEbr/n0seD3SbD8cbb2xFKtfs3E3U +eeEuc8e8tk8n0tjRfiJ2Iy9Qg+eE9qZ0Im0uiw3MrbzwqaziDKOuE+19fLDv +jh4vCOzx23JubReyTlhvkmzFC5qCd6zzKrrQy9rRDcuf8sLFPtN9b0R6EO+W +O/1pY7wQNPe95K59HxKemyqYneGFf9LzJ80f9SHKD9cYfS4+aNm9jT6R2oeU +jtiYNgvzQc/dqHH/iT6064J+IZ8KHzR2JdKWefejay+EYk9b8MHD+FVmUwED +qGci1Ewolw/a6w2z8SUmerVH62prIR8cn5fZZPGEic4EVj5NK+OD1/bJrq9T +mKhpNW/piQY+4DX6yDQaYKLqE1d2Ro3xwd0tgWcWTw2hvE+HlTTUV8DDqNwB +S20W8lro37W0cQUIfl/+cvoIC20/eO9k9bYVULHj3qSePQtldGQFu+mvAKXB +ieSuMBZ6L6bKm3d2BXjuCpHVmWahUOdlzKOhK8C6VS90xVs2MsmK4lOOWQG+ +xX4SZ7+zEYVXhzGWsAKypQNlbarY6EmUi1Vo+gqQSVnXe26SjXzLmyvbK1bA +igOsk4bAQXtlbgx9ql0BE5/eSw0e56AlGwq/b/MKcNZ3f7PhPAd5zhrsURtc +AfUxJv6ffTnIde3Xz648/HBMlLMYVMhBmm7H/+wV4gfnf8vXX/zLQUP5LJYU +hR9iTvlm93dwkJ0FQyWLxg9y73VN6uc5aHVC3t5HKvxgIblb1IDksy7i5JnT +GvxQcFHb31qGQKf9g8KW7eQHobQWRa+NJI/WrPtSs4cf1of5jfvsInlQsaQ6 +0YAfTLfJT2kaEMjk64KgoRk/bEs1nnezJnmz979bwZf5gZ9W+yzHj0D7bzFS +9rnzg4nkuc34KYH2rmxpmrzND1yX1M5dJPlzh/4RnVOP+cH6ga5ARhKBtrby +2os85wfj3l4Tk48E2uyW9wKH84Osg0dNZCaB1BM3jDHe8sOyH8WySsUEUtk9 +oFz3gR+mmNFZVuUEov+LM3qQwQ+PD8fvgWoCKTqfvLPjOz+EWB2LK6sj98NL +SWX94AdhZ+Wfc80Eko4ua4n5xQ/P6x4m1HQQiLLlntDxKnI/yjMaxiS/i1bs +3MFdxw8e6rWmN0i+F7ow7vClhR/CDG6L65H8z7+QEmrfzQ8MR5MTX4YJxPPi +wk8qkx/ydFKlKscIxKWhOFE+zA+g3nYocJJA80V1jNtT/DD5atPI6DSBpq2e +Gm9c5Ic9fCMLi7MEGh8/cLeLRwDOlZ1x+jRPoOHHXB9DhATg8YOcbYKLBGKt +zmrbTxEAJLjHSmCJQAM5l0VmZAWg7gS9PpXUPSbqu5JpAnAqJejNLKk7WF3/ +nVYRgMhXmaUsUrf4RoaLaQiAp1ge3Cd1g7zJrx9aAuC38qdwERm/NkN46uoO +AShXYG94t0CgP4eL16jsEYDO6kMftEk/v3tumTQcEIB9kpMP7Ei/v7y23nt4 +VAD6idkSXXI/RVLEp12mAsAdYuuaO0Gg/JS3HZxTAqC+XSega5RAOfvOisXb +CEA85bpcKkGgby2yuicuCgBrK1VDiUWgjGvVTryuAvDeT6ZcZ4BAKQl7yy7e +EoCdV7v+nW4nUNKuuelVvgLwL/vOqf+aCJRQ+1m18qEAMHdTYxT+ESiKZ839 +zWECsKXu1Uv3UgKFRbV+7okRgFcx2s5KhQQK0X7Z9TJRAB584N17KYdAgbYr +YC5dADZz2Wxenkqgh/PY5UMWmS8Dy+v73xDIL8Q9+ky+ANy85CiwOYZAt4sG +ZwsrBIDKPue+9JhAnlav1l6vFYDL9919O+8R6Pq4pYVaswBcmBYAR08Cuaz+ +/eXxgABEayRsvG5HoP9yfHt0CQEoXgiPnjpFIDuT3ZIjEwIQodqzVvk4gax9 +U11NuQXBJKNPznkHgY72BK1TVBSEv8iNPcRP5n9dT63VakFo3cNXGkae50NX +t92OVBeEosyTirMEBxksb/sju00Qdl3gT2/6Rz5flNZdlzQShJFbzBUyMRyU +b3+bZmwmCBcnB7c6PuUglFb9K8hKEKQqiweveXPQLl33VaIXBeHkxTfO785x +0Bar4nx+H0GoH0qQiVTioIzXsv8deCAIh66rPowV46DNQ46Sfk8EQaic65vl +IhtpelLsuCMFQSCvmDPRxEZqYWeEFj8LQoVi65OiIDaSr50xHesVBOVlO0SH +OCwUserI0iaWIDicfn/VtZGFqOfjklxHBWH/K7cHaYUsJD26f469KAguMS0h +p0JZSFw8JG5ARgg+xLlsuLyThbgPaw61HhSC2I9qB4uuDyFmoY33rw9CcL0h +tzn7+yCiPWv470mGELzLPtd4NnIQmVgfNTX5LgRP6aGOuZ6DKG96u3rHLyFw +HG8sitQZRMEaErVT3UJkfo5kT30cQDtDsaqqnDAcVPpX4RPSjx7/J191308Y +DOnO0nhtL/qxLTjrUKAwjB7M0p7n6kWTPPwJEiHC8OwSyC3U96CzsWPu0fHC +8NW8QeLw/R6kXVtG/5IjDD3HDn9b19qNWnd7XO8ZFYbhjzPqVj5dSFOiTkHv +jAh8Hio+NnCoHfUF9vm8uCACS4ZFhn5jbShacKq/31EEFKdZE3URbUiYRzb9 +sbsIzLOCa54PtCLm5Mn9dc9E4Mpvk5Uh3i0osaXV5WIReT+hZ3TtdSOST+rF +T9eKwrUBLR7u7zVIEE2caxkThVxvq1eeL3PRAbblFN1UHLzXTJ+ZeleDY6Tu +1dyxEIe3pgf+2ytei8d3Jqe1nBKHn2vdckyu1+K4h3P2L23EYRm94WvZnn94 +VjWqQcBVHB7H06Nb/tXhFJvWrOGH4nD3oBaKHWnE4g1nvPLyxSG2kvKEa7gd +2y35W6wqEgc+vvHfASodOEflo7Z7iTj8Uwl932vSgS+6cbE3VYqDrLHROcqn +DlxAiT+d2Eyu98XZf5N9J752pEv38aQ4cN7ur5Au68INBbbLLNdLgMRx5ZxV +9r14eE+T3K0NErBruLnp+ONevOLHMe24zRLwdPD2hPGnXrwV77Dv05GAg/dr +0zNme3HId/GKK/oSMP6Vz4P1sA8fy8gJe2QtAWe3ext0xPVjO63N6annJCCC +0hIdVdCPb6e/La+2lYBD4o23FHv6ccrH4EUZRwkw+uwbclllAAt+cLBNuCEB +yW1Suw4nDeCfiVIbc4MkYGtVl8mTuEHctvrhwY7nEvCqwXbkVt4gnni9ZMMd +KgGXHk5t1WwZxKtfMV8cjJaAj0J54VXSTOwTkz/37x3p94luv0gAE+uGOpVw +CiQgZvXL6Z3nhrCZdFeHxE8JsF0mu2/lzSHs/MJ8VrtUAtal/Rl9HzKEo57v +1bhZJQG3TQpvC5YM4dmnss9XtEiAyx3r0OdqLPzlQZG10oQEvBypXR/RxsJJ +huWy/tMSwG96TYk5wcIRwn//suck4LJD8/E+YTb2Dmrf/305Bdz9hS50bWfj +w2GzmmbiFBipC9LresrGyHLZYI4kBRi8risDE9h4szz/a4YMBTT2cq/v+sbG +MnErZUYUKHA9n2/3ww427nq7cenROgr8OHU0t3wdB/+7uC1rVJMC6tR6r4Ld +HPxrne7Vk5spUHxqpvjcMQ7+kHaoX2U7Bc4+VlcPv8zB7pl2VT/2U6DB8Utv +7yeSxzycA9QMKeC4PPzlqh8cbL3zmt7TIxTImtU2na7iYD18N9PKhAKeMklG +b1gcLFoSFTt1jgJW7td+VykTeFnA65PWFyiwu0jUdbsmgccN30sWO1BA/9jv +XoMdJJ9WZvoHX6LA8YSNuRbHCfw7KG/PzBUK6LxY3WJhReA84+K5M9cp0FdT +d2DRjsAJdX8vadyiAM+dE490bhI4NKxxbYg3BcqeRKtV+BL4oWVH9+w9CkBL +YjTfEwJfamOb/3pIgSbDvYn2sQS2iRuX2PCEAlWKz3mfviWwic1c+YtnFHBR +lW+0JPl6Rx8/nA+jQElnqnc7yeMaSWKzpZEU8Hf8rh5WRPL7f9IZG2MpcOUE +3/g4ye+U9Qouoa8owNujVjZB8j0vh6G2mEiBPLOfkRF1BJ5OU++yfUeBQ3yP +LbqbCcy8vCmqPIWsT/SmkaoOArdq6Zht/kiB+n0e5md7CfxnQlc8/DMFREo3 +3A4ZJHBhpn7Z0lcKNBeuP+nEJvBXj8O+dtkU6Mw1bu0fJnDSzhO6FbkU4D72 +lGvFOMnjCyentX5QIHhnc1bpJIGf4LPpEUUUsH2yY9nGGQJ737V3WvaLApy0 +nKrtcwS+quei4lBOARNPL1r/PIHteN06KivJfjKMG9q2SGA5Wmn9XDUFJt1L +GxWXCFypo1Cl9o8Ces3J8l9I7WN8+adpAwW8In+nk/MS3upUnOvTTAHBg16R +BKmZ96lf0tooYNZUV/f8/+9/Yp1TWjop8CCl8EI/Gd8468drgV6yP+5OHGQu +EJivZmXk1gEK6Hoy70eRfrJZF4PPD1FguyRLnpzvsAtfXkAQhzwvVDFJMXI/ +dCXK3dwRCryI13KuIvdbt93OnTlOgQ1zPJsQmY+HJ7IvyUxTIP7VjK31CIF1 +nUXt981R4OvGE+IaHAKP+tlYX16kwGkDxZ3JTAInxn01jVkmCWd9NnMa+ghs +kS14pJxHEqTMN2t97SKwcK31vukVpOZ7JKXXRuBrK1ZoGYtKwtyWkUbHWgKr +KZ9SvyMhCc2MyroVVQRu2ZGmnCIlCRf9X8WfKCXwPhdzcb5VksDrc7d5Nofs +D//kFVqKkqA4k3LR7CuBU+KXFs8oS8IdcwkeG7Ifpf69ZWepSkL3nGtCQByB +e3ZOlzlrS0LyBd6P8ncIHGZ6uCBimyScFGZ/nXUj8OFLcVklOyRhe8kxpwAn +Ame8MkhS3iMJqQP+e7MsCOwrEH7/3xFJqHzt6nBBg8A6DLbX8uOSwBq0fVdO +nlfWrj3XNphIks9/inP3SvJ8uA7aBFhKAk/alQnVBQ5eXb8ddttLQmC2wz3+ +XxzcMBy47b//JMHmXuORxSwOfizYpRnqLAnuEZlxb5I5eHz3Q4WRq5Kwzo1+ +WewJBxclNM0meEtC3iClU598/py/cvOLcIQk+ETVRFwsZOOtm9u+rI2WhN/f +llXOfGRjwVH4uj9OEqadeMX2xrDxx8t8md5vJOFy4lvXuRtsPO/67Nt4uiRQ +U5f+Squx8ctLb7+3lEvC5ptpR1bdZOGLGwRzZiol4RFTVk7PloV3EU450n8l +Qcs9UE7lCAt3u2zONWqQhMGifWGKiiy80SU3r6hHEjbc66xqzxnCpU41P1IW +JKF1VuNZPZuJo9ZvLSjlkgLznLf7K/8ysSsrrKCPWwpeZozP38tkYmkn60Il +QSmoGFZ10/BmYhvHwaIQaSn4arY4cUeUiecvLpV4bZACzw2Remdpg3iD/brK +w+ekQKntlPJKqX7cdpF26YOtFPA0JErf5/Thx06S4qIOUiCQdOnN5199ePDy +3PEqFylwb4/XP+rVh197lf877iUFn5pjbt7v6MUywY6tZqFSoPKFt+10dA9e +yklmna2QAqqFXxBzqBNXUdYLuW1fCe/epl9bM1yPv6f6RK7nlobZFx77Uwru +I77DpnKhfNJQv1viuOrXZ+j4oGr4MkFpCNicUFP0MAz1Mype1olLQyKKe/aQ ++hpJhssEeytKw13zlcdunPmIHO+lPKjdLg3aslMDSbO5aJVFnZuXqzRUbSo6 +UHnlN7q5TN3od6s0nKD6nrOmNaO+fUINKp3SMLL1Ba+TdzMyesA6c7dHGo5c +EDBb39mMVoulXdo6JA2Te//m5Me3oN/y2k/jpqWh2/unzCpaG1LU0a28JikD +e/3kzOt8O1CBi/FhhYMycKP6l8TLQ91ofbpW7Y3DMrA86j/9g9e70csJKau/ +x2SAkDLKL47rRo5e9Y7+ZjIgcTA5VXaiG0k9tHo0cl4GJhv33KNG9iC7RLuy +4tsysMDdUqLc0osEWzwNXDJk4ITemtX6GwbQ1hvvRJ5mykAWb/st9rEBdI7S +8DctWwb+Tu48Y+k6gL4ZbDk9ki8D6Y6aXt7kPGz3hbh8rUIGdj7WfzmhMYh+ +PLGN9OyTgUSZfAIUmIi19jk5ZstAxGN2k8gOJpIt/rEmhyUD52brYyLMmMhl +TvHjwqgM6NutjRh9wkTyDo1F3ksy8FBxX1fIPBO57znK8ZOVheXuQV0O5UMo +ocXr89tVsuA0EzIr2TOEqm4ku/9SlIVWq92NnvNDSCWVn1twjSwYHT8z77me +hWrkCmUCN8lCpitxUzeAhTTHt+15bigLIm/9o+O3sJHlUzu+jCOyIOCjH8o5 +yEb31V+U1xrJgprZUdbYaTZqOTtqKm1O6oPCvSr32ehhRcp/4edJP2+MO9X+ +sFHvG+WQWC9ZYDUH/naz4CCWb+cMtzcZL0Caee8iB43axJ9xuCcLR6/MPtzh +yUFcNOV1mx7Kwqf826FxERwkF6pUUBAqC5ulXOoN6zlI2a1DVTVSFhS4+3nC +ejlI7URc4KMY8v515UaPx0j+ElM6aZIoC1G39RIuihLIyJ823JtO6nuyK8cQ +gcwvtJsafpWF/itSgm6HSH7Ui/2emiULN5KvTkeZEchxSdH/Rr4sfIvg2tvm +SKArrW2s5kJZeGMicHbKjUDu32OMoUQWtETXL3y5Q/LuDUVFgUpZMJB6rc8I +JvnYtO2ec7Us3GRMfK+OIPlZK2awulYW6EanD6x5TaB4QuFLRLMs+N59o/s9 +neTzila5pTZZWBn06dZCFoFSk6O9z3fJwncjVfeefJL/7RUOrx+UBW1rtlFc +BYEK9Vs/BbFkIUgoStCthkBljGiZCUIW3F9c2cppINCfZadvnRyTha/b04uE +2ghU3y7fnTspCxsKX7+p6CJQW26LAX2WjJcRWqnVT6CeyKhUvwVZaHfu26A7 +RKAhDyupIS4q+JkM57E4BBo1l/c8xkOFVSMKl9EogWa2tLR/XkGFj2Idu7ZO +EIhLKkpfVogKo01p1OopAvGNnkr2EiWvj4tyic8SSOTPKolOCSq4PPIfHJ0j +kFRq83X9leTfO6X88VggkNzjyJZ3slQYWkn9lLBIIOX/Tu0VlafCo7zL/leX +CKRmsCrpCo0KW23PH+8j9QaVZpF6OhU0/rwWWSD1Vp7IqztVqHAwcuR7Jql3 +dVk2xq6lwmdNqdPSpNbLl0M8GlRI+tE8KkvGN4xpSnDYSAU9E2VvPE/2h1eE +YIUWFQzf/uQXJP2ZW1q6btpGBa5NX59NT5P9oSNX92IHFQTFupUeTRLognTT +ztndVDCYMMj9MUYgp/HweOs9VCimslyihsl++XtyReE+KrxSaNRdxSaQx0eq +s6oBFSTGVm/THSSQ95PGv48OUcEkn2XD20v2j1O4zvBRKpRg00rXDrJf1Kg8 +WaZUcK0sCdeuI5CVtcrbbgsqZIXabB3+Q6DVIVqGolZUcN+eKPH/93cZS0eC +zttQoeNvY84+TCCvLae0nlygwjbeVck/vhFon6ND3TcHKjhsfyVFfCJQbZ2P +vOglKhi1p8ecIvsxSjgI61yhwmb1n90RkQSy3Rttc96NCh8qNrMfPifQ+IfM +pG83qTDN/BJzy4dAkvdZ2ucfUOFxm1h3mhWBmrJn6gMfUWHlAfWUG8YEejXM +d/PbEyr88x4fHj5AoM1Wyj9EXpD1kRg0n95EIGMtsyPf4qnw88eN1NPLyfpf +PD/clUAFf061TcYEB3XFuD4XSaICum17M3eAg64IPmq0SaXC17SxU/0VHBTc +iS+IfKfCAy7HsOgQDrKUqeDXyaNC4tMelUf3OYh+pCnZ5gcVdnvizeuvc1D6 +t/GRzBIqENHupwPMOOjv07W3bWpJf3tabDMkOUhC9/nLTDYV2s/LNY7eYaOG +q3Hbu4apEPYH2Ouc2Cju3YcW4XEqBAorwCoLNtq48hfdZpYKfA0djgob2MiI +NZ8qvEIOWC3aAV8aWSgowq7knJIcLKrPRtsqs9CN6z5XvRhysKlArvuFAAtZ +G8fQQlXkoEH4bvS9kSG0XrDuxu/1cqBnmGH5In8IlXroq23bLgfRhirXw04N +oeUnVwcIG8uB8gfx7SfuM5GbTJdh5j05sOQX2ej4bgBZjS1MVvvJwfDfl45v +AwbQvirqa1aAHFhf/vgw6eIAovgfn1MOItcrv5Q0qzaAUifzkx9HycH8svnR +voR+NPAvVtjmixyohNVLqAT3IcuQ05XC/XLwQOCM8eN9PUj+s+AqR6YcPOza +sZgt14PaqzPtS9lysEEi6fXH4W5kK0ZZ5jcuB84Gf7+NRnYjl4c/tZaWrYI1 +Ttd124ku5OO9IXxEfhW8z7ugVxzYid45LbOtM14FAsXtqncMW9H0vsSZ2LxV +YL0m83tZ/h/U3bvXvcBfHvom1/reMsvHe2MrX6k/koe5uUjPt5o/cJyFZUXw +E3nYsfPki1i+Amxdfpl+/oU83IkNch7+UoibPsb95n4tD5X70/f9kSjBf28u +KunnyUOnsym2z6nABRLZpSXj8qBita5S1O4fVi7XH98wLQ8P8rvjU3//w96+ +1Yphc/Iwf25WS0yrDutODVx1WK4AdfcyCJGlOpzdIqMoIK4ADXly1zufN+D0 +t25XDNcpQFUpV0NHWjN+tXvTqopzCiAdovI0s7YDFxwVvDdnqwCO7PvprKUO +3HWmm7nWQQFk8/lqJtU7McPnRbafiwJEbdlv8cC7Eyf8nDkJN8n4duOJIWu7 +cOKxgrDPIQqw7bOo+cSVbpx07oR0RIkCmP0XpsBPzn+/rqy//atMAfSWhVZQ +ePvwwD3evskKBfgstrqkd20fVnuT+eVErQJsYpTRu6/04XfMVaYinQoQePON +y6bl/fj91Z7n3rMKULo+vrRi5QD+cN9Nwl5DEVTOYbGP5PzK2nXa5/5GRUhc +fuW9/zomXj++b+y1liLcTouIoxkw8XsbqX8d2xVhpWpRwFNy/k1Cn8Ms9ytC +zqa6JnsOEyfMDNOOnlEEinlpY37uEO752BDkZKMI5zsFWLfrhjDDIX/ZowuK +kJT036EZzhB+Vfe0u8RRET48WslDp7Fw7GfNt3vcFUHeRox7txcLRzg7aW55 +pghxK5UDHdaycdNqk9gTIYognnlo6s9uNqa27BS/EqoIrecK9o0eZ+MwQ6HR +1GhF2C7v+tPag41fqL7/ovZeEd6vbtZuKmLj2rZnKgc+KMKv2zm+PPVsLPXS +I/TCR0WIpFvo9Q2wcTDPQY9XXxUhu9brTJUQBwd19u+SL1SE/tWet7SOcvCf +sKoPO34qgpnZqSQpaw4WM8pUPFmqCKct784kO3Pwkzw/rpdViiCxkHhj/hHJ +S5FrisRaFGGhSoCpVMzBv41Ftmi2K0JFaZdB2l8OFhKcSDzcpQh3xS6lj7Zz +8EP3Iv+AAUXomjFeEzbDwf6m5w9xTyiC1/vVGy3XEvjVsRarC9Ok/4qvvV5b +CJxz0NSlZE4R3D2Xju7fQ/Lu7gPPHi2nweidiq+/zUme1cl/xealQcy19msB +NgRW3bw945gADUa6flxgkfxopbKuXlKcBuXnqf8leBP4hlLCgJskDdpD6foz +AQQOllOYrZemAVV9TddYMIFLRMUUohRoENtsMt/4msBd/A80F5VoMPVN9WBx +MoHnly+Ds6tp0DKLpkw/E3jz1KjN6nU0CHicqmz/g8BHRhyv+WnSwLSlyK2/ +hMAOQz33BzbRoJ87vkm4ksA+vadDDbfQQEfig259DYGj2+uSUnRoYOVm/mx/ +I4G/NR7LFt1Fg3otyUJLks//1vwqd0U0UBezKJbsJjC7Yk/r3700sEt/9fBy +P4H5f2VztPfToKr+Gt+1IQIzCrS4Qg/SIMHJVGMVQWDdnBSJmcM0YH/6M243 +SmCLr2sYp4xocN7S/YT5BIGvfozRzj1Bg2uJ3cCaIvCT9zL7aeY02H8j7cua +WQInJQSZ37WkQa/z7WTueQIXxghc7D5Ng6tj0/J+CwRuC/Px1D9H6iMVvB8W +CTwTPPforS0N1rxLs3FfIvk/8Fq0gAMNxldbbhogtaY/O9XRkcxn3WPXeVIf +vGuXX+FCg/t/RJT+/z7G9mZ79YYrNGhUfAcUUt92s+h+5kaDil8bayXJ+OGX +qsfH3GkQX+rVmkX6ybhoyGfmRdaD3/EszxyBq84Xyny7Q4Ntx9rPjU0TmHl6 +11q5e2Q+dAr7/SYJzGPxZYeXHw3OMvhm8sYITDPWPNwWQAN5+ejoyGEC7zj8 +9jQEkvUp8WmTZxPYZL/SpVdBNHIeyCzeO0jgSxDuzRNCg8s0sBbpJfDDHZRg +u1AadK9Uy/DqIHCi9qPXvyJo4CB2pzaomcD5mjxf1GNosMA8WXGwjsAT9Ml6 +TgINvn/i83tfRmBxhUuDRkk0yCmk2hsXEVhdZmA2PZkGZ95sPh+bS+CzQk0K +N9Jp8PW8yqxaGoE9eU9saPxCg92ETd6FtwR+sVQOO7NoELLVYfhALIHLxnLP +L2EaHMvMmJsPJPCWlvh3/hU0cFqt67HenlxP02E67Q8NFPWP9R09TWDWHc0D +DTU0+Ddpo8o4QeAExvcetSYyX5HZjzp3k/VzrKWV9dGAtqn07zcxAg/nRLiM +DtJges+2P07cBP4tei5Xjk2Dh7c+3K2Z5GDfdLal4xgN1jmI3Mlq4eBZL+5D +fFxKcN2S6jOUwMEDiXZXIpYpwVURriydlxxcV1karsmtBKK/VmVs9+fgdKWg +ATM+JbgwsTHQ3IGD/yuS93srrATXThFiK1Q5uFFo6w8DqhLkSQUPnnzJxj+1 +wwda5JTg0McZ30kfNs44PS92WV4J9qx4FXzwEhsHpRVYh9OUwPDK81LJA2xs +cOLY/OAaJXAQHdugO8bC3yIctj3arATM4gd3qLos/Kaw3JqmrQTtmcK/tqiw +cAhL0+/zFiXYVC8wICTKwq66E7XNOkrQXM4d19cyhNW67l5Zj5TgbsGyT1Y3 +hnDY2sgPFYeUILdtKvheLBOPj+1PvHdECX6vOMaaJz9PjuWNRm0/pgQ3JTnp +ajZMzHfC8HGisRJkxNSMhDGY2M1r5r9bJ5Vg4wHlw32vBrFxlbmahr0SFHM6 +p/2fD2BhN6nXj32UoFzjml0a6sMOKD9iry+5f+uhnC2yfbhQwCl4+r4SOJte +drg53Is9Ywrv2gYowUlFn6D9cb14sOTK2V1BSmBy/5rg4HwP/ilXrcCKVoL5 +9Idrf73vxnfyA8MOZSnBesl35dYtHZjZmh8yk60E/NmBd8NSO7DZ3FjQ2xwl +mBvyUH3t3YHXb7UM4M5XAp6Tjww1VnfghmQVz+8/lcDtcfON/X/b8OZQfGpd +LXl/gtpnybpm3Oc8oihEKEFAtv/t8YR/+Mgq08Sy1cqQXuZp9mrnD7zHpeSU +RIAycH3RE1FCf9Bsw+D+oofKoGR00l4r6Q/K0BPefOOxMoRqdXyQlqhGKtTj +/K1PlaGsulPfoKsaCRc1ZSS9VAYdzEra6lODGqgcEUhQhjsjKtd3ZNYh12Kp +fBesDMejV1jVsluQ+sZtyco/lGHbrXsmb4+2ou6Iky9rC5SBKnH165q0VmTm +GuO046cyqDnHnla61IZ2rVKj8lUowx+zYC6C2Y74L++8Et2kDE45Ci/uOnSi +WHmb1b8nlGGx84hjn2oP2qG1TtNmShnaNnTU6RzrQbUHx7dNTyvDLs9xdYvr +PYj/ht+h1fPKkJlzg3u+sAe5Vr+/4rWcDlFBen8rrHoR+I3lrxejg9L7sjv7 +fftQU1ROWYE4HQRi9l3dkdSHrn2+X2tBoYN8pLH9RHkfSuqQGfBdSQcp843M +PEo/kti5S6x1FR3q/ZrevYzuR12E7+lANTrEerg7iyQNIC++o/YMdTrc+Pox +wODXAJJWkLmctY4Oa7bUHtEfGECGhu98ezXpcL8z/LGP6iBKT6hI3r2FDn/2 +jOzmfj2I7p2UnmXvoUPlXa2jTYFMpOjazu2rR4e1DMmnQu+Z6JtfkoicPh1O +pDO/zxQzEevzDuX9BnTYeFThh9ACE5mInjGIOUqHxVn+8UX7IbS68O3Lo6fo +cHn9MM/ARhaqXD+d0GJFh57oeonjBizk/tLg83/WdGjueJPrdoaFyi8OVvmd +o8PBymrKyGMWuiK+TgDbk34TgnLf9bCQvOdNmSMX6RCu6VQyOMNCxd3la5r/ +o8PZs5UF3aJsJJvptHfKmQ4RK8YLeXTYCJ9OvbnhGh1O5rwOnPBjI4eSxYBc +Nzq4HZ3IWQpnI8qmY2GHbtBhi3OBZUEKG9nxDGfYe5L5UhXTcK1mI+HkTZxY +bzo8+LTj3EUZkuemM86KB9Ih26OP9eEFB/HY8F6KeUIH3h0uaF0CB6WWm95a +H0SHQg7Tyzqdg5bFToYbPKdDZDh9Yx/Jh0n6OjXe4XSIi3fvur6M5M20B52i +kXTYxfw0GitCoDnZRiIqig4vngxyblEJdJTlIZwVS4fot/rbLTYSaCL4u/5I +Ih1urlSi3bMkUMy8kMmdt3Qw0Pr53MiWQAZ2VjYi78j9ctXQ/zqT/Lx94fba +FDowkge1R+4QaP/rI4GZH8j1AxiPnzwgECEcE6mfRocqn9Vv2oMItLdD99u5 +dDpoTxT/jYojEOvg05/EZzqMLFpg/iQCvfzcXnvrC5m/uDA6+fmFBv28R8K/ +0WGcMsF/N4dAwcN/llSz6aBe9Nsxu4BAuyyVRb9+p8PbVSU8b38RKEijQP1v +Hh1M3wfHhdcQKEnnlIBPPh1uzSXqCDQSCOuN928qoMMm/VINxTYC1R0N/NlZ +SPY31e9yQxeBOCdVEp8Vk+utcZjc1k8g3gv43p4SOryyWEjbNUQgeVcLm5Ff +dGjkqQvu4xBI++YIxJfRQYj7fsiWUQId8ntIO/6bDiGVsclrJwhk84yxyFVJ +hydxeVUFUwTyjMpp+VhFhzx/rxmuWQI9e2v6/Ww1HZ7dukHvmSP9pnPCxWvI +/Lob6TstECg/1989v5YOjzyTT4cvEqj+l5K5ax0d1GI3ODgukX5rsrYoNdDh +AMPfpovUfO3GUn8a6ZDpdObQIqkVmEOjd5rpUCRykY5JrT3hW72hlTz/P80H +VpP6MJfix/Y2OpR6d8VsIOOfF8p88rSDDmbHCg3a50m/0kbOqIsOK2wyB7VI +f8HKg4eIbjqQZffTmCHQu/U+6rG9dGh1bF39e5L0u22VwLF+OogSYeVi4wRq +2JvRvzhAh7L3nj7Tw2Q/HDnyM5VJnv+nR4392KTfk30J1iw6+O/t3pc1SCBF +2zv3RDl0WLckcOFZL4G2XJK1ySPoMOn5Mk+0k/Tr+QlcRujgUWBtvamFQDeD +uhcqxunwOJf3nV016S/Sq+XWJHne+yOueJT///+PVn7XmKbD4NUGvKmY9JNz +wD1wjg56weUazzMJNFzSYbZ7gQ6093puuz4SaEWNxxb2Ilnv/IHAR///ftlg +8ujh5Qx4mXvg0aowAh0Z31c9z82ADydKY6yeEsh2qTUthZcBDwr4OvX8CPR8 +pbizsAADgjftteS9Ssbfc62/XIwBvDlntMwNCMR/ROTnTQkG2H+zLf29i0A0 +izcJ6yQZEBAs7zFInr+jLg3nHkkzICl14oOsLIGSI3a1GCowIGXHR2vjLg4q +SPyXPavIgL15+Sk8tRzU9NEl/L0SA9qeZuqeKeYg/pI4M8HVDGDlCNWJvOUg +uzGe6lJ10i/Ex5jacZD1+32VVusZkJftu3TNjIPMzvmWExoM0DQkNh/cz0H7 +q7h/rtzEgKJ3p9PF13CQSvLy7+e2MSDhx7HXSu1s1GvDlTijx4CF1RdUHfXZ +qIUKrx7rM0B1ZI0IayMb1f65E0s7wACr5j9Rq+XZqEh3KVzfkAEGYU8e5I6w +UILc4pNnRgyQ1jM8ExLOQrZ/59zXnmbAwaY12XwtQ8gqYOf1HGsG+J4v7llV +OIRM4ObVY2cZcOdWhR7r3RDalzrr7HaeASHlduH4Ovn8fzhj8+MiA3yUh2O3 +iQyh7j1Th09eZ4BHTLbaWw0msvk0qhTwlAFzajES13UHkJPPiXnDZwywzYge +j6IOILcTGfXCzxnwxMbQyWO8Hz2YcHsS9JIBqd0He03e9aPU7TNzodEM6Evp +zH8l1o9mfizVvUkm9VEXce6qXhT0VziwqIQBrT5eZw7Kd6OI184OfqUMIOxn +/CWILvT6WqWeQTkDZAvFtsf+6EJfpYNmyysZsOOkpL2IXRdqsZR0qPnHgI3/ +3bmxL6UTqXZT9bq6GXC99nRxpGYH2pjhqZjQy4CyUUe3pbl2tON+88yFfgbs +SlGLso1oR4dVoz8OMhnAo/nIRKiuDV1xVFIcGWEAe6PzpyGDVuS16+5M+hgD +jjc8yMjraUH3Rbpqr02Q+RLiu6Pj3YLC0l4/mp5mwGrnpn1rvjajV9489tmz +DDhCbPgYYdSMko9f2Os1z4B2hZaC78wmlEH/qaC7yIDaWtfMAN8mlDemMrO0 +xICz4d6lvIpN6H/UNwEy + "]]}, + Annotation[#, "Charting`Private`Tag$4154#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwU2nc8ld8fAHAjsl17c42iElGKVOdD00glyqq+SRElUlpaUskKmRFCRQlZ +JXLMjLKVXfa47r2PLfv3/Pzj9Xmd+5zzOZ9zzn2e9+u5ivZXzM+zsbCweK1h +Yfn//1f37Dm1HPz3OM2vkn8EKm+mmp6kXkRGalt035Hx6veiR1TqLdSUmT8S +u0IggdC8TJ42b+QpYi/Ru0SgV8WBChzUZ0gnsbLWY4FA6oRD0Krjc6RnclbK +co5A3QJxK0utoUjN7B7v4ykCqbzl3r6wGI4kuvbnsxMEurT7+uU5hWikmZin +3zhKoOyWnuTpvbGIDb3NYPQTaMHFtGvCMR6FJhbrWHcTKIG169nc/teI3/rp +pMhvAu2rDVk325qIoPiogHwdgUaiDpZMX0xGTaoHc29UECjAYdluavEN0u1y +lFAsJFDzolPYuEIqSl/Q6Tn3jkCelfJbiE/v0RPVqfzlGAJJv2j5wdibhhxS +5raNPCeQ/UZgH3PMQPpidfKZ1wnEtni7ftorEz2ZFlcIciRQS4+l3PT+T8ht +OKT/mxWBbqbx5k+2ZiGPHwkconoEMg4d4pxMyEZC7j3C+moEkr1ZYjFxMQd9 +Ln+zN1ecQMV7b4wTi7no0D67qOQJJlrb2afKUMhHDu3+Mbfjmait+Nt1+kg+ +Eswt3nHgGRO9fxtVNvbpKzqy8t9Fp6tMZHbV7AxtbyFq/sIakGXIRBHcXyOG +HTEytJ0Nu9TJQDk3jK96SBajFnnCdxEzUCxth9SUVzHK+Cl1ZTCJgVwbhB0n +95cgX/1en58XGUg4toptorUUOXwUKJln0NGiQF6q264ylCR+SPJqLR0NPEw6 +Op5QhlyszZKM0+goz/FeHHGxHDkrzu1QcKIjm63bdjIXK9D1UDtzl7Yx9Lom +3n1MoRodumorbhhLQ9NRuRv/BlSjgIyHk76uNHTA8Ud/03w1enc15Joy0BCd +fc7ya3MNYv9CV7PqHUW6u812Pnv6ExmfunO7T2YUNWQssakS9UgvJP5v9NVh +dL9G3VjrTDNSCtaKPJPZj1I+fV7/IbwZ/XNu3JZ7pR81RRmyr/vZjBIV0sUC +NPqRiqNVoaReC3r4tPNg+fs+VMPuo8Ei8gu1Wut+DHzVi8R3dwrXf/+NYmQ1 +Eildf1B6xrPOSxodKL7W5m540C9EE6YFGJ/tQItn586+X2lBqp7Ge9TCOlCP +vMXYQdcWlLCL93X/fAfycNAt3WDajEKrAy7YVHQi+UyfoT62RuTZ/3zioF03 +ivWk2PMWVaF43h+PhPb3oMuPb64KG79Djqgxmn61H72r2W0YtFiPWRJnv3b6 +96NXuy4NegY14Kg1sl01yf2opq9f66d8I66qviCf+rsfze1+J2y7pwmrWSwl +nt85gJIzzbRzbrbgESfVtD+sg4jxYPr4x9Y27Bx6t6gheAgliznv5g7vwWwz +iX9x6hCKrvLz+tXSg1+erGLJKB1CQQ7mZftFe3GNrMjewOkhxO2/d5UvtBdv +epdSaWQ1jFzuN1ZQnvVhekFzQ6nCCFLfJqBSfW4Auw5u6M9JH0WnlieCj5UN +457T7Vwl1aPIKPL0+lPzw/h4m69G7cAoOhxrGlGnMYJ1fwzfGpSmIZZvYh+6 +I0cw+6c3FPGnNMQmX8njaz+KPTdabldKpJHnpKrg1YtRPJK0xk7jGw0J/vCa +FygfxXUR594dmKKhFo+DBqtKNBzlpbjnxpkxNHJx7fxMGw3zzDace3R7DOVH +BY9+XzOG71558Ox5+Bgy7t+qSNMcw/b2f1ve/RhDJi35oso+Y1j90CuXth10 +1Oae89NAhY7jSkxDBszpyJzldeRTYzoW0l/KG79MR7bhanck3Oh4drMtG3cy +HUk3hdYI5dNxiYhUtB6FgWT2UfaeNGTgbYFVRfs3MdD+jbtcWuwZ+C3nzYFj +BxjozI6y12HeDBww/1vT2YuBZpwFBDoxA5/4G/b95QgDjTcUFTprMXGV1T76 +W3YmemXfIDhmwsT6TVNC2fJMxDXuH5FynompFeanflgw0eGQoY9tEUxMe0+Z +XixmorPTW6lLBBPbqRRLcXUxkV3rDR7LNQSuf3UFic4xEQffhydDEgTOCa7z +U99MILmEOMNPuwisynMvU/cQgdbp14ePHibwy0ebf+87RyDx4F+vrU4T+L5n +gOKpaAI9qvph2O5F4ElC/+DFHAKJXIoVofkR2OHi2KXr9QRK284ttiWKwK19 +L0Mf0ggkMZ0/8T6ZwOs01nV9ZxtHaZFu1jaZBP5DW2KaUsbRXuBl3VNA4Kh3 +LazNcuPITOZJomUFgY85pIlabxpHq+uXlxLqCMyj6KP6V3ccPW7+2KLQSuCq +XSGa9/aPo5DCdR0Wfwj8xCpuh5z5OJo3euDYOkDgfdc+oMLT4+jQvUNW72gE +Zgv+ctDWZRw1vZrwLycIXPyh4sjCjXE0O9A6qDFN4HuVTSejfcaRv5rB4aE5 +Au/q/3tGN2QcHfvv1EfaAoEXVuiOra/G0SOZgzP6ywT+Ir1wxfP9OLrxl12y +Y4XAntvX3hT7PI5M3Hz4KlYJvM1c9EFO2Th6zf6mdomMJy8r+h5vGEfOpzbb +PCTjzGcawZNd4yj3d0OOOXm96xv9qJDRcRRppjHgtkRg9ZJDCVtmx5EQR8Nk +5zyBx7osU+rZJhD/f5uIF7MEfv/PPtNVcAKde5kwFjVJYCdRty/8shNoyu72 +Co1B4PVb7hanqU2gWgOGgd8IgQdM/KpMdCaQu4FEi2cfgRMdIxtoBhNImWf1 +d2Yngf97lNz2zGwC/Wfwwk23hcDy8Z961GzJz2ek1vD/JHDX16KRSscJpGS5 +IqxVRu6P3z/GL1ybQAku2ncS8wlsNdn2j+PhBAoy+6Frn0Hglg1TXPteTqCL +N9Nf1ZL7IXQ/i1D/2wn0VP1y2a0AAh89yy/lnT2BzMo89a/fJ/DPKNUNxT8n +kOejXiPbcwT2y9mmdaZ9ApXwJt49YEHgQw0GeiuDE0i3zGmP9z4Cl6+1M9q1 +OoFiNfh+0pUI7K188Vgn7yRKVliykBUiMCBP69uSk6guVrT/1QoTF3oGX/yi +NYmqdzVlRrUy8e3QV+4n90yipJSlGuEyJtZNf39r1ngSMZ0t43s+MnHOYPmz +bQ6TqExHyfLWQyb+aDGfmhkxiagei11pVCa+5MaZdSRpEllumw5v4mTijQEi +X5kZ5Hj7rVSP0snzXra5Rr16EuV/7VWzzGXgOG17WsriJPKWYKuJRAwcRPmx +8fV/U2iW44dHmA4d5++QyzVznULDjbM6twToeOD0FbR0ZwpVrl268mZoDOt/ +FLE4GTmFxrvFnNrCxvCIkd1d/rop1HwgYfv3ERre+4hRf0t/Glkb7GopujKK +Xd8jG1WjaZTo6bwYv3sUv2wMGWg5MY1C8kIUOnlG8bjC9nnNq9Mo1THjpUPS +CI4rvKc0lDKNKoI8aKM/h/G/GcHr5uIzaOHWtpo5tiGsLGe/uqo8g/JO9B6S +rxzEZvtynn3UmkF7nXT8c/0G8ZtQqziuwzMoGRW92EUZxOaaryuLHs2gz42W +fO2iA/ijk7b0pokZdKGipDCfow/bd1pg9p+zKOC6nesFlU7ME9N72b19FrlY +hB5XCu3AWTausn+HZtH1K9KVOqvtmL3j6a2vrHPIZfNfmjt5P0tu+7rVfccc +0hvtY3n74Dce+kVN+ZM4h0KVNlyA/Ebs3EAPzr/1D93m9LAZvoGxe4WP/RXV +BcTJHZQfbVeF5AcOcM5uXUB6KyVino+q0Q827vdesIAEzavyKlJr0DoInHhm +vYAyt3VcejP9E7V/DX+Q7L+AorY9mbYpaUAGmW/j2okF5PhYLvvo7l9IKKaq +Y++XRTS1QN1u39qNivL97tWUL6KEj5ybuOz+IJc2U6VjjYuozac5lbPnD6oQ +a7x4mraIVNb6jLAO/UW3gtv/3ZRdQgd4nKwbp3tQ72OaePqDJaQ/euRI6FAf ++uTGd1zSaBk5d+6in701hH6+FLn18cQyks4UOymbPYSGyqXjDR2WETtV0Hcv +fQhJS20Yu3R/GVl6OF9vshtGPiX7H5XkLqPE0KHemu0j6ITw/WxnpRX0NPLI +0szPUeS260n7quYK8tv1zad1aRT5XQhcDdu9gtps/t2nqNMQ/hpjgq1WUFrG +Wh4fXxpSO/elX+T5CrK3Pr18VG8MLWRPiHxbXEHer7WdA2/Rkeiff3rm3Kto +aGV5439xdKTBxfLfsPgqujy/wexWKR2dsxNIE9JeRY8aOiXucDHQzzWb9l1w +WkVHncQPJfsz0JCGtvPi9VV08vJzv5D3DMRirRcc/GgVjfHNnCuqYiCdjwe7 +vsatorSa0MZmNiaKs3S4JvhrFUmkBp1vv8xEX+67vEzuW0XBdT08GU+YqDn1 +arHe+Cpab3YvuyiOidbcB84sDhZQdr+Y9OwnEwmJ7ov24mMBimxeyd4+JpJP +Pah+UIQFbucdD9Eh75u6zWbmXVQW2LNBb2ORPIH2O5kPvlVlAVY/yanjWgQy +X7a86a7BAmLO9y4p7CV9o3oqjnMXC2yNs0qxdCDQrcL/tBoNWcB3xOEF9iDQ +k2MO5TFGLNAlsvnBKW8Cvb7jQttykgW+hY6MbH1FoC3F3P+enmKB1mxeSEwh +vbAmhePvORaIVz+QdCqbQEeNDohsdybbdZm/zn8jUE/gADXQjQViZ8ziv34n +kFuTt8aAJwtMvE6tsSXvy6viirv075LjVW1XNWolUJAtNgp9xAKalqq+3n8I +JJ9w6uToMxYoC3pTvnaQQOkDiw4QzAKmrL8/t5H38d0bXl6NjGCBL6ZtMEP6 +7edl3QfMWBZY+lNpeGqaQHZZvwP3J7HA5cjCZMo/AtFnr8XEprLAw+M/jgku +EuiOvkjqVAYLiJ7n1LNeJhDPg095xnksIDF59zCT9OXL8iPlrwtZIGM3PKkj +/bmRm9n4r5QFyjus/8yTcf7hgL9HqllgufKXhRsZHwrdyHhbzwLq17/Rtcjr +235XLSz/YgGFLMmPe0ifOsk4cll2scDAE0ZCxDyB5s5wiKf1scDdGdSqN0vW +PzlJmX2UBRaShc6pTZLPOaMGWjYEC/B4nrW1ZxDo7eaePZ9mWICTdVPn8DCB +dK7eM+VaYgGH5fOs+b2kl/Nkbc6wscLHUI6JXx0Eslj86pjHxQrM0LmGPc0E +GkDW1/kFWeFTnPLPqRoCefjMeTuIsYKHtrPQTAmBQvm3xQkrscLR/jij7o8E +UjJv+nBRjRWQDzW9PJFAnyLc8os1WKFZuxfNRxCoQeFji6s+K2SL4nnjuwT6 +z8Gkr8KAFfSKOLKdrhCISBklZA+xgtnmzoKW/0iva6/n/WHBCgnP8rmjDQgU +51kuqWTLCpZRZqsTWwi0ucB+/a2zrBBa/eTNSwUCme6LN1B1ZYVnJe3PuxaY +yO+E5M1HT1nhg3Ofr0YqE0nH5D3uCGQF+oJYOOUFE6X+tXihFcYKKu42dfu9 +mKjKKST9bwIreGO9+g+mTMR5h2dQ/ysriJp9oVwfZKAInDIZWswKWqW87qvV +DLRuzUEW2ndWkGBZdO39yED7Ah/JRDWT45XKlaV7MJB3/NKxaTor8NVoSjyc +o6OjW764b5pihRHNSxEPWulIvsQjxH6eFdjODTn259HR1z5aQwMHG0TvDK3+ +5UFHk+vaj3yUZwP/G3u+PBwaQ/ZpuYcvHGUDLwX9S4kZNLRlt/vlVyfY4NO7 +Nbu1ntDQSq16YIsdG3znkJvTtKOhl0TST8OLbLD7AFvBA04aatIONVHwZoOs +eHWdZxajyCDf1agtmw38pp0M+VuHkYDxxouCX9ngqp0Ele/NMOrqGPQ9UMwG +YOLt70d69eaSXVXOTzYwSMo/ycM3jDKRycGQQTag3p9y26Y3hKjfVfcbS7CD +zLu7AVvuDiCW5h4ovM0OttYWJro5PchntOj17YfssH/SRGzZtQdxs7xi0/Nl +h+Cise9WG3qQ8Gbr8txwdnjN45T1We8vWve08WBGJjukdExRfVa6kLF+qVni +EDu4/XDJM7zQhl4kJdn5mq+B+dedUQXBtWj9tQs3LTZywIZcUbH+nbl4886/ +x+O3cIBxRKhzUthnvI3FSpO2nQMedt291sPIx4YBRkP393LAqUVlm9i4Inw6 +Wd3igx0HNGdSBFoXy3BEy6Qm23MO6Jjgj3DdU4s5dO4PZ0xxwPmF7mvuca2Y +b3GudGGeAzKMf5T7bWzDwiVucftZOGFdxb0ncnltmHrY3rKTjxOMRT/uTvrR +jned31/GuZ4TdiXF6HcSnfhaOG/8KStOCDsVJrmVvwcPzESe4P3GCc5e79nm +JvpxosFWj+4yTvhQ8+RPntYAPhNY9zyjhhOCJFVeTboN4A4VjurjbZxw//aR +I62MAdx4/Kp+7BQnKGxsUdzQO4iLPplSN29cC5NytyQi04ax1/LwrtUta2GH +IP8/m/5hrGf0yLpxx1oo2NgU7C01gnN68kOv718LRsZ15+cejeD3gqocRf+t +hcHiHd3Hjo3iyMusNLPItdDY3ZWR+pOGLfJjORXj1oKHX68A3zwNC3PoKk8l +rwXxi5Vz31TGcFCsq11kFnm92pFp3ttj2OdHZ93f2rXAOfXeQ1uWjg0lbox9 +alkLCc+zuicN6XjVXpjLp3MtuItbnFtwouPbC4cM1EbXwmm72b6OLDp225CX +7baGC4SCud9X7mZgjevHGgx5uSDs2oHvb08z8FgxnS4qzAWcNSJFFfcY+IKV +8vp8BS44YvNtCRcysEpykaH/ei5YE6eYHt3BwH2E9ZlTm7lgtXgLJXOOgU89 +DY5i1ecC9U/Kk881mVi6eVNuswEXNP3wWmNlzMRt8pWNbw5xAfeXa3RrBya2 +yFvmMT7BBQOfiqO5SL8aDzrfDXXngqrzBQIs40x84K5y2r6bXKB8lENYlfSr +oVhXx+w9LhDXz33sR/p15/7DurYBXGD2SL5jDenX7d0cjvwvuODJy7YWadKv +2teLwnE0F5xtWPVwOUXgjW80p5TfcYG33BJXwR3SR7tHFH9/5ILPCjko/xmB +lX4lHPXN4QKXH0mx4xGkfy5b399ZwAU+8Z4//0sisDSHcDq9hAtICj/gJn0j +/qqmK66KC6iNS1dopH+EdR7xHqsn2xnhluzlBBao1d/J/psLrmr2ThyvJTDv ++Wmn3C4u4DipzNP1i8Bcy2mRjv1csNc5xCmmm8Brws9/l6KR8+M27woh/cqy +WX7mxzg5/9f39DDp16Xy38r35sj18laxVh4n8D+75+ZbVrgg/dd+qSLSr9PT +Bx/2reEGefcOu+f/CDwewJIZxssNfCENvJGLBKar5P85IMwNra78Ir9Iv44U +uvPPS3JDSP5lByPSowMWG3d9UOAGGaJidoqMe+h9zqfWc8NqeF9FCxl3+cRE +C27mhsGTvk1jpFfbZC2qSrZyQ9mSh5Ie2V9LDt+cx05uSD1gU1xIernBtGLd +egNu2Js+XOBJevrnwF2LtoPcwMVSvMFxivS71/ZHfmbcINpxVzmISXpOlPi0 +y5IbvvBkVY6RXi1Oe9fDtOWGyvo+vQekVwv3/Sf42p4bQmf9Ek1Ir37pktxz +/CI3ZHVJapo1EzjnWuMlDjduiDzGEPKtIXBasmHNxbvc4Fv7ujAxj8Apuxb/ +yfhwA//QFKvPBwInt2Sr1vlxg0X05ahX8QSOXbPusXYUNzye7Bm9/ZjAUbHd +2QNx3PBDKdkI3SBw2LaIvog33PBkSm7fbicCBzqshcUsbrBLjvQdPkh6dQm7 +fsznhjfRN+LCthP4SdjNV2eKueGERfWQlwqB75WPLpTVcsPrvUOdLKRHb9sl +bvBs4QaHspN3Xo0ysee0jZVaJzdMJT/UvtHCxK4qP3MDRriheFWDbeAdEzsX ++gzsIbiBehpvvRnMxBcsdotMzHCD95J0hslNJj7tk+5myc4DG9/EjmbtZ2Kz +geBN8vI8kCFUbhjWysA/Nw202KnwwNCuPYo65Hk28dhxL2YjD8TXtTK1Exj4 +ENufBskdPJBfcbDk4AUGNqRu8hQ5ygNqhla0YRodFzveUzA/wQO2nHcbHtbQ +McporAq244GzsXrNd1PpeNeemzICF3lgzT8KZ/x5Otaxqyjm8uaB5FTO0pe/ +x3BOkqTzQV8eUJBliNl8GsPaYy4iT4J4QKfVIOCh/xjWuC18gT2GvH4kXpFv +zxhWizrDu5LNA2xThy6rxtKwbMu85dQgD8gYLv/e9X/Pyhxe1aLzwIuh4cAh +gVEsdS4hxW2SB7ZRhts5e0aw+OSBRcYKD/gH79fNeDCCKZSwhBEJXvj8pqev +oGAYs5tqjHUb8YLjxaCOHKkhTCuzf1D1kRcmN+320rrbhxVC2pyDcngBH8l+ +G7+zD1ucNrO0KOCFm9o7dKPmenHRP72NPVW8sEZuwULTrReHbhZqmevnhW1/ +Qz3X2fVg/UisqirNB2tuLxVdM+jCAc6y9Y+f8MHMVOCGhKYmrCH0W27vGX44 +kNZKBFx6gYYCh7zDz/PDK59puD4ci17xzA0Pu/CD2+T88+4tSYhvjWRWwE2y +PVRqT0VqGqLNWh/4HcIPES2KztHVn9Gbrm7Xi+X8UNXHlXrcpALJpgzi5xsE +4Mq5sxINbc2oRWVWpU9TAJRYPVx/O7Ug/9ecftu2C0CvnayQ878WtPBS1aLd +UAAoTOkEdfHfqC3w4oiSnQDEE5VGlSbk84IHg5IXJAAhj7vt42O7EA+aOds1 +JQBtpm0Cs2f60E0DNa68BQEwXVyo5UjqQ0N7bdOfswqCS5Zi6MvBPlR6qGTB +UFAQ9JMOHDG92I9umwe+SN0oCNwCE7avnQfQ2Pl1FZ5nBaFbXbcz8fgQsnGy +cjnqJAgv3nuY7QoaQlXO/kIbrwjC8bW5NKgaQslXJk51ewmC7sHyt493DiO7 +W99m90YJgqj2i70tEiPoZ4ClmlC9IBQXRKyY5Iyinc9962i/BOGDr7QxY2AU +pYQUXCvvEoSNCnl5/aI05BOhWHKDJghsR1I5flylIfmGWXWCjQJCL//MnF0/ +hiyPUVjsOCmQIfj3rd+xMRTQtKG5ipsC+bJTwqt3SP+22N1KpFDAesap+Hvd +GPrdXlphKU8BFbsL09kudMRv2xVVqkgB7WafXtkQOtrXNeOiuY4CYvpM0+pc +Osr6oybMrU4Bb4VHnSNLdBTUH3S6UI8CU+dTwzZ4M1CFQ4rWht0UeH5vu2D4 +awZaGixZEwEUuO0uzra7mIGcR6bfXzlIgW+eWepokYEOMmzmlCwpoJsomDvn +SPpY9FHzfSsKtFe8UCl6wETT+h8yumwpcG1a9nlpFBMl+C06RtiTcTb7nPd3 +Jpr9pLxv6jwFPpmebtzdxUSH202oRy9SIHM3/m/bBBMtqMa2cbtR4Pi0TFCT +JOnRI+U5FzwoIHVfcsutTaSfPOnBZZ4UyNVQfm69m0DHK3YZ3b1LztfxfmnF +aQK9pzus63hAAcVYvdKjrgRiEQ1k3eFDgfKItl8ipG/S7Lvzx/0o8PmL2neI +IhCbH0fE4aD/57syk5pMIKtPm6++D6GAgjNXj1Em6dU2S7O14eR4uyx2UgsI +xMFyb6NDFJnP6ymsXkH6VPUtZ0kMWa+wxS1X6giUZVbXJxdPgZmrT8yHfxOI +y3O26HYiBTa75jLDSA+ffiUf0/qGAtP9n1pukB7OKT9wY1sqBehh6W3Px0i/ +0l2Ph6RRYGPBSHPXOOkxkUhNZgYFClhSk0/PEOjzTsxrkk0BuRP7NMRIfwrY +Dw+/y6NAZIqsNQvpU4dnguVrvlLA4+ZrYSrp16+ZOxLOfqOAyJGjh6+RvqW0 +nfEqKqZAr2guyzIZX1h9aiVTTgHBg84bvpJx4frMbTcrKbCDX6r6A3m9sFkb +5VcNBao1bg01kv1fvM7C0KqjgOnI0UD1BQIVx6pVBzVSwCfhWl0B6V/x8qNv +xlrI/Xr3O75P+vfS2M2Hh9ookNam43WT9G+p8OtTbzopwBlepPyW9K/kzmo9 +tr9kvc2dOrlI/7qenRA700eBsw/31ya0kx72lZosGKQA2FxVc20kkEymQZ3k +KAVi0kUU3asIdLX14vvrdArwx1uOpxYRqGol5EkTQYEjms4tkjkEuna4b0/A +LAU6Dg7To2MJVHONR2Z0ngILRaV5ac8JRI3Vntu/TMZL5sWzDwlUS/POWGUX +gtX356a1HAikIvzB326tENyP292lbEGg23rNjvk8QnDpw+17ZnsJtN5Xmeoh +JAR3BK2TjpDe9cowWaoXFYKinQSPKh+Bmn57tKlLCoHVjZ+zuv+Y6P668uAh +eSGgCljYCtQxUVupA6uNuhCUny5wCnJjonGDDum7mkLAnafBxmrNRGtLjmxL +0BaChgbt2B/ARNvxTschXSFon4pmOAswUVgBpfbqfiEQUSgJ6SXPb9rOJ0Ph +h4QgSUc4UfkxA5XlL65+MRECy7rqg6WODDT5eUh79ZgQ5L161CuxiYGO5BRG ++Z8WguMZ4jPb39PRha3aWelnheBw8Jc9br50dC/r3Y9GByGoyH8TxnuBjtIy +Q1ckXITgXIKNvYsCHfF8dHJIviEEZze5bh70G0Pf34hu+RYsBK0n+zJu7aeh +Pyp+Rj0vhCA5XchsmzQNzSSt2rNHCkHpRsnLp5mjSCWRFm70SghWDlxaXBM+ +irzjihd/pQrBQ5n1b/M6R9CeyEuVzFIhENr/437wkWGU61t+mjojBDP0q3db +2/pRivEPyaf/hOCC+4G3QVH96CVfUxNjUQi+T342/n6yHz0I/nuggE0YHJ2H +47+19CHTqAWNExRhyNB3PL1Y1Yv63m1Z9d8kDO9Uv5500v2LBCpj4+fOCkO6 +wC+lC9O/0AWO6z11dcKQp/R1qJQ9AUkrVLcuNgrDUPvnm/cfRqA6Xbl6tV/C +0GhgNDk58wxtv1TxzbtTGALK1Z4MGt/EnM1iMdtHhGE5n5bjJPYWv0nIs4xj +FYERW/d9SWuL8ID+v5rL20TgWZNvSWV7A46yNC19uUMEdNJSmcmXGrHplYT8 +yp0isOfA9n0Kq404J/FQiqKBCNw+tvnKH6Vm7MMd/fjXYRFISb57Xf38L6zS +qge7HUXgGDVRe3dTOz539U4u30sR6DpsR0GyvXi79p/cDa9EYFro0/Zttr2Y +ZxLyDiSIQF/X88Ka6F6c6c75+cFbERgb4A77LdaHl9xCvkxniUChQ/Xrfdz9 +OOLKu4KuHyKg0LquzqZrAF/U5CmcrxOBS9b2yTWig3gXcalQvEkEtNk3+1ea +DuJ+V+1vR9tEIOr5SOW5gkG8xfVbUfmACHDUGehyvBjC1ZeaS9KWRcAl/oE+ +c+MIjlXfXlrNIgoKU00v39iOYDd6VOkQuyh4PNu9uc2ffP66dLqMyiMKn4xk +m9/TRrC9y2h5mLgohEmKSdNej2KdTaYVn6REIaovYuZ03SjmGkuvqJMVhY6n +K/IHF0ZxhvO171zKoqC1sJRw+SgNL11crfTSFIWWa6qT8zM0XL/BvipaWxQK +77l9IeTGcOJoeVWejihc9ZB9d2z/GDa66Fc9ri8KavSxNydCx3CEk9gPh0Nk ++7Xu62br6FjTcVOd6VkyNg22N9Zg4D8XFa58dBCFuxdCpLSOMHDAJRGKgJMo +iOeYF9teYeBR98Vj9a6iULJeP+XWRwZO8vrx65gX2f+u9lulVCY2v489s+6T +MZv2+mx9JmbxzpYQeSQKSdLfWnotmaSPY6xbnolCtbzpq9mnTCwR6tJ9IlIU +esNCMul9TPw97My9zy9FoUitgVo4x8TXIo8rSMaR9WD72lXOS+DGWP2z7cmi +8CXGducDLRKh8ZpsO1NEQZPt36jWXgJrJConvfxA1kdQkFXGgsD+73gHbbNE +4cb9zC8hHqSX368+LswVhb3lJ5/Le5P+S5taL5cvCvD4i17vcwJHZAxX3i0U +ha0hT8+0xxJ4f1an0x9Mrt+mwI+cqaQvc+q5UZkocCu/++WUQ+DEz2Xv47+T +7RU1QatFBD769bMJS40o0PM4w2uqCLxa+IH+X60oFCT6pFY3EjgdxweWNIiC +UKNf6FI7ge1KX2gotYiCdtRdmXO9BOapeFrv3SoKR9J7RJeHCZxfecetv4Nc +fxsrixoGgZ1qrgjt+yMKy97vc2omSX/XnstK7hUFqXgstjJL+rH+5HGOQVGQ +9k6ycyD96dFkMn1+RBQyuZ94LC/93/co/PuYKMSlFhhVk35taN26XZUQhZzf +35orSd/e61BtfTpJru/RTbzzZLy5W+bmyIwoPDSpYtr9379/BaWM5kUhwPOe +9xTpXb8+9q+pS6KgO2BXX0j6WndwzoaHRQw86yP7v5D+Hh4eW3RmF4Ms8G0a +Jn0eQfsb+4NTDD6GfMgxIv2+j9G8W51HDGwbEt/9of3/fXrlnwB+MShh0a57 +S/r/9WTBfQZFDPp3o6OJ3WR9ZzKoZqJiUJPfaNP4i8Arc0kl6RJiEBBLoW6r +Jb27EGkvKCMGj0oNWmvKCGy77M/uJi8G8dZVheH5ZH1ZHiQ3KIrB3Cll4fB0 +0s9s1/ZrrRODxzNjctWJBBbjsns6uUkMvvgmBjT4kvXkOap2XFMMDgnpRCTf +JvBV/n3V2dpiEC11OyndhcD1wuq81/XEgK1axeyCCYH3XL48GrNLDKgJfWp7 +9cn1rkyvLEVisCpgdt99I4GDvLR8KAfEQOTCiHQ5J5n/76v2O4zE4MJxD9XR +KSa+rJUDp03FoNz3zJ6zPUxsOrR9+YO5GCz/eb/X9DMTF8LNziZLMSgziZYo +fs3E6jH5+fNWYvAhnK3E15+JeY/u8jx4Rgz+ejz3lT7FxDX5BkSfixj0qEY7 +mf1j4J2ij2q5r4hBX4Wq6Y1uBn7vWv5hy1UxeDG1eni+hIGfKR90undTDBoV +PojzPiM9HGjaK/VYDERZ9ly+IcjAFf+dbD4aJwazPjzufCtjeFtB1Kcbr8l6 +lr4Wlmgfw8liHc/jksWApX5c4kn2GPapsTOlvxeD0S3FUWEXxrDhNvuKp5/F +4N/lyF3+FTRcvPby56IGMXhY76+e4jiKt9inhw82i0G2sOone71RnFBIePC1 +igHPgy7DYJ5RfN/96habbjHYr7v53aEPI3hP543UmVEx8N5o1mAyNIwL0r1j +1NnFwSW8CQXvHcKcppbSkZzisK+hUc6BawgfG1WNZuURh9lrT0+9+zmIh5Vr +I35TxCFg28b13scHsUi0ROgDeXGoaxFOzrEZwC6P0nxb9MRBxaKM98bRPixj +9fu6l5s4pJgUXG+q6cR3WDce/dktDqLpFd3CnsV4aB9v2/pecejs/CWz9XIR +PupLP/NwQBwK9bVW7zMKsIpgxpXtY+JwuHzXcwl6Hv4pu+15wj9xOBpoOzJZ +kYrldffUXRORgPzdYyIHabGo1NXcVM5IAiYUXi03RVci9aytLTdMJcBznt4/ +/asKRcyI2jUdkYCDF39+uCVUg1y8Wl2enpAAgdU1OQFPfiJRPzv/iXMSYHdq +MmM1uwFdeHOhpuKeBDz25Lid/uAX4um6fcg1RwJcxYvvZKX9QdtvpPI//ywB +xv2WfCpb/qKzwm1NGV8loL772exo1l/05ZDOqYliCaCPmtZtte1BF3IJ92u1 +EhApoLnV1aYXlQQ5xNwekoA4FleHNwf6EX3Di/9iRiXg6a/kaDvvfiRZUbKu +kC4B78Wsr6R860eui/KZy5MS4Htg4+A/7QEk69Re/mBVAhT2WHZbSw6SnjZj +PpGUhC6fpwq8taR3u7yy38lIgkLWmYybrMOo/saHm1XykvBM2Oi1o84wWp/O +xc6zThIobsXbK2KGUbN0mUSgliRUGFx78Z/9CNKY3mHwwlgSVsG6VP33KLJ5 +foEz57AkrNXRSt7CRkOPN4b/aDkqCXW/TM++2UxDXf9NWoqflITJ+q/Z3d40 +5Feb5hx9ThLg85SFG+nhwbeKYfFekjCmXdpkd4yO6D698+wPJMGoe9VqzJOO +Ju1fn3F6JAkxQjsSS2LoiEVBcZOWnyQo7vKtMuinI+lIamlppCTQrg3evHGR +gRSv96iqxkhCOVcqz6ZnDKR2PCHQP04SiFgzN4UUBtIRpFpbvJEEw9SPLyv7 +GejoU4XxwSxJCH8akcNizkQnz/+1NM6TBJXlQL63Lkx0em98QXq+JAw33bv3 +xIeJXFbln94olgTfgJ1as9lMdLX7D72zTBKS4pb2+NQw0c2COHOolISQLeks +Jj1M9OSGvDx3nSS4Pld0f8BNoEDLP48uN0rC1dsbxJiyBArbGjfa2CIJI3+z +T4ZqEug1IZf7slMSxJMrO7zMCZRS2y29+kcSaqaO6ZXakz798OrBuT5J+HTi +wtVdV0m/OcqZqo9KgvnvmJHaIAKV7e/+FEyXBAdqy6WBGNI/yq8kZghJOPa4 +2lojhUANrKfuWk9JwqPmiTMfsgnU+le2/9usJJwSn9hmS3rqz7euQ0oLkmB9 +I+bFbtJbAzGx6U+WJaFteVbfnPTY2C070TEWKdDcvHsqivTa5EnZ20fWSIHC +w65HQqTn5nW6/mavlQKvqlvfCob/7/HY/ZK8UoBOT1yLJD3IOWn7wUtACj6B +lU8y6UX+BhmhXiEpGORcrukjPSma3um5X0wK9uQ4bTYnvSkdENOVKikFh5zP +hE+SHlV0tjUUkJWCl/96JspIr6odkkm5qiAFXcYbdnwnPau5vpO/VUkKZnIy +T///fe/2NTEe+uulwFhO3fEUGe/qs2mP3yAFihyBFpPLBNpbLI3WbJYCySus +W74sEsg4riPZaYsUfE2aWpvxj0BHvV7y1G6Vgp0t3OO/pwl00sbGTWuHFGyL +Wce6hfT6aV3p3+E7pSDT9pz1VxqBzot36C/sloId96RkPQdID09Hvz5tQNYn +oNX9XDfp1ybrtWX7pGBB7byv9y8C3cqUuqx6SApMaMWhzT8J9CCovcnfRAo8 ++RWqT5QR6MmlaN1xMymY5x1x4ssn94ua1Jp8S3K+O62mBRMJZHd6/bt+KzKf +BPeJXRGkX8O2GgvYSQHvYOX3z88IlLN6OPicPVlvoUDJKFfSqzq2W4POS0GA +z9zmlTME2ufi9PuLkxQoBYUezj5KoJbf3rICV6Rg3x/g4ttCoFi+YKx7VQou +d963zZQnkIPhK/tz16WgqtZwwxvSu9MfP6d8uSMFjT776h8OMZHIY/q2c75k +vRfMrUVCmajj63xroL8UCJin3Dp4h4kSxznvfAmSgpztG9PrzzGRtp1iCX+4 +FGjbMJ3+aDOR+dYTh7+8loL68L6ANdUMJH3x3HhfMjnf4y4xI2kM1Bfn9oI/ +hRzvq4TxumAGusrj326fLgV3XN1FP1gwUGgvPs9fIAW0oU1si7/oyEailku3 +SArMO0Zi83LoSOlwxwf7EinQiHx7pCGUjrK+TE98rpSCitq7y9TDdNT0fMM9 ++xYpYL89bnj46xgS2vMi4jNDCp6WZFL9b9BQm0eCXt+4FFCT5+8/M6WhhNSP +XXzTUiAt/dJvikpDW8SqlOwXpCBC+pqXQNUoOkpfSudbKw1fbm98eEdwFAW/ +vFB5lioNBXLbu6V8htENT28PL2VpmGIPCzx+bBidNo9TiFwvDeuU/nUIyA8j +dZ7fN36qSwPDec07gbwhVH1rv9oOPWl4EVktYN4ziNisVZ7xmUtDpRCtaUR+ +AF2X6DP+/EgakuNMWtpNe5BN2Kk6vmFpOOL8QaOwow7JZvPIuNCkYWOr+d6n +CbXob+Nnx2qGNLi9+7g3/PxP5CAozPpkWhoms4Y9ohnVyNXv+9ZVVhk4ufbk +HYXZcuT9QDN6QlYGLj9rF97Uk4tSL7E6/DaXgb0fjt+69iALX/JPz9x2Qgbc +A9eZIY5crPHedjnUWgay/s4sPnr2GWcN50Yc+U8G0oXuvtsZXIgL7Z2rqy7L +gEbYiX1mxmW4wapZo8BXBpqsEg7F69Tif/vezMcXyUCevsDde7pt2Ksg/lF5 +iQzUyTH2d5W1YRbtl/yj5TLQ/KrtZqZZO16r8FxR+4cMjIqVCGfad2Dx+ZtG +5a0yoHnqx70vj7rw1o+m0SPjMrBoyK+ZfrwH5ykfVOafloF9ZxiaZ8J68M6X +Bh+15mRAXydeNKelBxs+3V5ye1kGjg72zey16MVHz1JH+XhkYZ20mvcvsz7s +Kjatq6UsC8ffia8L3TKAJ/2ZpZbrZeGOvvLDP84D+DrbqOntDbJQwRrrmp88 +gL2I7v/KNGWBqyduQUxiEPtXV/pa7pKFMPkLhw/ODuKUuzFttyxlAVkaS99/ +NYzVp8Pt46xkQST4lo9ywzDOdA6ml9rKQnF1YeJethH8+eRjFj57WQhavZU8 +6TCCv2tdUYtzlYWAOaFVhvIo7h80vFn6VBZ2i7ZOXn9Kw4bxdYkb/WUh56Lr +zrYcGk6wsqkNDZKFGAGddQG9NHz6h7vSuXAyX3Fb6wHdMdyRmfCTPUkWsl6/ +cNnxdwzrOavPubyVBfDe3b12LR1HKX9RbEmVBelj8uaKGnR8IqLeMzlTFg7e +kz286TYdN91Zoe4vkoXIwpMVD7gZWEvHz+RjiSxkHn90+d4mBg5minmKVcjC +nv1Xk76ZMrDZ2c0/Bn/IAlVYz3o5gIFrDthdf9IuCx7iSudc1jDxBpaReGaX +LOQvGdSdJr3sm+9Rc6JHFr7cPOsbSHr5gLq/guqwLKjFVai9vMLEpUJfqyun +yf6NuIlTdUys+GP/tOY/WdB9ye0jNcDED3wa5aMWZcEod50z7zwT75kb8XBi +k4MT67p5g6kEfpV5La6BQw7y7D0rFLcSeOkiS7Uutxz8V7/55/A+An/tkpDn +pshBuzzbrMAFAktFJB1yF5GDv14f4Mp1At88ounRLi4Hfx6HqLL5ELiVq+CV +gbQcRKYHmlSGEHh76YGqVDk54Kj/Yl4UR+DwO02TQopk/5cvjwy9J7287bTc +bRU5SB0y+gZ5BM56d/2q8SY5yBc5zvq0hsBCZ1lfZWnIgQgo0q82E9hNOrBS +WlsOqqJO8T/vJH3VLDnprSMH89ZiWzr7SN8HJsuO6crBeF6SyslRAgce2HLw ++C452CaUXcxGEJi+WuBegORgiG/P3+4pApvkH4xV3isH972D/xuZI/D7q83f +/Q/IQc3hQxuVSK9yq5+ZmDKSA8UFS1V/0rNOgzQZu8NyMGGyfFCZ9G5lnOeB +8qNy4Pnu10MaGa+3YnNXt5CDjxY19T1k/FgoKCbspBw8SpDW5vz/++Maqe9L +NnKwo9M63Ybsb6/Pm3GH02R/W68c+UN6PHG3lkztWTkIdw9fF0LmU2rG82jR +QQ6aVvQfYzLfvjP9tA1OciDb8G11BzkfNvdCcysXsr2oP32BnK+yd/jXJ65y +EBHwMHPt/3/f/cJVKdddDh7oXV9/hvSxQ/JBv/5rcmC79+121t8E9smlTgrd +lIO62jW8TNLHyd/nreGOHLzP9m1cV0H6trWpxPUeme/DLYUpBWT+Ix82vHoo +B1EnWVhvfCKwCu/p+fmn5P5Aux/PviTHk91xVs2frOfOsn0pQeR4mynVJ4Lk +wGx7wum3Dwn85khpVHaYHIxsDKz1PU/g7//FsPRFykHX4vvSyycIPOR+zYkS +IwfSxA7zhANkPcPW615+LQfs+1zSCBUCH3izGh+TLAdXvDq384sQ+EJe29qa +d3LQBsadt1gI/LbNr3V9uhy0iPPJGbYz8ffRc8jykxx0liZEx5Uz8dDCrneP +cuTgt24W0ySDiVXlCM+er3KgzfjCG+PNxClnj4u/rJSDf836plKKTFx1Vf1e +VY0cpIwYpvGsZeKRRxxDs7Vy8ERnReYYnYHV3n7OPd5C5ss7EvQ3h4FTaTKW +/L3kelQaWojuIc/34nSh/oAciFUzU7A8A9P46lSch8n9uJK5o2KFjjdqPpj+ +zpADi49H//YW0vF7j4EXDxbkoLAjYL2nFh3X+HxbTF+Wg1H/AFYufjqmhUec +62aRh02tv9QXhsfwpi+Htu5cKw9dw0FlbLFjOG0prWlKRB6OJZ7vLVyi4Y+P +rws5bpYH0SKHzPjXo5i+65T34y3y8Pg8ffeza6Pk9+++qaSt8qC8/6P38IFR +/N5e9FePnjzITAXIcNJGcArKjrI5IA8XBFheDG8Ywcnz4wpmZ+RBx93fYF3I +EH55+ZKGTgjZ/6n6VkeOftyhYhF/PEwe/hYMbGGr7sNSXfqUq5HyYDl8slgn +oA9HGfNOpr+SBxsxnc+XhfpwuOr7XLX38iAYXMzcL9GLg3uHd8mWyUOIz5ic +v/If/NTynAn7jDz0zWTNvYv8hROPdNmd/ycPT7Oc9R+vtOBCI0vXykUy32/h +JzodWvDk7oMh/mwKkHL7rT/rlmZst35TqwhFAY5v+M5MLG7A2nOT9iqbFKBk +5S33iVeV+E+U9+39ZxVgq7uTgNarGDwfuuj/zoG83tXhacKNECwaeO0Vt5MC +LA5t07534C42enihuNZVAfpX4trtZp6hnIvGnCe8FGDj54/B77+/R347hUMv +RCrAC4bBt+0/i5FO1+vUp7UKIKUX7St6tAlRNJz+ZTQowDNHMS2p3iZEv69x +sK1ZAVLl7y1kuzejZOWCAbUOBeBcrj8QH9KCRF1aFGqGFKB4Wit9+sdvtODF +bsLJQgWfkITvfaqdqJ13e8khKSqYZAw8as3uRd+3RY90SVPhU1ud/vfJXpRz +aknQXZYK0YoKh49q9aHgjNLT0QpUKPxhxa71sQ8dOn5kaXQdFZwX68dX4vvR +l5dOO/y1qbDepEDxrdsgelv247TCNiooLIwpf0gZRGF0jSfZOlS45JSZuZ18 +PnPbM9PSqUuFzJCsoK7DQ0it7+FVdUSFD3vLZwyUh1HUhpiPtSZUOHZG5oJ7 +7gianjrw5tFhKjyc4rExGx1BR4omY/WOkO29jfBUdhRxHjcOeGNOhR1xf9+s +fTiKrnvNO9+1pkLp6cFZeUMaajjwxn6rLRXObFUL/OxGQ+pCx2xG7aggk5Ky +JjGOhgbepBhZ/kfmI3i+z/EfDZnXn1Tb7EiFixIUh8ikMZQezU7td6JC5Trb +8bifY4jbIUMi2pkKekq1zsT0GCr+x7mWw5UK7yXHuRz30pGmUt5g1zUqTC85 +8IW30pEf/Wx3qCcVyjnNeKsW6Ggoj//XoZtU+HbQR3uXHAPFmZwvz7lDBaPf +Oh4DZxiI77poUoA3WY9rqSpyXQzkhIpfGvpQoSay6L3BPAOVcV8K/feYCi23 +zGoTxJjodlzZQ4dnVBiwjWXlM2Wi305Xbkn7U+Fn9mKa+AXSE1tl3BsCqBCa +pahmfZ+JRiuv/rcrmAooym/eO4OJ9oXKW02GUEEwPkH44ncmSrCrOZLygpx/ +7qaHPl1MZDWhiEQjqZBc4yNnzUn6qaB2e00UFQjdjh1C0gQSfHJL48FLKvh/ ++PpgSZ1A36Ub5eivqKAcz/XJmfST0qCXWGI8Od9dyhn0/wh0N0ON3+o1FXwl +N3AnuBGo7VbLGoEkKnAr5p70uU+gbfseLJUlU+F4Ua5udCCBggXUp2+9Jetx +krzfvSS93dY6pplCBcu8e/uOvyNQ4mXNzpgPVIhSb3/y4xuBVnZ0Nh37SIWv +JpugrpJA1mxPa9ZmUOE7/2DGagOZ/0/t0m+ZVNgn6xV9hvQ6JfJPvkcWFUoY +1RWMHtKnZ/0+bcihQv8Wfvb3pNerNm1P/ZtLhQ2iYyphpNdVZnsTwj9TYeWi +25o00uv3iwOjTPKpoJMq/GCC9Dqtuzhs/isVHLHigROk108sTgW/K6RCRRqH +0Djp9RJJ1UDLIir8Nt7VUER6XX27zTP2YiqkGJveLCU9Hnk88PGnEiq8ulvB +tkjGbO7FD8+UkftjBVydyPhy0NRd/goq2OmdLeL5/++zP6y/XfCdCgG/Gxd7 +Sa/vrbb2vFhFhecPD25jkl5PHwq4KlFDBckX929rzhBIek2xa8UPKgxFo6E3 +pNcfK045e9SS+6fMIuzYGIHG96x3VKynwhHVF2+1B0lP21mfq2+gwsJYy16j +PwSqvBVw5m4TuZ8t5iPDfxNIOxLbbmqhwnJKf7NEHYFe5UyebP9FJe9XtzY3 +lBOIq2mdxdNWKnD1Jf0t+kqga4TVUZ12KmwdOLRxIINAf/kCTPs7qCDKesQc +kglkvBEfCumikk9vUa+bIwmUd3ByH/pDBX79NY5xfgQK8LbaHdNLBdOx5ymd +lwk0F++vZ9RPhY4PqNPsNIHsvxXpzA1QYWbtpomFwwTS+6eicXyEzC9X23l1 +I4GGLk/I8xJUaGqqlP3eyUTH/FVk8sepYCDn1sRH7v/ClJMSjpPk+s/WaAWT +5+NF/zfBshnyPEWd3nzkAROBtR/LnSVyf7EIDBRJMtEHz29LaitU8GM7EbK4 +xEDiYeP/fq+S3yfPogdu9TAQo+7EhDa7IsweDrbc84aBXu5T7qNxK0Ku1Zz5 +4joG4rA/8SeKVxH8eFJYbNYwkNv9Zx0H+BXBdPzJPZY+Ojr4lWhKpChCwfj9 +k2oxdDStWVhmI6EIF4L8ry2toaPDMpZvalQUwTjs+buAzzQUNaBRbLteEc4b +0oz+BJLfbx+5OumqimBwcT28OkdDXlBIEdykCEm3/zVc4KehtPPKXse1FMEi +aa7e0GYU8WROmHftVoQJyo20hfZhVLkviIV5QhHuL6+NGro5gIQFnGTuWynC +jYfrWnv2DKDTrQbbKTaK8JL53NBlzQCavTjjon1KEfQjDqXpBPWj9c/tWj3P +KUIZ0+BTeWwf8mnfmL56RRFGOX4qTb7tQQaulbZCzxRBMv90qc1kG1poGz1Q +7kfm8/f9pzbbNpSzl0/7RoAi2Hetc/9S3orWSx3j6n6uCD/v7PmaFvYb8ZV3 +5KREKIJbzt9vLZtbUJsUkx+SFYHvbmE8NaQOuVWIFrtiRXhWWjI9xsxB8bL2 +Kj9nFCG8Ht6cZa/DO7du0rCfU4TdyX2BYpvqcYvR9I5//xThbHHoY74NDZjr +xhMTlSVF4KiVs1owa8Ruje+verEpgVnvwiOViGYMT6aK1QWVwKNru/KAQBvu +I3xOBaopQbbLBxsx4x7sxWnmqLxRCezPPct19e/B4nIS7vmbyPZCurPzzx5s +bJzqM6ihBHlZ4mp7D/firOTaD7t1lGDlm/4Oc+M+/MhafIFhoAQfBrtPZJKe +Vil7F2FmqwTKR29S9N4M4zr1f8lddkogHDgQYNg6jG9GHMp2Pq0EHNQrVjVc +I/jHxdH6J2fJ8WEw9ajzCL5K2cSNHZXA5ckRVxnVUYxPpd/RvKYEX5Qn3v58 +QsNOlSvPvl1XglP0NPa9mTQsrHUkyuSGEpzj6tJSa6fhC2vGcxxvK4GvTrO/ +/oYxzPdBixn/QAm4dnx841o6hm3+5fxHCVSCsdQHNhZtdLzGnuNKXJASTHan +uZ34R8fpPyzvqgcrwe12VuKrBAOzxs9GH3qhBJeuX/ZKsWDglP26zQ+ileAo +PsG6ppKBzTN8ewVilMBH+LbT2j4GXpRsJ2JjleBK7hNwWiJ9TL/Flx+vBG6q +7VygycQzoQX7J94oQYD9c2W9QCaOW+K1uP+O/DybgLJUEhMfumBnz5+qBEt9 +W26Zf2HiWL3lexvSlGCttPyZ+h7Sy0mHAz9/VIJbrSnCwtNMTPDFxezPUIKb +x045pHES2LBnz5ezWUpwYhvl2NAG0odGz78T2UqgecpV/fFOAkdk/225m6sE +kr/y1982JvDokwcT0V+U4Gvzfer5/1Vs5uFUZ2EcLyVSWuaWBw3pd0zqYrRp +o+6LonRVkq1RDzfbVJYnywhlb0R0VVOpJNslJtlS1mObS5lkb3Etw1iu5f6s +jWud099n+5z3/Z4/Pn8cZxrfHa1fVCsk+z86eP2cN411z21Zk19EQVmcY25y +CI25mhXMxlIKxirCo/c+pXHa/l9WBpdR8Afz0+KlNBpjg8n+nRUUhAnlCptz +adx6Mor/TyUFL47v9vQopbHIemtKzF8UZHqqDxrW0FjSAYfoVVPgp7ah/WQD +jX90t+KM1VCgflSBEfmFxnv8xiDhPQWmxwMsZ7uI396M2Gz6NwURscm+8f00 +5sSghSV1FCTlS5z5bYTGvk+LBVkfKahha70NHqdxTKp5kW0DySNqv13+jfDm +iGLXNVHwelCQt5v4aVnJ7z5lzaS/w0qKX+aI79eoWLq3knw9yMzIXiC8TQXa +Kp9JPQeKz5cQ313ReWZD/RcKQvCD7d//9yoNDo0HtFFgtjRd1vX7/9+p0Aat +djKeEirLIOvZS5SzOjsosIlv3jlE/PviqjfRd7ooUOM5hX+bJrxyp11Y3RQU +CZiq2lOk/luEJ+geCiytmEqpozR+oRHMjO+lgHeTy2UPEd59m1ae6if5uJry +/KdeGn/Wz+tfGKCgevCD564OGtMmJvzMQfJ+giIOeBAfXmHdl3xhmJzn4a0y +QHxY2T4gZI2IgkgnQ9uYKhpru8lzSmkKNBnVe9wKCa9vNriOUfDybVtH0Csa ++3F75j9MUnD337x6w4eE74m/4Po3kg+fhFzxLRqn8zYWaU5TkMVyTez2IzzF +Rj5RsxQ0Dj1cb3WexqPVXRaH5inQvxZm3sumsVTTNe2RBQokUt000nVovFeY +Mc6WQBASftdUIEdjk8kjDXPLEOgd9o40XkZ8e7H91Z+SCORzeVrjIhG+t3Gd +y+qVCGQk56voShEe1fPsr12LYCrpyeNcexGWNpHl+61HoOun4jdnLMKbrXjJ +6gwEj3Zt4oTsEOGTrp/tIuUQ6NtZikzEIzjjsa7AWAmB/6qFAmHQCK5IaSmc +UUYQ3KPuuJczgr9mucamq5D5a8yH+HojWLr6uYWMKoLIurVV+cR3HSeWN7xj +ImAyEm4L3YbxhfQjdTYaCBqfWDAn2cPYwi60ltZEUHOFO2+7fRgbflzG37gT +gei9nZ191xDemiFRZLcPQXVaIW+b0RDu5SxJERsgcJD5wd5xWogFCpB4+yiC +17v9M6drhbi5PiB+sxGCqIO6qrPPhLjq8GLsUWMENxi6gWcNhDhZcSE65jTh +kcjW8AobwPaNsz7bzyOwYls1Wo/2YZtbOt7FFxAo8BxlLxf14bPg53HKFoHs +FfmI+bA+fCRzxsXrIoJ61azxdIU+rBoh5pT/imDbNreyYzq9uEfvP7a1N4JD +SgnCROcezMkeV7l1B8GJWX5gnbADXwk2mzOOQcAIuXzjpXkH9jLL+7T6HgJH +XV5BQVk7Dp/yiuY+IPdvlVG8dF+AMw+IZx/GIXg2XbkmbtdXLC5fbOVlIDDg +FkqPmbRgbuPqqKpqBO+9JDqqdfn4cZKL8813CEJzZiQPjFbhJM86g2O1CL62 +MvPkkypxvhx3prYOwaf67nojqXIsOMdwbmpBcPzpz4r8+2+wWo+CQXcPAnUf +/XcO+0Pxjjxf5eReBL3qbTKpBTqsg2FtYod+BCU2/XtmJsJYbLW4LOEgguG0 +E1I3pJ6zrl5WUR4bQ9CgFTO8NjKH5a8bJM6ZQMDOsaj4qP6aFSbb3ew5hWCp +pmngXO0b1qNXSZHT0whow6YyM5kSVmLgcqfCGQRO7tIt1mmYlWHqoO8/R/Jk +2ztTTpWz8ii+0uEFBG2Wo3Od7hWs0omt4sVF0u8wg87rpZWs/wGdrg8R + "]]}, + Annotation[#, "Charting`Private`Tag$4154#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-0.9999997966795732, 0.9999999999999791}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.896375517379479*^9, 3.898186572676631*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"5b1de1fc-15fa-49fa-9808-a0b98d3c826d"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n de la oscilaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981868259876137`*^9, 3.898186832942992*^9}, + 3.898186880930026*^9},ExpressionUUID->"250bdc0d-6476-46fe-88bc-\ +672a94101c02"], + +Cell["Podemos hacer una animaci\[OAcute]n de la oscilaci\[OAcute]n", "Text", + CellChangeTimes->{{3.898186453166182*^9, + 3.898186463613283*^9}},ExpressionUUID->"407811db-97e3-40e5-bc77-\ +d6b54321ef6b"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", + RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}]}], "Input", + CellChangeTimes->{{3.896375953501997*^9, 3.8963760407089233`*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"e8f70755-9f82-4cc7-9f82-b2b4fe44ec39"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "10"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "5"}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"Orange", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]0", " ", "t"}], "+", "\[Delta]"}], "]"}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}]}], "}"}], "]"}], + ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896375817168126*^9, 3.8963759443904457`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"d7435ed1-75ee-4ff4-b312-084b7546b67d"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 8.313952445983887, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 10}}, Typeset`size$$ = { + 468., {118., 124.61120000000003`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-10, -5}, {10, 5}}], {Orange, + + Disk[{$CellContext`A + Cos[$CellContext`\[Omega]0 $CellContext`t$$ + $CellContext`\ +\[Delta]], 0}, 1]}}], + "Specifications" :> {{$CellContext`t$$, 0, 10, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {144.861328125, 152.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.896375843360618*^9, 3.896375868489998*^9}, { + 3.896375922771813*^9, 3.896375945124484*^9}}, + CellLabel->"Out[44]=",ExpressionUUID->"06f39a84-787e-4a4b-a6c3-b77e10add692"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Oscilador arm\[OAcute]nico forzado", "Section", + CellChangeTimes->{{3.898186470936418*^9, + 3.8981864785115347`*^9}},ExpressionUUID->"18bdb8ea-3807-419d-9ed2-\ +8877c276d422"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.898186587833208*^9, 3.8981865893186417`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"25127d5f-ac91-4cac-ad58-f1eff2904706"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898186799603964*^9, + 3.898186802823612*^9}},ExpressionUUID->"d33e3dba-fd55-4e08-8eb6-\ +9efdad08a345"], + +Cell["En el caso en el que hay resonancia, la soluci\[OAcute]n se escribe", \ +"Text", + CellChangeTimes->{{3.8981865054516783`*^9, + 3.898186517623204*^9}},ExpressionUUID->"82ce54a0-99f7-4e51-aae2-\ +2924a5f8e662"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{"Fext", "/", + RowBox[{"(", + RowBox[{"2", "\[Omega]ext", " ", "m"}], ")"}]}], + RowBox[{"(", + RowBox[{"t", "-", "t0"}], ")"}], " ", + RowBox[{"Sin", "[", + RowBox[{"\[Omega]ext", " ", "t"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.8963751493504343`*^9, 3.89637516683323*^9}, { + 3.8963784272298822`*^9, 3.8963784653577414`*^9}}, + CellLabel->"In[85]:=",ExpressionUUID->"a9cfba56-0b1d-45cf-9ce0-acc624ebc790"], + +Cell["Las magnitudes a fijar son", "Text", + CellChangeTimes->{{3.898186524215501*^9, + 3.8981865295029984`*^9}},ExpressionUUID->"bfcf10f6-939d-4cdd-8aeb-\ +0ead3cff57e8"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]ext", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Fext", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"t0", "=", "0"}], ";"}]}], "Input", + CellChangeTimes->{{3.896375953501997*^9, 3.8963760407089233`*^9}, { + 3.896378470830007*^9, 3.8963784882210417`*^9}}, + CellLabel->"In[81]:=",ExpressionUUID->"6f6623de-9651-4a35-b0bb-462b71ddb889"], + +Cell["Podemos dibujar el movimiento seg\[UAcute]n", "Text", + CellChangeTimes->{{3.898186531751493*^9, + 3.898186545798888*^9}},ExpressionUUID->"3ffa07da-0a73-473c-9559-\ +c8c1812df034"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.896375180401723*^9, 3.896375234175416*^9}, + 3.89637589596721*^9, {3.896378494501585*^9, 3.8963784988293962`*^9}}, + CellLabel->"In[86]:=",ExpressionUUID->"829cb72d-95d2-4a5e-82ea-4bf8d7274447"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVl3k8lN8Xx2exZB2MpcTMiKiUbPUt2z2plKWFpE2bhCRJKVsRRWRfsmSn +okQkIpnHvmYPoZR9GSL7/nt+/8y83q9n7n3O+XzOOfeOlNlto+skAoFwDf/4 +/3fsIzMOJfPnWon7nG4Z2ItplrUwDM4wbqCARw8pbwpatNYrijwZDCe05+C5 +ab2CaS3+kNwP3B0eaLuxW6qVEgeKxfzp7AwfdMH6cSxnARXt/GsesG4ZiP50 +fJh53ExDP/nj1lbaQ9A2687v3EqySOY1196l5XDkrbGd/ZyqArLRdLg1T49C +NVsDW4LyVdDH1t8pMwdj0ODD6rfpc/vQ0k2D7inLeHQ05lOIU5MWSiB2+8wf +TkQB51K3L6Roo0PfgrfOtSehmQlhJzZFHTQceaR45kYK2liseu4nlx7yM181 +nV5+hcazbLgfKR9HLctWYZP0NMSuP71K+HwK3a+kKf7Neovy3SLGbLRNkHho +a+34wXSU8KjFVGnmLDLbAeQxy0z08CrfidxvlxBp2blhxvUDUqLG1OUtXUGt +v09LzhzOQonB7133J5khx3Se/H/t2agmX7lQeqcF0gsZ5PiX8BGVsx+Z8Oa3 +QhKOxcZTN3JQ/JcYu2ds1gg7+GDy7/InVLDYn2Asb4s4u3rlxun5KFHrNmE4 +6y7qwL46sIbzkfim0naLqXvo7evI0rGsAnRF6m17qtp9dNz++OXRg4WI2MAa +uz3qiF5wFbwYsmQi/tIja51Fj1DOAz37uxsxdPfYJfIWWXcUM/rfpmlXDCX2 +r2zKmnJHto1Clv8OF6ORum08FyI8kFBMFWmqvQT9POPKUSzhhZb5c9PsNErR ++VUFw13c3qj/cfLJyYRSVPH897ubK94o1/JR3N8bZWh2q+Gvc3990HkVVbWJ +5XLkpfKSrZM/ACXWxN8Zo1ejh5/Ob06KCkUzkZ929PhVo0jpmuWxg2FIx7K2 +r3mxGiV4RJ9fmwxDLPL86YKWGvSKUpDgeOoF2qd5XM3Huw75xZdXvd4fhRoz +V0hyfxtQYAU7z4JPPBJCXJf4FBrRwTivR1sVE5C6bJiat3kjMm+Ms3gbk4AC +ZtKmnZsa0eSjGK4yp0SkGvz9utm7JvTRhadZ5lAycqvZqad0uQXNiX1M4tz0 +BqVm5cm+C29Bp8jnX0RFvUHNkdrkrXUtyOPc3u2um1ORjOXZwo37W1Hdy48q +itJpqIb8RIFA/Y6MXn5I0NJ+h0Q1u4QaKtrQhNOuN4eKMlFGpk+XjUInyvc+ +EcPZmoNGhUb99K52Ih/7tL1TWz4huft6WtvCOlH7z0uJV+0/oQQNnsS+xU50 +wq3kxHehXBRS7WdxvrwLRXtUYyvn8tD9vsCpI6Y/kU1NpfJfQgGK56n1FDz8 +G+UwioPPZjCRJWqKYtn3oeCqR1fN9lYgQtJcQddznK9Mb2+/WYEi2SS6a1L6 +kOHeyrWHiRWoqtqCltbWh04eKWVe4atE24xXkq6r9SPDDr/dd4cq0bCVXPov +4gBaYXLbBKZUI+uQh0WNQYNIv2ptKge+IduB7X05GSNozW5UQcmxGXFLPZHr +2TeJvj7oGk/37UIBArU7Eq9MI/m8Rl456V6U/5/kp+O208isozm9Yk8v6r90 +G624TKO6/yJlrx7tRervqcZnIqaR0iSPrNetXjSsa/qQr34aKSp51/jl9aKD +nuMNTuozqJUt1NhOrw8tzFIcjERnUX37iTfvrfuRWZcxk1w3h0x818/89R9E +3C//3LrzYw4Z2A6+XoodRNnnbSV6BufQ6IvNGovvBxG509upgDiPrmS4FDd8 +G0QpHQUqd/6bR5yHBqd+8Q6hwe+M1F9J86haULfx5rMhZN3ICsp3WkAnifet +7e4NI6EgJyTnvYD+y7FbeesxjApOcEyEhS2gQ+FZMt+DhhFPA13fLnMBBcr4 +lM2nD6P0b0bscgMLiNkavflu/zCaqPnsFHZyETUVtktuPzmC7pQ/Mbstt4Sq +24Zy6jaNIlq/DsecyhJ6ruXcPCszimpJXG9dYQlt2WMXzac4iraC/5TPuSWU +3CzetEFnFP0oCHdPeb6EJn8T7sjfGUUHPryO+/F3CdVTKy7xl42iiXor7Ssr +SyhPz/yXWP0oejm+Y3BwwzJqITHS+TtG0eyOzF0zUsvIRyG4u3RsFKW9yivk +N15G2XtitPSExpDgy6rOg5+XkcEnzticC2OoKN/3UU3ZMipzqdroYz6GbnYY +bDFsWkbPqveF6t4aQ+UiTTcujS6jH1RF5YBHY8gp6MeCo8QKGo7r+CmdMIb+ +PB0VzXBfQRf9lY7c7hlDASnpBar+K6jYTEJpaXAMqZfaXvoStYI4LDw7bk+M +oXDC9Kuq7BX04JCf4ObVMaTrsqza17+CWndb8t7exEJZdrynNuquoo1suWdX +jrFQXTTV6b3JKhoMjXfMMGahwTLxeG3zVTTK+323zgUWPle3j9m4raLp8RR2 +WSsWelJ82LP4E/68yacoxZ2F4sYM0kxKV5HqnT+cj71Y6LOIccNY4ypq157c +pe3HQuM3zDaLslaRznJWjn0EC5kIuX203rKGQoSjlHzTWchOw+vH+u41ZHiy +td83i4V8LfzXwzTXEIgdxm7nshCz4KU+8+waOsB/NWKAyULbrn3uowauocQP +R6+6NbGQtj+TKy1mDUl66UzGfWch07yK3Vpv19CWEp3FxB8sFMzz3cWqfA1d +aGLIGP1hoaWPU9Svy2soXwYLOPuXhYR/Lew34lpHIe3xccH/WEhhA+HKkOg6 +2nWt3f39LAtdM+VPF1ReRzuSHaz9l1nokZdI82u0jthFVXUN11go8oPEgvqx +dSQlupQ6TxhHdWzyhyys1pGli9PLMfZxNKigbL3ssI46tC049m8YR4Rz+4OC +PNfRcEhxkhX3OBL3hNytwevo8ctRU2fecbTn/ZHugrh11OJjKmXLP45Oth8n +nUxfR1bJGd0HBcaRNdFk20D+OhK+GuayLDiO4k6b36N8X0cJx+6LCYiMo89u +N6NTetfRv8uWEzai46glzR7bP7mOHgq1mb4TG0cTLU6D9avrKOg228najeOI +zQ04stkJ4Ghs+Klu0zgSFD4U5cpLgMrn+5wzxccRLe3IziNU/PmQkd/dzeNI +XkufKShOAJ4LJj82SoyjfS3HjboZBLAVET0Rj/NhK6OB13IE+BPt0cUhOY6M +Vk873lEgwOdfaTYncL4cco5HYw8BCBfzJh1xtpG7GMehQQBe1ZnTnjg7FV5R +atImwLhmpa8tzl6G5mUvdQlQuv3TQzWcwwYtz1icJMBy2BXJIfx9iS43RxXP +4PHJ+J69h7MixrXgfZEAG4mBDSw8Xowtlb3nGgGOFNd908X5pK4Oda81AYKP +exx+juf327+f4W9HgBdv2bdn4fnbNXso9N8ngDehzPoLrs+6qJSG+kMCuOUe +WE3D9Qu4wNQN8SRA+yPxFldcX1rCxTMjPgS4eYPYo4Lrn9G/bA5BeL4zGLWB +Oo40t0fbR7wgADtd3fy4EF4ft/a5T8QQ4PKDG6VZuJ+m2W3+h5MJEKRwUWYR +95s1d+9lTBoByNuQswzfOHJRp6ZNZxIgkPvkZxWecRRddqIssZAADRccC1Y5 +xtEOrommhRICRLo9u/6ZbRzlH/PrOVFNgK9i+RUmpHHU0Va1tPod1yvYwVlr +lYWsNltuON1NgISughzvJRaav8wumt5LAHWf0Hs58ywkOnJA6fxfAujsfnj6 +8xQLvd71WytrlgDlutyXAydYaI/9I4MNKwTQ3CnN1B1jIePlAsvcDUSYi1kz +tupnoRA+1TihLURItZqM1sf7cYtR87sb24gwpFO2WQPv16wXdvmYAhGKp3Ki +KN9YqJH+vtVWnQhKWylml8tYiF9ZlqfWmAimlM1rCfg8iLtftnHLBSKQIBpS +8Xmx64uZrNNVItxn8ewKecNCBofiD8jZEuGLvXA3Xyw+P0w2Onp6E+FPzX2P +ZHweib/MfdrpTwR93jAyE59XaT3GoUphRBjr6vpT6MxCVVbBGT0JRLgVax98 +2ZaFOFy4B9QLiKDJJVuK8HnoEb9iOMMiwoXz4kvXxFnopOLnO/LTRGjh64ut +EmIhWvHdYLNFIkwZ1h4W4GGhgt7RxkZ2EnTJf396dHkM/dv648R7Ggm4RfZx +mnaOIbP0T8csTpLAqcLbnCt0DClq3rkVa0KCDFaw0kufMbT2bad/qykJKt66 +xFLcx1D03+Q67RskUNkvqJFgM4aalUP06R4kUL7QSLhyaAwdyLfV7fhIggBx +8aunJ0YRv96OG5QCEpiZHCzm7xtF3Z0Dz3QwEryKc7r3tn0UOa6YVuXUkSA7 +LrHsGTaKPiD9I8EDJPBpSXr1O2gUMSrkDuuJkeHjjHvAkvwoIrT8hkJnMvhh +17zK9UfQk5GiROfHZBhqKK1zUR9BXIRY0v5nZAhOffONX34ECe06V/YpnAye +hYYrNVwjaKt305HMD2Ro0iwhxZQPIz31kuNJg2RIKPzblbB3GIUmJ5s+M2KD +PTPthVprg2hjweOvOufY4CjpUpP/yCCKabxMY7/CBuUN1Jb81kH0enXz78e3 +2KA/+2xG6ttB9PlM2DWXZ2zQeTlTq9d4EHXzPLW2LWKDxo9ZYtVJA0j2noWj +8Q52SGzNFQ2S6Ue71HpOxSuyw5Nszjt7+PqRKuHs7tG97HC3Ledf4Wwf0vbT +HXQ7yA7frk0/s6/oQ5dSdhq/M2WHjRzCTY4WfehF67/dpEB2cPtg/2EhoRex +73EbypxmBwXu3gwS4Q/qn40w4fnKAbD/RQN/UydKOqBy92cpB3jeJKX/DuhE +l/3rAzNrOMBKAhXYG3SiThn26lMdHNDbGr3eXvEDNZ2yV4+Z5oCNuluOvPvc +gYqyDBi7dnCChcvHsBdBbSjiFnH0eAQnRGVXO8UJNSO9AeuHIXc2QK/2paqS +Zgwd7w+Sp9G44Uuz35Gw1GrmaKmZe9V7HngqclP2qdEfpoJgm+TBy3wwYZvW +ez9rnMmNZq92T/NDHUVeWTd8hnlk/Pz8ltMCUFYuGP7aaokZJ+zZ4nZWACwq +3af3P1pizqi/y+y+IADPDJL2FYcuMRN8ly1fmAnABx29ze+KlphLcjEdXHYC +MNm9q3iEusxMN/uZP+krAJdqr4evfVlmCnRcdi3CBCDtrmXAEHGVabHufXZz +mQCYjahk1oqsMgtlP6g6VgqAeYNeb8L2VeYNB8K4Ur0AhLbpytIMV5klQokX +X3UJgF1Vct7V+FXmvWO9Wn5zAtDk7f5mcd8as6PEnHh+pyA8WBd+2nJ5nTl5 +oFP84W5BeGqesuWh3TqTs/iEaoKyINAca6+JPV5n7mWqWQ7uEwStXXXPJZPW +mWFfBL7ZHxaEsg0RQbZ968wTOYWRzy8JQoB3kpqvEgGreCWs+DVIEGqvPSla +eUvAfsn46v4OFYRIwQgj/WwCNpu8bkaOEIQEZ1v54HwCJpM0Gq4bKwifn/X4 +kqoImEcctvw9TRDy6qYkXfoJmFaETeVEiSCcSxXwL9xMxD49K7vEmBWEM9Oy +erqeRCxVr3aj94IgHEp4rDfrQ8SieZubx5cFoTtDqic8iIi5B/XofCEJwTWV +H3E5sUTMIHJJwURACD5Fn71lmUfEet8orj+XF4Ko6KUN0cNE7PuN//L/KQjB +9dofv3wniFiVvNbdc8pCwOzl/nh7hoi9z9Qfkt0vBCexOSURAglzzLNoKNYR +gjdNZX71oiSMvzImfv6qEHBfiRz6d4CEEX2Sz126LgQ5Ki229CMkbEbvLbXc +SgiILCsLZEDCftTneYfcFoKKTcefnDMhYSltzbd3PRSCHsWnfrM3SJja4Aa4 +FikExufyH5QHkLBdqZSl6pdCkDIWK7A1lIQxrEVzFOOFYKTqcdiDCBLGPiG9 +be2VEEy57NScjSdhjbNaAlEfhSBC7JyK0QcSZsHu8Lu+XghikFb383oSJk6v +bl9uEoLpmcnCziYSVr9PsmHbdyHQJtjUSH4nYXttyr96dAmBLKfXKfcuEsbR +IvJy77AQNKg43c8dImEFrBsh18aEoI5uLfJ6lITZchT5BE3g8dq7ZvmMk7C2 +/RaOozNCsC2/uHrnNAl7lZB7Oo5IhYLw5B9/VknY2QLuY7VsVLikgzA7Ahnj +bb10aIGTChIumvenSWTsHienihE/FSYDRNRaOcnYIdszAhybqeAS98OLJEjG +FrzfcarQqJBBWzi2m0rG0hPX1y5LUaHXP+PzCREyJvz9zXi+HBV6KOHXbm4i +Y/3qCzW3VKlQbzDswidFxiJPG5RE/0eF+wIKdW1byJjB7YT8SjUqhN488CJU +hozlJB1NlTpAhUUTL88hOTJmVRgTf/wQFR5sfxPzaDsZk2ibfOFyhAqK0vc2 +c8mTsSdcUU+/H6MC+4T+3oVdZGyf9LgryZAK+irPqkx3kzGWxoF7u42pcD60 +JT1HkYwZ242Y+ZynwpkrJme1VMjYBl/N87kXqRAoSxK1UyVjhcnBhn1XqLCj +/JVQ+B4yJtO+HzQtqWDLLp77+T8y1jHp/5+1NRX6wpNO5e0jY37cvQoRt6iw +cyhEMm0/GQOZvbJldlQYVDOlBKiRsRlNX8mpu3i+VxxlLNTJWOqZX8K0B1S4 +UnDjrJIGGTO9o8yr70yF6INfXv/FuSylcynFHV8/8t39sBYZcyxS+NfkSYVi +2d/knzjv7PAYWfOiAuFnXaAlImO/p9p+y/tSYeqkEWMA5zAe+Y6z/lRoerQ7 +6zSQsaNb3RqeBlFhnr5TKx/nFa2WiuxQKsxlbiylHCBjH87KFfW8wPe/U69+ +Dudr9i6feKOpUHJvd0o4znuVf33aHovrQXPZUYYz9z/I1UnA/RAvEx/E+WdW +cu61ZCrkimrfWf7/fnc48txfU4E6rbqDTZuMeSrdyItNw+utsv8AAWeTqdq8 +gnQqeA0l5vzFf789S+FzeyYVRIfLHjXjvGIX/HkmmwpJSRkxqTg3KM58Fsyl +gqZaFbc9zkmTJvkK+VToonuWK+B8/0N+vn4hFfJEz1X/wvPTtZMosGJSIWtf +nZAHzhKKbgVPS6jweskibiPOk3//FCSVU6FUsdAqCderNPPQF2YVrpeQpS0d +5xe333zprqXCY+BJD8T1vrGbu3Cxngpp5ca0aU0ypvHXplC0mQqetIViXZwF +MhsKVb5TYUQ9OzQU96/PVvnryQ4quHsfDWrE/c5VCP96q4sKw0PPcgg4+07M +f/X9hddPme6qNF4firZfi8r68XpXavp7EK8nsgKD+WeICsc0bocCXm9t4x7M +tVEqlDE1TijuJWOut45i+6aoYPTgLnkEr99qm5bi9FUqNLMF8jIVyFjMzr0l +1QRhcNmXTjfG+8GOFVkySBaGmcFplW68X0RtLpUyuIWBn2Pr6fJtZMzs5khZ +mKgwLDUN7V7G+3OPvEF51iZhCPOeJW5j4P0xllFeLyEM5fOnsSM0MpZpfa9i +g7QwfFbXW7gsjvt1Y73Sdbcw6HgFCE3j86Fhu1lVlLIw6EV4sOVRcL9Gyqpy +9wgDw0K28RYf7s8N3+pJdWHgWWod+7gB19tKpNb8qDC4b96xlLhGwnZbytcb +XBWGDce3fCEPk7BfN+i335sLg43flwNZ/STMz4YqwG8lDL1V5jtO/CFhI3eW +DRtshUFCqmyTaScJS3at/W7oKgwxjd5qBbUkTCzk5k+TCGFg536+8vQdCasI +u/woL1oYgv5Z1ex7Q8LuRZyib4wThk7r0J6uJBLWFKN+9UeKMDxU6On8F0XC +nr/hGbiQLQz1Ugmz17xJ2HrhO9aVb8IwuX982PAyCctgxvsXNwqDEtkje8N5 +EmZaEqqwpVUYRl8FfMo0JmH5lS52fZ24HlXmFvW6JOxus/7M9WE833sa1sdV +SNjQ0NiyNVkEnsaX9pwlk7AGoZ08DvtFYE6TdT0qgohp3bo18lJDBG6JvZFp +xc/XjMqMyhIkAnWOdYpEXyIW4Kr0REBHBHx2mO9RdsXP28G9q++MROBBmBn/ +5GUiVpN/4G/vTRGQbZUW7ZYhYuVXzrScjBMBO+zIMfcUAqb6JTLrQaII2FRO +3uGMIWApIp2BcSkiMNTGs/FxKAF7UmNqwHorAk3ddVP6HgRMW9Ws3DtPBESk +FWlwmYBhnLfyihpF4BTvtpAUUQL2JcPj5U6yKBAKfj/rm1tjchicFo/gEAVl +5xMXh3+vMQ1H5KKI3KKwrVjofH3NGnNI+tuLNgFRsHE+OqUZt8akRomFuNPw +9YG+sekH15g3PdOfte4Xhbc/mj0bn60yN59tc3C1E4WCAjXBhyvLTBfijpN1 +P0WhhEPTRNxvgTl4iKdD9o8oyOYdzTS4vcA8+Yx1+XG/KHx2mDtrbrTAlKFk +3t47Jgrsrh5dBzcuMOskVAMTFkRBpuXfifKkeSZtn1b9PaoYJK79+dmTPccs +sTUykNQVAx2Luckh5gyTu9v5qG2OGBjYeC/+FzzJHHgtFRbvuhGCKgeyed16 +mGHbNrHln94E46WZIvJOZSgo2qLyKkMckpcc9tpkj6DzYRfreYfEgU8/v9eO +ax4tHHq1GF+0GV4/izFS7iJA34C2Y4m3BLDJfpzWtGEH7fj6pB3PJUDA/9Ht +lkfskHD2/LeQAAn4yGqTuRjMjt9j72y5Fi4Btibu8wa57ND5IaGOnCwBj+fV +L8ass0OzyxrjcJEEqPo5a48FckCJYEF15YwETBwM9m55zQlStYdndi9IgMYS +h2VDHie4P2miRS5LQNSrHxZfqzhBa374rhVJEk4EHvW6PcoJBd1iNC4BSWAz +6HXdsWsDZL9xsNeTlwRnl3K58cwNkKSptPnbVUmQ/E+CtvctF5Qc5/ZcNpcE +h6ZS4pnPXNB7uW90u5Uk9OtVUK0ruEDaI7zAy1YSbv3YFWzRywUpFYvnwEUS +zjiZRuRt4oZXJ0oiP4ZJwqMUmY2ZT7kh9eop0ehKScjozvkYb8QDVfY7H1XV +SAKR7vl74hIPDHuyD859k4S68fJChZs8sO113qdTrZJg82vwtLsnD6SNbj7N +90cStr+TqrvxkQfe3u0PdV+ShPuzklP6Arzw/qmDoOUuGrT1JikTiniBpXHR +4yle6oarcSoSVbywc+bQdLIKDTSsqnZua+aFt2bC33/vp8GF7eW/KYO8kIo+ +Rp7XoUH4syMHJPn4IGVxkn78Mg3m+ynBcmf5oP9DR5CNGQ3YqpyjtK7ygbQV +Rnx+nQaR2z6SDlvzQVJbYF/lTRrkeM010135IP6jwpsDjjTwqvtqwxvPB9G3 +bBT2BNNgLVE5J/8PH3TKGMefCqNBIYdPaMkIH2zqVhewj6BByZvXhwum+CBS +j+dfRiwNSkW4CPeJ/BAu9/bTtrc0WA8+/luSwQ9Bf4Y0JEppcEazgGPbeX5o +jGx4r1ZBA7n377eKX+UHysk82rlqGrj93BO6ZMkPAUVehBcNNPAXvaDm5cAP +fi+3llG6afBJKPpnZSA/eJ++pk+epUHTyx3McYwfkk50m15foOHzOiVZq5If +CnVP21Yu02BWqUzW+Rs//NM8EvycRAcz8kTfhx/8YCor304VoAM3RUBNYoof +HjBShh2odPg8bkstnuOHEHHJpXZROjxMmtA+ucIPlfwUyRhJOjyO2fl4FycF +lOf/mcnI00GmYdm7dzMFjk3dvOelQIcHISfpPxgUsBrrfzqsRAdzbZ6q/K0U +iO1pS03fRwfGrOPO/bspsKGqYEJVB9+/eIPp7gMUkC5RIUTo0kGHMRPpcJgC +WoXpgosGdPz+YPn6lS4F7n6IU/16ig6xHXHUUkMK/Ir0cD58lQ4z6b2X/12h +wGLI8vM35nQYFt6p62VOAWH/e7FcVnS4JstfQbaigO5jC+ybLZ5f2qmLX2wp +YO7S07Tbng4Zc2o3Zu9Q4JHD2b5gBzq8ySkZ2+hAgZwbehwmrnQ4mGazT8KF +Ag3XSsU+u9Hh01TozPJDCoxe1Ngu7kmH7J7rPOXuFKAbKRj88qHDdE7FLqoX +BXzVhEIsIvD8edV94wIp8Er1eXJVNB08n7BdqQqmAKbA9mlHHB0GCmMudIVS +YHbLXPtECh3a7rC9K4yggIDk7ZGTqbjeA2b/fKMosENseCn7HR3uiWXoaL+k +wBWeTskH2XRIz+9ZvRlHAWf2U7t/fKKD8+1O41/xFAhfrwX1fDqIPBpN2J9I +gQ+Lh4xiC+lQMHGw+2ESBWqmv15bZ9JhKlqe+C6ZAgPjex2ultJBWnWeqziF +AoThTK/SCny9Pt8U8xUFxHu3RW6tocOFMwMf3rymwJ7uxDTvb3SoKuI85PgG +j1fBaiGzkQ4ahuME2VQKsNwUjnS00CFHjf0pE+eqpplwQjsdurPY6w6lUSBF ++kv/tk46nOnKavqEs7vDYxXDn3ToqP8RLPSWAqaVRzycftNhR8z5DRdw3reJ +vymxjw7/naQpBeIsfLOVXjNIB7alzRsycZ4sjLb9N0KHhMwzPgU41/Ff/So+ +TgfB0N4PWTinXpHjPThJh73tnc5hOD/JHj9/c5oOSWU3+8xwvsKWkxY6Rweb +om+DEjhrmDgvfFmkw7yOzuMSPL6NqXCkfwX3n21b5imcl1zJ+hwEBvRUNNs0 +4vkNv7KwjyYyYKvvx9x9OLfVV0cpkBlw6uEhHz9cn7L5ncUlbAyYZOf7U4vr +l80IGjbhYEB7WWLBHK5vgu40ZYyTAcXRKUJ8OAfYm/znxsWAxvSyAX7cD+sy +Ca83vAzI9r0w2Yr7eXbc7b06PwP+0e5KRSVQQEe0r7WBwgCizwh2FPd/i1Wa +9IIQAzRUK7WsY3B/gnn1/YQZECioJtYdTYG1/Nv2DFEG+LJLG+3H6+sHz97i +o5sYYDhG7P8UToEK1ajhbnEG+H233fMdr8+ciyuUOxL4+gb0qwev36DMkktR +dAbwSwTJ5/nj/dOx1WuXFANuH/lX4/mcAjZEn/fFWxhgrvEoT92HAkdPnVgZ +2cqAMklb21tPKLDXNVv6kRwDzh+UUh16TAGZVyL6QtsZEJAeo2nghtfffFeU +2k483xMMaocTBT5HW/33XBmPL7XEf+4WBV6X1l6iqzKAGYLtrbGmQBhLwevj +HgYUVhpSfSwpYKc129q1jwEeuWJXqvD5sK33sf1OhMdHjdh0zIgCkdtfvv+m +j/vB3VB2S4kCM9M6rzyP4fkMf6aF7qTAiaJ/MftP4P7tmpuKl6MAxyk9v1dG +DAiTbV+/LUkBB9dF64fnGBDkdDF2BJ+HRg1ntu2yZMCF1E2g3cEPGVFkRp8V +A9xeN3z71cQPXOaZYlHWDJhWOVprVssP2AIHJ7stA4ynS0Skivhh95bcge57 +DKhU/DtxP4kfeB2Ek/08GBCzmLblmQU/WCEsWvsJA+79Tu5+eYkfSrlsQhae +MmDOGAQiTPjBOa70sbkPA7rlvUYO6vDDSKX9FY0gBgzUvfB7IMMPFeJNkqxY +BijuHhQ72s0Hbph/pH4+A6RzH1rG7eeD0Z9Y2GIBA8ycD2V3KPCByfJ00JtC +BhxQ0nu1LM0HO/ee9yFjDFBP0wlZxs/bjneyzl8qGEA57Pi37zcvKEcwL8i3 +MiA2pkHhvAcvDN6aovH8ZQDPh9CjK/j5b/hcZnP+JAMu/T7Tceo1DxSmnhGz +/McAzQLhV2GRPBDa95VSOovvn9/D2+zKA3DOl+CywoD4PcFfNQ7xQPQh6d5R +LikwvqlCa6/nhmObT7+qkZGCGg03+xMtXBDZr4BdkJUCn6g/I3OlXND/fkMX +S04KQvc9OPU8hwtcoVCAIi8F6TuixVzCuSD9urTrKSUp6I44Rn9gwgXcH6aM +ujWlQOlr7J6h1g1QeSiAMGEiBWE5pKDOUk44YFt5QdBHCiwGDF4232SHpY4R +nTJfKfj+zvXcYRN2yDnIq/zATwqUL6hJpgA7yG4y3PAzUAqfu/NDW0XYgbes +Myf1hRRsUX06qf6VDTo2TeCXFimYSev+7ysXG9iVC2O2TCkwCrZzvxtGgngJ +M5m6WSlYbg1/8WVoDcmUvnlx/MIWaHy1fTB3ZAoF7SrZ0Vy0BYo5eR9yqDUg +i2m2puod0vB5GcO2omGmWdY/hk+gNKztmk4f0Fhm2nicWtELlgbHEa9n5W7L +TIdTOe28odLAhRbzX5YsM5/NOgQEvZAGuaUS2HF0hZmxf3E5IhZfb/r+W7XR +KnOxeL3t9TtpsN6udLX3+jozqJnXv6xSGmiys3lLGBGLTr5l5VUtDR8N2gyj +/xCx5Hv1B4/WSsPin+MJSiQSlisatFRbLw2VLf4snYMkrPs81arluzTEYk6a +XOUkTK5v08HePmnwi7uQ3FqB/1/PcaalDEjDp+HuqN5BMqb2tGvx+pA0dBnp ++Q1ysGEGcrEfRkalgfP+rvkGHTbM/iaDNjUlDUfcyga2VrBhrhqPF7OnpUE6 +X7Pw9wAb9pSvt/XerDTUiQV9DGJnxyIzk58vLEiDt8nTiIZD7FiSO5tlwZI0 +2AyEH7tkzo69M7yu7boiDcZbL+T98WTHcrZUSGqtScO0S0T+uWR2rGhadnF9 +XRqUNwrtryhhx/4HvEKrIA== + "]]}, + Annotation[#, "Charting`Private`Tag$29082#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-2.7201046427390105`, 3.9583636026272444`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.8963785028920507`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"731c6362-e54e-4c96-8e7b-5785f3f4155e"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Crecimiento lineal de la amplitud", "Subsection", + CellChangeTimes->{{3.898186867275199*^9, + 3.898186872793393*^9}},ExpressionUUID->"c683316c-3b06-4a29-973f-\ +77b91c26912a"], + +Cell["Podemos verificar que la amplitud crece linealmente", "Text", + CellChangeTimes->{{3.898186663382092*^9, + 3.898186672836873*^9}},ExpressionUUID->"8ff44419-cfa9-4263-8c17-\ +0517509cef7f"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{"\[Omega]ext", ",", "Fext", ",", "m", ",", "t0"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Fext", "=", "10"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"t0", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Omega]ext", "=", "2"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{ + RowBox[{"Fext", "/", + RowBox[{"(", + RowBox[{"2", "\[Omega]ext", " ", "m"}], ")"}]}], + RowBox[{"(", + RowBox[{"t", "-", "t0"}], ")"}]}], ",", + RowBox[{ + RowBox[{ + RowBox[{"-", "Fext"}], "/", + RowBox[{"(", + RowBox[{"2", "\[Omega]ext", " ", "m"}], ")"}]}], + RowBox[{"(", + RowBox[{"t", "-", "t0"}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896375501396002*^9, 3.896375513740144*^9}, {3.896378538566077*^9, + 3.8963785467090263`*^9}, {3.896378640460614*^9, 3.8963787055718727`*^9}, { + 3.898186644807465*^9, + 3.898186659998226*^9}},ExpressionUUID->"e6f8ca6c-baa1-4235-9b2b-\ +1dafc4054d04"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVV3c81d8bt8u+1r3i4g77IlcI9e3zJFkZlZEykggVSoUiScPOqCQZCRWS +kRSJYyU0hCKJypa9sv0+v78+r/frnPM8z/v9jPM5VBefg25sLCwsJewsLP// +pga7cDFdo3ZJ3+wI77Uw/6+ujWJ2iOKJNWxW0TXJ2YxtvKu8RqFcxISDrxlX +PVXEBBJKC3k6QzG3FIufF97uwFJRjAwnJQKbypMdEXxqjKlMut7acI/FVOIz +Glb1rbCfAmnrqx0JmPCdW5VbKuwx2cfc2ssrd7FPqbfCkntdsNP/XfD6J3Mf +SzEryhN47IG9aP+VNbcnBWv/+N9nM6YPtnzKrHvaPR3rmjlkkwznsIes3RH/ +9mZgnFxzYl9M/TGDj/FyCx2PsF+n7d5ovwrEhpOMquc8s7C+NOuyLv0QLNp1 +zWF2JRvbxGNeI/EjFGtb8bgzJZOD8afdfOGRFo75NUirTxblYlIX15WPNEZh +Erfbm8f3PMOkZlO8ReRiMRdlYP/rXoAN53znM99+G2NbufR5LqgQ035qVUtV +u4u1/7KRmttbhPU/SHfT/u8eFvCMt2ymoxgLkFA1Wch8gJkmDHLNPHyB3dwf +8CFqJRUjB1RbT3uWYEZZq73JWg8xtMd/anLlJdYVrK2yr/ERtunHH4VxmTLM +drfXLH/IU6wTvb0wNlyGGbXn9J/nzcVyHyfV/i0qxwYMD7kVPMrDLHwtjo7u +qcAOa150uDL3HEvkLk8ccq/CGOpKMvuFX2Al/qa+58QRluISpfGTqwRLGd2+ +ZTYIYW0/K+yZrC8x7xZh95m91Vj730AvyU2vMOGU92zTHTVYJy2vyP3QG2xF +oDTnzM5a7Ck7xSX9YgXWfzVz/9TDWswpkVP3fMZbrNQ9OG3Ssw7jpjNokywI +O7JNU29ipR5bprZz3QytwTKa0s/+lWnEuk4+dEre9B6bS3qp3BvdiKnUO3yg +tb/HDN2b+1qXGjHfV3llZZmN2Bj7P5vytiYs1Yk2tbGvGdP5z0IvIuwDJiH3 +ue04+oS1FKyyKUx+xorutShtbGnDhDFuJ361FqwmqfrmjXtt2A75O3phri2Y +8M7eBg9iO3ZrLmf20pcWjA0rUdET/4ppxn91c8n7gkHlI1oJowO70qRiyjza +htVsoeQYxv7Anha9ks+7i9vpivdUpHZjrUn67HIf2jAO6QVlzZJuTNbdrkJc +tx3b96fy95ufP7Em9utqLCJfMeE+k2FRmV8Y8b8fwp/ffcO8HlnH5Cb9wZ4X +RPw4rdaF+Vx5kijSN4SNCo9Gmx7rwnoWm7g0tIYxBT/TXYp3urCNDp2YlLBh +7OFO3oy+pS4so6RwyEJ1BEtojD5xpP4H9q/NIO9f4Cjm1xc7beTwEzOvFChv +lB3H0nmbrwnt/YUtPd7L0rRvGnPHvtwf8+3Dzkm5nxNuXsBYHi2U/4jqw/jq +1R95zS9gSRzk7qasPmyn5GfTYpl/2PvGE9I53/qw7UW6WnPn/mGK1quP3PT6 +MXWTqymY5CI27KHwrId1ALvaocsn7bqEnUy4XNkSN4gFnXkWYNS5grHNP+qt +yhnEdItPnv63toIlH3rPUlAziFn1xln70lexJrLInpi5QWz8YDVW77WKMZ48 +bTCxG8JO3jA0qt9YxcbetLXUyAxjViZ7Sh3F17Hr0kvTRTrDWD7ff3zmeusY ++aq0SMaBYWy2jeXqov06ZmboaXPl2jBWeKSBHpK2juW3rH/fMTSMqQ6rruhQ +NjDvAaW+kucjeJ9H7KnjYYFfTt83VzeOYFr19sWPJFjAqjNc7WP/CHZUbaZu +vzIL6DQPXRyQGMWWZgsebjFhAfaibAIxbBRjaMv8sbjOAn7KNtq0R6OYHssf +iQcJLDCcyeGg9nYUK/W6klr8kAU+JR5/Yjg7itnH6h3dXcECSUHUXf5H/2IW +F4uFP0+xAM9Cy/Frl/5ikbvb2k6sscBln5CI2Lt/MT9Hx+f13Kzg4tLb/qT5 +L8Yl25f1jcoKKsappzq3j2EPVQh+2y1ZIa3aLL7/4BjW1fvpx9JhVhDasVo6 +5TWG9chRDl9xZYUFVXs27qwxTOVk4NMvAaxQLbLlvi5hHHMEa+WbaaygGfO+ +ci9jHPOvPdhh9YQVHnMF9B8wHMem1zI//ipgheilb1tPBo1j9ZNBVdqIFdZ9 +b9r43RvHhix+fVlvYIWzY1qBocXjmJDrQfvrn1nBtvfOu+ThcazvOJ333U9W +eG9nMPaYfQKrcS21vNrPCjtaZ4VeSE9gjJ46o8VRVqDUH3Rstp7A3DYz7pP+ +sULCLrZrHT4TWEaqnXjVKitwvi562hc5gUlNFSVS2NhgNJcwt4ImsBs6bkOC +fGzgIIu2bO6ewD6kBg+lENjgc6oPJvpvAovZMNT/I8oG+iQZN4rwJMb5SDG+ +V5wNSuI+RaqoTmKNA3e975DZQIEnuFDHeBJLPsXrx0Jhg+Rrqt8Mjk9iKZrC +BnQ6G/Ctda/sD57EflTu9luVY4MrftFUx/uTmJS0fl6UIhvMTO4w8iyZxNYI +n0JblNnA1fPv6QufJzEd4ZepTSps0PEnOeHq6CSmceJn6kU1NpBTk+t+xzaF +Zcgayv/cygY9o6sTZoQpzG4X9485dTZIetLO2iY1halecTyGmGxwwPWZ6GHG +FPY3KukopsEGPNTrCr06U5hZt/rlszh+vzN+a/DeKWxuQOrBERzftEvbLnVw +CnvTvZvJgmOD83lYhdMUJv7EdvkYbo8t7rWR/akprH1+oegK7g/l1Vsu+09h +VinpoofxeIIbWg/dvz6F0QcLe8dV2WBnX+9RnfgpDI34fPkP57O8PubekTqF +3e/clGOM830tsezjlzuF6ZhFyQvgevhpbwoQezWFpcfN89zC9dI8KBpSUjuF +Nf5liL+n4Xp5UcOtWqYw6z/rhAoZNiiMUIub6Z7Cdl5klHni+fDO3pEUPzKF +vT3v8LUFz9ffbpunn9mmMYNm2tUmPL+5iy6F3oLTWKr/2zQHPP8eomde85On +Mcs7nmZPNrFB/77I9/u0prFrer7Bbmus8Mj9Xsvo7mlsyMs3qROvL+drWZ0R +FtOYR+lHL/YZVugurxxucJ/G6GlXQ64MsELyt+apE+enMZrlbvuWHlawm+lc +5Lw6jYmfVVHp7GCFdqXZzQbJ0xhDSmmBt5EVPiQpKKEP01hGKKvpBt4/kSWa +zKPfpzE2oSsTbOmsYNyyW3d9YBob+HtBreIuK9RtcjDZuTGN8fEUDFqEskKF +X5zna+YMZrixqDd9iBUuJaSePbRrBq/vj6WpZqyg8zz34oLpDHYv9nnJOrBC +yUBdhKbrDGanmv/2pyIr5Fsv5RQmzmDfqRbTfPMscPoMV7Fl5gw25zPmcmSI +BZSjRconCmaw8AOWIfbfWeBxrWqTSuMM9tg6yj0An0dpGi6jT1dmsGnz0DqJ +Kyxwi9CsnOE8i3HL+LoM/93AyrZLvbTwnsXYL7WMvq/dwPqdfLDVwFnsb2sY +dS55A9uRL2J96N4s9vZF9lllow1s2MThMv+nWWzB1HIr8d46tufa+OeLO+aw +PwfY/06JrmHeudgRBZM5TKs8ki/49yqW/CW+v912Dqu/JJdlm7+KTcloL231 +ncP4vZy/juqvYmkVwbTBp3OY6elKyyy3FWxxXvDCQeI8ZlB7J/pWxBJGl3LZ +2KDPY3M7Nh0ZM13CLAxKIvKZ81jwn7no+7xLWHaCXdpm83nsS3H4rb7IRezg +1oyGymvz2KuBLY/g6j8s30NDgjE9j0keeRQdjO9z+WFdxf5hARs0q7R55j6F +8Tz47XX2+wKWfrEs6JTYFFZ8xJvcO7iAXVrqd6DdmMTYu8IulrP+wy7/USTI +a09gWZ3l285u/4cd2N5D5on8iw1+pTztefQPW9HxlUtfHsBOtozFlV1cxIr+ +PNYZE2vHztZfd/FRWMbsnX9fVH/8q0q635BrYdsyVjdaeyD64u+qZjbu3CBY +xuSIR4qumP+pkoOY6YjDy9h+ouMu2X99Vd/L74ZkRS1jb4ljh+QPDFXtLnyc +9n1yGes2+L1fWHqiSujB+649r1ewf+MNU9c4F6qKzvBZiZusYU96+e6RldjQ +h2SRi/m2a9i9k/yhwe5saLBOIl3fdQ0rzw7672c2G5LYovT39JU1bD7FOS6G +xo6uV++9Vv1yDWu/ufvCQ0kOZCt85cVJ2jo2X8eiXsfLhZZfTIu8XVnHIqrO +zyX+5EaiPYu6B7k3MBnxmIJPW3iQ2mYW5yHiBsZ+b7B9wIYHHXcQeCaksYHl +j3NmPP/Igz5wMAxOeGxgLPkVfHFveFGajet5wa8bWJ/OQiCK5UcZgadG1Q+x +QJ4Fr8TjCAJSR9yLYY4scKztayp7JgEhjqecvcdZQPCm7tzeCgL6FdNPiTnD +An8uGd73nyAg6YeOh0YiWKCqEiyvHxBCyXWWdRl4Hxxy4d81JSSMlLknvizW +sEDs0n1DbyVhVGYe3WvZyAIhpkZazSCMOr+9X177ygJuabT9FB9hRBzZzTwy +yQKfK6NtVJuEUQK/ZpowjRXWfPIZoRdFEO1ga54n3qc5MvZHam+JoKLEM2VI +jRUGHR1Lf2aKoBaZ/HbvHawQWisXn/JRBAloyPM2W7PCbYa7lK6MKIq0FQ+4 +FsYKtR4vxx+WiyKJB6U3umJYQTvmUsm+j6Iop9f6NvMOK8znHt3e1CuK3nvE +P+99yArbogcouznEEFcgz8COclYoffTNhX+fGApNXz0wN8YKv1L2/+74LIb2 +q78+y5hlBcMM7iHjXjEkXX0u3mWJFa6QPUMiJ8RQ+Z/RlhZONuBKaDQO5iOi +GbnvlvnS+L2zemk3xZCIUOkdn35ZNvzeF57ltyaiW0b7YyUZbMDJdWCx8RgR +KXs2fIrYzgbtyeUDeUFE5PLspfmJ/fg9fSK6QrCQiNT/O+uVaovfK38fB3hU +ENH6R5WYdgc2eGvYdjzmPRElT2Z+0PdkgzuRuW/1fhFRq0bCPplQNtApvmxD +5iehh7Xmp2zD2UAFozh+JpGQtzV3VMwtNsjcyIk2o5EQj19I00oyG5hPcXhm +aZPQ7jJvk84XbGB24tnhWgcSEjBV9hQsZ4MJ8nwvciOh7q6BcEPEBleTDjy+ +6U1CAasO70s+sMHlQSHuk1dIyDBGfPhvKxtcm8plhoWRkKh0+yb6dzZwW6kt +PhVLQoXYPqP4ATbY21DaHZFGQsEtXO7v/7LBHnZuYm02CZkdq7m5Mc0GNxY/ +vq95RkLDobrvvNbZIJSWVi1aTkKUdwp7TUnskF35bevaFxKasO1zvSrFDoqu +Z5xdO0ioYijt+ms6O7Dd/HoirpuE7LiJdfLq7ED6M6mqPUhC8slf+hy12aEr +KSa6YJSE5pRj2O/uZAf/E42rYxMkFGfGsYfdhB3eWdtZv1ggIaefVS56luxg +X76nZ8cyCal4B4aetWEHY9uNyrA1Elpe13701J4dfiVaNyayiKP3sTPVvcfY +QarjcYsHuzhKpDz/TfRgBy3ZuadrnOLItciT1cKbHZ6xfpO32SyONPTlqDfO +s8MPRqiMD484Ymn7BRWX2GHYrtljH584uj5SmXHpKjt83XxOh0dAHHGzpLLp +huPnTV9zhAiKo1vEwOP/brFD5m/N5GcEcSSserju5V12SDzm/C5WSBzd27Nd +7nwKbt8g/pCSsDgiHxG7qZHJDnYba+SLOH54ZnZwKocdBAQrB4NxLBf2xaig +EOfD3XxDD8e5qQVPvV6xw9unrB/ycHtqJTHcKpXsINhCi27F/b1oOnVytI4d +PO6233+Ox6Pz26T5aTM7ROvjj1E83op/CirurezwwIZt+gbOZ7cAV4zcd3aI +CDYfDMH5vpPtH+/rZYcP9xtD1HE9THfUWDwaZAeVp9lJd3C9Ph14WOA8juer +doUrn00cWXkEE2Tm2OGucGv2xQ0S6gx2OPtzmR34X0ruX14hIYe7eq0PWDnA +9kXZb7VFEvqVJ77tyGYOuDoYuJ00R0JuNQu3xQU5wKiXuvXFJN4Pk8U2d8kc +kGnRfIUTr48ZzvhSKzoHmJzhuP/mFwn5k31IwsoccPnErXbZHyQUYsL4fms7 +B4TU+/1H+ExCnM7ceua7OKBoa55GwnsSivQbSubdywFCwj3f31WT0O3MTIfw +gxwwuulmp9ELEhIvv/rW8DAHWIdEbdzOI6GUlqPSnM4cYFhb5J+QSUKP1yR/ +XfXigB6jXZyPE0hIWXQZ4DwHPO3cNFMeQUIFyp0Z65c44Ovu8p6rIST0+tCd +44HhHNCxHnRWzouEdnr71unGcsCX610LrMdJqPr6frnFuxxQmVqhF2dHQk1F +fEPnMzlgyTezoVof72feGye9KznA/qdlkb8ICTnTjjer1HOAwjPl3l9cJDSg +s1vlbzMHsPj2B6wsEdGE29q4+3cOqHPo+27QS0Ss6MLZY3MccGC0bUrhMRHJ +nz8RYK3MCeHKN99vlSMiVb1eq3R1Trhj/Cz0pygRabLYbR3V5gQH273jhhxE +pB9tMnhlDyfog/4/sz9iyClLxTrPgROc89fZFB6IocT2ma1ssZxALPB8I80i +hlLxh4j5XU7oerRqEvNXFGU59w/ee8AJLsE7z73+JoqKx76mqj7lhAPzB8cM +nomiTxxlvIerOeFLXx27rrUo4tS6MlQwywleHlo1WfdEEN/Kv5rlJU5gPLJv +Gg4WQcLVZ9L2snCBf1qO7F83EUQxd7H5wccFMeKVhxnbRNBOt721XPJckObc +8DoVv8/O3+VNd7TjAlPyk2unx4VQ//w9W963XCCwLX9lnJ2AHu3edu5nLRdE +3fp9jVwtiI7GfIotaOKCJrrFxZaLgqhLlrPRqpMLfAxY2O6OCKAvVr47Uma5 +QET6xuuMGn5UWWRGUVXeBA++x0sdsedF97xYRy3ubYJBwkjQdhUuZDpw8nLC +2c1w6Jbfn8uzc1WGl+nPDAI2w2U2Mbrt1rkqfbHuroXgzTD8QXdv2MnZKr29 +5jr20Zsh0hXZrPZMVylnb52lP9kMzbVXm76FjFfxus15vOzeDGKeKlGen35V +fei/bN1pxA0huMSzha2YRX8cQ1qaB8R7ppZvt29gHxj97Q6yPBBo5D67uJ8F +9p3bHvxAmQcu375vV/CKBYzZelrEt/NAZQerntoNVtCnMPxE9vPApaQbb20p ++Fx0qEebQ/H9ct9OuNpyAbl9yWZ2gAfGrggHjZbxwWitS8j7fF4oa60tfxcn +CjLxnSdvlfCC9Z7f2d/rRMHaycLG+g0v9OcwFxoWRaFyUVf513teuFXKtb7N +WQwSVIXa//XxAgffIV1tVSLsuFeloCDBByb7T102riJB9Eny5xs3+SBarCC3 +q1ICqrcnlO2L4YN1n7mrnOMSsMCxOUvoDh9sV/L5Ny8hCc7pswGpGXwQrpAv +KecnCZrtTbSXFXxQ2vxqKUeJDD//u+jXP8MHBQ0lym+vS4Ga0DepPUf5wZhr +v58lOwUGYwZD77rxw/hbgZ5fohRI5fk3NHSKH661PZXdL08BPg7x4ugAfnjY +bGLfYEyB0YXDht/i+UFPb7hDKJoC2d0/vT3r+ME/g9Oyj5cKDocn2t408UON +3/5KbUkqiH5b1xH4wg+HC3KPuSpTIfSzDPuLn/xwUuyeq7kxFZxrjt1bXeCH +H+pd5vtDqUB+OlAVqyQALCoL9qMTVGiXXZD9s1UAKnMHLjesUCEqgytSU1sA +uBSogYGbabCcrGD9XV8AFrfd/8+dSoPOGM9hmoMAJNUL+hofoEEczyXzCy4C +8DLRbuWbAw2MwiKLGzwEQNP/+1c9DxqUhuQFnb4gAJf/FaKrwTS4fW6cUHpL +APQvtR3clEMD06m1C5vvCsCS8D7jHS9owOYl8OPIAwFImIiV2vOWBmdObM3e +eCIAbc/dSj+20MDi8Fldk2oBEFT3/9U4TwOub1fTHjQIwNjtCkLSOg3eHkxg +n/goAI3i1o06m+igYvbiY0KXAASavdg6TaIDDzZ/rHtWAN5NNHvrbqdDwG7F +zaXLuL9H/BsaGB0G99g/j2UVhEDLopfzhnSoMa5e1hcUhJCDHzu+2tBBfd/c +QzJREByOPx6YcaBDmrmC0QJZEDaHZzl1HqfDpYMxt3OUBeHZcvbPlTN0GLZG +uteYghBdwRml608H20OzvQ46gjBL2Duz6zIdNBwOqxAMBeHFirDBw3A6PHSK +bh0xEwSmqsiPlRg6CByrCqi1EoQ3BR3XpW/T4a+bXL3fMUHQ8sw98zqFDkc8 +7E7t9xCE7IFDrlsz6PD+ZJSQso8g6L/i/nQ6mw7aXpWv2P0EYaB4W/iZHDpk ++Uw7/gwSBDmBWS+9fDoI+8pyvLomCNvEBO2bCukQcv5QblykIBT2LDEoJXRw +uPh2YU+SIBgxnSbI5XRoCpxKkUrH/YuIp9RW0EEnmL7nX7Yg0Gtpj7dW0eFx +iO1IyzNBGIrbP+ZcTQfRaxGxuS8EwSWLZnmolg6hNyq0rpcLwtHMxgLhejpM +hU3+cKwWhFM28lMJ7+jgFEkL3f5eEB7sbZrpaKDDh2gbRaHPgmDmspj8+z0d +9GLDP41+FYSa5OwPBY10eBr/5nxdtyBUXbp4Wr+JDsQ7ExJpfYLwr/bT0fs4 +vp5IrfYfxe1zlkSX4Hgmydr9wLQglKqPfb+NY+cHYfyMRUGQVp1U247jT6nl +Lzg2cP8eo+fScPvSLQsqk2wEeHaiOr4R929zgMDiwEUAbnMB39d4fNGtSm3v +uQmg4U3bOInHX2u157EWPwEqv3DJ/q6jw3K7w8VHBALElgd9kMD5M239zARF +CdCivN5PwvXx6IiVCSIRoNSt8khnJR3S7XJmhiUIIO6TK+mA6/vte029jTQB +3od7EjPL6MBv351UQyXAi3xHvfxSOhh0z5/aKkeAep4s/0sv6BDoKIilKBIg +/oJYFQ+ez+IeRWFuFQLk/zJkc3pGh5Gj+gMXthLg58eIbeef0oHy2/71Hw0C +jLwd22ueRYdbfbecKnQJwKrJ0mP0gA71rk+ZSv8RIORGqLlnIh1WB6o5EoEA +ftB41jyeDieH53J9jAjQYHSpxPEmHYzGj/yj2RBAqniHZaoX3h+i19qu2BHg +QRLH29kTdJjbkVfQbU8Ai8K/fwSc8XqPXHFPdCHAU5f4fbcP4HoppHRynyFA +Z5ayezuTDvst60pOnCPAf29H3Pcr4fXlNxZX60eAe3NUcjyFDlb1O00uXyZA +v5x8rrMAHZ65/CybiiSAy92wVp0hfJ5Eciaa3yIAX7vMr65uGtgVqfrmxhNA +Vku4aXcrDThZgpVdkwjA/lHQxqmCBk6p0g86svH19WnHthgaEDqPBlUiXM98 +UbPXcjQ4sRFmJ1lHgMXltvv5JBpUyBdqBjQQgElKTvfgpoHnBZZx5icCEC6e +oKuPUaFGOMMx+wcBXrI+dttUQIXz5n92RS8QoBn8WcaUqNB0nkdyZIkAQzsC +io3EqUBJ0fi3d40AjpyjhSe5qPBxNLRgg10IxMLPCm36QwH5cDrlnJAQnNW+ +uJaSSIHOGlfWIypCcOKKYWDZqAxM7e6SuLxVCLTTyzmsa2VgU7Wl5kMNIXDD +Vr7FPpAB7So990EdIcjpDDk9ZioDd94QPvruFQLCt2dau7OlwbKkIinKSQgU +/qhGPzCWgnfZoupv43B/orRXDmYS0CMbafLrthDMdWTrvtkiAfOZGy7s94TA +wDmprH5wC8g+Gr1rkioEJ4+vmv26sgVC09DK1xwhUJ3P2b79uTjsune6YaJG +COpfH+FoXiHCy/A6J8q8EHDeKpArcRSBp6bN4mGLOF99Uzkbsggk87W2jq/g +5w1ai7O6hCEkrtfwDZswZD4vlTpoKwxmSctqtgRhwG5cZVkyEYI/T9Q3ohj4 +vtdqsTRDARBoSEn/d0wYdH5sH57V54QTnBd+ffokDPl/z0y/c/6MHfcNfMmX +LALz3i0+7zaEkLZGz0ulVBEQOnZiNtJEGPHMQKnhQxFoOvL4ke5tYVR4lutV +yGMRqJ42unpQXgStnol/PVcsAr6HYhiO+0RRos+TN93NInD1hGmJahwRNZ5u +q362JgIPkqt6AjckUIqKdk0jiyicHA2IE9oric6MJdUMsouCZ0rv5YuRkoh4 +2qmWwiMKtwZui78VJSOXUyN1d4ii0HCdt3RdXgqtem40BG0VhW2iXNUNu2XQ +VnfGJ7NjovBqT/N4UTYV9XjK+OS7ioIkzXRffAMVRZ8WIQh4iMJ9wjUV4xEq +Gjm7cuCztygsyl0u1VOhocyg5q8HgkTh3UDUI/lCGiIlnPppe08UDu/J63ld +QEfv7hwNfpUsCh+I+qbdn+jo/D0rGfE0UQgV6LNpGaejLyk7jn3PEoVd+VaP +FBmyKOoJ74B9sSiQ/v0IvJUpizYq8sacP4pCilWaQHukHHpelR5T3SKK/y84 +H2t5LIccam6r0dpF4T/Hmz8Ta+RQWUPgmb4uURAROVQfsiSHzrXum3MbFoVB +udp7b13l0dDQ35WT7GLw3eUNM0xdASWO9qY0c4kBy2JS+aKxAjIYb/tPhUcM +4kfFLqodU0AZM2+ujBPE4MWf36oDcQrIfi2K/Yy0GBy1kiu7MK6APgur8F7Q +FYPZyzxnOpIV0S4vr5EHO8XAqmBkgvO5Inre8LyhBhMDfv6WlytIEd0KYl4n +GIrB4bZ14s5BRWQ2qL2Wd1AMBopyadxqSqgCAn602uD2j3N0ncSUkMqDsrIl +OzHQ1XX/Gb9fCfHu3+lndFQMyE672tV8lVBT2e7JP6fEYPTf8mxqsRLSE732 +kdtHDPJ8Si7Sa5RQrnddnrqvGHgoe589/UUJRdCNPIIDxOBrmFG70aQSMo4x ++73lBs6fUGwtraiM6p0Pte1PEwPC1wNhkreUkeabpCL/DFwPdovmyvvKKEus +KzYtSwykbAV1adnK6HqTg9lYrhisGZm1K75RRvqaLvVhr3C8x2F1a78yKr6V +mfm8XAxkCtkvfx5XRrSR/qtf34qBZAVHheo/ZcSa5r6LXicGyG6jSY6bgdAm +r1eVLWJQtk0qZ0OJgdRdnt8daMPz9SfiThyTgR5WTJ7j6xADN3G35R4dBrpy +1lf9yE8x2LfXK/2FIQNNNL8QuPpLDK6vat3VNWcgJ/n5sSd9YiD3Jds3yIqB +dv3wz5kfEYMgap2dzlEGeq5VFkYeFwPrfVpSRa4MJBW37LZnSgw8l9pg0JOB +okd3GJycxff3UDM7vBlo1eAyLX5BDIpoxrI3zjHQ6fRKltdLYqDWR8qe8Geg +7qWNnp5VMWAW8mwSDWKgN89DH6iwE6G7M/pf/DUG4jKzkbjHhb8rtCzn1cIY +6MCIwn1WHiLoF5FcAyMZKOXmMuk0PxE8A5yo/jEMNET/mPiNQARbWjgvLY6B +NKrTxXaLEiHMcZA1KIGBLjv53skj4ev3Xvdfv8NA71cMRIiSRFDLULm7M5GB +RO6TEkKkiSBsdXT+0T1cD+1Rwl8qEZwZjsOvkhgop60i1kaOCJ//0g4G3meg +uTOxAkiRCIXb0kjjOMYEXGKUVYjgQHouzZ/MQJF5mnx3txLhVwnd4ge+/tV4 +U9SGBhF66mtiDuGYMvid+6Q2Ee6r6b+7its/de1ZeLsuETQizX4fxv2XUq5s +wv4jgkhJSGPvXQZirTxwMweIcMXC96QIHr+ZvSynqAERrAxzC+fiGeje4sK1 +YCPcn9WTiGuxDPTnbiPbiCkRxgN6+qqiGUh1W8pVKwt8PfDN85wIBgpo8Wap +PECExaMZXXCTgWq9dl9RtMH5dI3a3QhlIAFe0fUEOyJsezcq6R/MQIefDgat +2RNhNG6MSLzEQFl7y1bcjxJBKVdzl8sFBpr8E3Wp1YUIXX9ZwuzPMJBeiNPS +zhN4fKwRQ6ynGOiGFDPgiScRVJvXbW3cGEjS7tuFoDNEoOxzNmA/zEAn5p/O +DZ4jgoB84kvHgwxUlBB47oA/EbiKLchu+xjI6CPlrHwwEVwe5r+5tJOBEk7O +TsZdJYLgv8uT4ZoM9HPTO++V60S4ESonaKDCQOf0T51uiSLCkL6qSLUEA1X2 +/vdXL5YIaPzhcqgQA3FfJpzMTiCC9U6R9ulNDJT+6qX7pftEYJ7i9P42q4ya +VViOyz7BseP+8TcNyojY1Pr7Vi7Of3WBbxDv32Pu2c5L+UQIPvroyNsCZfQv +w9TpUwkRQuTWC88lKiM66e7hgBoizMbc6GRxVkbeJe6df+qJkJJBmLp7QBmV +HdA7ZN6In7eILerUV0aW0b3WtBYivFk4fs1dVhkFsirv//CTCCtNp74861NC +gwa8nfK/iZBZ5/qatU0J7Q8fO3q1nwjnhlMXN+HzS1awwEf7LxHSvj+ZVExX +Qh/ImrEPF4mQf5Ovs8pGCUnr7Pp0XoQEBVa3Ux1LFFF4oIztZyIJfl5cjfiW +pohmKll6lCRI8Pfl00G2CEXUsLd2vIdCArGg0UQ/B0V0xsqY30SNBLN5vvGf +NhRQjfdBMykTEuzupvd56iggleJt7f5mJBiVCGBulcbvi3lRh1ZLEhRlvJnJ +ZVdAp4I6ToXZkoDnZ9jzdx/lkWikQ9T0cRIkL793vuskj05kn2iqDybB67ex +pvW+coin+5KxdwkJ7nr67TF1pyNt/xz+2FckyNyhLPHKkI6OCXe2FpTj8erA +lb9ydPTaWMtxGpFgMDKU41kfDZ14OXn2/EcSiFN/xdx2oKHqW64PLg2SYP/3 +Pdo7DKgoYLfFxE1xcTh93OgpW5cUGnhMvZMeJA5VYSwdHV4iaOz67yX2EHFQ +3pi2G+EXQTMuGUc9rolDbmDWi6f5wohFhspgRorD/YVlXq0xISRxj1JTc08c +0lt/62S4EdD+MJmpgWJxqE88VO12lwdVuEuZqYyIQ2zxRg3cXam6o7iFo8xm +C3S6clluiV3C4pJPNByjSICweQ4ljiYD/n6h54LoErBUzWtmeEUGnA6mydyT +lwAOo9PF9T9kQIXnm/8HFQn4l2unLWBKgcaLexW360rAPWzy6SZWKrAdlo3g +OygBH7cHz5I9aXCB9Mf01TUJqDEzO5EkLQcOs2sLX25KQM7t53cyjOXA4POW +zLEICYhK/lQW4isHwmEHVqhxEnAtfka2ql4Oni+gvOgUCXhL262rflIehr+m +87m8lIBPPWMGobkKcOSO4ye+IQmgehYwpjiVgfyCR/LUqARk+fd1TKkoQ++X +V+6N4xKQbqKjVmilDK6Cwqw35yQgbLaqw+OhMnhHvtu2wSoJmSYu20u0GRAa +svX+NFkS+s9elTC0VQGD9O4BS4ok/j/udXchQAU2VUZoPKdLAnVEldXpgQpE +r/Q1n1SWhKgDKl8te1Ug0S9pvW+7JIgnG1cWH1eFnNOsrt8OSkKHkHO4sJMa +nI56XqhpKwnOUtyRq4FqoJZrv5ZwWBJkNvyCEu+rQfHQy0RLZ0kwrNON7WxT +gwqXk43vvSSBuO2bZKTBVmixa1N7Ey4JG/GKEXK86pDgHxK4JVoSKH25ZqEk +dbBJVH3vHysJSVEDUy/o6tDVFnZMM1ESNg2PyN7doQ79Fjvv5GdKwj6TM7am +nuqwaJC9lF4pCY90Jv47UqEOQW/Sr9VVS0KggkWGeb06sGgk84/UScJNgc3q +Wz6pwyaZWKpGsyRsKw6x0ulVB+JSgEldhySkn5Q4fntDHZJ9zrUNd0lCw2Oz +zwabmCA16OXI3yMJZSuXAz4KMEG2zeWsbT++fuCnkKsUE7blm90fnpKEkMOc +JzJ1mFBKN6Lzz0kCh+hGBS/GBL3k3fnMf5IgZLt8yXQvE/TDtKsvrUnCv47D +700PMOHdmvq+dBYyEOTH5PkOMcHkPONrLTsZiKg7MtOBCfuPUUb4eMhQoBDH +ae3OhPYOiXNMfjKsFuVPnD7NBDsLsTUbAhmGM3qv2p9lwtEdPELpRDJEY+mW +ZZeY4C02p8Okk2Fugx27EMWEmaiJGht5Mtw54qWiG8uEC2wjZpeUyJBytpjS +msCEoMmfzrVbyXB2br4t9D4TWE50jg5pkMHJRNAnOYUJ17tbz/Npk8HnpV7j +zXQmRDU2hNvsJMPRfdH+P7OYIIC/KC9hZBiTl8kzesKEhNKKlDR9MliupTrc +zGECUfWVfO1eMnx40xR0P48JyZlFhUPGZHjR0Loaks8EaYlnenxmZJjRs/y0 +s4AJGXGP69QtyRAns7fvQyGu/6YMC5uDZLzu5NSYxUx4evlB50UbMpw/9ynD +8wUTVObuuqTZkcGtMILpV8KEwpNxYzX2ZKj0FPhi+5IJmr8j/YacyLCjOOQ8 +bykTXh26wcLnQoamH2cJd3Cs9+lKpLobGUryft2fwnGlwSVRGw8yvIzR5aK+ +wvP35nzaxVNkYH1nu08Ox++YPopp3mSARyFH1/D9pk89i2vO4v5zvHRzcPxR +2nXn0Hk8H036LYo43n/X6R1vABnyIm9LBuHxtPMe3q8eSAZ9potIJh6vXahV +l3UwGf7OyhSm4ny6F81dL14lw3dK/ugpnK+zj/FE6nUyYMaHK/iLmNA3oB9Q +E0aGDNc+6Wu4Xvrpnx4pR5GBMhgtlY3r+dDuyMeEW2ToVyj7loDrvSE0+G85 +ngyuF1UNzPB8ODWfpR2/S4aoXybOXx4z4e31NbPmJDIEmnPL0/B8kndF+G9L +wevjA2v8rgwmdBU+/MCeSYa63nWjrmQm6J5U+XfqMRnaanRuHb7HhCT6a2p7 +DhnC84neWbeZYJv42S+rkAziv37Mp+D199LSPoOvhAxFhp0ppmFMEOUeaj7/ +Cq+vHZk/akOZ0Bq4TtlbSYZvjHC5LReZwNSK3JdfTYaerAea8+eYEDch5idW +T4Z3v870pXgzweKYavNAMxnOTQtttTzOhHyJsnnzz3j/GFW1H3ZkAl+7AaW0 +lQzr0dMMdby/mgwdLtz8ToYIzZObwJQJSizD6RPdZKhvD7p/cQ8TwsvONdn+ +IsOBjWeLwTuZYKgSJaMwRAZ/j1oYV2VCjVB5Y8McGbZEtvIcxucBtXnv3NZF +MpR6R4vOcDIh5PoX6aQVMniNUuHQmjrs+jd8zoNNCmZvz2jc/KsO5d0kaW6C +FDirKssG4PNpS2Km8VkRKfggcebruTfqEGC59dx3ohSsBb+W3VmkDto1hu9z +pKRAJ1BkSCNFHYqfXPA1ZUhBz1o29Y2POggdY00tVpMC9oNuA1Ku6nBGIqZB +QkMK9gSmj5rbqYNaTBb5r44U+Hn/IRJBHXJ9295FGUrBpQTnxyb86vDoP6bk +x2NSwPw6siN351aoseC5tuIqBRIHLGQUqFvhz9G+USUPKXig4BJmwbkV6KF3 +y296S8ErC/2K1A9qkPVu6TAESoHeltNNew6pQbZlTdKLO1JATQ5b+e2gCu+c +H7D8uScFCWRjJm2nKgyePe9BeCAFImJ8BQRJVZC/I6/jlSEFJh9eJix1qMDj +zsgO+edSoOsVnMJmoQJPj1kRkxuk4E755GMmgwHvfVWC3zdJgdeGvWAAJwOG +r3EOLnyUgolEU7ezvcqg+PjVS6t2KTh0mE4NTlCGnFFJG/7fUgDd1NXN80qQ +e67/dsiyFGRJFRLVnylC/o0LQu6q0nDIb/60+YAcjO10DL2hLg2jKpp3Il/J +4fPEYDZzmzSMjEQshUfIQa6L6NdfutKQJbpTpFlFDp5iL5KOGEqDSe/Bcp8z +spC1NCVjcVQa7svtaEwco0Gy12k1rXhp4DRR3f3GTwbCbI7vY5+XBomjzfV5 +94VAqzsjJ+yjDPyQktrrmCCACGoeiwUtMjDy1y3iRZQgGruiZtTZJgPL+2o4 +/PQJKIv+pl+xSwYs8+P6g3YIIdFT7TJNgzKwKzzLOENFBC0Hse/jYqEAR8WL +16o8JPSdV7vaeAsF5LP4rjzMkUbvNO8Pd0vg2Cr9IhdNBpU4rgqeJVPA79PO +Tq1kGRRXUON0X4YC0y+3/503oCBjK8vVETkKXBxP/c9kGxW9TvbYHqVBAS51 +IZdubjpKUnqQ/3EfBdo7789dTJZHc7OG2dfMKSAtdEjmzTd5ZFk5k6JrSQGL +qVNx9cIKiMvKNDr7IAUW5xsttkUqoAtBSycvH6ZArMavJEc/RXTw8yFFVXcK +DNiFbDLdo4z4LohmRodSwGTC4fTNXFXkgaFk/esUeB844BfVo4pquU8nLN6g +wJNetHWPsBq6lFZ71TWCApIHBTe9D1BDIw2+zjvj8HjPO86I6m9F7yS+SI2l +UiDFR/DDXRd1dAXFJO0ro4ALuyc1qI6JRn+iO0vlFDDnqOvN72Qi25XZuCcV +OB+LCzOFY0ykon0kgh1RIBCt8iiLaqDOPPlLb95RoOjnuZ5fzhpI416VPaOd +ApZ+3YeVpjVQasnMoe9fKTBz77DOQbZtaHOrnHVYBwUkSruCjEW2oV6+aLO+ +Lgrc71a0SNHchqJD7f578JsC3nVuzV3nt6FBr2lp3kkKKPpJVIf+3YYORMlK +lk1R8HtG7LX70jZU8fQQyX2GArv6u58RN2mi231vBWvnKbDAodv4haqJ4HAk +S+AqBUR4dK68stZEeX5vVxXXKbDjQ57wkLMmIt6ZWvy2gef3fY1c72lNNP7J +dlqDnQoLqr+Iitc1UbIB/c8oNxWCVcyOiBdqIk4X254kXirY3FUnh5VrojNX +IroM+amwV2wf59s6TWRUPtn6iECFNrPjzy53aqK5rRW1R0hU6GjX5bVY00RH +zSerNm+hwsmbOVXTnFqo6SStolSCCi17v3jaC2ihh9nhJcLSVOBfsBUOkdZC +5pI22U2yVPAt7V3l2amFkvrVkL08FQKvlR5119dC/fmbf4wpUOHA7QX7OGMt +FAQVBEEGFaa7wiuNrLXQe+5ExkMVKuzgXJ/7elgLibb5GDLVqFC8QnNTP6qF +nrnRg6yYVDjfJptk4qmFFtXWEvs1qDDfS9i62VsLGSx+K7qgSYWZnOYnCb5a +6Edk5NC97VT43LNjjCdQC8lbu7Ip6VIhwX4hdjFYC/lK7ZIq16NCp2lkfVGo +FuIpnD7Y/R8Vlq3qH9yM0EK2F5u9vDBcr0tnxB9Fa6FH+tnh64Dze7HWEx6r +hSZ4r2TG6lPBraOwRy9BC+l+taukGFChb9xi0+s7Wuh6msb3or1UIHpLm7Dc +00It7nxz+kZUKAsauiNyXwuRmYMC7cZU4Faa+zGdrIU8lquU3EypEP6UQHiQ +ooVKau8bLOyjgnd8FF0wTQuxxJw7GmZOhWERbW6LdC1kZmt+SdySCps0XEsO +PcT1llG4m7OfClcWxsRVMnC9h1kK9Q5SQThXmdGMY/XirqZmKyrUb1rp1XyE +6x9YMuBgQ4UGnyoVTxw3GNximbClgtQWx00eOBYW8JC8YkeFtd3/nWDi2Klj +tzbhCBVmncyhHreX+1DyQIY9FXKNN6LpOF7wnD+l4UiFqx4mBmZ4PPrbPt+s +daLCh77HThge763VpxnWzlT4Vk/6upqqhbrqQysGjuF8FakZ13G+8rEOHX7H +qdBr/7HiG66Hr532zCY3KmzwPqPNJmmhSiqB//4JKgidaP34PRHP198RBWUP +Krzd8aMsEtfbpqRW/40nFc7KDf3hxPPx8HKqo9kpKhhlpuzdh+drzNA/4Odp +KmTuVOw9gufz+nfl5xs++PnXws87b+D5ecTRGHeWCszvnr8M8Xogn+7po56j +wot3YXuu4PXyYj1+i4EfFQZFWx5Y+Gmh9YZTml/9qSCop5AwcFYLmcbvtTxx +kQq1v9LeGHppoT/0pevhQVRQKRQtdD+uhdTGW9O3BOP1+9MvRMFJC10qfVae +e4UKfqXVt4rscL1NnKc+hFKhov/JBVlzLbTbu8FeKIIKYfon129s00LLnSOG +dZF4fS19OsiigtfHHj4N/2gqbDk3m7tDFtdvy4HNP2PxenieFD8vooX46rpK +nibi80FANNZ/ShO9U1tLt0+iguIvktXKoCa6cl8mSiCZCnF8W67DT0004+16 +7HwqFfg0E30EGzVR55YJfsjC+6d37kR1qiZKuE5YmsnG+R3aFX4wQRPtm9To +z35ChWzrG8+zb2qiyjr/ct48vF+GBo4neGuiLB9W944iKrQ6PhQM34HPn3pR +5F1FhcQDj8tWGrchZfXtedRqvF6Ikxpl5dtQX/LhxPYaKuzZ8fy0Xt42ZHsm +7bTeOyq8Jz7JCY/ahnZKKm7h+ojX92UlZTsTfD6f3eGb2kUFsYby9P4yDVTz +w9FxfzcVujhsoicfa6BAwxBj9h4qaA5LPUO3NdCEZL2052/cn8UNvdLTGqj9 +nUWz5jDej5Uhz2clNVA62UX2wzwVPiqVi/T5MJHeNoaayz8c7/atGDrCRO0m +c9sXF6kg0XCpsmIvE232v7lPdpUKJQ923eiUYKIzX3J9g9hoYCEjpdtdo47g +5ixSEaRBAd2ofBePOvozed0xRpEGJ47+yn0zqYKCuCzc6co0uL3946b0chVE +lCKdLWPQYDlN55j6DRVkappzfUCNBvUWX6adtqig4qyPef9p0cC+cFls6T8G +unaYuDy+mwarPYeexQUoIdnaJ4kW9jSIFHBtmy2VQ59UFrO6HWig/JlB/3RR +DgUkGr846USDmvsPOjx3yqFmz5HPN4/R4Jnj79QhJIt8CQzuKncaWLODMF8D +HVU5Pg/cep4Gn1VlHPzeU9GRxRJnQgwNOLOXS6uMJFGcao1yayUNdr5r/Xj5 +Mjs6McvxpVGZDrXdiV4HxqXAKdfgk4MKHViWXa6uB0uD7bHrzZOqdGg5fu6q +P0EGDD+zvxNj0sGZ92DZ8f//9+SxvTm2nQ7HFKXU7fG5PODCkr20hw7/+S71 +7fWjg2vrSoCSIx1ucF6/yv5FARwidvhVONEhQLnAfJuYIlhD4DlLZzqc+UtT +0TisCAbPl70uHKfDNsz4UPIvRZCNXHKp9qTDva+1GyzjStC3+5/ZYdxu0ljO +65gVBrgUzVAiYumQaLnsPD66FU6HWq2axtNhUM/Q2pGkDhesSjr4buPr5TRx +cV11CJ+/cCsukQ6VNuI7Nwepw3PdpZV7qTifc84v3m2ow1L1xrfHeXRwyto7 +br/OBLbbzsUe+XTQLNvzYL+UBvC5VscoF9Dhcoh/gvBODZDmumbwvJgO1tEC +ZasBGmBgylX8sowOUoOat5ymNCCulS+mroEO2Soxfhvt2/D3uJfHzUY6+JBZ +UdLUNsg8/2mPcTMdYj7Lb17i1YRSYtxy8yc6sKcySPz6mtB9RMSj7SsdrkYn +DAbkaYJC35Y9f/ro4PIySEHwnBaol1ySzhrA/c1RuMYjtUDvxo8ltyE6fPUt +04t+pAVmCqmFI6N00Kl9aMX/RQt8T1Gkp6fpMOXmpyrE0IagnVeXimfp8GfT +SvoUaMMN/j/t5+fp8PLjwrdbttqQVJAZtbhIh1Nitw5xXdXGn+Ec7uXLdLip +/4Sz96425B1w0w9axfmIae2+kKsNJbR3UrvW6dBVZ1/5vlIbKmfllzY26BCU +zK7xvVUb/gdnqri8 + "]]}, + Annotation[#, "Charting`Private`Tag$29572#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV0fk71AkAx/ER0opdVHI1M3xFJjJT0jdP+n6qrZRjI7bSo804ZpxlMpuQ +RGIe11RWjmWapMvTiKVNrSOJnBVtu4t9EklU+2CaHePc9of38/oD3ubcY15B +i2g0mvuX/rcogbuYE5i+1SJ7rqSYLt3a1MN0O8AMoaqX2DAi+Geohea6ZCbz +FFUfI7u2hp9NFTVkMjSZIqqJHcVbzJdQ4c7CCCUjn2rJ6HZR8Mqpnhl+zjjj +FvXUKbnmI6+e0uobtP7EqKFaL/RFvec9o6RtkqgPjFZqT62Wxzvea0pWLuoL +X9dLdeo6fqXhN07xqBf5HwVD1LbsnQ03vpuiIodthqpko1SQ/bQuR5cGbfNz +1q/JccrNJmjCcLcGsvTaWdKjcqry5WlhK7kE3D7vevWOfyknA1a5xhkdRD05 +xz1mPU3xZi4WlR7UQ8Vxnf1Ge+aoY80jG8rdDSCNCxtjH6BB5Lt49Vz4ciRJ +Zj0/f1QDtyUumMM3BK1nAL/FqqNBy9gz7JARrKKDY7xZmmDrJ+aORpvgreLy +90trF8NP7mzrEW6GvcOhpy9GLcHPxU/MlJl0eLwVr6XTtVGR5dTX7cXE2GNu +4tM7SyF44LyvyM0c6/Rfrdrxgy5q20onRYctoE0p/PvlXyN49+bakIMEdn/y +VVr46CH/Jqc6LNQSfzYGqvna6iNLXnv2+MnVqE5rOsJU6GPwtvBHvsAKwZrC +ga4uAzTsupiXlGSNAEFctU7BMsx69A5mJ66BPW9tl5v/cszgntqVUzZ4ZmC7 +VLh5BZJXKt27U1l4KEsqtFU3RKhvQKMyeS3i1Fj7Ov42RO9Zh0DqJ1to98e6 +RFathM6l/F6R1A7D181zJPFGKNZjnWopXIecNcYaNT7GqBEwdlqX2UNcENzi +zzRBAfOKmbM3G745fl06Iya4Hz9N4z9nY+rbUpWkzhSmrlqzxAEOhoa3xzSm +mkH2zCb9r5ccXHXmmHb6r0JK8zyb6bced1KE+jw7OjJOjIYe7V+PVJ8AV3UF +HdEr6N9YHNqAjf3SW6mdDEhtNNuiBzYgz6bwTqcrE/NyNeNHRxxwpiEzz7WG +CQm7IqF4xAHupj6lbZbmYHJve8xFbMS2yJbD+iJzvNhTU+nzYSMkZlzLDoU5 +Wkpi7agTjrB8fCPX48unT794brGYdITYrpHVXWeBz/cF1ecjNyFYrvGilUUA +7F074xWbwK2YZIqyCTzwsw8JO0EiPGn/7N4LBLQC+A+LhCSE+6v+0LlEwIsv +1X1+kkSaQpglziUwJlhW6RBPQrZZNXO5iIBJmnJ67hwJ1aOFV9fLCJysrM8Q +55IQd+tkNrUQcNDad7e6hkRBSQT/fCuBRB3RovcPSZREd+1waSfQod/obVJH +4p6heLq9i0CgmYMqoZFEv+8yfs/vBC5xjLa7tJOwHjLeMThEYOLwQE9vPwl2 +VSz92jCBLf7GVrqvSTil9KmCRgikBXvFUG9IuFkX3R0dI8CIajK7NkxCEMak +T0wQ8Dh/MyjiHxLxW86qKuUECtPf/CoZJ5GiO/gyWkHgndhEu3uSRF55SfrU +FIGEwgyZo5LE1UQN3oNpAm1XntBCVCTKPIO2x88SMLw+71U4Q6LKonnV1nkC +/mWbSjvnSNTJrVQLCwRkd48rFxZI/AdLgCSe + "]]}, + Annotation[#, "Charting`Private`Tag$29572#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVxXk01AkcAPCxSKuxi0quZsb8RERGSb+89PtWWynHRmzF02YcM84ymU1I +IjHPNZWVY5km6fIasbSpZb5J5Kxo213sSyRR7cM0O8a5u3983seCe8wn9Asa +jeb5n/8vTeYucQzJ2sbOmy8vY0gbm3tZHgdZ4VTdUhtmNP+MfLGlMY3FOkXJ +42XX1vLz5KWYw9RmiahmTixvCV8ij3IVRquYRVRrdo+bklcl753l508wb1FP +XdLqP/Lkcp3+IetPzHqq7UJ/7HveM7m0XRL7gdlG7W3Q8XrHey2XVYn6o9b3 +UV16zl9qBU7IedSLoo+CYWp73i688e20PGbEZrhWNkaFOszoOerRUNfinPVr +coLysAmdNNqjhbn6HbbSowqq5uVpYRu5FLn9vnLNzn8oF0PbKq0zdIx9co57 +zHqG4s1eLK04pI/Vx+kHjPfOU8daRjdWeRqiNDFynHOQBiL/JWvmo1ZgqmTO ++/NHDeC2JoY58o2Q1jsIvyZoAuqYeEceNkaruLB4X1tt4BikFIzFmeJb5eXv +ljUsgUCFq51XlDnuG4k4fTF2KfxU9sRclcNAr7fidQyGLlTnuvT3+LBw/DE3 +5emdZSB44Lq/1MMC1xu8Wr3zez1oaK+YEgWwUZdSBg0ovoKwPVsawg8RuOeT +v4rtpw9FNx3rIiMs8Y+mEA1/OwPIVTScPX5yDdZlNh9hKQ1g6LbwB77ACsO0 +hYPd3YaAuy8WpqZaY7AgsY5evBzmvPqG8lLWogNvXbdH0AqYhXsaV07Z4DND +u2XCLSshbZXKsyfDFh/KUkvsNI0gwj+4SZW2DhM1bPd3/mUEfWedQqgf7VB3 +IMEtpnYV0C8V9Ymk9jhy3SJfkmQMZfq2p1pL1mP+WhOtej8TqBcwd1lXOqC4 +OKw1iGUKxawr5q6+HPTPD+ymj5rC/aQZGv85B6e/qVBLGs3AzF1njjjoiMMj +O+KbMsxB9swm68+XjnjV1dGsK2g1pLcscFiBG/BOutCAZ8+A7BNjEUcHNmCG +X7C7ppIBcSsZX7MPb8RNA9JbGV1MkNpot8cNbsRCm5I7Xe4sWFBomDw64oRn +MKfQvZ4FEk51ctmoE3qa+VW0W1oAi3vbaz56E26PaQ0wEFnAi731NX4fNqHE +nGvZqbSA1vIEe+qEM1o+vlHgFcCGTz97b2VPOaPYvsm2p5ENn+8L6s7HbMYw +hdaLNlsCgLN7V5JyM3Krp1iiPAIeBDqER54gMSr1wNy+CwToBPMflgpJFB6o +/Z1+iQAfvlTv+UkSM5XCXHEBAeOC5TVOSSTKtqhnL5cSYJqpmpk/R6L60eKr +65UEnKyRZ4sLSBT30HOaWwlw0tl/t66exOLyaP75NgJS6KIv3j8ksTyue6db +BwGdBk2+po0k3jMSz3R0ExBi7qRObiJxwH85v/c3Ai45Gu9w6yDRethk59Aw +AZMBg719AyRyahMY10YI2BpkYqX3mkSX9H516CgBmWE+8dQbEj2sS++OjRPA +jG02vzZCoiCSxZicJMDr/M3Q6L9JTNp6Vl2jIKAk680vkgkS0/WGXsYpCXgn +NtXtmSKxsKo8a3qagOSSbJmzisSrKVq8BzMEtF95QgtXk1jpHbojaY4Ao+sL +PiWzJNayW1ZvWyAgqHJzRdc8iY0KK/XiIgGyu8dVi4sk/gvnVUse + "]]}, + Annotation[#, "Charting`Private`Tag$29572#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-24.99999948979592, 24.99999948979592}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896378551002684*^9, {3.8963786734631863`*^9, 3.896378706214158*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"718a688b-6076-4f42-8993-4ef3342cd428"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes frecuencias forzadoras", "Subsection", + CellChangeTimes->{{3.898186887035397*^9, + 3.8981868949740143`*^9}},ExpressionUUID->"93747443-997f-4b6c-ad97-\ +6f28b201f028"], + +Cell["Para diferentes valores de \[Omega]ext tenemos", "Text", + CellChangeTimes->{{3.898186705117386*^9, + 3.89818671469241*^9}},ExpressionUUID->"48ab0284-248f-4aab-afa1-\ +18112b28dd91"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{"\[Omega]ext", ",", "Fext", ",", "m", ",", "t0"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Fext", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"t0", "=", "0"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Omega]ext", "->", " ", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Omega]ext", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", " ", + RowBox[{"\[Omega]ext", "->", " ", "3"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896375501396002*^9, 3.896375513740144*^9}, {3.896378538566077*^9, + 3.8963785467090263`*^9}, {3.896378600292561*^9, 3.896378609692216*^9}, { + 3.896378882128824*^9, 3.896378892496599*^9}, {3.8981866936776867`*^9, + 3.8981866956378307`*^9}},ExpressionUUID->"fc96710c-95fb-4a7f-9d3a-\ +8ccdaf80c511"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVl3k8lN8Xx2exZB2MpcTMiKiUbPUt2z2plKWFpE2bhCRJKVsRRWRfsmSn +okQkIpnHvmYPoZR9GSL7/nt+/8y83q9n7n3O+XzOOfeOlNlto+skAoFwDf/4 +/3fsIzMOJfPnWon7nG4Z2ItplrUwDM4wbqCARw8pbwpatNYrijwZDCe05+C5 +ab2CaS3+kNwP3B0eaLuxW6qVEgeKxfzp7AwfdMH6cSxnARXt/GsesG4ZiP50 +fJh53ExDP/nj1lbaQ9A2687v3EqySOY1196l5XDkrbGd/ZyqArLRdLg1T49C +NVsDW4LyVdDH1t8pMwdj0ODD6rfpc/vQ0k2D7inLeHQ05lOIU5MWSiB2+8wf +TkQB51K3L6Roo0PfgrfOtSehmQlhJzZFHTQceaR45kYK2liseu4nlx7yM181 +nV5+hcazbLgfKR9HLctWYZP0NMSuP71K+HwK3a+kKf7Neovy3SLGbLRNkHho +a+34wXSU8KjFVGnmLDLbAeQxy0z08CrfidxvlxBp2blhxvUDUqLG1OUtXUGt +v09LzhzOQonB7133J5khx3Se/H/t2agmX7lQeqcF0gsZ5PiX8BGVsx+Z8Oa3 +QhKOxcZTN3JQ/JcYu2ds1gg7+GDy7/InVLDYn2Asb4s4u3rlxun5KFHrNmE4 +6y7qwL46sIbzkfim0naLqXvo7evI0rGsAnRF6m17qtp9dNz++OXRg4WI2MAa +uz3qiF5wFbwYsmQi/tIja51Fj1DOAz37uxsxdPfYJfIWWXcUM/rfpmlXDCX2 +r2zKmnJHto1Clv8OF6ORum08FyI8kFBMFWmqvQT9POPKUSzhhZb5c9PsNErR ++VUFw13c3qj/cfLJyYRSVPH897ubK94o1/JR3N8bZWh2q+Gvc3990HkVVbWJ +5XLkpfKSrZM/ACXWxN8Zo1ejh5/Ob06KCkUzkZ929PhVo0jpmuWxg2FIx7K2 +r3mxGiV4RJ9fmwxDLPL86YKWGvSKUpDgeOoF2qd5XM3Huw75xZdXvd4fhRoz +V0hyfxtQYAU7z4JPPBJCXJf4FBrRwTivR1sVE5C6bJiat3kjMm+Ms3gbk4AC +ZtKmnZsa0eSjGK4yp0SkGvz9utm7JvTRhadZ5lAycqvZqad0uQXNiX1M4tz0 +BqVm5cm+C29Bp8jnX0RFvUHNkdrkrXUtyOPc3u2um1ORjOXZwo37W1Hdy48q +itJpqIb8RIFA/Y6MXn5I0NJ+h0Q1u4QaKtrQhNOuN4eKMlFGpk+XjUInyvc+ +EcPZmoNGhUb99K52Ih/7tL1TWz4huft6WtvCOlH7z0uJV+0/oQQNnsS+xU50 +wq3kxHehXBRS7WdxvrwLRXtUYyvn8tD9vsCpI6Y/kU1NpfJfQgGK56n1FDz8 +G+UwioPPZjCRJWqKYtn3oeCqR1fN9lYgQtJcQddznK9Mb2+/WYEi2SS6a1L6 +kOHeyrWHiRWoqtqCltbWh04eKWVe4atE24xXkq6r9SPDDr/dd4cq0bCVXPov +4gBaYXLbBKZUI+uQh0WNQYNIv2ptKge+IduB7X05GSNozW5UQcmxGXFLPZHr +2TeJvj7oGk/37UIBArU7Eq9MI/m8Rl456V6U/5/kp+O208isozm9Yk8v6r90 +G624TKO6/yJlrx7tRervqcZnIqaR0iSPrNetXjSsa/qQr34aKSp51/jl9aKD +nuMNTuozqJUt1NhOrw8tzFIcjERnUX37iTfvrfuRWZcxk1w3h0x818/89R9E +3C//3LrzYw4Z2A6+XoodRNnnbSV6BufQ6IvNGovvBxG509upgDiPrmS4FDd8 +G0QpHQUqd/6bR5yHBqd+8Q6hwe+M1F9J86haULfx5rMhZN3ICsp3WkAnifet +7e4NI6EgJyTnvYD+y7FbeesxjApOcEyEhS2gQ+FZMt+DhhFPA13fLnMBBcr4 +lM2nD6P0b0bscgMLiNkavflu/zCaqPnsFHZyETUVtktuPzmC7pQ/Mbstt4Sq +24Zy6jaNIlq/DsecyhJ6ruXcPCszimpJXG9dYQlt2WMXzac4iraC/5TPuSWU +3CzetEFnFP0oCHdPeb6EJn8T7sjfGUUHPryO+/F3CdVTKy7xl42iiXor7Ssr +SyhPz/yXWP0oejm+Y3BwwzJqITHS+TtG0eyOzF0zUsvIRyG4u3RsFKW9yivk +N15G2XtitPSExpDgy6rOg5+XkcEnzticC2OoKN/3UU3ZMipzqdroYz6GbnYY +bDFsWkbPqveF6t4aQ+UiTTcujS6jH1RF5YBHY8gp6MeCo8QKGo7r+CmdMIb+ +PB0VzXBfQRf9lY7c7hlDASnpBar+K6jYTEJpaXAMqZfaXvoStYI4LDw7bk+M +oXDC9Kuq7BX04JCf4ObVMaTrsqza17+CWndb8t7exEJZdrynNuquoo1suWdX +jrFQXTTV6b3JKhoMjXfMMGahwTLxeG3zVTTK+323zgUWPle3j9m4raLp8RR2 +WSsWelJ82LP4E/68yacoxZ2F4sYM0kxKV5HqnT+cj71Y6LOIccNY4ypq157c +pe3HQuM3zDaLslaRznJWjn0EC5kIuX203rKGQoSjlHzTWchOw+vH+u41ZHiy +td83i4V8LfzXwzTXEIgdxm7nshCz4KU+8+waOsB/NWKAyULbrn3uowauocQP +R6+6NbGQtj+TKy1mDUl66UzGfWch07yK3Vpv19CWEp3FxB8sFMzz3cWqfA1d +aGLIGP1hoaWPU9Svy2soXwYLOPuXhYR/Lew34lpHIe3xccH/WEhhA+HKkOg6 +2nWt3f39LAtdM+VPF1ReRzuSHaz9l1nokZdI82u0jthFVXUN11go8oPEgvqx +dSQlupQ6TxhHdWzyhyys1pGli9PLMfZxNKigbL3ssI46tC049m8YR4Rz+4OC +PNfRcEhxkhX3OBL3hNytwevo8ctRU2fecbTn/ZHugrh11OJjKmXLP45Oth8n +nUxfR1bJGd0HBcaRNdFk20D+OhK+GuayLDiO4k6b36N8X0cJx+6LCYiMo89u +N6NTetfRv8uWEzai46glzR7bP7mOHgq1mb4TG0cTLU6D9avrKOg228najeOI +zQ04stkJ4Ghs+Klu0zgSFD4U5cpLgMrn+5wzxccRLe3IziNU/PmQkd/dzeNI +XkufKShOAJ4LJj82SoyjfS3HjboZBLAVET0Rj/NhK6OB13IE+BPt0cUhOY6M +Vk873lEgwOdfaTYncL4cco5HYw8BCBfzJh1xtpG7GMehQQBe1ZnTnjg7FV5R +atImwLhmpa8tzl6G5mUvdQlQuv3TQzWcwwYtz1icJMBy2BXJIfx9iS43RxXP +4PHJ+J69h7MixrXgfZEAG4mBDSw8Xowtlb3nGgGOFNd908X5pK4Oda81AYKP +exx+juf327+f4W9HgBdv2bdn4fnbNXso9N8ngDehzPoLrs+6qJSG+kMCuOUe +WE3D9Qu4wNQN8SRA+yPxFldcX1rCxTMjPgS4eYPYo4Lrn9G/bA5BeL4zGLWB +Oo40t0fbR7wgADtd3fy4EF4ft/a5T8QQ4PKDG6VZuJ+m2W3+h5MJEKRwUWYR +95s1d+9lTBoByNuQswzfOHJRp6ZNZxIgkPvkZxWecRRddqIssZAADRccC1Y5 +xtEOrommhRICRLo9u/6ZbRzlH/PrOVFNgK9i+RUmpHHU0Va1tPod1yvYwVlr +lYWsNltuON1NgISughzvJRaav8wumt5LAHWf0Hs58ywkOnJA6fxfAujsfnj6 +8xQLvd71WytrlgDlutyXAydYaI/9I4MNKwTQ3CnN1B1jIePlAsvcDUSYi1kz +tupnoRA+1TihLURItZqM1sf7cYtR87sb24gwpFO2WQPv16wXdvmYAhGKp3Ki +KN9YqJH+vtVWnQhKWylml8tYiF9ZlqfWmAimlM1rCfg8iLtftnHLBSKQIBpS +8Xmx64uZrNNVItxn8ewKecNCBofiD8jZEuGLvXA3Xyw+P0w2Onp6E+FPzX2P +ZHweib/MfdrpTwR93jAyE59XaT3GoUphRBjr6vpT6MxCVVbBGT0JRLgVax98 +2ZaFOFy4B9QLiKDJJVuK8HnoEb9iOMMiwoXz4kvXxFnopOLnO/LTRGjh64ut +EmIhWvHdYLNFIkwZ1h4W4GGhgt7RxkZ2EnTJf396dHkM/dv648R7Ggm4RfZx +mnaOIbP0T8csTpLAqcLbnCt0DClq3rkVa0KCDFaw0kufMbT2bad/qykJKt66 +xFLcx1D03+Q67RskUNkvqJFgM4aalUP06R4kUL7QSLhyaAwdyLfV7fhIggBx +8aunJ0YRv96OG5QCEpiZHCzm7xtF3Z0Dz3QwEryKc7r3tn0UOa6YVuXUkSA7 +LrHsGTaKPiD9I8EDJPBpSXr1O2gUMSrkDuuJkeHjjHvAkvwoIrT8hkJnMvhh +17zK9UfQk5GiROfHZBhqKK1zUR9BXIRY0v5nZAhOffONX34ECe06V/YpnAye +hYYrNVwjaKt305HMD2Ro0iwhxZQPIz31kuNJg2RIKPzblbB3GIUmJ5s+M2KD +PTPthVprg2hjweOvOufY4CjpUpP/yCCKabxMY7/CBuUN1Jb81kH0enXz78e3 +2KA/+2xG6ttB9PlM2DWXZ2zQeTlTq9d4EHXzPLW2LWKDxo9ZYtVJA0j2noWj +8Q52SGzNFQ2S6Ue71HpOxSuyw5Nszjt7+PqRKuHs7tG97HC3Ledf4Wwf0vbT +HXQ7yA7frk0/s6/oQ5dSdhq/M2WHjRzCTY4WfehF67/dpEB2cPtg/2EhoRex +73EbypxmBwXu3gwS4Q/qn40w4fnKAbD/RQN/UydKOqBy92cpB3jeJKX/DuhE +l/3rAzNrOMBKAhXYG3SiThn26lMdHNDbGr3eXvEDNZ2yV4+Z5oCNuluOvPvc +gYqyDBi7dnCChcvHsBdBbSjiFnH0eAQnRGVXO8UJNSO9AeuHIXc2QK/2paqS +Zgwd7w+Sp9G44Uuz35Gw1GrmaKmZe9V7HngqclP2qdEfpoJgm+TBy3wwYZvW +ez9rnMmNZq92T/NDHUVeWTd8hnlk/Pz8ltMCUFYuGP7aaokZJ+zZ4nZWACwq +3af3P1pizqi/y+y+IADPDJL2FYcuMRN8ly1fmAnABx29ze+KlphLcjEdXHYC +MNm9q3iEusxMN/uZP+krAJdqr4evfVlmCnRcdi3CBCDtrmXAEHGVabHufXZz +mQCYjahk1oqsMgtlP6g6VgqAeYNeb8L2VeYNB8K4Ur0AhLbpytIMV5klQokX +X3UJgF1Vct7V+FXmvWO9Wn5zAtDk7f5mcd8as6PEnHh+pyA8WBd+2nJ5nTl5 +oFP84W5BeGqesuWh3TqTs/iEaoKyINAca6+JPV5n7mWqWQ7uEwStXXXPJZPW +mWFfBL7ZHxaEsg0RQbZ968wTOYWRzy8JQoB3kpqvEgGreCWs+DVIEGqvPSla +eUvAfsn46v4OFYRIwQgj/WwCNpu8bkaOEIQEZ1v54HwCJpM0Gq4bKwifn/X4 +kqoImEcctvw9TRDy6qYkXfoJmFaETeVEiSCcSxXwL9xMxD49K7vEmBWEM9Oy +erqeRCxVr3aj94IgHEp4rDfrQ8SieZubx5cFoTtDqic8iIi5B/XofCEJwTWV +H3E5sUTMIHJJwURACD5Fn71lmUfEet8orj+XF4Ko6KUN0cNE7PuN//L/KQjB +9dofv3wniFiVvNbdc8pCwOzl/nh7hoi9z9Qfkt0vBCexOSURAglzzLNoKNYR +gjdNZX71oiSMvzImfv6qEHBfiRz6d4CEEX2Sz126LgQ5Ki229CMkbEbvLbXc +SgiILCsLZEDCftTneYfcFoKKTcefnDMhYSltzbd3PRSCHsWnfrM3SJja4Aa4 +FikExufyH5QHkLBdqZSl6pdCkDIWK7A1lIQxrEVzFOOFYKTqcdiDCBLGPiG9 +be2VEEy57NScjSdhjbNaAlEfhSBC7JyK0QcSZsHu8Lu+XghikFb383oSJk6v +bl9uEoLpmcnCziYSVr9PsmHbdyHQJtjUSH4nYXttyr96dAmBLKfXKfcuEsbR +IvJy77AQNKg43c8dImEFrBsh18aEoI5uLfJ6lITZchT5BE3g8dq7ZvmMk7C2 +/RaOozNCsC2/uHrnNAl7lZB7Oo5IhYLw5B9/VknY2QLuY7VsVLikgzA7Ahnj +bb10aIGTChIumvenSWTsHienihE/FSYDRNRaOcnYIdszAhybqeAS98OLJEjG +FrzfcarQqJBBWzi2m0rG0hPX1y5LUaHXP+PzCREyJvz9zXi+HBV6KOHXbm4i +Y/3qCzW3VKlQbzDswidFxiJPG5RE/0eF+wIKdW1byJjB7YT8SjUqhN488CJU +hozlJB1NlTpAhUUTL88hOTJmVRgTf/wQFR5sfxPzaDsZk2ibfOFyhAqK0vc2 +c8mTsSdcUU+/H6MC+4T+3oVdZGyf9LgryZAK+irPqkx3kzGWxoF7u42pcD60 +JT1HkYwZ242Y+ZynwpkrJme1VMjYBl/N87kXqRAoSxK1UyVjhcnBhn1XqLCj +/JVQ+B4yJtO+HzQtqWDLLp77+T8y1jHp/5+1NRX6wpNO5e0jY37cvQoRt6iw +cyhEMm0/GQOZvbJldlQYVDOlBKiRsRlNX8mpu3i+VxxlLNTJWOqZX8K0B1S4 +UnDjrJIGGTO9o8yr70yF6INfXv/FuSylcynFHV8/8t39sBYZcyxS+NfkSYVi +2d/knzjv7PAYWfOiAuFnXaAlImO/p9p+y/tSYeqkEWMA5zAe+Y6z/lRoerQ7 +6zSQsaNb3RqeBlFhnr5TKx/nFa2WiuxQKsxlbiylHCBjH87KFfW8wPe/U69+ +Dudr9i6feKOpUHJvd0o4znuVf33aHovrQXPZUYYz9z/I1UnA/RAvEx/E+WdW +cu61ZCrkimrfWf7/fnc48txfU4E6rbqDTZuMeSrdyItNw+utsv8AAWeTqdq8 +gnQqeA0l5vzFf789S+FzeyYVRIfLHjXjvGIX/HkmmwpJSRkxqTg3KM58Fsyl +gqZaFbc9zkmTJvkK+VToonuWK+B8/0N+vn4hFfJEz1X/wvPTtZMosGJSIWtf +nZAHzhKKbgVPS6jweskibiPOk3//FCSVU6FUsdAqCderNPPQF2YVrpeQpS0d +5xe333zprqXCY+BJD8T1vrGbu3Cxngpp5ca0aU0ypvHXplC0mQqetIViXZwF +MhsKVb5TYUQ9OzQU96/PVvnryQ4quHsfDWrE/c5VCP96q4sKw0PPcgg4+07M +f/X9hddPme6qNF4firZfi8r68XpXavp7EK8nsgKD+WeICsc0bocCXm9t4x7M +tVEqlDE1TijuJWOut45i+6aoYPTgLnkEr99qm5bi9FUqNLMF8jIVyFjMzr0l +1QRhcNmXTjfG+8GOFVkySBaGmcFplW68X0RtLpUyuIWBn2Pr6fJtZMzs5khZ +mKgwLDUN7V7G+3OPvEF51iZhCPOeJW5j4P0xllFeLyEM5fOnsSM0MpZpfa9i +g7QwfFbXW7gsjvt1Y73Sdbcw6HgFCE3j86Fhu1lVlLIw6EV4sOVRcL9Gyqpy +9wgDw0K28RYf7s8N3+pJdWHgWWod+7gB19tKpNb8qDC4b96xlLhGwnZbytcb +XBWGDce3fCEPk7BfN+i335sLg43flwNZ/STMz4YqwG8lDL1V5jtO/CFhI3eW +DRtshUFCqmyTaScJS3at/W7oKgwxjd5qBbUkTCzk5k+TCGFg536+8vQdCasI +u/woL1oYgv5Z1ex7Q8LuRZyib4wThk7r0J6uJBLWFKN+9UeKMDxU6On8F0XC +nr/hGbiQLQz1Ugmz17xJ2HrhO9aVb8IwuX982PAyCctgxvsXNwqDEtkje8N5 +EmZaEqqwpVUYRl8FfMo0JmH5lS52fZ24HlXmFvW6JOxus/7M9WE833sa1sdV +SNjQ0NiyNVkEnsaX9pwlk7AGoZ08DvtFYE6TdT0qgohp3bo18lJDBG6JvZFp +xc/XjMqMyhIkAnWOdYpEXyIW4Kr0REBHBHx2mO9RdsXP28G9q++MROBBmBn/ +5GUiVpN/4G/vTRGQbZUW7ZYhYuVXzrScjBMBO+zIMfcUAqb6JTLrQaII2FRO +3uGMIWApIp2BcSkiMNTGs/FxKAF7UmNqwHorAk3ddVP6HgRMW9Ws3DtPBESk +FWlwmYBhnLfyihpF4BTvtpAUUQL2JcPj5U6yKBAKfj/rm1tjchicFo/gEAVl +5xMXh3+vMQ1H5KKI3KKwrVjofH3NGnNI+tuLNgFRsHE+OqUZt8akRomFuNPw +9YG+sekH15g3PdOfte4Xhbc/mj0bn60yN59tc3C1E4WCAjXBhyvLTBfijpN1 +P0WhhEPTRNxvgTl4iKdD9o8oyOYdzTS4vcA8+Yx1+XG/KHx2mDtrbrTAlKFk +3t47Jgrsrh5dBzcuMOskVAMTFkRBpuXfifKkeSZtn1b9PaoYJK79+dmTPccs +sTUykNQVAx2Luckh5gyTu9v5qG2OGBjYeC/+FzzJHHgtFRbvuhGCKgeyed16 +mGHbNrHln94E46WZIvJOZSgo2qLyKkMckpcc9tpkj6DzYRfreYfEgU8/v9eO +ax4tHHq1GF+0GV4/izFS7iJA34C2Y4m3BLDJfpzWtGEH7fj6pB3PJUDA/9Ht +lkfskHD2/LeQAAn4yGqTuRjMjt9j72y5Fi4Btibu8wa57ND5IaGOnCwBj+fV +L8ass0OzyxrjcJEEqPo5a48FckCJYEF15YwETBwM9m55zQlStYdndi9IgMYS +h2VDHie4P2miRS5LQNSrHxZfqzhBa374rhVJEk4EHvW6PcoJBd1iNC4BSWAz +6HXdsWsDZL9xsNeTlwRnl3K58cwNkKSptPnbVUmQ/E+CtvctF5Qc5/ZcNpcE +h6ZS4pnPXNB7uW90u5Uk9OtVUK0ruEDaI7zAy1YSbv3YFWzRywUpFYvnwEUS +zjiZRuRt4oZXJ0oiP4ZJwqMUmY2ZT7kh9eop0ehKScjozvkYb8QDVfY7H1XV +SAKR7vl74hIPDHuyD859k4S68fJChZs8sO113qdTrZJg82vwtLsnD6SNbj7N +90cStr+TqrvxkQfe3u0PdV+ShPuzklP6Arzw/qmDoOUuGrT1JikTiniBpXHR +4yle6oarcSoSVbywc+bQdLIKDTSsqnZua+aFt2bC33/vp8GF7eW/KYO8kIo+ +Rp7XoUH4syMHJPn4IGVxkn78Mg3m+ynBcmf5oP9DR5CNGQ3YqpyjtK7ygbQV +Rnx+nQaR2z6SDlvzQVJbYF/lTRrkeM010135IP6jwpsDjjTwqvtqwxvPB9G3 +bBT2BNNgLVE5J/8PH3TKGMefCqNBIYdPaMkIH2zqVhewj6BByZvXhwum+CBS +j+dfRiwNSkW4CPeJ/BAu9/bTtrc0WA8+/luSwQ9Bf4Y0JEppcEazgGPbeX5o +jGx4r1ZBA7n377eKX+UHysk82rlqGrj93BO6ZMkPAUVehBcNNPAXvaDm5cAP +fi+3llG6afBJKPpnZSA/eJ++pk+epUHTyx3McYwfkk50m15foOHzOiVZq5If +CnVP21Yu02BWqUzW+Rs//NM8EvycRAcz8kTfhx/8YCor304VoAM3RUBNYoof +HjBShh2odPg8bkstnuOHEHHJpXZROjxMmtA+ucIPlfwUyRhJOjyO2fl4FycF +lOf/mcnI00GmYdm7dzMFjk3dvOelQIcHISfpPxgUsBrrfzqsRAdzbZ6q/K0U +iO1pS03fRwfGrOPO/bspsKGqYEJVB9+/eIPp7gMUkC5RIUTo0kGHMRPpcJgC +WoXpgosGdPz+YPn6lS4F7n6IU/16ig6xHXHUUkMK/Ir0cD58lQ4z6b2X/12h +wGLI8vM35nQYFt6p62VOAWH/e7FcVnS4JstfQbaigO5jC+ybLZ5f2qmLX2wp +YO7S07Tbng4Zc2o3Zu9Q4JHD2b5gBzq8ySkZ2+hAgZwbehwmrnQ4mGazT8KF +Ag3XSsU+u9Hh01TozPJDCoxe1Ngu7kmH7J7rPOXuFKAbKRj88qHDdE7FLqoX +BXzVhEIsIvD8edV94wIp8Er1eXJVNB08n7BdqQqmAKbA9mlHHB0GCmMudIVS +YHbLXPtECh3a7rC9K4yggIDk7ZGTqbjeA2b/fKMosENseCn7HR3uiWXoaL+k +wBWeTskH2XRIz+9ZvRlHAWf2U7t/fKKD8+1O41/xFAhfrwX1fDqIPBpN2J9I +gQ+Lh4xiC+lQMHGw+2ESBWqmv15bZ9JhKlqe+C6ZAgPjex2ultJBWnWeqziF +AoThTK/SCny9Pt8U8xUFxHu3RW6tocOFMwMf3rymwJ7uxDTvb3SoKuI85PgG +j1fBaiGzkQ4ahuME2VQKsNwUjnS00CFHjf0pE+eqpplwQjsdurPY6w6lUSBF ++kv/tk46nOnKavqEs7vDYxXDn3ToqP8RLPSWAqaVRzycftNhR8z5DRdw3reJ +vymxjw7/naQpBeIsfLOVXjNIB7alzRsycZ4sjLb9N0KHhMwzPgU41/Ff/So+ +TgfB0N4PWTinXpHjPThJh73tnc5hOD/JHj9/c5oOSWU3+8xwvsKWkxY6Rweb +om+DEjhrmDgvfFmkw7yOzuMSPL6NqXCkfwX3n21b5imcl1zJ+hwEBvRUNNs0 +4vkNv7KwjyYyYKvvx9x9OLfVV0cpkBlw6uEhHz9cn7L5ncUlbAyYZOf7U4vr +l80IGjbhYEB7WWLBHK5vgu40ZYyTAcXRKUJ8OAfYm/znxsWAxvSyAX7cD+sy +Ca83vAzI9r0w2Yr7eXbc7b06PwP+0e5KRSVQQEe0r7WBwgCizwh2FPd/i1Wa +9IIQAzRUK7WsY3B/gnn1/YQZECioJtYdTYG1/Nv2DFEG+LJLG+3H6+sHz97i +o5sYYDhG7P8UToEK1ajhbnEG+H233fMdr8+ciyuUOxL4+gb0qwev36DMkktR +dAbwSwTJ5/nj/dOx1WuXFANuH/lX4/mcAjZEn/fFWxhgrvEoT92HAkdPnVgZ +2cqAMklb21tPKLDXNVv6kRwDzh+UUh16TAGZVyL6QtsZEJAeo2nghtfffFeU +2k483xMMaocTBT5HW/33XBmPL7XEf+4WBV6X1l6iqzKAGYLtrbGmQBhLwevj +HgYUVhpSfSwpYKc129q1jwEeuWJXqvD5sK33sf1OhMdHjdh0zIgCkdtfvv+m +j/vB3VB2S4kCM9M6rzyP4fkMf6aF7qTAiaJ/MftP4P7tmpuKl6MAxyk9v1dG +DAiTbV+/LUkBB9dF64fnGBDkdDF2BJ+HRg1ntu2yZMCF1E2g3cEPGVFkRp8V +A9xeN3z71cQPXOaZYlHWDJhWOVprVssP2AIHJ7stA4ynS0Skivhh95bcge57 +DKhU/DtxP4kfeB2Ek/08GBCzmLblmQU/WCEsWvsJA+79Tu5+eYkfSrlsQhae +MmDOGAQiTPjBOa70sbkPA7rlvUYO6vDDSKX9FY0gBgzUvfB7IMMPFeJNkqxY +BijuHhQ72s0Hbph/pH4+A6RzH1rG7eeD0Z9Y2GIBA8ycD2V3KPCByfJ00JtC +BhxQ0nu1LM0HO/ee9yFjDFBP0wlZxs/bjneyzl8qGEA57Pi37zcvKEcwL8i3 +MiA2pkHhvAcvDN6aovH8ZQDPh9CjK/j5b/hcZnP+JAMu/T7Tceo1DxSmnhGz +/McAzQLhV2GRPBDa95VSOovvn9/D2+zKA3DOl+CywoD4PcFfNQ7xQPQh6d5R +LikwvqlCa6/nhmObT7+qkZGCGg03+xMtXBDZr4BdkJUCn6g/I3OlXND/fkMX +S04KQvc9OPU8hwtcoVCAIi8F6TuixVzCuSD9urTrKSUp6I44Rn9gwgXcH6aM +ujWlQOlr7J6h1g1QeSiAMGEiBWE5pKDOUk44YFt5QdBHCiwGDF4232SHpY4R +nTJfKfj+zvXcYRN2yDnIq/zATwqUL6hJpgA7yG4y3PAzUAqfu/NDW0XYgbes +Myf1hRRsUX06qf6VDTo2TeCXFimYSev+7ysXG9iVC2O2TCkwCrZzvxtGgngJ +M5m6WSlYbg1/8WVoDcmUvnlx/MIWaHy1fTB3ZAoF7SrZ0Vy0BYo5eR9yqDUg +i2m2puod0vB5GcO2omGmWdY/hk+gNKztmk4f0Fhm2nicWtELlgbHEa9n5W7L +TIdTOe28odLAhRbzX5YsM5/NOgQEvZAGuaUS2HF0hZmxf3E5IhZfb/r+W7XR +KnOxeL3t9TtpsN6udLX3+jozqJnXv6xSGmiys3lLGBGLTr5l5VUtDR8N2gyj +/xCx5Hv1B4/WSsPin+MJSiQSlisatFRbLw2VLf4snYMkrPs81arluzTEYk6a +XOUkTK5v08HePmnwi7uQ3FqB/1/PcaalDEjDp+HuqN5BMqb2tGvx+pA0dBnp ++Q1ysGEGcrEfRkalgfP+rvkGHTbM/iaDNjUlDUfcyga2VrBhrhqPF7OnpUE6 +X7Pw9wAb9pSvt/XerDTUiQV9DGJnxyIzk58vLEiDt8nTiIZD7FiSO5tlwZI0 +2AyEH7tkzo69M7yu7boiDcZbL+T98WTHcrZUSGqtScO0S0T+uWR2rGhadnF9 +XRqUNwrtryhhx/4HvEKrIA== + "]]}, + Annotation[#, "Charting`Private`Tag$29708#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVl3c8le8bxw8HWXGsQxzjUAgRDZG6r4QkkYoWisimFC2pNEQZyUqhjL5G +EikR7mNkK6uMZO91rGPL7/z+el7v1zOu6/P5XPf9PA/V1uO4PSuBQMghEgj/ +P8b62nKo2z3dL7bnppuxp+i+siYZ41MyTij+TcDym/ym/evlRQ9kZG6iFHWn +Nxr5s/v5wr585G71Q7lkT1FldQ4USwuSZpcJQGctJE++yxNCKnS74HWHEHRL +4rVneIMU+ssX92+1JQzxkzyjhbfLo83vuHYvr0SgTLX+1lANVeS6z8ttQfol +6vsdVMDzdQf61NydNHfwNepoifLcN7cHLbsYd0w7xKOFUfyttG4/esPSEbCg +/xbFNVh2QoIu0qt7vmW+JQEdDRSqUlYxQMPRh4rnnJJQvJ2/4nM2I/TMbs1y +diUZeXp/IForm6CmFcfwKelUlJTlYjmRdQJ5V0htp2elIdHwmicftC2Q+Ivm +momD71G/ouiM1+hpZKsExDGHTNTOv/VDT5E1Yl259XPO5yNaHNd9nTN9ATV3 +m0vO6WchSl92rnWULbrxnidvpiUbXTA8teE75RIyChvkmHnzCTW+K//tseqA +KDeKT0475aDkpm07rOlOiHbw+hR95TNS+ieX0cnnjjb86VWYkM5DnXWFJUkv +r6JWWqHX+HAeakw9Kbnw6xpKexddOpaVj8wa9R9iCW9k4mlyfvRgARK2qiC/ +LL2BIrnyI4ccMLr+ic/+0wNflHPdyPOqGA19lOAqucN+D70e1dw060NDXlnb +ycV195B7vaDDjH4x6qCrTYu4+iHB15Ws0y0lqEeiQOFx1yO0wvcl9bJOKTrh +NJiTXfEY9d9PPDb1phRldTovW+b4oy8OvnF0pzJ0wCV9t9gr5hzs2Kk9ufId +We2W2Z8YG4TeVsdfGZOuQplPPh0x1HqB5qI/K3U9q0KBzncShzteIAOHmr7G +pSo0952+vOwXjsaJC+b5TdXojtjnM5d+R6A9+0y0A/xrUe8x5D3yMhrVZ66y +KtB/ovv4aOq/kDgkiLisN6rWI+c5x6Rfp+PRXvlwbX+7euQVme06IfAGBc+l +zt5qqEcstVsDVbvfoJ3Pf9nbpjegWnW/YcuABHS3WsVI/XwTcugx9t/D+w6l +ZOXKp0c0IdvbB6gT996hxmhd4pbaJuTsay0bOv8ObXY4XSCm1YwSTDRMIvv/ +Q9XEh6oEoV/oYVzHu5M1qYi874/gz/LfqIdI7SUVZ6APmQF/XFXbEdbIS+en +fEKjgqPPjGza0aYKzvhiq09Iwdtov2J4O7pksHz5Y/wn9EaH523fUju6F0qT +RptzUFjVs0tnv/9BYan15ktqn5F3X8j0Icu/iNs+2ebtsVwUz1PzQEC/GzFa +fl3yfv8NOaCGl+Oefciy/2sJn04JIiTM5/952ocuOweZTFuVoGg2Skd1Uh/a +7uP5q/huCaqsuiSV+rsPnVdQLdtaWoIUT64m2Gv3I5qbw8d1w1I07KjwvpNl +AL3qquASO1aGnMPuFNWHDqJq+cIX8QbliJWR0IVTB5HNOfOp73blKOZUJSGz +ZBClZsPfYr9yVE0ROhg0N4hO6+68pFlUjpT/S6k4fHoIPdFk12LbUYHGvzXV +l0gPI+8NTsq+QpXoodTSdNaeYfT0cjVXkmolotyXEnprNozm+R1iXhyuRMYG +TuZ3HwyjZ4auI7W+lSij/l/b3qFhVJi3efXFYCVyH9jal/NhBD1SORjflFaF +uq3bOIurRpA5Z/kDzbIqdKL1iWpd/wiq6RvZYPK3Cu2pGbo5ID6KSsbvOoTw +VSNiVjKJ7D+KbsjZE4+4VSNvJfPdsgmjqPTSbmvlh9VoOJHNUrVwFFn42Nvm +xlSjH5EX/zOYHUXPxcr+/SivRtE+1P3Xz4+hO4q5o/3iNYh7vv7ig1tjKG3X +o3FutRp0x+NeQEjEGAqIqOz7pVuDbG27mv+rGUOJWnvcTznVIBXDWJdWzXF0 +6dA9i5msGhRXbPy8//g42nop6/zW0hoksHf1y5TbOIrUITD+NdWg+W3nWLmS +xpHQX+X//OZqULHQppdapAm0ckkm7ff2WrQzqLJIX3kCbYnPfTq+vxa947jR +b2YwgT6vxvfGGNeiZ0u/1Zx9JpC7sep64aVa9M/zsbl31ATiOVJnqn61Fl0Z +33XbL3sC+XHkKmvfrUUWXeHlMcMTiL3JJZ0rshZVntYbf0ecRLvfTg38eFOL +9jbOCnySmkQCa9pt8um1SOb7cauak5NIp11P8VlRLQrbz/qgxWMSOanNyUdX +1CL2r1kpfYGTKHLQdPPO+lo0mkaaW6FNooSgvZ6bumuR5WbaJs6OSfRezc7T +ZqgW/Yz1QMILk6g3+kr97slapCsqbS8jSEc6xAPD0XO1KCf0R6DKNjry0rEQ +9V+uRQrcvh/3GNJRqGBXAYFQh2IebPutd5GOXuR/0WJnr0O8ax0rx3zpyFrd +aeoFVx266/2MavWSjiIid+u/31iHZuh7DznlMPk+Oe6oQB2ycxpz9fpJR2eP +fbO9LlyHWnpjwu6P0pHZ5YhVRdE6tEV1S0c56xRiefv7t82mOtQ5ujppTJpC +z7Z7WVMl6lD0f80sTZJTqEddjdWBUofM7N4Ln1GeQu/fB2loSNYhbupDha49 +U6i7fMjGj8mVOs/VfPWnkHTiapkVkx+fjtOUPD6FrMJfS9Qx79e7lo4KrKfQ +GZ7p+Z/M57OGfj10zmUKTcg+HbEXr0O09O+my9en0Hi5vX+wWB3yrWg89fLh +FIr7PWR/mFyHdPq6zu95PoXqdAclIoXq0PK/cYeW2ClkqfDuwDVSHfoqvuzh +nTaFznZ3Xu7jrUPeuzfcEMmdQlHiBXp9nHVo53HhezmlUyilq+vMVTamX27U +Jyfqp9DJWDuTF+u16GOAauhMxxSyUewq1mXm4Z68N/r5yBSqyL9gfp+Z11iH +ecpP1mkUn67pmMbMN23R9qM7/zSq3KKmHs7M31H48teNlGkkmu+VwdNWi/qP +BFYe2TWN9iyMXEyorEUJDlH1owem0dXDo7M0XIsuPEhqDTBhcmFvr8uXWtSR +XzRc4TCNONYcY+wTalHM75qpS9emkfORXd8/RdWi0zOti+z3p1GwyS2hoGe1 +qHnrLKdezDTSqzww1XWtFtVGK2yl1U4jR82fHf9QLQrM2al+vm0asQ/bGcWp +1yLD+gNa/wam0dv3BR/LZWtR2QbLwzrr00iQJHYli1iLCrxDnb6qzyBujXPW +w7gG3QqLvXJq/wxKDLq9uSqjBu35kHZz3mgGbTYWpaq/qkE5A2UBO+1mUJCh +4WrEtRqUcXIp9WPkDDrn1GfygVqDXC9zZJsmzqB841sNpTw1SOmZUP5k5gzi +o2TvOM+oRu9Kt1WrVM0gTqogr0JFNYrTsB1NWZlBOT71bxbsqlEwqUbp7YVZ +1Cym+PlxQBXK05T8bOI+i1gr3z1xc6pC/dYeaPX2LLLQ5TApNaxCezOETp6K +mkV2W6WCv7FXoeHDlnc2/phFyh7oWeeNSnTwwcTPm3vnkMSfXfTZgxXIPQ2d +VTg8h5Qq9+6rEa9AMQ3P+5st5lBc5ShFcLocTUnvXlLznEMtU5sE6K/KUVyB +r+xgyhxyl7NvGxn9jhYZ/F7HyQxUvystkce9DMlJ2q6vyzFQaBW74dTeMmSi +lxOQoc5AURILiYe4ylBy2Ok4zqMMlKKonWyaUIqOq72tKHrAQCpSt03q6kpQ +hqOGuPI0A/UJf06s4S5Gtn9OYmLtPEoSrpa9hfIR96setytt8+hSCGNb17c8 +lH3WndI1OI9Wt+V+NNHMQ8R2/5v5LAvMev7vzJS/oqTW/B1XNBfQARUxUU7O +L2jwl0xKZ8ICsl2ekzSOyELO9eOheTcXUfDwWHkA8/vjyveHth4Ky6hsB2vp +vcQ0LNVvwDG/YxlxdMabZjDScQ0rV5oPLKPmgHmTWsMMvAWCpgPOLKNBi5XI +pulM3JYfcS/p6TLaLjjVZfZfNj7w8V1cG30Z+cSK/8cn9hULvKpsP/h1BS2e +4lAgxhXjrMu8J8QOr6EW+57N4Xx1uDZG6GaGxRoKTDMk2nnW4cEy8XhduzUU +4lFRqfq7Dotv2jrmencNPbFxOJoZ+wM/LNZ/UPx5DQnEOyxsItdjC8G7n5xl +/yElzZgzxMQGvPxpWqhw5R/ivGQVqp/VjIU7F7WOc62jTze55T17mrEqJ+HC +EHkdOQoeT3so8AtftOR7L6CxjqYDG+6dvvIL17Ip611yXEe1U5GX36n9xnHm +dtf4f62jkRfWkTveteC3t11Gt58iwE1RwdDfXu14O41r0d+KAI6PCtRc49ox +jS2FvesiAQZ0Qk78Lm/H3UH9MkGXCaBpzV2yRfQPlnpjdWokgABra3W+bz7/ +wTFlpmVvCwhwJtbw4r2RDqzENdmwWEIA3xLLFjL/X5x39FmXaRUBXv7db35j +51/c+rtyee0XAdzX6jfF+P7F5JED6mfpBDii3vPEkNSJwzbujBOUZYEq4179 +esUuLHu8Md1JkQU67JWVGo26cFbk5TyaKgvwXIyYinDtwvXSGc3ue1mAzVVn ++EJmF+bTkOepOckCf2TH7yyLdeNAC7EbD/xZgOi/EHg0ohuLv/ryqD2IBcK4 +bUN1krpxatfJF+rhLFD2xFiF81M3rnR8/qHrDQswdMzEd9Z3Y47b3AN781lg +0UTfr4WzB/vFr5rNjbPAUN87caGrPfjY9q9XlGdZoOHo20dud3uwVPHV57ZL +LFBLPklIeNqD83tH6+vZWUHrj7Z2dGIPntnSZpohxQoboiIcPjX0YNqXcI/+ +zayQnp3CaOnowcGHjoVIKLMC257/ypuHerCSU8WPAE1WuC5ia2ax1oNt338+ +eukYK/BK71vzlO/F2/ddcYu1YIXKgq8vTmzvxf/qVIKaLVlhLU73C7d2L46h +J9bqOrGC3q/J6hXjXtyoEXZE2o8VKoqjrvdd7sVvSo+6WDxhhanowY+eN3ux ++0mup0HBrEC5NPn79/1ezO19r3olhhX20+plJMN68YE898Otn1ghUarw0OuP +vZjPSMmJP58VThst3K3L7cUd7QNPDGissDPjP6nGol58Y9WyMqeWFf6Z8TWf +rO3FBkFiw2ONrMB6Vja4sbEXC0s1b5BrY4XRCCeGbFsv/oiOHHo+wArO8Yvk +vQO92Leew6FyjBV+7Npwg3WsFxvblDxen2b6s9zS9GqqFw/7aZW7/WOFVxJi +Pw6u9GKZcgV9I1EimNnry9vx9eFJiz67+5JEGKcEffoi2IcLhuIefpUjwk+2 +zrE2ch8+zUUuk99OhPf3zxQ9l+rD8jENfVa7ifChm5tbXrYPzykFESN0iLBk +1nwxcEsfDjVmO0g8TITGg92pJcp92PovttU2JUKvjdORSNU+rOJ+2++KORGa +BF7aa6n34eV/uxNSzhFhKP1gc/qOPlwZMlPcZUME0fdfr07s6sORMh96yI5E +UDpWKvNPsw/bZTmxmLgTIXBn+te/Wn1YQ3cL9dE1IvTRd256trcPE5q6oeAW +ER5nJMhw7evDD0eK3t66TwQ97ZAX7vv7MBchllXrCREK916IZf7142Dy7YsL +wUQYFl8QDoQ+LLjtTNnnCCLcyBlsQAf6cNRBzS3XXhNBRPPa+3wmU86KPNZI +JMKt9ag7y0x+c3l2cCqVCJ6e/6TWmbzFv+FQ5kcifGrmdKlkclpsZopbLhGi +ZH7oWDBZNSeIS6WICMltEpdTmPU+Vbs4j5YRYeKvd08Rs589PYdrUmqIsG8X +xf0ls9+CBQUVh0YikDtZ5jSZeg7wcQRtaSOCe3SLWQxTb/nm/om+LiLofNjg +QGP6YbS3xCRhkKkvL1cojenXD7M3mRcmiHDbqWrPKaafJxx9SdJzRCDp/smt +0OjDrb6WV/4uEyHJ6vDVFbU+bBmh3fiKhQ0Et6qazKj04e50sR1nOdmgTuqi +yvutfdi+ZP6FGD8buN69P6Mo34fd6dnmERQ2ME1OqHVmzscM+/MvJ+TY4K18 +bIaaeB++TvEQFVRig6ixK6RckT5877ByW7AmGxDiFtd4efsw+wUu7aP72UBB +vuDcH44+HOg9FMOjzwZ/rvn2uLD04ReJiZZPjrPBN9c4oSZGLxbLv19ocIYN +0i7pvEyl9+LX9eel2C+wQTzruaUDI7343ZpE9303NhBrUmf7+qcXKwkvA1xj +g5MZrsERzb04U6n17b9bbCDwSjV7Z10v/noq/OLtJ2zwPnotKLewF+u4e5Zp +hbBBO7FX+dXnXlz88NiWxQg2+Ge0pgoZvbg6i3foWiIbqIaYav14xVzPPI+c +3YvYINPo3dklr158QfZijcp3NpCemhQbcunFA3sOqIzVsMGOc8eWI2x68aT9 +2oRDGxvU930W1mTuNyw0rys2c8x61INnH0v1Yvlrl26cVGIHDtk9bmdye/A2 +7a4T8dvZgaQ99cMorQfvJJxWG93NDh87YwPZY3uw7rPDg3cPssMuwi6Vlvs9 +2DpJ5WS6JTvcO2XPOm7YgyObZ9RYQ9jh+ky+7UBtN46NceE5GsEOIqZrG64U +dOOkC/2DUa/Ywa8msqQ8vRtnj/+K3ZbCDilK/IX1Ad34B1sez5lidoAv9T8v +HOzG7LvuDmXOskMmyMZuONOFeVcWSpaX2OEmccn7mnoXFiy+HKdP4IBnayna +N7i6sMxRW/M/vBxw++xFS/2vnVjHXr+UQ54DImNaz64y32fXInjirU5zwMFt +rezCmR24nxFlwVPIAR/NDFX64ttwwoEdV/+WcsDlVnGikUMbPh/0IySzmgOa +TXlsQLUNt29mrzrRygGzTjte/c1vxQ0nPPe+nuWAjv768qEfLbgoy1hmm9IG +yDzE5/uh9xeOcmMZNYnaAGNX87cvFTRgowHnO2FXOOEmT5hETQkNG9yRe693 +gxO277ru17mFhnVFOtrnfTnhWk+JeysJY239o3vOPeOENLc62eWoAqyUrDYr +9x8n6Oz+4a4fk4t57OccP3dwgmxKt0BHXxqu7b9zsvUQF+zwuFQ/NhSLTPpD +laWkuCEji1bZ4V2FapX7my03c4OVZ+uYgkQ1OnJV0/eVEjesjCnO+eJqZMja +WS+myQ1qZ5zmD3My/zdllL2FjjGvP+thuznmB9pl+Z3G6ccN6mbpX790NiBK +85L57AA3BLz8s0pd+Y1GS23vVWbwwAofUa3xajeSft7qHJzDA3qvxcduxXaj +k9Ym5ie/8cADarA1R0U3KlrUUuqu5IEri3HqpZt6UNg2geaFPh6I5Xq/XFbY +g/ZGYQUFcV54+05W3W29Fz1zpvx89JgXPPTwt9v2A6hYMyzvSBAv2Mlb/XAO +HEDzbJxJAuG88H3itIpy5gC6ED97I/YtL2jnFWZKLg6gnc3Vsp8LeGEpQUX1 +m/8g+rvvpnf/DC+c0VKStYsdQqoCvyUPnt8I7xI3BQ7EjaDBoEG/CPuNcLvK +6CLLtxEUy70wNOSyEfZI870d/D2CeNnEsp/d2AiXunS/8/CNotH5Mwa/n28E +JSuQ/3JzFCV3/HV3KtsI2NHDd4/BGLI8M9n0rXoj/Aw8ulZoPYaEf//bw9ew +EbZmp7FuuD6G/H5KEz/93QjXzZ9q974bQxdKbKJW5zeC9f3SzE/EcURJGcAh +W/mA0B2w5J01jpo3z2/uVeOD6rSEVZ7ycfT0LUfgzt184LHfUfl8+zhajlE4 +2abLB7PSjMr9rBOoNchpWNaSDxR0Nh1rN5lAody3jnrZ8sFkYdDiKZsJdMg/ +MLvCkQ/yixQtnl+dQF/upfu4evFB+BYJlt1RE+jF1QnSl2A+aJgfG93/ZwIZ +Ta15cUbwwdYxvY1hYxOI1Y3vz9lXfHBM9FNE3MoEunxJLXn9Pz6Q8vUo7BWf +RCZnrmgdLuYDsXtP6/gtJhHH7/txryr44GbetvvydpOo8HgYcbKOD/6cPeE1 +d2USqRh/qgtr54OybqlNn59NIm7EsOmY5YMr/V1GJUWT6MYBRc4vy3wgyXa4 +5mHNJBo8eO5DCAs/WGdLBNBbJlGJYfGyLj8/7Mi9/ayAPom2H5l7QyHzQ7nL +Ph2plUkUd1Th0DyFH9p4m9fkOejo1vGgF6lK/NBt9TtCRYKOhk/StB6o84NQ +uEen4hY6sjg122W5hx+Om+yVrFGlIw3LMyokAyarjLkSDtDRG+tnjSPG/JDz +QWox7DAd8dngG6Un+GFhYIt7tRkdjdlv+e5tww/0A2niCjZ0dNbxtMsxR374 +9Qs3HXGko0rnpwJKHvzgfLrDR9iDjna7FeUSvfnB3Wy87Z4XHSV5TFv99eGH +34fHMkNv05Gg52a23Af88HWyv+zgfTq6d+1UWmggP4irz3e9fExHljcL5w9G +80OLyXYj1VA6qr499VoynlnfbFbFNZyO9vjKHVxIZtZzYdtnHE1H7+5ZjNS/ +54f9JkMGP17RkfCDgJC0T8zzbppiM3F05PeoYNfDfH64xJ56N/ctHU350/9Y +FfODniz3UakkOrIOlPXTrOSHsISDZvLv6Kj2mbmiwE+mn7vPWv/8j460Q578 +GP3FD2zWHoc2pdJRyvNv18o6+GHdqqSbmEZH5PBJ8bg+fgjUyloPZvLDSGrx +9VF+MEjIu5XP5Jnokw5m0/zwdOjm1sdMvvDKf6PyIj9U92T1TzOf9yM2/xPb +Oj88bz/4eC2FjqTq51XorCQQvLJrJIVZ39yMRLDkIIHu7Y8js8l09Kxxa1Ml +Fwke9BHtOxPpqPTEwXe7NpKgyi9Jy5Gpb7nZ8mYCiQTGC9sOPWfqV7fwNuYX +JsGn6xfdzzD9cWwJkfYRJUFBwvbntCg6ij+dOjMsToIzR9LCyl/Q0e+2ku/m +UiSAA/ynXELoaOO5jugSKgnGRKpKPwTSkV4Hw0VtCwm4Ol1x6CM6um3Fj14r +ksCU/k1d4B4dZXcqCnKpkCAzJom4/RYdjZzXHfBSI8Fqr670xFU6kuk597VX +gwR/1Ho8DN3oKLgv2LpAiwQOj3dcbLOmo+92Kepb95Fgp4dzL98pOlodKGaL +BBLIOaSY9prQkfPwXJrHIRK8Q1b5tvvo6NDE2QVZcxJUjnz3rRShozjhB013 +T5PAWqE5XJqHjub2pmd2nCMBWfxmgyiBOe+BKw6RtiTgbZB4PzY8iZYVXrdy +XSZB8QaBZJkvk+iYaVnOpasksK3UfXcvZRK98x4PLfUmwdP81+X3YybRie86 +h+/cIUGjR6K3w51J9N72b95UIAmI9NZjxfsnEWsge+TRYBL0jGsQlFUn0ems +bZ5pz0nQRJUk7ZacROwEXyW7aBKwG256sn15AlnHSr1qSSYBx5pp5NfMCURq +Pe9TRCPBZxFqtzzXBLq07n9aoowEp60fW2bOjKMC+Y87b1SQwO/pfHT7n3Hk +5EWYUP9BgvvB+xo3ZYyjEsG3Vsl/SGDxmosLHRlH14727n82T4IbO7c4GHiP +oepr3BIjSyRoO087xnt2DMm81ljQXyPBirv3/ev7xlDdqF/mOlEAZMHUbz9x +DMk/kZO5KiAAOVPFleGBo6i1xI7lrIoAHK+Nsw1/MoKmDrSL31ETAOu7lUSS +0wjaUGy6842GAIzaq3WhwyNoN9Z2GNwjABMGMXKFnCMo/BupzlNfACB9Smnn +w2FkmlMQ/dRaAPLuT+scdhtC5cnC2wtDBUDhb873Pq4B1Lk58HD3CwEoef8w +3LanHzES122JUQKw+56QatzXfrQ5YTTicKwAFPhd5D56qR/5xdFWfqUKQJHV +ZFhYUR/aH+VaMVkiAPUvDOs5L/aiz0/KrGUYAvD28F2PE6udKMWoRsx/UQD8 +d/91//aiE8XwNjZOrAhAr5ak1FulTnQvtMvgG6sgxBttrhqx+IuMo5dVLUiC +8O/tLofg1D+o97/t60+VBYFluShZYk8r4qt4Hb9gIwhLhuV5lqwN6BK7V/eP +H4IwJatQvEf8Jbroefszb4wQTIoOZV+u7cC7NTo/b40VghyWlrHrun8x9wx8 +MXgjBAefX9a0/PoXf7zCkXvvnRDsGkG7chM78erl51/nsoUguGtfgJFON470 ++O9bR40QsBzntJrm7cVVrk3F79eE4LDIpQG1lwP4tcrukiqCMMiaL7e11w/g +y+PRJYNEYTj58a66DecgJrtal8pwCwOP1MGMNe9BbOsyUhZOFgbXWA9r++ND +eNVpvcJHTRgsD7rEuLKMYDUH5R/GNsJQ1NjZa6ozjjudpD0y7IQhbDdJ0M9z +HD9zFSLxOQpDyVGXW1dTxvHIlRWzn+7CMOuxIvdcaAIn+tT8MvMRBg8dA82k +wQksGuby1yJKGM6yC6oH36Xj8vDzvrkxwnBzc733hSw6vhZ1QlosThjqPzbQ +B3vpuOH1Xpu2JGFYn9Idfiw7hZ/+xzNwLlsYDM6TL7b6TeH1gvTxC3XCYJTq +29qxdxp/wPFBxfXCsNA5eBSOT2PLkheqss3CEGW0J+uG4zTOq7h9ua9dGDpS +9Nkcwqfx1cYjc/bDwjCWu8tAfXQaDw2NrTgTRSBjOGJuT9AMjhztel3DIQI7 +XmSslL+ZwXoTTftUuEWATzZ925acGfx25tvdCZIIbPW7P32sfQafW3tKvCwl +AgNeudusN8/in4IqPF5aIlBix0kTzJzF+93cRl7piIAX9t/iUjSLP1R8qChB +IrCvhVc5sm4WB/uoPyQZiIBwarT+xbFZbDy4ey39uAg8LP4m0bx5DhfAjT+N +5iJgTInt+aYxh1Ve5eUtnRaB5QvSWddgDvMc0/E+dF4EfHxrUk+fm8PVeQfo +vS4i8E1FrbQ/eA5rCz+o4/IQAYszoeGmr+ZwmntZ+nZPEZignp4L+G8OB8gd +cvS9IQICTY2prngOGwYZ92x6xNR/NZg0MD6Hv1841XQsTgTg+gFXn/0MvPNb +dNb1tyLQztr6q+YQAyeJtIfEJYnAnc7kbcPHGPhhtaXxeJoI2HHsI/nbMrDu +Ttvv/rlM3v0x8swDBs4OTkz8kM/UM8tqx/uUgWVH+u//KmT2H1m/GhjGwCxx +DvvlykSAcKiWc+wNA9M2uOUW1YvAtvmPExrfGHi77YeIgSYRuPW52RuKGfhN +Af0qb4sImHUfqxSrYOC7Vzy3n/0rAgnOp4y3NjLwZM0nvvvdIuC0XVnPpoWB +reUZ4//1iUDuxrHgix0MvP/P9VTGiAhczHHKKB9g4A+78vwpEyJA4npupDDK +wJKhy/YHp0SAauNdZzbJwM9G9+o5zzKvF5OgGMww8KreHdnn8yKg4MchyTbP +wK7xRYSvSyJw2tQg9+kSA3csrXd2rorA2Vn3xo5VBv72we+VCpEMdzIuq/xh +ncccxubiURxkUCtLVsLs89hsROElCzcZXp29+cWWcx6/frws6rqRDP4vjuR8 +557HQ3J1kb9JZBD4rMU1zDuPNYrjRQ4Ik0ErS+pVFd88vmPtGZ4uSgb99y+O +OZPmceWKnhBZggwz96ZI1QLzWOilaNg9KTJ46RqXDQvOY+vdo6QxKhmOFtw5 +US40j1ObCkLMt5ChjS6RYis8j+cuh/DRFMlAC/F9X8hkxGcbpKRCBvLNoiMt +TA5M38kboca8X+nLlUwm/zLc8HRdgwwDmqw8BkyWGWzjct5Nhp4iFvZXzOe7 +PHj/pFmLDIzm30c/MOt/kbm7Ae1j9jN/qfkusz+WIrPHqUCG9SvnnvAz+zc+ +t5ldWI8MHQ3Us1ZMfVGL8w98D5FB/OC4thNTf29EFeuIERlOL2dRdjD92bbj +9f0TJsx+ItVm8jfM4xv17oQiMzIs3x36QGD6W+p24K6iORmCDGUPsTH95+MR +/hd2mtkPGz3z+z8GPpMy6LN2jgyy/8l16a0w51s/b8XhPBkmTlrV3F9gYHrv +01uNtmT4UEBw9ZllYO171ks6l8jg7aCdt5POwI8k1W/850SGac719DTm/Eic +/u3lc5kM9xIGnX52M/AlRsrc4FUytDzsVPL9w8BZYbevml0nQ3wxz53RXwx8 +qE7mirwvGfw+napaqWLgMOdZeuh9Zh6LUfhNKQP/3VDuvvKQDHt2mSFiIQNf +1XVxrX9Khke7NncQMhm4qGvfmHYIGS5Nf1p59R8Dc90hOSeHkYG0lpI6F8/A +8bmfHW69JINCgXNRZwgD16gQLm7+jwzFd66einRlYHJ1Y09wGhmoUd8vS11k +YBuH5AtLGWT4N3Df0O4MAy+8NbL+kUOG2lG7s1v1GVhONOLMjRIyWO5vMIjZ +xMDuOQ6tvd/J0Cfe/kyAj4HzzLRPHa0ig0ay55wBKwObPus6KVtPBtvvFKfx +kTl8m0XpWO1fJicUtMt9mcODejyt8j1kkHCW3PYjZQ4fezJ+/n4/GUofZ73Q +Yu5fm/kzPXaPkUHsw/jMibtzuJayM+TNItPvuMSbL/XmsNSe/T+uCYkC5k8V +9S2dxU9uS1v8JIvCHZvte/WzZ/FMEaFzq7goWFhPSP18M4sr9EsnOmVEIb1q +Ml35ziy+fMJw42FVUZinB//Hs2MWl7gfN5Y8LAosd0aG/V/MYJXsHc3XjUXh +m+ELhWe+zPcFQ9iy0VQUzt5fDTZ3msEuPi0u/haiwNkf/3TP/hksHGj5dPqi +KBhGuB3VG5jGl5IvVX/3FYWlavQrVnEac3fcMnTPEYUA3UD2NB463n09dWNI +rig4nydZPW2ZxDaCrY2Z+aJgELzDXjBxEn813GU1TROFluvO2kJak/jSZ/qV +a3WiIO+4gzx+YQIXB9u9ujUoCjnntAqt34zhGwdMJh+LicHU58a8Vz1DeOAd +NTzeRwzWk+s2y5O78PjDniXiPTFI+2canOLTiWds3553fCAGpKWmR//1/sUE +aaqyeqAYlBSWvadmdGDxKJmSkigxsM/9qbBLpx0f85eeGsgWAxf9mw5mer9w +gYOkscqIGPCWrL8iCJTjcMVNbHnmm0AoNy75lmcZCo25VGEjIw4p+04evTo8 +jK57+131kRMH1Vc6iXEaI8j6eJx0lLw47I63UIzzGUEq3L+v16qIw+b0s4Vk +0iiquqmvqKklDjPRR/jado4h1jObA3iPi4Phme3SK9cmkJdor1HuA3HYxb3v +q8HAFLKcXZtveCwOE7pb0oY4ppHez02J4wHi8PsDz8olxWkk6G+2Qg0VByJf +ybF152n0YZ6W/uy1OKj7xSw/m5xGw7/ieW0/i0PrkcDYH5Mz6Gy41Q/eIXEw +8cf0Zw1ziPKJW8JlVBxMlz6/p03Noa6GXIeqCXG417y0mcbPQHb8giyP58Th +TcjL9zJHGcg9sHzHOosEUNwlliy/M5DfPbWX0xQJMAt2MHRJn0d68R0DpjIS +oPi9ME25Yh5tKArQ+CAnAcMyT2OyeufRs5W+GmclCfjVHpDGu2kBRXpH/+vT +lICMHg57ht8CSnVlsft9XAJuHPjEoXtkEbk+/fBxp4UEbMpyc99+cRGppp1b +CzvD5NrFqs5biyh76HOk6QUJiN+tynsrdREV2DpXVbpJgF5IZ+Zb4hKqP92k ++u2JBKg/aD/gkb6Ewq7fu73pmQQ4uAj07MZLyDxyW+X1EAmg6Xvcz2tcQu1N +/jY7IyWAB7zfTi4uoX4TnfCMRAkQ1D0aSNJdRot6yUvxRRLgrHCnar58Gfl8 +i39QViwBz5PJrId/LSOCRszGkTIJ4O7nvXeubxltkA6hatRIQN6XmEe0f8uI +vHTjcFmLBNhdt3J5pLGCYjyuNg23S0Abd49v8/4VJDnoZrWxUwLOqVw822u0 +gjY32V6x6JcAGFH9omW7gnZkGL8cnpIAguUvncagFfRF7pDcxjkJcHv8r0Iw +egVpxxzIUF9g+l1QWkZKWEG6/ruLb61JwJbZkqt6n1dQ+dr2I/EECgzqdLfc +LFpBh68p/yolUsBih42Aa8UKOmYjM8LLTQFj3qMej1tXUHOL+FX1jRTY9iDT +6EP3CjptIrJmTqJA2097p7DhFXR+L7dAPJkC3dE1A8ELK8hdZG6PuhwFxtfj +1c0FV9HM08kSc3kKTIQa3jontoq8WEeMb22lwAs/SRZJqVXkQ/97oVSNAjky +cicaFFcR4VLr6JAGBdR1B/pLt62ihx2N13h3U+DTk4UDVzRW0dOqiifmOszz +grdmVrRXER+UCN5CFLh5pUagbf8qCvtS8DpOlwLZK2rhl3VXEXlbrnypPgUy +zuvZlOivopjErI9DhhR4hMxsfhiuIinx99q8xhTwe37kTviRVfQ29F3ZdlOm +/vXmOGGTVbR5w1sT8+MU8D2o89Hk2CpKufOq9aY5BR4/uvNa9/gqUpmLsI07 +TYHmT7qmUydW0Ufn0PGScxS42NGXc8p8Fe3sCfQesqZA2AOH/BsWqyj31CMC +ry0F9Jb8jp44tYq0f9wN3G5PgRPvYyyHmFykd0vY3JECJ31Kfu88vYp0v12L +u+lCgddcRel7mVyu7qEY506Bl0SW2hXm9UYpTtklVyjg4ZWp6MXkOik7naFr +zDxIcZ/+Y9Y7FmFdznODAjeuHz//gtlPM8+ZY9tvU4DNjyi95+QqOu13ov2k +LwX0H78cjGDq6Vg8anfzPgUYMR/S3jP1XvAwnIx9SIF/bcEXfJh+9A3o3ijx +pwDr2z3/2IyZ/cX/SFB6yuzn9yE1zsOr6M3ps3VhwRSI52UU5jL9XhcYXFh+ +TgHtEsM3Qsw8rGuuyF6MoEAn4WCdBDOvwodrxjXRFFDJ/KNTr7WKKPsDru94 +TYGlbtbh7btWUfvHN7XERAq41Ua1zSutIi1nlQWXdxTI1SwmW25ZRdFyX6nN +qRT4T2Tax016FVlE/vRO+kgBBcKLgnDm/H02PfeWN4cCw/uCwtN4VpEw11DN +tVwK2H2PC3NlW0WNt//J6BdRoLCrjZMxt4LUdwUeySimgJr7ef9v4ysodFLE +W+Q7BX7H5OxR7V9BJjbbagZqmPWHTY+INa6gDPE8xtGfFJhKqskPqVxBvM16 +Ml8aKbD9tt/NT8z1VW1g6fW4jQJ/ZP7yENJW0FbCcPxkBwXe+oczFONX0JO8 +q9UW3RQwsf9w9t+LFWSg8lRaYYgC01fZf3zwWUElAvlVFXPMPDqOCSgy9wNq +jf6c2iIFnoge8v+is4LuPWyQil6hQM/B3YQZ1RW0f2H4qiOrJIxJPzS7LLiC +8jtEpbhIkrCjN5UjiLk/bYpMNLwiJAnvF4xlH39fRjdM1a62kSVhJSpow7bP +y2h3iUFlqqQknFkcS3r4Yhll/+flaaQsCXZVOq+tjZeRgA1LbLaqJGg+4PSo +0lpGl8WDKsQ1JCFeeZ3UJ7+MVIOSKGN7JKHgY/0pOcIySvNsKn9qIAllxxz2 +dXxYQgn71CXqbCRhjvRt9eTaIiox4X6wYicJt9uv3D0+tIh6z/eNbnWUhMN5 +9+N5GhaRnF9E/mN3SVja73gxK3ERJZUvnYHbkmB7SO7XT/1FlGxaEv0pXBKG +hDki799ZQOUXXhF6oySBz6gpyOTiAhq8cs2R9EoS+PUSt7QbLiD5cPk9bm8l +4c3vBT5VoQX0rjWwRf6DJNiciu77kTSPUmxOkGMqJMG7En9VKGCgSk8V38pq +SSjU6EteimWg4Qfsg/N1knBaMGE06C4DKb7L/XyiWRIMhEfu/TvAQKmjEuYb +eyThJVli+4ayOZR2tf/FvWVJOJZ1Rn+2YBZlPPIScNgmBe+ty6b2PZxG4zpW +fo+2S8GTwq2khPPTzP1EbzZxhxTIfGtebtKeRmm2wr+6taRAMq3KK2FqCqWg +T9FnDaTA7a7XysyZKZS0NCVtcl4KQhKsU04dmkQxbq6qu55LwZ4N04Qq5RHk +b37xCJEhBWXqgr8Ft3agXR1vU/3rpMEn646zqFcrJqk6LmbWS8NJC6m3ITpt +ePyu6qHWJmk4ZxC7YYrYjpPkvvUrtkvDXcMcN5uwP1jYpVm6elAa1tretP/I +6MTLPsQjHAQZ0Ly4dTnQvRe38ewuNtwkA19Hfkd/8h/G5TtfDneIy4AZ/yZV +9uFhnGO1yn+FIgPWrReFlA1HcGhmifVLaRnwC8Cd9A2j2PCE6erIFhk416u2 +euDRGP4a46j5VEMGEjd9dtrmPYmjt77KqDsiA2ndh6xURWbw3KxB8oOjMnC3 +/cZdW/0ZbFo081rLVAauzNLbnL1mMMcJo2fJx2XgxfO3rYzmGezls+R854wM +AMP4Vv/zWXz85ynFbQ7Mfrtfxr9lft/zegknPvOTgQ1bRAvjvi1gR0SL0X0o +A29WJc/rDCzgUi7XsMVHMiA9uEP+Nd8ivhVXet8uQAaM/iSzv7mwiEcqPC/o +hMqA6/ydc2ksS7hcvEFyPFYGvg8cEbLQXMZ3aUHRR/JkwIk9xfGF2yoe/UsL +X8qXgV6ON+u9QavYYmU29L8CGag6bD46lLGKVXafDSDSZEDZIVyANLGKW9Pl +b30rl4HPtnnbfzisYY0ofE65WQay5SpCUkz+4dicmVNtv2RgFDPkJZ3/Yc7G +LSf9W2Qg1KKsAh79w128z4z72mWAceHAxxf5//Azv9P7XvXIgI+bjqA1dR0P +uk1L8dBloC3A6pVm1zo2e7pZIm9KBv6+k6V5MtZxQcopUYcZGbB/cKcwnZ1A +e9FXyF/KkIFFYrg2nwSBBmcCCbdXZYCf88L694MEWrp34ariPxlQuxyQ8ugo +gUYOn1r8vS4Dy1qsY2KnCLSJHxbTGkQqKD8dTM9zItBi9OR6R7moYD+lY9j9 +jEBjt7XojOahgoDA2b49EQTa5bsB7QYbqcAmoMNmF0ugHcqnNyaQqMDf8tlC +PYNAm1MrKD0rSoWbfyt+JVUTaOeP0jHnJipQ2Sc1ghsItGpn2YIv4lRo17xG +PdxKoL1JfpIjKEWFfcpdB3YMEGhHJcyTqzdTocR6U9SvVQItul+Vdk6eClWs +YcbjLCy0/gzOP+MKVOBLVe5r42Ch+UABiV+ZCsWG2vZaJBZaJVek8hsVKqzW +2ymlC7PQhJs8DNRVqRC8KvFwVoyF9t5ezueEOhVKdUffb6Cy0BZV1yL7NahQ +Ztx+umkzC01v8XeW105m/ZNcJ7wUWWh/AgOHojSp4DmgNrVXjYUmf9KOdasW +Fa75KF+9oMFC85TcL5mvTYVDCe5s53ax0Lg/Th/v2EcFW29NcqM2C83iZo2b +G6ICMWL2psk+FlqCbvKTf0CFkBC77DeIhTbJczcxRJcKuYIK2ZUHWGhav04X +yehR4ctm5Fp+kIX2ME6jLUufCoKnxZpf6rPQ6h1453QPUcFm7dFf3UMsNIr6 +IF+zIRU2nCz1KTZkoTku4632RlTgyL/6TsSIhZZT+lJv/ggVcHuCKTrCQiME +XT3vf5QKeR1lbvuNWWjGFkdviZlSwTX4y7zgURZatLRCROoxKqw/L+wuYHL/ +MOGj9nFmvk+eyOqYsNC2Z7dX15yggrOW2qdQJvvczhmwNKdCI9YIzGdyhV4w +YdKCCh8z7sTnMVmQz1Hi7mkq1Oy0GwtisnXLgd2ks1RgHEm6pMnktDcSZm/P +UeFbkz33F2a9eSeGi4YVFVjyteu5mKy74+fjUmsqJFGkszWY/Qavprw9eYE5 +jy4307Yz9bR/9ysYsKFC02PxHCJTr3yIZYv3RSps6ttXnc70w/P07pkN9lTY +kRgwrMj0q4hK2vjyEnN+vvLx3Gb6yT02oqDkSIWoVUPVBKbf5jmlut+cqKBo +Jm0ax8zjzZ1YK2MXpr7Pfc4ezLzGDa7f+OvKzOfiibsizDwftil9WPeggt02 +3afdmsx8EtiqQq8w5zHj5D125jxQXDv7qFeZ8+Si5bSuzkL79O/5Jj1vKnwl +AdlTmYX2r8Jl56/rVGgNP/5nVIGFZvRc3/TSTSrUfxKL3MOcx165pYdPfKiw +mXZw9jiFhaY60Ri/yZcKW7MWX0oz5/nWl/f5aXepUG7NgoqFmH4fvjBV68fs +R/LE8wfcLLQD7hXnBAKooLXrSQ3bPIG23DpiUBZIhWOqSJcwRaDlHOTVuP6M +Ob8hIeZVIwSa/CYzzr8hTL2bb10r6yDQeMvac1IiqRCWnJp8nkaglauuxZ+L +psKEsQF/1VcC7e5L6ad8MVR4l5jhRMgi0Gbc7WyuxTLXc6mAfNsbAq110+RG +SKJC212r4zt9CbSwh6SlmWTmehCyb+LzItCO0DX6k/+jwkNSQ1GuC4FWVHY9 +nyedCprjuRSv0wRakgeLQ0sWM68j93jfqDH3n+/CNHdMhcLPiSVhqetYabtm +OrWYCo6BvmaKz9dxX8yZyOYSKjRYf7xldWMdW1yOc9Uup8LVza1e/+mvYx0J +xU0cdVSIjvA6SPvD3J+v7PWMbaeCbKvSS+35NVzyx8rqWAcVnjefzBhoWcO3 +De4ZEjupcBwiDXbmreFJie9STj1UIPS7KxXeWsPN5SY1O4eZ86LO0v9oaRXH +U2w31zKo0KMbKr1ncAVr71BWtV2ggqHTseXkshXcfHhOc3GRCkqtSlEVCSuY +8/rjI5tXqeB/PmqvgvUKvtyQ5unDKgtZNTbnLjQsY3g8S1Phl4VNWq3za6lL +uJf+0CpIURa+Zg9+U5NfwD4cJg5ySrLgrZLkmr0yj8mSolfylGWhUmz53mz9 +PDYySn04oCoLca0bz2XfmsfZSXXp+3bJwp1Z1fRtNQz84Ax5eeKALFSLCRVe +vTCHN5f+F2lyThb2Jo94bT0/jX+oLCZ1WMqCv2eA337VaXwj0vCTs7Us/Dx0 ++CZ1bQrXOI38fGwjC1NGOf3HY6awJ0mZCzvIwuM9OyS7k+gYW324rXZNFkTJ +9i+mro7js4s5F0hBstBwLOL7euMADt1WotRYJAvhibmZamo/8aVZtoYqJTlw +uqM/vXF6CFmn6f2wVJGDlzZ+DtH2w8jC5mENfZsctJla7lxqG0YGP4nlIupy +4KD/QFGrZATJp7N+s9Fk8saIweehY2jAlpC8dFAOVkfOcSTK0ZFd48qNrVZy +oNnw2uH1xllkGbDXu8BaDi48meHeqjeLTsLtq6YX5EA+4HNA8K1ZpPdh2c3r +ohxYrrt29QzOos2BS7bFTnJwU2/3pZjCOdR3YMH4jLccdFtMlrfYziPbrBmZ +gBA5EHynOlT4ZAm5+p1YNXouBy0LXPkrRUvI60ROC+8LOQhUajgzO7eEnjC8 +gkMj5eBiwazKxgvL6IPW0kpUrBysSzk8atFYQUvF67/fpctBddOvDyrVq4j1 +xYVsxww5yAuOV85ZWUW8dsVBSplyoOow82BUZQ1JcTzQ+5AtB+MGooo2wWtI +z4gj+3OeHFRxfSPbHf2HQht5g8oq5MD9kOEpjW/rzP9xN8fHVXIw+OJH7dmh +dZR47cdBwxpmv56POMK5CPCFHLpc80MOXt0p0G/ZSYCOs0KOTb/kgIVb99G2 +AAIo9G062NsnByZlF8dbFVlge84tqaQBObgz/6lhai8LaD/6s2Q/JAfpijYR +v01YwFgh9uPIqBwsOx5N5b7GAp4uMlLT03IQZLZYuLGABXx07i9lz8oBpanS +OKiOBR5t7G2+xpCD50mL6a2dLBCdmfh0cVEO6H+TuhoIrJBwj80hf1kO2Fnz +NO8KsEK6mb2uz6oc4DQrhwUqK+TIlkvu/ycHvcQ+dW0NViialV9aX5cDNZHd +5w7pssL/AMagrIY= + "]]}, + Annotation[#, "Charting`Private`Tag$29708#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwUV3c41u8Xtsleee0XWSEjEq3zNFSkiagkUUgolchIZWaUZCUr9KVSKns+ +SNkrsvd8rZfX3n7v76/PdV+f55z7vs85z7muR9Li3qXbdDQ0NPEMNDT//8Y+ +tWBSuxV4RH3/E3v9B4TD5c0S+sYSd8D4SkJbRH7zke0/xV4SEk8gw+qyAGv+ +/BHO0OzvrO0vQNt2wq1clQliS4KJjBIvYX46QY0hjw+UZm692rZ+DbHCxkks +jeLQwxm3tdEWCkmBhshVWRak/9uhubYeDrblmz+jVJTB7rCT/TLxHcx6dtp4 +ZalDRkt/8sLxGPjilMStMqsFa3f1uynW8RDAonc8vOIIJNB2v1zW+QA0jeGh ++bHH4ETdG5mltkRou2js90vmJJCiTpUu3EmGsidnThWv60LQrU3T+fWP4P9I +V/MZ8Rw0r9uEzRI/Qa1ywa6GFAN4XCGuOvPjM3ilXZSt3nMZhN+21EwfT4Mj +iP/jsU4TsFBA9JPW6SD69JW7+n9mQLfu2rDg/h0sLvmkZQ2aQ0u/kdiCzg/Y +7/a557yPBbikseXNtf2E/YdWLPfRW4Fe6CjTXEIGlPKQW670WoOoS6kh5U4m +hPh9KlWuvQMlx51nZ9azoCcrTettnz0wdw3KTRPzYMsmNtDU8SG0lxQ5TZHy +4G/bwWa71Efw+b+oX5M/8iHXTHzhIckJzj04d2PieCFcObBmp+zlAhE78iPG +rDH4/55ozJB8CpnOeg8eCpYA071pnZ44T4iZ2C80714CKod8rh0NfQYOjbzW +czqlkPzhiMVT6RfAG1NJR2krA2/tz/euufrAOmf2p/uHfoEAg5TY6BVfGH6e +dGE24Re4rC+I3T7sB9nWT+Nm7pTDi5SSMgL3S7iqrnGAvP4bNo7wKSsOBcGH +6njHSWIVHJjKlVJ4HwoLUVkKfUFV8OdRedic+ls4aV0z9He1ClauL8Yk1r+F +Kfplo/zmaijTxGVRO8JB6/C5Ay/9amHpRu7nubBIaEzfoJObaYBjN5lzvq/G +gGe1kp7ajWZ4weDf6mmaDKk/cmS/hDfDgRnvEp/iZPgbdYxeprYZRPmTs0Yk +PoK0tUmhoHYLdKXvHY0d/QjV9N7KNHz/gKJ9KM/QKQUEDnfxNvxpBZv7TSdn +oz/Dt/SXXXbKnbD77TF7lXvfYYJ3IkjvZifcbMkjc8R+B7nHekfkwzpBR+3G +jl/V3yHhENuHodVOeP7S4lSKzA8IrQqyuvq7CyQLM4L5On7A46HXlFOmPXD+ +go/YFY0M+HlyNlHmdQ8QfX3i3M0yYObTBUP6sh64NpVadd4/g6qDJ6dYrhcs +3p5wW+/MgKuboe775nshNr5aXMY9E+LZarx4dPqhK6lK9uuXLDhy2M30mVk/ +lAqeOvO1IQu6HRT3zTj3g+Z3Lr3981kg+DdwtPZzPzw+fu9Ln1Y2vInS1/Xn +HgA5vHLrWHE2qFZvSC7vHoDDc54/L/ZmQ/162trt4wPgRByrad/MBtYbHGnH +Hw+AglLdW52DOeAlU8+53TUAw+7+QabpOSBl/HTMfnEAjjtwaE1X50CJv3JJ +N+cgKHlevDs8kgMbk68c848OgjWHPPuWUC5Ei4He7muDMGPJaySqngta52ek +oh4NghF/WHfUmVxw+nm+xSllEMI/TAYku+YC//B22nDJIKyLSH5TeZMLP3d+ +9zHoHAS2vhYWnpRcILtw71fjGIITJ0qD6xtzwRqa3k09GIJAZr6lLZE8oElc +yu8KHIJVAZLIT6U8iGIQ7a5OHoJHU7YeGYfyoLLKSvxT6xDkkM5KRF/NA3Ol +IIiaGQJFjwV6d5s8WHn1w9yPZRg8t5esPzrlgbzhRuLtA8Pwn7q6YmVwHpRk +S5YbGgxDXeW2QXFUHpgInRo5bjcMn687hCwm5sGsmx2Tus8wDNLxXrJLywP/ +3jdyUnHDYNuawyWZlQcSR3NO8+QMA+3Pxzq8RXmQm9R9h6ZxGJ5nFz86Up4H +F5joAmdIVJxhI51cnQckG7m0XtoRGLL93X+0MQ+e1ejX1QmPQG562kGBf3kg +qPyAXKg+AoLmQbXEjjz4HhLJlaY/AtbazqrXu/Pg9Hyh6vvbIxDiq85a15sH +/UaDFwOejsCvFF06h/48cMllfvgkcgSOPeStODKQB9wie8Jsvo9AucNv9v/j +Tx6XsoyrRmCq3zfYlnr+WL9z68nBEXiV77TjFzVf57HY5X3rI8BjnHfyJJXv +wccyQRn+UfjB95pnvj0PWFlI2vx7RoGvyPhQZUseJNpyXKM/OQoNf5Pjyxvy +4EDdXvc5s1F4kqAjPFZF3YMqJrEDzqOQoWj4RvlXHtiGehQ3hozC7NLR2XcF +eUC3mNiHP42Cc9SwvHxGHkQbV9Kkl42CoswL9fZPebA3f1oyrmsUmhx6OD/F +50G1KN/x4IVR0N95rORdWB5YeGrdcucYg2e2IQaf/PNgbeC6z13ZMbgjr9vV +6pYHiimpFbomYzDdYKnufyMPynfUk7Qcx+Aa/wU91gt5YGo3v0M+YAxqY5oG +/4M8CFI7os9UOAZlb1PuK4nmgXSYpf1iyxg48Jwa4tuRB4VL/q+Gp8fgb4Ts +X97FXJgqaG4sI5KgPovRzrA6F7zFVyk/tEgwe/VabXhGLog+F+f7cJEE37S+ +8029zwX9k3eMPL1I0LffmfvfnVwYTn312CGGBEEUt0yr87ngzpYZeT2LBExR +2aJsGrnwtXGr4+AYCejRtFXAWg6cVJdeV6AZB9rwRsdb3TnQG64rKiw0Dqdv +VoaeL8oBzmthZit648CUJplv7J4DDiO7hzK/jUORu1KO3Ew29Jt1sJRWjcNF +8QCHk3+ywaDdX7lueBxqHM/91I3JBq2asScjwhNwsKXw2uaJbKD/8ZFbwG8C +KEd55ggvs+CxgpGmVOIE5GX/fnrFOAtISQymykUTQB9k85+ndBbUR1imnJyf +AF7ZtHeuBZkQ5S55xPnGJGQcJ+5T784A1qVGSy/XSciEugcfPmSAx71nL1+H +T0JP5Qrb8u0MsLDoa0mpmYQzPjufXZ38CUqnY++2758CKXFPIv/4DyjlE3qn +zT0NWTPOtswW6aARXFmsozgNI8FR1Z7V3+A/JpfhiyenwTOqQG9Q9RsErbaq +2LpPw1mFea97y2lwuS/sTzRpGm6x/w5auPsZJj5zL6yXkOFiQMKnw4vJwCrp +LdenNQv1XEHZycffQOWhNypPdWZBc13m1d37r8HXJG6/2KVZ4BT57EUyCAK6 +kNxT1+7OwguON7UarL6wtjVl3RY7C7MmS/EDdx/AZLdRagMdBe7JJte7Wz3H +tVFyu0tqKSB76qhq45NE/Iq7RuGD+TyoGs8+1rydi/P2i2Wdc5iH8YFvlGOT +uXjY7B5suM2DejTdq/OOefjgVz5D48h5iDC7WGTskY9JuqYeHPXzsFk0IfAp +rBAf95pueHJwAfTDx2M0zUrwyiKX0yWBRdj583uDg0053iVmsb29axGcj+z8 +I5lSjs+dyHz5VW0RNAt2vw4aKccfQ03iWM4uQrPMIftnN3/jSyofKoq9FsHS +vVnrg9Ef/NVmr7AiZRH4zXfyVypV4vbX3sntW4vwsbBcbfR2JWbIaVX2ZV+C +armt4si4SnyV0e34gNwS6OWK7UvjrMIsib/sIs2WQHHXFx3T8Sps0WWI6WuX +IMtVs3jKtwazvh+wd+xYgmIiq4ZhTg3+edVBtG90CSb2MNxSG6vB9J1+T/Jp +l4HGy2T9hE4tTm7PV3fcvwxRYREd79ZqsX7UqcHeE8uwFvdjwFm2Di8Yt4To +X1qGlKe3Nwou1mGdtulpOftlqITxWof/6vDoP4nU3sRlsONsO653uh6/Cv96 +Wf/7Mnw9eHGf9L16rGl0gDG/aBnK79cYGoXXY78WA4vw9mV4Jt4wldVXj+Wb +fUX1OVfg8NXna0fsGnBjKF9NnsgKbOE/hQnBDdjlUsITud0rYDf7/euZbw24 +qimvle4E9X8ut/Xj6QZs2zgVkvdkBXLktqJd1Boxb8gTkPNbgb2mr+X2QyPO +P89EDgtbgXNqlPq3+o2YrYF45n76CtxWO3dV2qoRZ75KW+0pXIGpCM38yw8a +sek57dQz1SsgdKpDSfppI06ru8QoN7ICHlH+psFhjdgwuC8jbG4Fbnq2pcrF +N+INfTsLOppVaFp7KHv1UyM+W+uDe4RXwbKtZMa7sBEvBfI6nJFfhYM2C71u +vxtx3Jl40bx9qyC5J+AkS30jJlfnPgm7sAo/XpUP9vY04ogAHXk6s1UwOMzT +KDfSiI/o/W29d3cV6jbFUuinGvHojhs+PS6rMB/CU+M414hfV02qn/FdhS/e +HR8cVxqx1kuXwdy3q7DyVzWMbqsR959mfCP7YRVqHP7jkKZvwv4soRD2bRWs +i5Pc/zE3YdVKcTJt4Spw0D+8JMDehNv9vsTcq6LyfdWhH+Vqws9OaZ3paV2F +3R8OMJ3ga8LyzL9X9YZXwebGrX8qAk248c/F1FwKVa9Mw3SqYBN28e29LLu9 +CoIU34Zvwk1Y4uRdxjD2NUBOsZtItAlXMq5k0AqvweVllS0zsSbs+Nvb4p7c +GsgL219lEW/C4sMnmZbU1yDx7tGqQ1RcQ7fjsztagx6mO2usVOwiWXOW/uwa +5Nv+CXtAjZdBwZSXV9agnjn+6ENq/r9m58O5rdbgOFd8GrtIE/b04NGOfLAG +L9V7vI4INWGlmOZuMc818Lna68xCaMId+eHPkgPX4PrRdwdt+Zuwb4extGLU +GsTyuHpb8jRh9RWhyh/JaxAwdpt1gaMJ9wt039X6sQZ5usV+IqxNOHhfHBcu +WoOoN7fyOhib8AFD8wyd6jUYOVFkpkzbhMceSBnXtq4B5UaGttBGIz76/b+4 +jpk1yLrZlvx9ltr/eptj5htrcMo46rfpRCN+P60wOsqyDslrUofjhhrxokL6 +ngXJdaBYCTr0tzTiRF3HJlfldfg+87u2v7YRn7dRd6I9uA43z1fWOpU34k8f +cwo5DdfhnLmS4PWfjfhy+RPzcPN1WBLoEktPbcT0QwcZRO3Xob/VQzs8rhFf +lyg5s9t3HZKW/U6IvWzEPO8rO4/nUvm04g8LX2nExXkBT6vL18H55sFHrNT7 +c7ddX+pi0zp0s1QpvDrSiH/vbLpjNkHN/8iO5oJUI34S0rHiIroBbm+bXrpW +NWDZ9Pcx2/IbED/GUhya2oCb664j330b4HPdU/qvbwPewzbo9/bcBriQBlgr +UAMe8JkQ+PZsA5opUqyvPlP3SXJavkbwBtS2LzoNv6jHB385mBW824DbiZe/ +WF6tx+E08x8rf27AxOG7n3qY6rGu27rG0PAGHDKw/VZlVId/3Gc3ENTdhF3J +koaDNTW4NprvydfLmyBFN0XrFFqDR8uF44/d2oTjTB12fCY1WFho96Sd5yZE +NbzqeNxfjb1LdbxKszah+rLxTcpIFb7M65lhK7UF70/2mL8rr8D3D/l2bKts +weLn6MPX3StwgFXwdtjhLTCNGu85rF6Bcf77M9hkC9j57PKuxv3B8pa5Q3yv +t+DIXHrObtvfeC2Dwle0vgU3KYu2dh1lmL93RfvSjm0gqeCAL15lWJmFxnxM +YBuwCy9BYk8ZtjTlTOPZuw0HToR8+O5RimsZFE9Y2WzDYW3y8aSdJTjO6NYj +rn/bQIOiN5h18vEHt7sTqsY0yJJXmIV28zNWLdmx4nedBjUyMdfI23/CJQyp +jH2WNOjyGfzjRVcK7g8elgi+T4O2It//Jv9MxuIJ143HX9KguY+Od9Tex+Do +8vPlHwpp0JcY4ROkOEscyqERxytFi0h64sn3Gz/Bi/iNiwtTtMik/DPTuQvl +cEE111Fxnha1PL7YKl5YDuKlD99YrNKiqSPtyeVyvyF/cKKxkZEO4QVyn/fW +b5iT6Tj/VZwOjb27SXz9qQIs0rLOWl2gQ6dP7H7mPV8NR/McdNsz6NDN5RtK +txIbgVNP4Q5XPh3K1HA7INTcCN2dI/4nS+jQmd9sDq/pm8Blw7Qys5YO3e+0 +2Jdv2QTf4cypNyN06ISdCM2oxF+Q+COno0egR2uiUuc8g5uBprkfFbrSo/nY +Mn0tuVbwHi/+4PqcHs09SAmhXGiFHTSxdNr+9OjLi50u6q6twLvnSnlWOD3q +lc3zP1PTCjJ+TafSv9Ojv/tS4z5at8Hn2PRU+xx6VPxgpMs9uA2UM4N3KBXT +I+Zp1q9NP9tAa0C3JrWGHm1zlGaR19tA72DZucRRetT35ffnJr92qL+YkG4+ +TY/OZO4rvv+pHQxsnnITF+gRWzwvk1d1O5iGH/j7npYBnXtpdWiDtQMcZn4a +hYsyoJaVT5pEnw6YY3yTbbCLAYW6XqrZl9gBzqL3CLwKDOiHw+BaVnEHPNNV +7Hi1nwGxBpyKJS92wNukJFP/Swzo2bHBFsnrnSCY/7zo5BUGtMu6ldPKqRNi +Gm+IM5ozIJWYAWm24E74b1Ok/7k9AyJ0stc8zO8EBf41hB4xoPPt3sb7Gjsh +XaH9w5YrA9o2aM01GOmEXOMwSzd/BoQi6cWSOLrgkMODcu3XDKg/Y/fBvxJd +UOp9QWYlnAFx44ZbV9W7oPoH+9ijJAYU2Md8+MHlLjhXOXFK/TMDessxL0tj +3QXNvZWplO8MaO265Nuhx13QzeZj61DMgG7z6EWkhHWBuZRljdJvBvTetvCl +b2IXjGgdVZqsofphfpCbk94FtueJwZ/+MqCA6qPXDhR2Afn25rR1BwMqrjiX +zlHZBQ/du87J9jOgyk2uJdXmLlgJzUsfHmVAEqvGTkk9XUBb4uR4c4Gq72CR +3sPZLvBtNfhLXGdATH5BxxpWuoB1Wk29l5YRFRGNsp1puuE1PXdYDAsj8luT +pLNj7gZ+YfLCVS5GxLXTx/cLRzdEqdYaCQkwosgLcan7+LpB7NTn7DZRRmSg +IvV3h2A3JF73J0TsYkR7Hpk7yol2g+wjKxdDBUaUnqy3Gkzshj0H+gziVRmR +xz+cyi/VDRo0JioTmoyoqnuQY31XNxz808i67zAjOiAnVYpkuuFYkO6o53FG +FLD3udkIFeteKiut1mVEL3GMD4mKLwgejN15gREFznzr0KVi494MF/PLjEjk +7FvaHdLdYJasZPjFlBEN4uoUGSrfbduPKksWVP13PV3jqXrsVMXZjt5hRJ1P +/BUfU/U+XIoYDbzHiGrq7e9/ovpxLeQqa3ViRCapd+m0+bvh+Qv/WEl3RiQg +/zhOmqsb/E/TPrF7wYgeVBxitNtBrR+nq2GOPyPSyd6zzknfDREtcyp0r6n6 +dj05zbHRBbHRd9nOhjMi+fv8eVYLXZBsPjwa+Z4RZZ0pEhWZ6oIvstfLBj8w +IsaCjZMKQ13wc+pf7J5URvSURYErrKML8n6ee+Lyjeovzv6CSUMXlLhUGP7K +ZET1lb/GH5d3QT1DHtuVUkYk7FybUZbWBf+q1caSKhgR/PczayaeOn8hn8vI +dYzo4yfCz8ehXTAhGvPEu5MRCUpesQ516gLGfZ5j6fOMKMchVotGowvY15fL +1lYZUS3TKZsNyS7gLb0fp0PDhAwsO99c4uoCibMWRl3sTOjqkSVRDlInHLqt +84tJlgnR+ocvF73phOOKxXEXlZgQRf8dDnLtBD2KpmvMXib04Xqhe7ZFJ5h4 +yKvtBSZUm302XkStEx6Fs8VfN2FCrYK9g3v/dIDbNW/XVDMmNHn0fHjfpw54 +IblpNH+LCSk93ac5HtQBIV/J7C8dmVCdUWEg/8UOSPvd5JoZwITeOxjf+NfU +DsOLkZfZipiQFO0en2tZbZB4VP1hzy8mtGk0k/8nsA1uBNe/Tq9mQvryfAGu +N9ugU5qxyqCdCRnH7OwpZm2DJoMHB2PmmVCIlO9Ag2ErFP/Ql9ijwIx+z8xb +N1W0gPvm2KFtVWYUS3oRK/+2BbR1va407WdGKvp/PFqvt0Bmf16okw4zyt3D +7H6A0gyfueQYi82Z0UmZt+gYdzNE2tNOnItkRh439+0zUW0Cw7wYJsk4ZnQw +IG08idIIvIxau+aTmdGrO73BV342wqsYB9PIn8xoXuaWNMveRvCu6arvq2NG +20K3RTWM6uH+7uyM+wwsiELwS86lrwa9EVuPUEcW1Ewa9DmWWgInPXalnXBh +QYOqr37v4yyBYzu7O5eesqB+WhHcMVoMB3TOal0LYkFPFk4TbZ0LQeGjyvyu +FBa0lNv3Xs4/B9huL9hkdbOgoHcCbWd6PkPtsIdh+6kdaLTk4KuikVh8bjhE +UVycFb2UMi98Jl2FaxWHW0ylWVFsBbeme1kVPvNw/9P3CqyoyFNuZK95NT5N +19souJ8VMc6MnfsVXYOPSSg+5rvAig52GOqwstfjfaa/S1hesKLPyisVNA5N +WLRl1Wh+hBURilJOyLC34miRs9tqU6wo5z29gaFBKxayTEi9P8eKDnsau8tF +t2KBuZPr01usqMFKSTFDtg1zc4clkAhsaLihKELlYDum11ee7NFlQ6dZd0cc +udCJJ35ZPKv8yoYS+l8lShF7MfFNu+2rTDZ01TmF9bJpLzY0O2dkWMCGNE/b +5vZF9eLiFW2F/ko21C0mdI7M1YdD9/C0LA+xoW9c5/nKF/twxZpvcdEEGwrY +9EjIF+jHGxUbqV4UNsRfnbGgubcfW1mQPLi2qeejGU8TbPrxwUgsJyfMjrLI +WXvNGvrx/Vv7eKcl2JGS39SRQ6R+/J/al42fcuzo4JaqTA7NAOaujWg6so8d +OR7o3f9MdQAP0zi4Xb7AjgZeOG6dDhzAQvVDt0WN2VFT4h7D5YQBfO79lQuD +19lR6hF31UPZAzh3n46Mw112tNr7/plv3wAOshVt8PFlR60PL8vs2DOIS/eH +5p0JZkcc+cI6xjCIlxhYknnC2NFkX7qG5sVBbB4/7xL7gR0lKRI6kh4O4nC7 +O5aWqezopa0rqHlTt65239nd6ezo8mZXu37YINZoqZbKKmRH/9ZfyyhlDOI7 +HxCH2y92pJaIEsilgzjOIXsZVbOjhPrs7kONg5hlR2JtbRs7SiY5nnadHMQ9 +h588Hp5jR3svyeveER3CvGwz5p9X2RFz5nNRV7khfLr91pn7NByIjVbXmHfv +EP754ILEBgcHGnV7ztGmM4TH4A9rGT8HYpx6H053fgiLchxa9BPhQPXtnnEZ +xkPYN0Wumm83BzqZqm2fbD2ECx7FZnaocCDfn9vGQw5DePYoX3y8Jgd6te7M +8Z/TEJbhevny9mEOJN/3V27KbQhf7d56qHiCA8mEmp3Iej6EX396ZEbR40Bx +AoH0tH5DuPzxxOmcixxojyiZpSFwCK8eN1f3MOFAgzUn18VDhrAyT6vY8Rsc +qM3zuffs2yE8Gjz6Ivw2ByKrrIdxRg7hWNblsbG7HKjuecp60bshbOjHfPbA +Aw5EuSTguvV+CLMzCP4McuFAp5jPtDTEUvmeyRP6nnIgs+HiRrX4Iey2qeWu +5sOBgs0staQThvBeV90Br0AOpGCS3PofFU8sXTnZ+oYDxV+yfZJHxYkPbb/I +R3EgozeilGtUfGXWldstjgPZKSdxv6Lm47YPdKpL5kCikne+no8bwpXj7zuJ +XzhQ5T6z+ISYIexplQYPfnCgt8srJc+ih7DmUGFyeQ4H8gzUmpmh+iHfqNtB +KOZAK+7/7SCHDeGP3T0Od8o5UIWbyZzrmyFseoXcXFDNgS6wzQVHBA9h/tYt +Lc4mDsSz679f6OUQrrnEFWfexoFMS7Q8nngP4RcNRPqMHg6kdIcmBXkO4QP6 +qjaMwxxILGFMJeLJEKZUojrjCWo9dB12uD4cwuZlNyM3ljgQwVz/+dTtISwI +DzbObXIgWq1oLjezIdxQ8OLmB3pO5JbzuD7y8hA+kpWkeJKbE6nWOnS6Uedp +SS0zJEqAE91UM1U6fmgIf/1WvjghyolOlnvkRlHnTzR1BL/ezYnM//79SBYb +wi3SS9KDKpxIYaRJYoZ3CAd+YArQ0ORE73HsjqfMQ3gtWs6w4xgnkomUcTo1 +M4h/ErTyFHU5kXRckeyLQep9CTst/vQ8J/rm0JV05t8gbg++Q5Iy5UTHT91x +C8wbxCGsrmedLDhRwpcWIbovg/iUX8DPChtOFEpXxMYSM4izn31xt3PiRL02 +XK/L3Afx24fT3NmvOFH8ZUHFZa1BrDe76cQSzomWXp6wnZYdxHT2nF1X33Oi +z/XFgY/4B/F9K5WP2ymcyG+X5j1NMnWfXHHU1i3lRG1eFPGQmAHMCos3u+c5 +UUe1y1LvcD92OSrPkr3GiRRXRZKmq/rx6PFr317TciFiqn+357d+XHa6dO0Y +Fxfq1mdgVXvcj10vBb/9pMCFgm4nnfqy3Ycnb8v8fnyTC6X6nly8ttqDr9qY +3L1gw4UEwFP7cWYPrrQN5FG4x4WUyepWXxx6cPI9yvUedy5UNvj5ul1/NzZ9 +UrR0PIoLqbmLuD/M68K1QUbyPA1cKH+17B/t8Q584LV//cQ/LnSSNEt8OduO +U98UPCrv5kIRdJf7dGLbsXeEZKnzBBca1r2MrBfasHjjktIMHTfqGEh+6Pmu +Fbd2lP02EudGf1uEPStLmvGp6avLUkbc6N3D7uENmRocx+/V7GnCjSaD068a +Xq3GCwe/pHdf40bD6rpLX4OrcELAunWEBTfykLQnu1Iq8JpcTPuO+9xITUyt +m+FbOU6z6MmbDeBGKw09zo+2CjB3+w334hJupH4vOoVsZIDby27RXlXiQQ+u +6K6ZoFqYPdop7KHCg3b7EMhGvHXAXHpeI2EvDwr7Ixy7MVQHmviA9agWDzp/ +LlBUw7cBwgq46x7o8KAl1RHpIYsmOJ9ZGBVoxoOyz39LSYlogT8f+VWLQnjQ +SFBt67PiTuiVDtDtf8uDLBaXhfzFumAxaduCPpIHEZbemQm5d4F04kS4biwP +qph+SGrc3w0v4krW/33iQZbE1otGn3rgSKRdBbmMB7X59wdYaPdDln+5mcQi +D5qUmhOQqxyEVL0aQb8VHrSu1fT4JmUQotn//p1e50GGJ84WKQsPwbOQvpMF +dLyItlaO6GE7BPpRa8qXuXmRs21zagXjMMBV2vFCPl40fsM83llxGPaKsiTt +IvCivNQTND8uDAMhYSeBIsaLjrJ9e1TwbhgGU1S3AxV5kRtn7SSX7Aj8u7M/ +b06ZF31hPDw6eWoEKhWPPLyylxdpjay5nr4zAl/Tz4zJavMiU0uVY56fR8Al +x6qh9CQvCtu+HPVHdhQ4K2Lil2/yIpFaRdkBxjGgfZl0xew2L0KOGtSn3Bgs +6H3m+23DizQff55R1hqDjvocv9B7vOiqzMK1IzZjkNz6994eD170UL220q90 +DCKjOnaHPeNFNV4aXHdaxyDgav/QmhcvikYflLImxuBe77RxZQAvap17sB7A +Q4IDoyzIMooXiSZQiEImJNiTyrVW9Z5aj2LpQ4dtSCBhK5CpGs+LEn1rv/5x +JgEjeZf81kde9Ob2Y0HmcBKspCsM3vrEiyosonsLE0kw4agWU5PGi9Yin4f9 +SydB4+IR7ncZvOhxUn7YnkoS/MrRqd7O5kW1sk41d5tJkP1E39sqnxfJa9VX +s/aSIPWgwZG6Il5E94nEy0oiwfvNKyvqpbxIY4okd4dCglfY/Gd0OS8KzF99 +I7dGgmfPre1oK6k49kLPCbpxeHjcQdamhhftNd8bXbJjHKwYnfrr63mRy+1l +02jucRAmVrWtN/GixoFgTXuBcajXEmuQ/8eLCqrC1H6KjMOLS45/jNp5UQK/ +BM0diXHQtPtd9KKLF938Y2P8RnocJnyEstJ7qf5SGmYU5MchLt4+rXuAF5mQ ++7z3KY7DpbzSpB0jvEii4eK/73vGgal553tNEi9ypOdIilEZh/ypO6GWk7zI +T0sxY0V1HByYil+GkHmRjMNaXbnaOEhJ8D4vovCi78e2i2n2jkOrtpXLxAIv +WlVaNkyj/g8wyL9HWKHWP6nzZgU1/og9p/WJdWp/1fryL1Lzz/lamDlu8SLm +J0+0zlD5PyZkG8XR8qHDUjeyMxTGwSSf9WwNAx9azvXnC5QbB/YWsxMrzHzo +xmP1vU27xqFk+udBGTY+dHNlcNmHOA6PmJnVL3HyIe5Ri7OfhMdBXvKagicP +H2J7Xil+cOc4dB9Il0zj50Mzux5dO8g1DiGG9EIdBD705Svv0ieWcTjhYMzN +JMKHCjrihn1px2HF7wuzujgfUvCxkPi7SoK0D9tbNyT5kHX/8sdAan/5/6VM +58nxoYy0qDe6fSSoJK8PjyrwoadND2nP/SOBO8uFbj5lPlQ5XlpfUk2C4YMr +1fYafGj04GoeJYMEUUb6ZdH7+dAFpmsb6Skk0L+XkFdxgA+9kpEa6Y4mQWbi +6VTJo3xoZEcowcuTBDaFMfHnTvChxcP3Ezbuk0C0dTbC7RQfqj5FPDdykwTe +O975/DvLh07fUSxgOEYCrV3T7nQX+RDLpnfLQTUSTB06+kjFkA+FW6b+GSSS +wPD+uMXLq1T+YUHO5+tjIN2mjQ5b8yG/vjd/GdPGoH02eL+tLR/ib8w5XhYx +BkGsg8qR9nyo7aVqxOwz6n0/HCBGeciHWsdrpZINxqA8uXMt+Rm1Px+6He7P +jYLlA7cs9mg+dPW796XFnaOgubc3a3csH/ql9yM+bGUEWOdQ9skEPtSrMhX/ +o3MEvjsy5Tz7jw/Raad+t4odgY37b3IXfvKhoVE+9xrREYi4l1LQXcOHdroz +Z2/QD8MdFdbC1XoqvziHfm7vEByasSsU+MuHnk+PVKzlDsGQw96iC+1Uv6q6 +uwh2Q6DqUFRcPsyHnJvzRktqB6HKrrk0bZMPVfnpZ3m4DECMkmZZFQ0/auOI +Ndo6MwD3p6LKRun5EVvpxigPcQAE7Mx+SbDyo+CvjkcWf/WDxd3x8jABfvTj +XtNGOUs/bNzZrnBX4UfT8hWrH7e6QcVasV7/Jj+yEZheXzrbCr13iPe+3uJH +D0bC6n41/4MgOz5uTht+RDv540+nyT8Yd1y/2ODAj4xvbDTMmbdAknvNv4vu +/Kjasfuf2J2/QAi923M5kh+NnlvSYMuthe3CL1PmdfzI63G4lfDLHGjgVWJz +0t6JQgWiz51OqsBH7O3H3x/aiSpZCweup1XibxXfKspgJzJ5vSSzP6sKv3JX +8+Y+uRMNrH1cE/1Tg/VHNTe/XNqJDqdcv8413ICr847ODN7diYzPRSt+Y2zB +v82Nmy/E7UTC1wdpiDNdWKMg6ofzh53ILa7r127bbpy8s/N1XPJOVLBmYpg7 +3I29q031pz7vRDZ2m45G7T34mIbFb7+cnej5+g9JlNeHS5jtc4obdyI2idOP +f6QP4IJvL94r0QugYqZfj4b5RzCTvpFwJJMAouW9+u6w/gi+OC73jpZVAAWG +qjCIeI3gsV11Ea3cAqixMMncdGYE870jhD4TF0AXuZNL6kpH8V2vNP8WbQGk +2bpHX+gsCWdLeDLDYQEkbrrCTuNOwrTFF30/IQHEc0/wmMFnEo5cWfJ6ekoA +ZVjc8dVmHMe/7I96yhtRsYhaal/GOBYxaXVyvy+APG/a/r03P4GtFlMXRh8K +IHWG+9uegpP4R6jbw4vOAujJjcNAOjSJT9VJOMo+FUAHHeysCr0m8cNjd+0a +AwXQAXGvE4Y7pnBx3+HJA68FEJMmew/j7im8w4Pb9mOoALIeW/3LdHoKx+dk +Wbu+E0CHzrHUzXlN4RolGkvpFAFUoO/wyXh+CgtU/x149VkAab8NLbbhmMY3 +rT+ar34VQDmuK69LZafx8gc9s/pMAWSuazV10ngaHwOxHq1cAVTHb/rb0WEa +B3fPXEsqEEB2Nz2W+r2n8S5C+BWXMgHk0ntG9WX6NHbItG4f/E31Sz6aVvJr +GuddPGB8tkoA8d6hs9Zum8bng/oMpRoF0O+WPxmT69M4evfP5qBmqt4DR/t2 +cZDxyB/vS8ut1Hh5T/doMTJ2o1W4UNsjgPKXwh6hQ2Q8eoKtXXZAAPmO9LMp +65HxBf+pG8+HBRBhQ/m7mTEZ59fUjXWNCaDd3u3/mizJWJor/Z7mpACa52xd +9L1Hxq8uhSyHkAWQlUp5sIcrGa+EO3pOUgSQGYFEzPImY4uOS8wnFwVQAkFD +fc8rMq4V1XidsCKA4un0DUYiyFjTfCdhfV0A1Ti+5O6JI+OEpKU4o21qf6a3 +t/n+I2PWsTbZ73QElLz4rOBlGhk7KeR9Y2UioNez8QOHf5Jxv3205u0dBHRj +KWunag4Z6/1wK8bsBGT5YmT7RgEZZy6YnhTmJqBEBvGzdcVkLK51pP4RHwHt +MyKmO5eSsb8b8XKDAAEd2uHRbfaLjOeKaXp3CxOQyqcPIS/KydiUbvC2txgB +PaxsChyk4gqdX9O9EgQkv6X89ikV732Z7KQtTUCLxfn3L1PjY2p9Nt/KEdAY +4cr8HWp+Jm5rH7ICATHqNZNzqfz3DU5z6CoTED7ZefA4VV9nxO7wJDUC4uXY +kctC1X+ik1VsS4OAJMZGdXZQ/X0Tm0o20SKgs/7jtSeo/oVu1illHCSgSjZn +7YKPZOyd/C2TAwjUfTrmbketH3ns9SGbYwREOukfbEKtr4miY3mZDgEFPYi2 +8gwm4zKHS/piugQk4GfMMuBFxko/1Vuc9QnolxbF2eMJGUcs8pv+PU9AHluh +2NCBjO+6t931u0xAMqzegplGZNyKc+cHrhBQ9Qt+40OnyRjRR7sduk5AZB61 +ym1tMuYPMA2kWBKQt4lzs5YIGT+tO8ynb01AJ278LfvGSsYkbuL7/2wJaClT +9LX56jQuihz4fM2RgIZUOuJdWqax1Uer6t9PCYj/qvrQ8+fTuJF06pLECwIq +k9dr77GdxgeUdne6+hBQ2n/9ZGeDacyVMTmuEkTN7xxHayM1jXNL7u+IfkdA +5S9uXTueM4WlGC69WYghoP0soW3vo6dw0Cl1ofMJBBSrGLiyz2MK36xflGdI +IaArpMjTamgKs3a7nnbIJCD29jhew6JJrOn8ieN1DgGF7nE5JhU7iW/ytv9N +zyegV/uTyefcJ3Hu6X3XKSUEVFtqOPdbaxJbZc04PqojoNKM9NkDnydw6atb +711HCeg4rddW/b1xPLX7rfn7cQIqylroqNcZx4K/S2UKpwiIQ+9i+n6Rceyw +Lv59c44a39hteaqchEVtOsqfbRPQ3xRTNycuEvW9e47sKyiIpH+NddcEjOLk +bveMFBFBpO62gbHxKG5w/uJSKS6IPtZnv1OQHsWy31joWWUE0e2xIek7BSO4 +WfgXIVhNEKXPW698HBrGygv7j77VE0TeXqxdbKJDeOQ/ybB4d0Fk2LFkKXWn +F095D6zSPxNExKtny/s6evCcxYcbNl6CqOaE+OZP3R5MQ5RUVAugxgdQ37ay +3Vg4UqKsLFIQpRyIclNv7cAX/IizIz8F0cX/vpRMcP7DhdZi+krjgijDu8vC +i+4PDpMXYsgzEkJXx194GluXg6mZbMqQiRCS3P+igCXlN0iHqetxmgohy7Qm +xtejfyBz+2yIpYUQ4kp6Ib51qwpaWl+Ict4TQvFsN7NizeqBz2dKw9JfCDm3 +hH84R2yB0AF8m6NACOnWBtv/wz1wlVDHolUshM7f+dLKd7kXpM52frEopZ4n +WEjUTPbCz9wFSk6FENLYLXqkhrUf/r7e/dSihYq9Xs0T1QaA58jbiJxpIcS9 +J+ico8MQhERbVdyUEEYhgzpcQglj4Pz4xUP3XcLo97jJ4qneMTC7FEeMlBVG +5Qdt/ehFSaDE2upcqySMDjRUrQtHkKDqiY78fm1hFEFizUnyHge6K9Iv2S8J +o1WP6miS7iSMa6B9ckbCaPuM6PTBZ5PQyG06cNREGBknbCgwZU9CfOVbbWcz +YbRvX+2FNeIUHNKinxiwFUY1F1lUj0xPgRNhUC/HSxjpk+9USduRwXR+c6nJ +VxgRX6hkGLwjw4kGoaSpl8JoHrjtR3+Tgdfv4rpkiDCq59Cc2ys2A9+WSr4E +xQijhHl0Va98BsL/dhunxAujzPNeFU+mZsD92wp9WaIwshoj6dOxzsIZK1XT +5VRhdEF+6kCY6iyQ/sWzW2RR+SU+0VQ8mYWGHwW57rnCiG6+L/9I4CxkB7fd +iiwQRtMfOq+Zx8yCtw5XUW2pMNIrXwiKL5oFyayn9vvrhREqKP1MuzELLG+i +hS41CaPH1xaCC1kpMGuX/duuRRjFGc2uiwlRoFiaLJbYKYz4+L5M/dWgwNWw +6/XsY8KoXTYjZ82aAqIZrCJ3J4TRnBinUe8jCvQ15VhXTQujwy8fKxg9p8At +Ll5a3wVhVKQKf9eiKCCrjM8OLwujkajv/+STKTCubxd9bF0YXbxm8pD0jQIO +AX/Ut2lF0I8z9JvCvyig+unhs+uMIih28YtKcC0F5isk6gpYRFD3StfL1/8o +4MLoZuXCJYKGPbXNj49S4IC0fEYrrwjSAVrthWkKbB77t60hIIJc9QPm1Bcp +8OKZyjuKqAgKmPrSZ0Y3Byfiu0fOS4ggDX1FX12WOWAufrn32y4RtOZ1ZL6U +Yw6quzU92eVEkOHyrbEK3jkIWh+qsVUQQfP/5mWuEebgnPAbwao9IijQSNDJ +TWQOeLSP3JZTE0E+HR2x8sQ5aDGe/OGjIYJCWETtLKTmIOJx1NbQfhHE1pjw +TV5mDkzCdc4cOyiCVI1Y97vJzYFI5lxkwhER1N/c3XFl9xz0/o0f3jpKPX/3 +mUO5whwkUPTVruuIoILWYw35inNgwb3mUXBaBLkTrnQcUpoDaZWUaiF9EXSG +ecBOj4pHzxoSXM6LoPauQbsh6vlPdrS3Wi+JIELEJcxMxXaB375rXBZBsjd4 +zuZQ+ZQ/X9sMvSKCzv0l085R9cxWsuhRTEXQMY3PtTlUvT/HsiLOm4sgl8j5 +OJZdc/CIyXLoqyXV/7Sd/TDV734ZblV2axGUyPhF5YzoHKwdL3K3taX2x1mz +/5DgHBRa2FZV2ougOo8g9zy+OXj6nCAg5yiCzHKIjKWcc3A0odzC55EIOtFj +4mGwYw4YsGP6kLMIaroROXmffg7+9IhvHHUTQalzaleENingv1FzOuGpCDrE +6PxXf4kCZ0SehG89F0FC8l+t2GYo0GjSrFzgT9VrNqCo0EeBUOdnbkJBIuhA +3qmAgFYKGEXsqXR+LYI2F++ZPa6jQGez302NCBEkQ/tyaDaPAjFzGt9C34mg +G/afOjzTKXCDZ3BtNkYE7YufaIimzu/wuUNhX5NEkIJ7l7VTMAX+sx/vZ0sR +Qdfeu1vto87/naCIPbafqXofSRBfUO8HuWr2j+wPEXTHdDqq7AoFVk58XI0v +ptbr+/uzo+IUcC+I9yovFUEftndHynBTgGZvNMd4uQjifP7iGB0tBZiJryX3 +1oig786eBWEDsyCw6qJb3iaCagYOxcrEzUL0vYfNpE4R9A8J6hsHzYLYqP11 +jl6qn/GdIfKusyDdbOF4eVgEOYaShb8YzoL6V/13pFlqfUdMX2kzUvfHrlO7 +OBZEkPYxq0uD/TNwIProV7VlESQSt0ctInsGjvlplrpuiqCc2Hvr9Tdm4MJN +iXF2VlEk2sGu+P4TGRx2Lmip7RJFijkD7DdEpmEukFxmJCuKtt5OxXiMUvcn +3bi+625R5JOtQD/zfQrcZ3rMf6mIIt+ucPv641MQWFXhb3RIFIVGcl+JvTkJ +qR7v258YiaJ84+BbTk/HYWjkmEuZnygSkGjdTtIZgWPx9YkKgaLo11tOD73l +YUgwuVoX+koUfW4xyzVMHQazGkcpy3BR1FTHu/aeZRg6vyfU0ieJojd1EuGK +ZYPw121LQqdYFL1OibFnF+mHMp78qooFUeTHG/dTeKQFEg+ridTdFEPnLtgR +Ze6l4bJzrF7rt8TQh97bpiekf+DBG0MTu23EkPWzimOaPJl414vwfF8HMSS6 +KW4WOZmHk/+sXkFuYkiyZ6/TocYy/PF8WVRGmBgqOHKIl+ZpPU69aSAQXSGG +YitCttlKO3HlA6WnldViyGTizS++x12Y5MU4ulQnhsQyk1U+KnRj+f9ysgxa +xNB1SYqtYWgP/jQhYsQxIIamjhfdyt3Tjz8/HH77bE0M6f+DYh/SIP7q48Rj +vUccDUR79LQLkPDUoesvfFTFUc2dR7qet0hYaeHEfJK6OHoqSJuT/oOEP1vw +/+vXFkcKF9NDUvTGcSpkRF09KY50g8+Hlj2ewMmrs8RzN8TRoJLqGfnsKTz8 +vT3EzkIcfR8x2UxYn8K7bEpoA2+Lo5Us6R/+aBontr4eqrgrjpi3X+fFVU7j ++AzllKMu4mg+3WtvXhMZR9vbKe97I46E1rLM5S1ncae0YbxBmDgqT3+/sf1s +Fgt1H+R+ECmOmtN0aLziZnGUHtvct1hxdLmp5L5/+ywOl/ucJf9ZHP0of53h +cZqCW3rfyJ76Ko6E/aQg1pKC+SOeRN7+Lo6KNUx/WTyl4FAG3SeJ2VT+dlaJ +np8UHDIwdkj0lziSIMc88SDM4caohq8H/oij2i/8HAUqc5jrQo74lSpx5ESn +Gvfu1Bx+VexLE9Egjh5pL9/Y/3gOB72XKefqFkdqOw6ajdTP4dpLHPuU+8TR +HYHGOuHhOczGuvhRf1AcWS79KZhamcMBLuV+L0nUfnB4r1pKzmM/I8sz9Ivi +iONdXfEb+3mceL7b9PaKOHI9uHSR+HweF+oaOVSsU/2BwE71sHk8d/jUm0A6 +ItoI2vFvInces2uVJE4zEtHMTvgWXD2P5fZqZ57fQUSx2tr3M7vmsamsYhsf +NxHFawf4B27MY2eJZJITHxGl1b9qPsC+gEOFxdbaBIioOKRg9q7IAq7g5BKL +ESMiHTNS2kWtBbx3ec5CWpGIXmQaK4rbLeCzlLuPfJWJyJ9SNVvvvIBtJod9 +SGpE1HBqcnbzxQKO7WtNTdMiIlq+LZ5/kQs4t+N8PuchInJIu/XQ/cMC/ttc +WXMfiChmwjYk4fMCZqnMJ2ucJCKRyxyJ1wsW8K4ydZpIXSJin9CkLJYt4COF +aTyr+kTkGyTxY0f1AjbJltl17QIRuV46HxnVuIAffo/TKDIgIu2D70wTWxfw +q8+Ek0RjIurPlCuS7V7Aqckhxs+vElEUm6uLzMAC/hW3487QdaqeX9YX40YW +cG/UC1edm0RU1i3F+WZ8Aa+Grgem3CIidfoDLptTC5g/+FHsDhsiWv8v2nRo +ZgEr+01/u3uXiFJo3gYem1vAus+tSuociIhru7ldeGEB33Lra1J5QESviA9F +7BYX8FMnk6E3TkR0U3Vqj+bSAn53r2lh3oWIuDelyC5UnHlHj+myOxGtDd86 +rEHFDZa/CLmeRJR1zZbGhho/cf3QbmEvInpiYELkp+ZnMMk64O5LRFfelPpo +UfmJl5T1e18S0bHJFKl/VH0H9FOuo2AiarznQRqn6jc8KXEvMYSI/jrL1D2m ++ruH3j1jCCMiuw+LVW5U/wEHeEOtIoloPDO7a6V/AX/UCEyqjCYi+Ycf6chd +C7hEmSFLIY6IHp99eOwatb6d8h5/gj4QESPzqURErf+i1FIbOZmIBqFIKa5q +AXOL3Ru/kEpE+8dJMw+p/VMgkNZ+fqHmSzLYLM1fwOZsnWLOP4noVOWNcxWf +FrAro4FKRxZ1nqat/zxNWMDh2zXoYB4RBWa6U75FLODq+SLLbUxEwZTcmSfP +F/DItKbTzV9ExCJMw7fz8QKmIaX7/vpDRD7fQ1/utl3A+7o/fPKrI6LeI2RN +fIGqR9lmJb2RiFCxqJXiiQU85al8qr2ZiM7/UN2S2r+Ak3cVDMt3EtHFh8P7 +sqjzz3+3hVg9SkS3bZpn7vbN49nCaIe5cSKyiFF4pt0wj2s5bxYJTxPRH8+V +y2HF89j75/TVu/NElOiisDL3fh6vudOfYaKRQEzkVVfTi/OY9NHqQTStBIrg +HI+LOTyPW+ur3inTS6CiB4VBdrvn8U+JENJlJglUUuapVbQ9h23LRX1T2CVQ +wo3fnkopc7iDTbP0tJAE6jo9GJAwQMF/NN6RuoUlkC3ReoajgoIzr29wOYpK +IN1oJjbeNOo+Sy8ze0eUQJtbV570P6Lg0wbnN8ZlJJA0R+y+j7QUnBttsz9w +rwT6uiOT9xzLLP7vV40ZUUMCSe191tlcP4PDppR9M/ZJIOdiqx9ngmbw/SOL +LV1aEsjKgJ2PlnEGyw8+f6AEEkhHO/1X6vQ0jtr9/mvdGQnUHlUkoEh9zy/M +n/zodVYCxU61Vb7RncTni+ditM9LoHqVxuC9ixOYyUAv6OMlCYStHB0U9Caw +k/uqrccVCTS+Tvd6zyQJX2owlt9jLYF+Wc22WrCNYnYn/qSgFxIoGWXa7/vU +hz1LgqPO5Ekgpwkupte/v+OJnpKw1XwJdNyJ+DTx5Wd8eX0+JKVQAj3gWkvc +6ZuElTSvvqQvkUCIroY0OuKD27/Iuhb8kUC8ruPho9//g72R+JpiiwSaHCJc +LK/8BaP2FHG2GQm0q7/tqhKpDS4GSovkzUogr/as8JLf7VCYakywnpNAgs13 +1wYTO+DtUBHXr0UJpKZb/K/gWhegKwE0bhsSyOY/HUPJil6IPrFrcGKHJCo7 +8Kd2Bg/CWRGjj9XSkmjRwu6mx+5xiBpWLrkmK4lSR/Ikj/qMw/BXlq4pOUm0 +Z8Njv3//OLijQm4uRUk0esZcLCp8AtJu73I3UJNEqnmP7/usTgLrd8ql7sOS +SO0WfXTzf2S4/KTG3h4kkbVUb0nHKhkSj33030KS6MhtL4Pj+jOg/c+kWOIE +NV7PU0Z7ZgZs1vDu23qS6HjClm9RxCxUnHhFQ75M1TfYmdxXTgFeThsRTxNJ +FHtG5QPXOAXM2o5qcl+VRHSep0cH2edg6c7i3b3XJZHD4VvT9wzmQPa1adtj +S0k04KhRy949B94dCt+270miQ6c35eI756ExkaEqxFESuTAbVyWuzIOoXe+Q +5ENJxCZgvOuwwAJkbL0ROvFYEtnun5VRv7AAg7tWvf3dJdEDI8EBbrwARx0q +rvG8lER7B33st/wWYa19/GR5gCS6aNEow/phETKPs+91DpJEcpaH64LzFkFW +6CJLz2tJJH+fiX6NtAjs5Z2ZqRGSaN8FB9dLR5fgj/Jm/LUoKv+FFAbWy0vg ++Y4YyBlNzS8Ss0PDdgnmHG7dfBQriVaOHmLrCVmCdiEyB0qWRAa3tq0ftC1B +qDf36txHSSS401Th69gSnJnZO/wxhdrPnuW/RstLUFzunM/2RRId29rVROZf +BheV6I/FaZLIimFZqVdqGdSiC0Mcv0kiZr0IN23VZUi+R2vd9kMSXXY2lt2r +uwxmnbsuBWRQ9bMa/VdvuAwEnZOHD2dJohbUY/7vxjI0ptvIz2ZLIg3zAxQd +22UIEA7kS8qVRK46bkvER8twwufrllG+JNr57jGfpccybM40jLMUSiKV8Toy +p+8y3P/NX+KAJVGKPPFVfPgyKKju/yJZKom+6dr/9IpZhqHoKxEtZZJowuC3 +UUPiMsQwuj/3K6fOo++E2ovUZbh8/38NV3k8lVsXLqRSSSqF0PtuTYbkNsdt +r8xJ4tMNFUWJczUgpBAJkaHBTd0SZei6qWT8TLVRkbFwDHFKkTglZDjvOW+D ++/65fnvttZ79rPWs317JR7dUcf2WFiiT9JDBCl3l9l+rKTBznIhfksvgGtNe +ozs1FOCk/ETpQgaHPZ622q6Oggfd4o82xQw2VF2pLNvA8b/5k5lMGYNFEZYy +xY0U2PAuxKk9ZXD2yNFhz9cUvK9/FZdEGOyx71KnejMFm3+7vfRcOYPpqpwX +TS0UKF0vpus4W7CG/zi8lQKNeoHvGc6+dkt0a2M7xc3Dh9/jufvWssoXPndQ +0KP1ImUGF3+Gt4HP7U4KDE482NlfyuDKLicnGwEFXVYfJrQ4fIFmoRbS7yhY +W9Ma21LA4HU5qWsLuykgp77Jfchh8JDqC3XeBwpSeVeP2nHvz4zsn7mklwIr +aflcLY4fl28zJxo/UkAV5XQf4fhT2a/z/twnrl4Pnv2czvHLr7KuWzdAwRuD +84vlOf7j9b0L+4UUuPBWwek4BpsnJdy9+YWCC2uEUdsjGDxlemHszq8UlJNh +uZAgBpd4d5yaMkxBwvXDPconGXxSwLrmjVCQdYmnp8JjsI65mvWRUQoSK1SU +Qp0ZnLLEVbN+ggK1nfzdweYM3rJWe7UrQ0FLwPKiQQMOz/bxjWIxBdk6Gcva +9Dh+TkXu0PxBgfaoUvsiJQanxu36o+QnZwujz3rN4OqXvviAzSSn/2krGWNW +hL2a7vsESdHwz/GfxvsFIiw3cDJIUYaGE+aVCXfrRTj9l2Fk5jQaLqXXZbmW +cXrSfvU3fwZ3Ll1q5XhThCFyrFxnLg3t15PvLrUR4c6kstpKBRqE11SPWxmK +sG9eBN9Bkbsf6hMqWiHCme8XDYQvpOHljaavVT8n8DwDw7lvVWk4REk1H0qb +wD3D4U5xK2m4f4aKHmobx0Gy1u5Ii4Y5QwOFa0rHsZLaIu9ibRrMz0scxMnj +2NLy3/C+1TR4v2VWqbiN49z0hqzf19Nwp9R/8P9fxvB5RyX26zYaMj16vD72 +jGJ1r27pcGMaFPa8MHpBRnFRZOYcFVPO//6C6PVJo3gwbwtlZkGDn9jCtpqb +j7vlD1gkW9MwnPLF7/mTb1jz2T+J1vtoCKmVutMcPIIbdcTpgv00eE38znvD +7ecBiRZ5fzrTUJVTsTxUewTX8YSvIl1oCIy2u+KSPYx9FLRnEncOb62n9VH7 +IUycHgXq+dKQ5nnoyMrIL3ivOP+gQhwNAzP9h7d49uHLupVazU9p2J3hMkNT +7RXO3LRvZlg5DQJqnWKCdgMmxuP9+pU03OpM3PJ1Ux0eclyeceUFDW65rO1f +NtV4R+RFDdt6GtRKehsVPz/Fst3/W/D6DRfvuZKNW7IHCbzc+7NhnIbR2hTn +VWqvydVbQYJgEQ0dFbdoOdUmcv/ewlJdMQ0a1ovw/cXNpKPMPCDuOw2TXR1N +8vP5ZIMwa9RKCoHt/LCnBdIdZGSbb3/dXARb+VtVehq7yZExmaYaLQTzZhsm +r/fqJ873TRr363D+s4wXar3tJ3tcwuuGdRGEJTySzdo+QMxeSVct1EdgNKc7 +3oISkuVZUqUuGxG4+1/QfVT7mfS5TsmQGCPY/0t53yyZISJQhtRYUwQPzhx5 +cs9jiPBfh6RomCP4usj0Umb9EHm+dfJvU0sEiqFC57arwyRd5Vf8FRsEU9J6 +8hpiRsjh5u8Bq5wQsOWfmo9NGSX7ow38y5wRVN1Q28nTHSW7IfDkroNc/rXp +AbJ7R4nJI/aY3yEEH846l1O5o0TzosS1godg86GWKOI0Rnq3MVaO/gio8xl2 +Jdz+1CneYDl4CsHjyPp+h5fcPpXtbx5yGoH/79Gx0UPjpFJNtC0jiHtPq7rn +7c0TJFUyvuFbGAIDheMF/rUTxDVndGn0JQQ/drXM0W8TkaNhdj8sryC4ke/K +Wy4RET+7/PbZCQhq7K5JhakyJGrCL/5yIofvrcpzd2eGPNos+X79NoJ6Q0/j +JgFDiuT2tjumIAiZN6YnYBlS0VWSq3oXQZTSCW/TxWLCDw7ipaQjWDIv1lrP +VkwkFZNt97IQ4J13P5iXiolUwsFcj4cIpi47/VKHLyazD1fEaWUj+OKapc0b +FBN12fMmj3IRDGglWfepSMjK9l4Nr3wEsQ8d4pC+hOhnmnzXL0Sg++8ps0Iz +CTGxlM0tKEYwot5h33ZCQqxV3eNOlSJYG3XFzvW8hNgPVntsfoIg3CdTARIl +5M/4aI0n5QjW1bZZDBVLiO+Bz+zZSgQK+Vdjn9RKSPCaHW3wnItvMkkLOiXk +cvPsuOfVCJQK5edMk0jIzbRjHpE1CE47LdslP50lab6NxhZ1CAIOvC0/vIAl +D0z1NOQauHw3jvRNp1hSqHSZrWtEsDSwwoTRYUl5/0hr3GsE5vrPPH/bxJKa +ItucXc0ICpKUB4uMWCLYO9+jpRXBsZeN9vf+YMknbV/ja+0I7in0n53tzJLh +H3x1+zcIstc2+pe5sUTcsJ5d3IXg5uIMYcFRlkilJLZ2ChDYJJ+JFPuwZJYX +8zjpHYLb2dZTwwNYsmCbQ6zzewRa6xfOdwhmibpisfvSHgTfPxad9j3HkhW9 +ysY9vQhSh9XEHeEsWZN/Rj29D4F0jOaeiAss2RLRJXHrR3Bgb9bB09EsMd5j +2LpCiKAu74ow/yJLrFbcfiz8zPVPZXH1xhiW7BH/jMkaRHA9Sq59KmcfqHF2 +PzaEYEWRt1iR8/e4SYz0RhD88uqb5xnFEh/PperfvnF4W93k5SJZEmR4TpI7 +xuk95Nfb4TCWRMzp4ftOIChrrPZbEsKS+HdGjzcwCDSVB15dOsOSG9lpMWIx +p4fcv75s92NJaqiMewmL4GSLYoPlCZZk2boZBf1A0ONUFHyV+wzn01VqW39x +egkcnEW5sOTp2HLJ5CSCQOWVMSIHlvwHQVVywA== + "]]}, + Annotation[#, "Charting`Private`Tag$29708#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-2.7201046427390105`, 3.9583636026272444`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896378551002684*^9, 3.896378613576879*^9, {3.8963788845316133`*^9, + 3.896378893181589*^9}}, + CellLabel-> + "Out[131]=",ExpressionUUID->"9947b953-2f7f-4e46-a22e-cdb05d1a4752"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes fuerzas forzadoras", "Subsection", + CellChangeTimes->{{3.898186887035397*^9, + 3.898186913545555*^9}},ExpressionUUID->"749650b3-8599-4822-9cfc-\ +3f264659da35"], + +Cell["Para diferentes valores de Fext nos queda", "Text", + CellChangeTimes->{{3.898186730332386*^9, + 3.898186738764073*^9}},ExpressionUUID->"c4ffbc97-c1ef-4b61-8b2d-\ +a7d991aac792"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{"\[Omega]ext", ",", "Fext", ",", "m", ",", "t0"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]ext", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"t0", "=", "0"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"Fext", "->", " ", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"Fext", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", " ", + RowBox[{"Fext", "->", " ", "3"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896375501396002*^9, 3.896375513740144*^9}, {3.896378538566077*^9, + 3.8963785467090263`*^9}, {3.896378600292561*^9, 3.896378609692216*^9}, { + 3.89818672561339*^9, + 3.898186726429488*^9}},ExpressionUUID->"d5a58e24-4340-41c0-80c4-\ +c4ee16b9edf5"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVl3k8lN8Xx2exZB2MpcTMiKiUbPUt2z2plKWFpE2bhCRJKVsRRWRfsmSn +okQkIpnHvmYPoZR9GSL7/nt+/8y83q9n7n3O+XzOOfeOlNlto+skAoFwDf/4 +/3fsIzMOJfPnWon7nG4Z2ItplrUwDM4wbqCARw8pbwpatNYrijwZDCe05+C5 +ab2CaS3+kNwP3B0eaLuxW6qVEgeKxfzp7AwfdMH6cSxnARXt/GsesG4ZiP50 +fJh53ExDP/nj1lbaQ9A2687v3EqySOY1196l5XDkrbGd/ZyqArLRdLg1T49C +NVsDW4LyVdDH1t8pMwdj0ODD6rfpc/vQ0k2D7inLeHQ05lOIU5MWSiB2+8wf +TkQB51K3L6Roo0PfgrfOtSehmQlhJzZFHTQceaR45kYK2liseu4nlx7yM181 +nV5+hcazbLgfKR9HLctWYZP0NMSuP71K+HwK3a+kKf7Neovy3SLGbLRNkHho +a+34wXSU8KjFVGnmLDLbAeQxy0z08CrfidxvlxBp2blhxvUDUqLG1OUtXUGt +v09LzhzOQonB7133J5khx3Se/H/t2agmX7lQeqcF0gsZ5PiX8BGVsx+Z8Oa3 +QhKOxcZTN3JQ/JcYu2ds1gg7+GDy7/InVLDYn2Asb4s4u3rlxun5KFHrNmE4 +6y7qwL46sIbzkfim0naLqXvo7evI0rGsAnRF6m17qtp9dNz++OXRg4WI2MAa +uz3qiF5wFbwYsmQi/tIja51Fj1DOAz37uxsxdPfYJfIWWXcUM/rfpmlXDCX2 +r2zKmnJHto1Clv8OF6ORum08FyI8kFBMFWmqvQT9POPKUSzhhZb5c9PsNErR ++VUFw13c3qj/cfLJyYRSVPH897ubK94o1/JR3N8bZWh2q+Gvc3990HkVVbWJ +5XLkpfKSrZM/ACXWxN8Zo1ejh5/Ob06KCkUzkZ929PhVo0jpmuWxg2FIx7K2 +r3mxGiV4RJ9fmwxDLPL86YKWGvSKUpDgeOoF2qd5XM3Huw75xZdXvd4fhRoz +V0hyfxtQYAU7z4JPPBJCXJf4FBrRwTivR1sVE5C6bJiat3kjMm+Ms3gbk4AC +ZtKmnZsa0eSjGK4yp0SkGvz9utm7JvTRhadZ5lAycqvZqad0uQXNiX1M4tz0 +BqVm5cm+C29Bp8jnX0RFvUHNkdrkrXUtyOPc3u2um1ORjOXZwo37W1Hdy48q +itJpqIb8RIFA/Y6MXn5I0NJ+h0Q1u4QaKtrQhNOuN4eKMlFGpk+XjUInyvc+ +EcPZmoNGhUb99K52Ih/7tL1TWz4huft6WtvCOlH7z0uJV+0/oQQNnsS+xU50 +wq3kxHehXBRS7WdxvrwLRXtUYyvn8tD9vsCpI6Y/kU1NpfJfQgGK56n1FDz8 +G+UwioPPZjCRJWqKYtn3oeCqR1fN9lYgQtJcQddznK9Mb2+/WYEi2SS6a1L6 +kOHeyrWHiRWoqtqCltbWh04eKWVe4atE24xXkq6r9SPDDr/dd4cq0bCVXPov +4gBaYXLbBKZUI+uQh0WNQYNIv2ptKge+IduB7X05GSNozW5UQcmxGXFLPZHr +2TeJvj7oGk/37UIBArU7Eq9MI/m8Rl456V6U/5/kp+O208isozm9Yk8v6r90 +G624TKO6/yJlrx7tRervqcZnIqaR0iSPrNetXjSsa/qQr34aKSp51/jl9aKD +nuMNTuozqJUt1NhOrw8tzFIcjERnUX37iTfvrfuRWZcxk1w3h0x818/89R9E +3C//3LrzYw4Z2A6+XoodRNnnbSV6BufQ6IvNGovvBxG509upgDiPrmS4FDd8 +G0QpHQUqd/6bR5yHBqd+8Q6hwe+M1F9J86haULfx5rMhZN3ICsp3WkAnifet +7e4NI6EgJyTnvYD+y7FbeesxjApOcEyEhS2gQ+FZMt+DhhFPA13fLnMBBcr4 +lM2nD6P0b0bscgMLiNkavflu/zCaqPnsFHZyETUVtktuPzmC7pQ/Mbstt4Sq +24Zy6jaNIlq/DsecyhJ6ruXcPCszimpJXG9dYQlt2WMXzac4iraC/5TPuSWU +3CzetEFnFP0oCHdPeb6EJn8T7sjfGUUHPryO+/F3CdVTKy7xl42iiXor7Ssr +SyhPz/yXWP0oejm+Y3BwwzJqITHS+TtG0eyOzF0zUsvIRyG4u3RsFKW9yivk +N15G2XtitPSExpDgy6rOg5+XkcEnzticC2OoKN/3UU3ZMipzqdroYz6GbnYY +bDFsWkbPqveF6t4aQ+UiTTcujS6jH1RF5YBHY8gp6MeCo8QKGo7r+CmdMIb+ +PB0VzXBfQRf9lY7c7hlDASnpBar+K6jYTEJpaXAMqZfaXvoStYI4LDw7bk+M +oXDC9Kuq7BX04JCf4ObVMaTrsqza17+CWndb8t7exEJZdrynNuquoo1suWdX +jrFQXTTV6b3JKhoMjXfMMGahwTLxeG3zVTTK+323zgUWPle3j9m4raLp8RR2 +WSsWelJ82LP4E/68yacoxZ2F4sYM0kxKV5HqnT+cj71Y6LOIccNY4ypq157c +pe3HQuM3zDaLslaRznJWjn0EC5kIuX203rKGQoSjlHzTWchOw+vH+u41ZHiy +td83i4V8LfzXwzTXEIgdxm7nshCz4KU+8+waOsB/NWKAyULbrn3uowauocQP +R6+6NbGQtj+TKy1mDUl66UzGfWch07yK3Vpv19CWEp3FxB8sFMzz3cWqfA1d +aGLIGP1hoaWPU9Svy2soXwYLOPuXhYR/Lew34lpHIe3xccH/WEhhA+HKkOg6 +2nWt3f39LAtdM+VPF1ReRzuSHaz9l1nokZdI82u0jthFVXUN11go8oPEgvqx +dSQlupQ6TxhHdWzyhyys1pGli9PLMfZxNKigbL3ssI46tC049m8YR4Rz+4OC +PNfRcEhxkhX3OBL3hNytwevo8ctRU2fecbTn/ZHugrh11OJjKmXLP45Oth8n +nUxfR1bJGd0HBcaRNdFk20D+OhK+GuayLDiO4k6b36N8X0cJx+6LCYiMo89u +N6NTetfRv8uWEzai46glzR7bP7mOHgq1mb4TG0cTLU6D9avrKOg228najeOI +zQ04stkJ4Ghs+Klu0zgSFD4U5cpLgMrn+5wzxccRLe3IziNU/PmQkd/dzeNI +XkufKShOAJ4LJj82SoyjfS3HjboZBLAVET0Rj/NhK6OB13IE+BPt0cUhOY6M +Vk873lEgwOdfaTYncL4cco5HYw8BCBfzJh1xtpG7GMehQQBe1ZnTnjg7FV5R +atImwLhmpa8tzl6G5mUvdQlQuv3TQzWcwwYtz1icJMBy2BXJIfx9iS43RxXP +4PHJ+J69h7MixrXgfZEAG4mBDSw8Xowtlb3nGgGOFNd908X5pK4Oda81AYKP +exx+juf327+f4W9HgBdv2bdn4fnbNXso9N8ngDehzPoLrs+6qJSG+kMCuOUe +WE3D9Qu4wNQN8SRA+yPxFldcX1rCxTMjPgS4eYPYo4Lrn9G/bA5BeL4zGLWB +Oo40t0fbR7wgADtd3fy4EF4ft/a5T8QQ4PKDG6VZuJ+m2W3+h5MJEKRwUWYR +95s1d+9lTBoByNuQswzfOHJRp6ZNZxIgkPvkZxWecRRddqIssZAADRccC1Y5 +xtEOrommhRICRLo9u/6ZbRzlH/PrOVFNgK9i+RUmpHHU0Va1tPod1yvYwVlr +lYWsNltuON1NgISughzvJRaav8wumt5LAHWf0Hs58ywkOnJA6fxfAujsfnj6 +8xQLvd71WytrlgDlutyXAydYaI/9I4MNKwTQ3CnN1B1jIePlAsvcDUSYi1kz +tupnoRA+1TihLURItZqM1sf7cYtR87sb24gwpFO2WQPv16wXdvmYAhGKp3Ki +KN9YqJH+vtVWnQhKWylml8tYiF9ZlqfWmAimlM1rCfg8iLtftnHLBSKQIBpS +8Xmx64uZrNNVItxn8ewKecNCBofiD8jZEuGLvXA3Xyw+P0w2Onp6E+FPzX2P +ZHweib/MfdrpTwR93jAyE59XaT3GoUphRBjr6vpT6MxCVVbBGT0JRLgVax98 +2ZaFOFy4B9QLiKDJJVuK8HnoEb9iOMMiwoXz4kvXxFnopOLnO/LTRGjh64ut +EmIhWvHdYLNFIkwZ1h4W4GGhgt7RxkZ2EnTJf396dHkM/dv648R7Ggm4RfZx +mnaOIbP0T8csTpLAqcLbnCt0DClq3rkVa0KCDFaw0kufMbT2bad/qykJKt66 +xFLcx1D03+Q67RskUNkvqJFgM4aalUP06R4kUL7QSLhyaAwdyLfV7fhIggBx +8aunJ0YRv96OG5QCEpiZHCzm7xtF3Z0Dz3QwEryKc7r3tn0UOa6YVuXUkSA7 +LrHsGTaKPiD9I8EDJPBpSXr1O2gUMSrkDuuJkeHjjHvAkvwoIrT8hkJnMvhh +17zK9UfQk5GiROfHZBhqKK1zUR9BXIRY0v5nZAhOffONX34ECe06V/YpnAye +hYYrNVwjaKt305HMD2Ro0iwhxZQPIz31kuNJg2RIKPzblbB3GIUmJ5s+M2KD +PTPthVprg2hjweOvOufY4CjpUpP/yCCKabxMY7/CBuUN1Jb81kH0enXz78e3 +2KA/+2xG6ttB9PlM2DWXZ2zQeTlTq9d4EHXzPLW2LWKDxo9ZYtVJA0j2noWj +8Q52SGzNFQ2S6Ue71HpOxSuyw5Nszjt7+PqRKuHs7tG97HC3Ledf4Wwf0vbT +HXQ7yA7frk0/s6/oQ5dSdhq/M2WHjRzCTY4WfehF67/dpEB2cPtg/2EhoRex +73EbypxmBwXu3gwS4Q/qn40w4fnKAbD/RQN/UydKOqBy92cpB3jeJKX/DuhE +l/3rAzNrOMBKAhXYG3SiThn26lMdHNDbGr3eXvEDNZ2yV4+Z5oCNuluOvPvc +gYqyDBi7dnCChcvHsBdBbSjiFnH0eAQnRGVXO8UJNSO9AeuHIXc2QK/2paqS +Zgwd7w+Sp9G44Uuz35Gw1GrmaKmZe9V7HngqclP2qdEfpoJgm+TBy3wwYZvW +ez9rnMmNZq92T/NDHUVeWTd8hnlk/Pz8ltMCUFYuGP7aaokZJ+zZ4nZWACwq +3af3P1pizqi/y+y+IADPDJL2FYcuMRN8ly1fmAnABx29ze+KlphLcjEdXHYC +MNm9q3iEusxMN/uZP+krAJdqr4evfVlmCnRcdi3CBCDtrmXAEHGVabHufXZz +mQCYjahk1oqsMgtlP6g6VgqAeYNeb8L2VeYNB8K4Ur0AhLbpytIMV5klQokX +X3UJgF1Vct7V+FXmvWO9Wn5zAtDk7f5mcd8as6PEnHh+pyA8WBd+2nJ5nTl5 +oFP84W5BeGqesuWh3TqTs/iEaoKyINAca6+JPV5n7mWqWQ7uEwStXXXPJZPW +mWFfBL7ZHxaEsg0RQbZ968wTOYWRzy8JQoB3kpqvEgGreCWs+DVIEGqvPSla +eUvAfsn46v4OFYRIwQgj/WwCNpu8bkaOEIQEZ1v54HwCJpM0Gq4bKwifn/X4 +kqoImEcctvw9TRDy6qYkXfoJmFaETeVEiSCcSxXwL9xMxD49K7vEmBWEM9Oy +erqeRCxVr3aj94IgHEp4rDfrQ8SieZubx5cFoTtDqic8iIi5B/XofCEJwTWV +H3E5sUTMIHJJwURACD5Fn71lmUfEet8orj+XF4Ko6KUN0cNE7PuN//L/KQjB +9dofv3wniFiVvNbdc8pCwOzl/nh7hoi9z9Qfkt0vBCexOSURAglzzLNoKNYR +gjdNZX71oiSMvzImfv6qEHBfiRz6d4CEEX2Sz126LgQ5Ki229CMkbEbvLbXc +SgiILCsLZEDCftTneYfcFoKKTcefnDMhYSltzbd3PRSCHsWnfrM3SJja4Aa4 +FikExufyH5QHkLBdqZSl6pdCkDIWK7A1lIQxrEVzFOOFYKTqcdiDCBLGPiG9 +be2VEEy57NScjSdhjbNaAlEfhSBC7JyK0QcSZsHu8Lu+XghikFb383oSJk6v +bl9uEoLpmcnCziYSVr9PsmHbdyHQJtjUSH4nYXttyr96dAmBLKfXKfcuEsbR +IvJy77AQNKg43c8dImEFrBsh18aEoI5uLfJ6lITZchT5BE3g8dq7ZvmMk7C2 +/RaOozNCsC2/uHrnNAl7lZB7Oo5IhYLw5B9/VknY2QLuY7VsVLikgzA7Ahnj +bb10aIGTChIumvenSWTsHienihE/FSYDRNRaOcnYIdszAhybqeAS98OLJEjG +FrzfcarQqJBBWzi2m0rG0hPX1y5LUaHXP+PzCREyJvz9zXi+HBV6KOHXbm4i +Y/3qCzW3VKlQbzDswidFxiJPG5RE/0eF+wIKdW1byJjB7YT8SjUqhN488CJU +hozlJB1NlTpAhUUTL88hOTJmVRgTf/wQFR5sfxPzaDsZk2ibfOFyhAqK0vc2 +c8mTsSdcUU+/H6MC+4T+3oVdZGyf9LgryZAK+irPqkx3kzGWxoF7u42pcD60 +JT1HkYwZ242Y+ZynwpkrJme1VMjYBl/N87kXqRAoSxK1UyVjhcnBhn1XqLCj +/JVQ+B4yJtO+HzQtqWDLLp77+T8y1jHp/5+1NRX6wpNO5e0jY37cvQoRt6iw +cyhEMm0/GQOZvbJldlQYVDOlBKiRsRlNX8mpu3i+VxxlLNTJWOqZX8K0B1S4 +UnDjrJIGGTO9o8yr70yF6INfXv/FuSylcynFHV8/8t39sBYZcyxS+NfkSYVi +2d/knzjv7PAYWfOiAuFnXaAlImO/p9p+y/tSYeqkEWMA5zAe+Y6z/lRoerQ7 +6zSQsaNb3RqeBlFhnr5TKx/nFa2WiuxQKsxlbiylHCBjH87KFfW8wPe/U69+ +Dudr9i6feKOpUHJvd0o4znuVf33aHovrQXPZUYYz9z/I1UnA/RAvEx/E+WdW +cu61ZCrkimrfWf7/fnc48txfU4E6rbqDTZuMeSrdyItNw+utsv8AAWeTqdq8 +gnQqeA0l5vzFf789S+FzeyYVRIfLHjXjvGIX/HkmmwpJSRkxqTg3KM58Fsyl +gqZaFbc9zkmTJvkK+VToonuWK+B8/0N+vn4hFfJEz1X/wvPTtZMosGJSIWtf +nZAHzhKKbgVPS6jweskibiPOk3//FCSVU6FUsdAqCderNPPQF2YVrpeQpS0d +5xe333zprqXCY+BJD8T1vrGbu3Cxngpp5ca0aU0ypvHXplC0mQqetIViXZwF +MhsKVb5TYUQ9OzQU96/PVvnryQ4quHsfDWrE/c5VCP96q4sKw0PPcgg4+07M +f/X9hddPme6qNF4firZfi8r68XpXavp7EK8nsgKD+WeICsc0bocCXm9t4x7M +tVEqlDE1TijuJWOut45i+6aoYPTgLnkEr99qm5bi9FUqNLMF8jIVyFjMzr0l +1QRhcNmXTjfG+8GOFVkySBaGmcFplW68X0RtLpUyuIWBn2Pr6fJtZMzs5khZ +mKgwLDUN7V7G+3OPvEF51iZhCPOeJW5j4P0xllFeLyEM5fOnsSM0MpZpfa9i +g7QwfFbXW7gsjvt1Y73Sdbcw6HgFCE3j86Fhu1lVlLIw6EV4sOVRcL9Gyqpy +9wgDw0K28RYf7s8N3+pJdWHgWWod+7gB19tKpNb8qDC4b96xlLhGwnZbytcb +XBWGDce3fCEPk7BfN+i335sLg43flwNZ/STMz4YqwG8lDL1V5jtO/CFhI3eW +DRtshUFCqmyTaScJS3at/W7oKgwxjd5qBbUkTCzk5k+TCGFg536+8vQdCasI +u/woL1oYgv5Z1ex7Q8LuRZyib4wThk7r0J6uJBLWFKN+9UeKMDxU6On8F0XC +nr/hGbiQLQz1Ugmz17xJ2HrhO9aVb8IwuX982PAyCctgxvsXNwqDEtkje8N5 +EmZaEqqwpVUYRl8FfMo0JmH5lS52fZ24HlXmFvW6JOxus/7M9WE833sa1sdV +SNjQ0NiyNVkEnsaX9pwlk7AGoZ08DvtFYE6TdT0qgohp3bo18lJDBG6JvZFp +xc/XjMqMyhIkAnWOdYpEXyIW4Kr0REBHBHx2mO9RdsXP28G9q++MROBBmBn/ +5GUiVpN/4G/vTRGQbZUW7ZYhYuVXzrScjBMBO+zIMfcUAqb6JTLrQaII2FRO +3uGMIWApIp2BcSkiMNTGs/FxKAF7UmNqwHorAk3ddVP6HgRMW9Ws3DtPBESk +FWlwmYBhnLfyihpF4BTvtpAUUQL2JcPj5U6yKBAKfj/rm1tjchicFo/gEAVl +5xMXh3+vMQ1H5KKI3KKwrVjofH3NGnNI+tuLNgFRsHE+OqUZt8akRomFuNPw +9YG+sekH15g3PdOfte4Xhbc/mj0bn60yN59tc3C1E4WCAjXBhyvLTBfijpN1 +P0WhhEPTRNxvgTl4iKdD9o8oyOYdzTS4vcA8+Yx1+XG/KHx2mDtrbrTAlKFk +3t47Jgrsrh5dBzcuMOskVAMTFkRBpuXfifKkeSZtn1b9PaoYJK79+dmTPccs +sTUykNQVAx2Luckh5gyTu9v5qG2OGBjYeC/+FzzJHHgtFRbvuhGCKgeyed16 +mGHbNrHln94E46WZIvJOZSgo2qLyKkMckpcc9tpkj6DzYRfreYfEgU8/v9eO +ax4tHHq1GF+0GV4/izFS7iJA34C2Y4m3BLDJfpzWtGEH7fj6pB3PJUDA/9Ht +lkfskHD2/LeQAAn4yGqTuRjMjt9j72y5Fi4Btibu8wa57ND5IaGOnCwBj+fV +L8ass0OzyxrjcJEEqPo5a48FckCJYEF15YwETBwM9m55zQlStYdndi9IgMYS +h2VDHie4P2miRS5LQNSrHxZfqzhBa374rhVJEk4EHvW6PcoJBd1iNC4BSWAz +6HXdsWsDZL9xsNeTlwRnl3K58cwNkKSptPnbVUmQ/E+CtvctF5Qc5/ZcNpcE +h6ZS4pnPXNB7uW90u5Uk9OtVUK0ruEDaI7zAy1YSbv3YFWzRywUpFYvnwEUS +zjiZRuRt4oZXJ0oiP4ZJwqMUmY2ZT7kh9eop0ehKScjozvkYb8QDVfY7H1XV +SAKR7vl74hIPDHuyD859k4S68fJChZs8sO113qdTrZJg82vwtLsnD6SNbj7N +90cStr+TqrvxkQfe3u0PdV+ShPuzklP6Arzw/qmDoOUuGrT1JikTiniBpXHR +4yle6oarcSoSVbywc+bQdLIKDTSsqnZua+aFt2bC33/vp8GF7eW/KYO8kIo+ +Rp7XoUH4syMHJPn4IGVxkn78Mg3m+ynBcmf5oP9DR5CNGQ3YqpyjtK7ygbQV +Rnx+nQaR2z6SDlvzQVJbYF/lTRrkeM010135IP6jwpsDjjTwqvtqwxvPB9G3 +bBT2BNNgLVE5J/8PH3TKGMefCqNBIYdPaMkIH2zqVhewj6BByZvXhwum+CBS +j+dfRiwNSkW4CPeJ/BAu9/bTtrc0WA8+/luSwQ9Bf4Y0JEppcEazgGPbeX5o +jGx4r1ZBA7n377eKX+UHysk82rlqGrj93BO6ZMkPAUVehBcNNPAXvaDm5cAP +fi+3llG6afBJKPpnZSA/eJ++pk+epUHTyx3McYwfkk50m15foOHzOiVZq5If +CnVP21Yu02BWqUzW+Rs//NM8EvycRAcz8kTfhx/8YCor304VoAM3RUBNYoof +HjBShh2odPg8bkstnuOHEHHJpXZROjxMmtA+ucIPlfwUyRhJOjyO2fl4FycF +lOf/mcnI00GmYdm7dzMFjk3dvOelQIcHISfpPxgUsBrrfzqsRAdzbZ6q/K0U +iO1pS03fRwfGrOPO/bspsKGqYEJVB9+/eIPp7gMUkC5RIUTo0kGHMRPpcJgC +WoXpgosGdPz+YPn6lS4F7n6IU/16ig6xHXHUUkMK/Ir0cD58lQ4z6b2X/12h +wGLI8vM35nQYFt6p62VOAWH/e7FcVnS4JstfQbaigO5jC+ybLZ5f2qmLX2wp +YO7S07Tbng4Zc2o3Zu9Q4JHD2b5gBzq8ySkZ2+hAgZwbehwmrnQ4mGazT8KF +Ag3XSsU+u9Hh01TozPJDCoxe1Ngu7kmH7J7rPOXuFKAbKRj88qHDdE7FLqoX +BXzVhEIsIvD8edV94wIp8Er1eXJVNB08n7BdqQqmAKbA9mlHHB0GCmMudIVS +YHbLXPtECh3a7rC9K4yggIDk7ZGTqbjeA2b/fKMosENseCn7HR3uiWXoaL+k +wBWeTskH2XRIz+9ZvRlHAWf2U7t/fKKD8+1O41/xFAhfrwX1fDqIPBpN2J9I +gQ+Lh4xiC+lQMHGw+2ESBWqmv15bZ9JhKlqe+C6ZAgPjex2ultJBWnWeqziF +AoThTK/SCny9Pt8U8xUFxHu3RW6tocOFMwMf3rymwJ7uxDTvb3SoKuI85PgG +j1fBaiGzkQ4ahuME2VQKsNwUjnS00CFHjf0pE+eqpplwQjsdurPY6w6lUSBF ++kv/tk46nOnKavqEs7vDYxXDn3ToqP8RLPSWAqaVRzycftNhR8z5DRdw3reJ +vymxjw7/naQpBeIsfLOVXjNIB7alzRsycZ4sjLb9N0KHhMwzPgU41/Ff/So+ +TgfB0N4PWTinXpHjPThJh73tnc5hOD/JHj9/c5oOSWU3+8xwvsKWkxY6Rweb +om+DEjhrmDgvfFmkw7yOzuMSPL6NqXCkfwX3n21b5imcl1zJ+hwEBvRUNNs0 +4vkNv7KwjyYyYKvvx9x9OLfVV0cpkBlw6uEhHz9cn7L5ncUlbAyYZOf7U4vr +l80IGjbhYEB7WWLBHK5vgu40ZYyTAcXRKUJ8OAfYm/znxsWAxvSyAX7cD+sy +Ca83vAzI9r0w2Yr7eXbc7b06PwP+0e5KRSVQQEe0r7WBwgCizwh2FPd/i1Wa +9IIQAzRUK7WsY3B/gnn1/YQZECioJtYdTYG1/Nv2DFEG+LJLG+3H6+sHz97i +o5sYYDhG7P8UToEK1ajhbnEG+H233fMdr8+ciyuUOxL4+gb0qwev36DMkktR +dAbwSwTJ5/nj/dOx1WuXFANuH/lX4/mcAjZEn/fFWxhgrvEoT92HAkdPnVgZ +2cqAMklb21tPKLDXNVv6kRwDzh+UUh16TAGZVyL6QtsZEJAeo2nghtfffFeU +2k483xMMaocTBT5HW/33XBmPL7XEf+4WBV6X1l6iqzKAGYLtrbGmQBhLwevj +HgYUVhpSfSwpYKc129q1jwEeuWJXqvD5sK33sf1OhMdHjdh0zIgCkdtfvv+m +j/vB3VB2S4kCM9M6rzyP4fkMf6aF7qTAiaJ/MftP4P7tmpuKl6MAxyk9v1dG +DAiTbV+/LUkBB9dF64fnGBDkdDF2BJ+HRg1ntu2yZMCF1E2g3cEPGVFkRp8V +A9xeN3z71cQPXOaZYlHWDJhWOVprVssP2AIHJ7stA4ynS0Skivhh95bcge57 +DKhU/DtxP4kfeB2Ek/08GBCzmLblmQU/WCEsWvsJA+79Tu5+eYkfSrlsQhae +MmDOGAQiTPjBOa70sbkPA7rlvUYO6vDDSKX9FY0gBgzUvfB7IMMPFeJNkqxY +BijuHhQ72s0Hbph/pH4+A6RzH1rG7eeD0Z9Y2GIBA8ycD2V3KPCByfJ00JtC +BhxQ0nu1LM0HO/ee9yFjDFBP0wlZxs/bjneyzl8qGEA57Pi37zcvKEcwL8i3 +MiA2pkHhvAcvDN6aovH8ZQDPh9CjK/j5b/hcZnP+JAMu/T7Tceo1DxSmnhGz +/McAzQLhV2GRPBDa95VSOovvn9/D2+zKA3DOl+CywoD4PcFfNQ7xQPQh6d5R +LikwvqlCa6/nhmObT7+qkZGCGg03+xMtXBDZr4BdkJUCn6g/I3OlXND/fkMX +S04KQvc9OPU8hwtcoVCAIi8F6TuixVzCuSD9urTrKSUp6I44Rn9gwgXcH6aM +ujWlQOlr7J6h1g1QeSiAMGEiBWE5pKDOUk44YFt5QdBHCiwGDF4232SHpY4R +nTJfKfj+zvXcYRN2yDnIq/zATwqUL6hJpgA7yG4y3PAzUAqfu/NDW0XYgbes +Myf1hRRsUX06qf6VDTo2TeCXFimYSev+7ysXG9iVC2O2TCkwCrZzvxtGgngJ +M5m6WSlYbg1/8WVoDcmUvnlx/MIWaHy1fTB3ZAoF7SrZ0Vy0BYo5eR9yqDUg +i2m2puod0vB5GcO2omGmWdY/hk+gNKztmk4f0Fhm2nicWtELlgbHEa9n5W7L +TIdTOe28odLAhRbzX5YsM5/NOgQEvZAGuaUS2HF0hZmxf3E5IhZfb/r+W7XR +KnOxeL3t9TtpsN6udLX3+jozqJnXv6xSGmiys3lLGBGLTr5l5VUtDR8N2gyj +/xCx5Hv1B4/WSsPin+MJSiQSlisatFRbLw2VLf4snYMkrPs81arluzTEYk6a +XOUkTK5v08HePmnwi7uQ3FqB/1/PcaalDEjDp+HuqN5BMqb2tGvx+pA0dBnp ++Q1ysGEGcrEfRkalgfP+rvkGHTbM/iaDNjUlDUfcyga2VrBhrhqPF7OnpUE6 +X7Pw9wAb9pSvt/XerDTUiQV9DGJnxyIzk58vLEiDt8nTiIZD7FiSO5tlwZI0 +2AyEH7tkzo69M7yu7boiDcZbL+T98WTHcrZUSGqtScO0S0T+uWR2rGhadnF9 +XRqUNwrtryhhx/4HvEKrIA== + "]]}, + Annotation[#, "Charting`Private`Tag$29779#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVl3k8lN8Xx8eenXnsy8yIqEi2+pbtnlLK0kLSpk1CQtImlKKIyFqW7FSU +bMmW8tjX7CEU2alkX2YGv+f3z9zXe2bunXM+55zPfUbO+pr5ZVYSiXSJePn/ +GnffmlPd5ql+0q67TqauSnqV7TTTE7Qr6Nn9e4Jviof016u/+NBod9EOg1Nz +xsVsSCAsP5un2xttsfBKs1cXQ3F4EJWD5o/OODyM4yqWRyr/bJ6t2wWjX93Z +8w/bVNEPgfg1ZlcY2uzQ841HfSdSeM29k854jvx0t3Cc0tJHjnq3nJao0ah+ +U3B7SJEB+tAxkDpvEItG79W9zVg8iOhXTftm7BLQwdiPYXdbD6NElj7/pf1J +6NmptC3LqeZo39fQTYtdyWh+SuQuu5olGo86UDZ/JRVJlGmd+sF9GgXarFrN +MV6hvzmOPPc1zqF2hn3ENDUdcZjMrZIKL6HbNRS1fzlvUZFX5G/HvbZIKryj +4a9BBkq8326lPm+PrLcC22+7LHTvIv+R/K/OiJXh3jzvmY3UsdjGAroL6hg4 +Lju/Pwclhb733J3sitwyeItmu3JRfZFGibzKbWQcNso5m/gBVXEcmPITcEMy +bmUWM1fyUMKnWJcn7O4IN7gz/Y/xERWvDCdaKN9HXL2DSn+pRShJ/xppPMcH +deOfb/0ZL0JSkhVdtjOP0NvXURW/c4rRBbm3XWnavuiw6+HzkwYliKX5z+9r +k0/QC+7iF2N2pUig4sBaz5dnKO+OsesNCRzdOHSObaNiCIqd/E9yzhNHScNM +yZyZEOTcQrab3V+GJho3856JDEPk2FrWma5y9OOEJ2eZzAvEEMhPd9GtQKdX +Vc228USi4YcpR6cTK1D104F3V5mRKN/ufvy/K5VoYZPZz1P/otFpTS3tKUYV +8tV8yd4jEI+S6hOu/6bWoXsfT0snR6eg+aiPW/sD61CUfD3jt0EqMrRrGGpb +qUOJ3jGn16ZT0R+2pePF7fXolWBxotux12iX3mFtf79GFJhQVft6dzpqyWKy +Kv1rRsHVHLzL/lmIjLjP8au2IIN43/ub1LKRjmKEtp9NC7Jpibd9G5uNns2n +z7m3tqDp+7HclXdzkFbot8vW71rRBw/eNoV9H5BXvYqx+vl2tCj+IZlLsgCl +5RQovnvejo6xnX4RHV2A2qL2sm1qbEfep3Zu8ZQuRAp2J0skdnegxpcfNNXk +i1A92yNVEvYNmb/MTtTf+wmJ6fWSm6s70dTdbW/2fSlFmVn+vY6qPajI70gs +V0clmiRPBhpf7EH+ruk7ZzZWIaXbxvqbI3pQ149zSRddq1CiLm/S0EoPOuJV +fuQbuRqF1QXanq7qRTHedTjzVA26PRQ8c8DqB3Ksr9H4R6pHCbwNPsL7B1Ae +rSz0ZGYzskOt0X9ch1Bo7f2L1js7ESl5sbj3KcEX5rZ0Xe1EUewyffWpQ8hs +Z83avaROVFtnS0nvHEJHD1SUXuDvQpstmMmXtYeRWXfg9htjXWjcXinjJ8sI +YpbyOAanfkcOYfe+tISMIpPatZk8+IGcR7YM5WVOoDWXSVV1t0HEI/dIqX/X +NPp8p/dvRsBv9EyoYWvShTmkXNDCpyQ/i4r+k/142HkOWXe3ZVTvmEXD564h +psccavwvSvHiwVmk8x6zOBE5h9SneRV9nWbRuJHVPf6mOaSm7lcfWDCLDHz+ +Nt/VmUcd7OEWLsZzaHlB8Ja52AJq6jry5r3DPLLutShla1xElgHrJ/4FLSKe +l7+crn9fRKbOo6/pcYso97SzTP/oIpp8Ia278n4RsfX43S1mWUIXMj3Kmr8u +otTuYs3r/y0hrn2jMz/5ltDoN1raz+QlVCds1HL1yRJyaPkTUnR3GR1lue3g +cnMZkUPuIiW/ZfRfngvzrfcyKj7CORURsYz2Pc9R+BayjHibqSYuWcsoWMG/ +ciljGWV8NedQGllGpR0x0jeGl9FUfeHdiKMrqLWkS3YLsV6vemR9TYmO6jrH +8hol6YgybMi5qElHT/Xd2xYU6KiBlfutJ9DRxh0uMfxqdLQJgmb8T9FRSptU +6wZDOvpe/PxB6lM6mh4gXVe+Tkd7sl/Hf/9HR01Y9TmBSjqaarLfe4FJRwXG +Nj/Fm+jo5d+to6MbGKidlZYh0E1HC1uzts3LMZC/amhfxW86Sn9VUCJgwUC5 +O2L1jckMJPyytsegkIFMP3LF5Z1hoC9FAffrKxmo0qNWwt+Gga52m240a2Wg +J3W7wo2cGKhKtPXKuUkG+o6paTy7z0B3Q74vu8kw0Xh89w/5RAb69XhSLPMB +E50NUj9wrZ+BnqVmFGsFMVGZtYw6fZSBdCqcz32KZiJOW5/ua1MM9Jw096o2 +l4nu7AsUll5lICMPhtbQMBN1bLfjuybJRDkufMckjFaRBHv+SeYhJmqMwe6+ +t1xFo+EJbpkWTDRaKZWw12YVTfJ92254hkn46pbfjl6raO5vKoeiPRM9Ktvv +U/aR+LzV/0sqEVf8b9N0y4pVpHX9F9dDXyYqFLVo/t2yirr2Tm/bG8hEf69Y +S4v9WUWGjJw810gmsiR7fXDYuIbCRKLVAzKYyEXX9/v69jVkdrRjOCCHiQJs +g9Yj9NYQiO/Hr+UzUWnxS5PSk2toj8DFyJFSJtp8qXAIC15DSdkHL3q1MtHe +oFLu9Ng1JOtrOB3/jYmsCqq3679dQxvLDVeSvjNRKO83D/uqNXSmlaZg/ouJ +6B9msM+MNVSkgD87+Y+JRH4u7zbnXkdhXQnxobNMpLqBdGFMbB1tu9T14P0C +E12yEsgQ1lhHW1NuOQQxmOi+r2jba7SOOMS0jMzWmCgqW2ZZ59A6khOjpy2R +VlEju/I+W/t1ZOdx9+VvDkJXVQ0Hxq111L3XlnP3hlVEOrU7JMRnHY2HlSXb +86wiKR/I3xS6jh6+nLRy51tFO94f6CuOX0ft/lZyzgKr6GjXYdajGevIPiWz +z0BoFTmwWG4eKVpHIhcjPBjCqyj+uM1NwW/rKPHQbXEh0VVU6HU1JnVwHc2e +t5tyFFtF7emu+O7pdXSP3Gn1TnwVTbXfHW1aXUch19iPNkisInYv4MzlIIGb +hdnHRslVJCyyL9qTjwQ1T3e5Z0mtIkr6AZUDGPH5mHngDelVpKxvUiosRQLe +M5bfJWRW0a72w+Z9NBI4i4odSSB4v735yGslEvyK8e7llF1F5qvH3a6rkqDw +Z7rjEYLPh53i1d1BAtLZgmk3gh2VzsZz6pKAT2v+uA/Bd0suqLfuJcFfvZoA +Z4J9zWwqXxqRoGLLx3vaBEeM2p2wPUoCRsQF2THi95I8rk6qnSDiUwg4eZNg +NZx72e8sCSRYgpv/EPHi7Gkc/ZdIcKCs8asRwUeNDLGdDiQIPey9/ymR30DQ +MC3IhQQv3nJsySHyd2nzVh2+TQI/UqXDJ0KfdTE5XZ17JPDK37OaTuj37Eyp +UZgPCbruS7V7EvpSEs+emPAnwdUrLP2ahP6ZwwwbCCHyncexZmwV6W2JcY18 +QQIOqo7NYTLRH067HkzFkuD8nSsVOUQ9rXI7g/ankCBE9azCClHvP4s3X8am +k4BtM3JX4F9FHjpY+lwWCYJ5jhZq8q6imMojlUklJGg+41a8yrmKtnJPtS6X +kyDK68nlQvZVVHQosP9IHQk+ixdVW7Kuou7OWvrqN0Kv0Fvu+qtMZC9tt+F4 +HwkSe4vz/OhMtHSeQyxjkAQ6/uE385aYSGxij/rpfyQw3H7veOEME73eNqCf +s0CCKiOe88FTTLTD9b7pBiYJ9FTkS41+M5EFo9gufwMLLMauWdgTPhPGrxVP +3sgCafbTMSbEPG40b3t3ZTMLjBlWSusS85rzwqUIV2WBspm8aMGvTNRCfd/h +rMMC6psErc9XMpGAhiJvgwULWAlKryUSfhB/u1Ji4xkWYIUYSCP8Ytsna8W7 +F1ng9h/ebWFvmMh0X8IeJWcW+OQq0scfR/iHpYSbjx8L/Kq/7Z1C+JHUy/zH +PUEsYMIXwVZK+FV6v0W4egQL/O7t/VXizkS19qGZ/Yks4BTnGnremfBRD54R +nWIW0ONWrECEH3onMM3m/7DAmdNS9EtSTHRUrfC68hwLtPMPxdWSmYhSdiPU +eoUFZswa9gvxMlHx4GRLCwcr9Cp/e3yQwUCzm74feU9hBR7RXVxWPQxknfHx +kO1RVrhb7WfDHc5AanrXneIsWSHzT6j6S38GWvuqEtRhxQrVbz3iBB8wUMy/ +lMa9V1hBc7ewbqIjA7VphJlQvVlB40wL6cI+BtpT5GzU/YEVnklJXTw+RUcC +xluvCBazgrWlQZnAEB319Yw8McRZ4VX83Ztvu+jIjWlVm9fICrnxSZVPcDrK +RiYHQkdYwb89+dVACB3RqpX2G4uzwYf5B8/oynREah+AEnc2CMQv+VaZrKBH +E1+S3B+ywVhzRaOHzgriJsWx7n7CBqFpb74KKK8g8rZTlR+fs4FPiRmznnsF +bfJrPZCVzQateuWssVXLyFin/HDyKBsklvzrTdy5jMJTUqyemLPDjvmuEv21 +RSRR/PCz4Sl2OMh6rjVoYhHFtpyncFxgh6pmrL2oYxG9XpUeeOjEDsO5JzPT +3i6iwhMRlzyesEPP+Sz9QYtF1Mf72MH5Czu0fMgRr0teQIo3bd0stnJAUke+ +WIjCPNqm3X8sQY0DHuVyXd/BP4+0SCe3T+7kgBudebMlC3Nob6DRqJcBB3y9 +NPfEtXoOnUtVsXhnxQESnCKtbrZz6EXH7HbWYA7wynbNXk6cRRw7vMay5jhA +lWcwk5U0g4YXIi15P3MC7H7RLNA6iZL3aN74UcEJPldZMwaeTaLzQU3BWfWc +YC+Dil1NJ1GPAkfdsW5OGOyIWe+qnkCtx1x1Yuc4QcJo44F3hePoS44pbdtW +LrD1+BDxgniujHRimTwcyQXRuXV348mDyHjE4V7Y9Q0wuPdcbXlbCzo8HKJM +ofDAp7bAAxFp30snK6wf1L7nhceiVxUfm8+Uqgp3yhqc54cp5/TB2zmrpTxo +4WLfnAA0CiprGD1nxw/8Pb208bgQVFYJP39tz4PHi/i0e50UAtuaB3O77/Pg +8zrvsvrOCMET0+RdZeE8eGIAw+6FtRBkGxpLv/vCg9OVYru5XYRgum9b2QTG +i2dY/yiaDhCCcw2Xn6994sWFus97fsGFIP2G3bMxFn7cdt3vpHSlEFhPaGY1 +iPLjJYrZWm41QmDTbDyYuIUfv3KL9Fe9SQjCO40UKWb8eDk56eyrXiFwqU0p +uJjAj988NKgfuCgErX4P3qzsEsC7y21YTqsIw511kcft5wXx6T09Uve2C8Nj +m9SN91wEca6yI1qJGsJAcWu4JP5QEN9Zqm03uksY9Lc1PpVNFsQjPgl9dd0v +DJUbIkOchwTxI3klUU/PCcMzv2TtAHUhvPqViNrnEGFouPToC/OtEP5TIcBo +IFwYooQjzU1yhfCFlHVrtkhhSHR3Vg4tEsIVkiefG8UJQ+GT/gDWWiHcOx5n +fEsXhoLGGVmPYSFcP9KxZqpcGE6lCQWVSAvjH59UnqMtCMOJOUVjIx9hPM24 +QcJvWRj2JT40XvAXxmP42tr+MoShL1Ou/3mIMP4gpN/wEysZLml+j8+LE8ZN +o+iqlkJk+Bhz0smuQBgffKO2/lSZDNEx9A0x48L4tyv/Fc2qkuFyw/efAVPC +eK2y/o1TGmQoHeT5cG1eGH+fZTKmuJsMR/FFdVESGXcrsG0uMyTDm9bKwCYx +Mi5QE5uwdJEMPBeixmb3kHEW/5RT5y6TIU+z3Zl6gIzPG7/FquzJwPLH3haZ +kvHvTQV+YdfIUC15+NEpSzKe2tl2bds9MvSrPQ5cuELGtUc3wKUoMlicKrpT +9YyMb0sTpNe9JEPq7zihTeFknOYglqeWQIaJ2ocRdyLJOMeU/Oa1V2SY8VDR +W0gg4y0L+kLRH8gQKX5K0zybjNty3BpoaiJDLNLve9pExqWodV2MVjLMzU+X +9LSS8aZdss2bv5FhL8mxXvYbGd/pWPXZu5cMily+xx70knHOdtGXO8fJ0Kx5 +93b+GBkv/nMl7NJvMjRSHURfT5JxZ84v/iFTRLyunjn+f8l4525bt8l5Mmwu +KqtTmSPjrxLzj8ezYFD8POX7r1UyfrKY51ADOwbnDBHuQsJwvo5z+5a5MJDx +0Ls9x4rhN7m4NM0FMJh+JqrdwYXh+5xPCHFKY+AR/92XVRjDl/3ecWlSMMik +LB/ajmF4RtL62nk5DAaDMguPiGK4yLc3f4uUMOgXfH7pqiSGD+ss1ztpYdBk +Ou7BL4fhUcdNy2P+w+C2kGpj50YMN72WWFSjjUH41T0vwhUwPC/5YJrcHgxW +LH19xpQw3L4kNuHwPgzubHkTe38Lhst0Tr/wOICBmvxNaW5lDH/EHf342yEM +OKZMdi5vw/Bd8n89Wc0wMNF8Umu1HcP/6O65ud0Cg9Ph7Rl5ahhu4TJh7X8a +gxMXLE/qa2L4hgC90/lnMQhWZBVz0cLwkpRQs6ELGGytekV+vgPDFbp2g54d +Bs4cUvmF/2F493TQfw4OGAw9Tz5WsAvDA3kGVSOdMFAZC5NN343hoLBTsdIF +g1FtK8Fn2hg+rxcgO3ODyPeCm4KtDoannfgpQrmDwYXiKyfVdTHc6roGn4k7 +BjEGn17/I7gytYee+oDYP/HtwX59DHf7ojrb6oNBmeIA2w+CVbq9J9Z8MSD9 +aAy2Qxg+MNM5oByAwcxRc9oIwRG8yt0ngzBovb895zhg+MFNXs2PQzBYoqro +FxHM1G+vzg3HYDFLokJwD4Znn1T60v+COP96k84pgi+5enzki8Gg/Ob21OcE +79T4+XFLHKEHxWNrJcE8s5BvmEjUQ6pSapTgHzkp+ZdSMMgX23ud8f/zrnMW +PHiNATantZV9L4b7qF8piEsn+q1meA+JYMuZhoLiDAx8x5Ly/hHf35KjWtiV +hYHYeOX9NoKZLqGF87kYJCdnxqYR3Kw2Xyicj4Gedi2PK8HJ05ZFqkUY9FJ9 +qlQJvp1dVGRSgkGB2Km6n0R+Ri4yxfalGOTsaiR7Eyyj5lX8uByD13TbeAmC +p//9Kk6uwqBCrcQ+mdCrImvfp9JaQi+ynTOV4BfX3nzqa8DgIfBmBBN6X9nO +U7LShEF6lQVlTg/Ddf85loi1YeBDWS4zIlgoq7lE8xsGEzq54eFE/YacNT4f +7cbggd/BkBai3vmqzz879WIwPvYkj0RwwNTS54CfRP9UGq3KE/2h5vz5S+Uw +0e/qrf8MiH5iU6WV/hrD4JDutXAg+q3zr3fp2iQGlaW6R9R2Yrin00F81wwG +5ndusE0Q/Vvn2F6WsYpBG3swX6kqhseq7CyvI4mAx64MqgUxDy5/ospH2URg +fnROs4+YFzHHcxU0HhEQ4Nx0vGozhltfnaiMEBMBeuvYdgYxnzuUTatyJEUg +wm+BZTONmI/fmVVNMiJQtXQcP0DB8CyHm9Ub5EWgUMd4+bwUUa8r6zWe20XA +0PcZeY7wh+Yt1rXRGiJgHOnNXiBI1GuisjZ/hwjQbBVbnPiJ+lwJqJvWEQFe +esfvDxsIve1FG2wOisAD6a30pDUyvt1Oucn0oghsOLzxE9s4Gf95hXrtvY0I +OAZ+2pMzTMYDHTEhAXsRGKy12XrkFxmfuM4wa3YWARm5SkmrHjKe4tnwzcxT +BGJb/LSLG8i4eNjVH5aRIsDB85T5+B0Zr444f78gRgRCZu3rd70h4zcjj1El +4kWgxyG8vzeZjLfG6lz8nioC91T7e2ajyfjTN7wjZ3JFoEkuceGSHxlfL3n3 +58JXEZje/Xfc7DwZzyxNCCprEQF1Nu/cDafJuFV5uOrGDhGYfPXsY5YFGS+q +8XAZ6iH0qLWxbTIi4zfaTOYvjxP53tR1OKxJxsfGfjMc2EThcUJF/0k2Mt5M +VuG9tVsUFvX+XI6OFMb1nZwmXuqKgpP4G4UO4n7NrMmsKUei0OjWqMYSIIw/ +81R/JGQoCv5bbXZoeBL37ejO1XfmonAnwlpg+rwwXl+059/gVVFQ7JAX61MQ +xqsunGg/Gi8KLviBQw9ShXCtT1E5d5JEwbFm+jpXrBCeKtoTHJ8qCmOdvBIP +w4XwR/VWpn/eikJrX+OMibcQvlfLusqvQBRE5dUocF4Ix7mcCr60iMIxvs1h +qWJC+KdM75cqbGJAKh54MrQogHOaHpeK5BQDDfcjZ8cHBHCzCaVoFh4x2FxG +Pt1UL4CPyX990SkkBo7uB2f04gVwLFo87AGF2B8cEJdhIIBf9cl40rFbDN5+ +b/NpecKPS5/svOXpIgbFxdrC95i8uAfL1qONP8SgnFPPUipwAz66j7db8ZcY +KBYczDK9tgE/+uTP+YfDYlB4a/GkjfkGXEEw69rO32LA4endayCxAW+U0QpO +XBYDhfbZI1XJXDhll37TTUwcktZ+/ejP5cTLnc1NZY3EwdB2cXqslB3n6XM/ +6JwnDqaOfiv/hZLwkddyEQmeEhBSM5LL5/WvNGKzJHvRcUn4W5Elqny3A4XE +2NZcpElBCv3WTsfcFXQ64mwT35gU8JsUDbpwc8HyvlcrCV+k4fWTWHMN4jly +aGSvW7mfDLArfpjTcxSFvQlNyVufyoBQ0P1r7fdFIfHk6a9hz2Tgw59OhbOh +osRz7PWNl57LgLPlgyXTfFHoyU5sZEuRgYdLOmdj10WhzWONtv+LDGgFuu/9 +HUzoJFxcVzMvA1MGoX7tr8VBrmH//PZlGdClc9o1F4jDg0etlCiGDES/+m77 +uVYc9JfGb9izysKR4IO+1ybFobhPnMItJAvspoOeW7dJQO6bW67GyrLg7lGl +9DdLApL11KW/XpQF2f9kKDvfSkL5YR4fho0s3GqtYDlRKAmD54cmt9jLwrBx +NeZQLQny3s+LfZ1lwen7tlDbQUlIrV45BR6ycOKuVWSBpBS8OlIe9SFCFu6n +KkhkPZaCtIvHxGJqZCGzL+9Dgrk01Lqq3K+tlwUWqs/A1DlpGPfhGF38KguN +f6tKVK9Kw+bXBR+PdciC48/R4w98pCF9Uvo4/y9Z2PJOrvHKB2l4e2M4/AFd +Fm4vyM6YCMnA+8e3hO22UaBzMFmDROj2R/es92Oi1c1W4zVlamVAZX7fXIom +BXTta1U2t8nAW2uRbwO7KXBmS9WA4KgMpKEPUacNKfD8yYE9svyykLoyTT18 +ngJLw4KhSieJvLO7QxytKcBe6x6tT+gkb4+zPL1MgajNH1j3O8hCcmfwUM1V +CuT5LrZRPWUh4YPqmz1uFPBt/OzIlyALMU6OqjtCKbCWpJFXROTRo2CRcCyC +AiWc/uHlE7Ig2acj5BpJgfI3r/cXz8hClDHvbGYcBSpEuUm3WYi4lN5+3PyW +AuuhhwdkaRQI+TWmK1NBgRN6xZybT1OgJar5vXY1BZTev98kdZECgkcLKKfq +KOD1Y0c43Y4Cz774kl40UyBI7Iy27y0KBL7cVCnYR4GP5JgfNcEU8Dt+yYRt +gQKtL7eW/sUpkHykz+ryMoXw69QU/RoiTqPjzjUMCiyoVyq6f6XArN6B0Kes +VLBmmxrK/k4BK0XlLkyICjyCQtoyMxS4Q0sdv4VRofCvM1a2SIEwKVl6lxgV +7iVP7T3KpECNgKBsrCwVHsaqPNzGRQWNpVlrBWUqKDQz/AalqXBo5upNX1Uq +3Ak7Sv1Oo4L97+HH4+pUsNnLW1u0iQpx/Z1pGbuoQFtwU9m9nQobaountAyJ +88s2WG3fQwX5ck1SpBEVDGnzUbf2U0G/JEN4xZRKPD/YvX5FvH8jO17r8zHi +nO54rMKMCj+jvN33X6TCfMbg+dkLVFgJYzx9Y0OFcREVI19iFQm6GcdtT4VL +igLVbMRq9NAW/+pM5Jd+7OwnYrXx6G/d7kqFzEXtKwvXqXD/1smh0FtUeJNX +/luCWPOuGHNaelLBIN1xl4wHFZovVYgXelHh40z4POMeFSbP6m6R8qFCbv9l +3qoHVKCaq5r+9KfCXF71NsyXCgHa5DDbSOJ3+HQC4oOp8ErraUptDBV8HrFf +qA2lAq7K/nFrPBVGSmLP9IZTYWHjYtdUKhU6r7O/KyH2CclemziaRug9Yj0b +EE2FreLj9Nx3VLgpnmm49yUVLvD2yN7JpUJGUf/qVeIcd45j279/JNZrPRY/ +E6jwfL0BdIqoIHp/MnF3EhWyV/aZx5VQoXjKoO9eMhXq5z5fWi+lwkyMMsu7 +FCKOvztvXawg6qC1xF1GxEEaz/KtqCb2m/DPlL6igtTg5qhN9VQ4c2Ik+81r +KuzoS0r3+0qF2i9c+9zeEPGq2i9ntVBB1+wvSZGI+4+X6oHudkJHbY7HpQTX +ts4/J3VRoS+Ho3FfOhVS5T8Nb+6hwonenNaPBD+49VDT7AcVupu+h5LfUsGq +5oD33QEi79jTG84QvEtSoDVpiAr/HaWoBxMscrWDWj9KBXa69IYsgqdLYpxn +J6iQmHXCv5jgRoGLn6X+UkE4fDA7h+C0C0p8BtNU2NnV4x5B8KPcv6evzlEh +ufLqkDXBF9jz0sMXqeD45euoDMG6lu7Ln1aosGRo+LCciE8iDQ4MM4n6s2/O +OkYw3ZPNhJNEg/7qNscWIr/xV7auMSw02BTwIX8XwZ1NddGqbDQ4dm+ffyCh +T+WSSlk5Ow2mOfh/NRD65dJCxi05adBVmVS8SOibaDQn+JuLBmUxqWR+gp+5 +Wv7nxU2DlozKEQGiHg6VMr5v+GiQG3BmuoOo58m/Xu91BGgwS7khF51IzI3Y +UEezIA1Y/Cfwg0T9N9qnyy+TaaCrVaPvEEvUJ5TPJFCEBsHC2uJ9RB+uFV1z +pYnRIIBD3nw30V/feXeWHZSkgdlvluGPz6lQrRU93idFg8Bvzju+Ef2Zd5Yp +eF2G2N+MfvYT/RuSVX4umkoDAZkQ5YIgYn66N/luk6PBtQOz9T5PCR1Z/N+X +baSBje79Ah1iLg4eO8Kc2ESDSllnZ6dHRB08c+XvK9HgtIGc1thDwkdeiZqQ +t9DgWUasnikxZ6Sl3mhtFSLfIzSs+y4xtzH2/z3VIOJLKw9adKLC64qGc1Qt +GpSG4TvrHagQ8UfV98MOGpTUmGH+dlRw0V/o6N1FA+988Qu1hD9sHnzoqoKI ++LBIyUPmVIja8vL9VxOiHjzNlU6ET83PGb7yOUTkM15ICVehwpEvs7G7jxD1 +27Y4k6BEBc5jxoGvzGkQodi1fo3wwVueKw73TtEg5O7ZuAnCD82bT2zeZkeD +M2mSsLebApnRbLQhexp4vW7++rOVAtw2WeLRDjSY0zzYYN1AAXyZk4vDmQYW +c+Wicl8osH1j/kjfTRrUqP2bup1MAb5bIimB3jSIXUnf+MSWAvYIj9n7iAY3 +B1L6Xp4j7hlux7DlxzRYtAChSEsKuMdXPLTxp0Gfsu+EAXEvTtS4XtANocFI +44vAOwoUqJZqlf0TRwO17aPiB/tkwQsPijIpooF8/j27+N2yMPkDj1gppoG1 ++77cblVZsGTMhbwpocEedeNXDHlZUNl52p8Np4FOumEYg7hvu98pun+qpoHg +frd/QwMyoBFZeka5gwZxsc2qp71lYNRphsL7jwa82eEHmcT9b/ZUQbpomgbn +Bk50H3stDSVpJ8TtZmmgVyzyKiJKGsKHPgtWLBDnF/XztXlKA5wKIHkwaZCw +I/Sz7j5piNknPzjJLQcWVzUpXU1ScEj6+Kt6BTmo1/VyPdIuCVHDqvgZRTnw +j/41sVghCcPvN/T+UZKD8F13jj3NkwRPKBESVJaDjK0x4h7PJSHjsrznMXU5 +6Is8RL1jKQk82TPmfXpyoP45bsdYhwTU7HtGmrKUg4g81pCeCnHY41xzRthf +DmxHTF+2Ec/59O4Jw8oAOfj2zvPUfktRyDPg07gTKAcaZ7RlU4H4HyBptuFH +sBzhu0tjm0RFga+yJy/thRxs1Ho8rfNZBLolp/ghVQ7m0/v++8wtAi5VIrhz +qRyYh7o8uBFBhgQZa4XGBTlgdDx/8WlMABQq3rw4fGYjtLzaMpo/wQIh28q3 +tn3ZCGVcfPc4tfuR7Rx7a91WeShk4PgmtFxqnTNL8w+Wh7Vtcxkjury4o/cx +pnGoPLhN+D6p8uLFbx3L6+ILlwdutFL0spwXf7Jw61nIC3lQopfD1oN8eObu +FUZkHLHf6v3XOnN+fKVsvfP1O3lw2KJ+cfCyIB7SxhdUWSMPFMWFAjoujMek +ONn71snDB9NOs5hfwnjKzSaDgw3ysPLrcKI6KxnPFwuhNzTJQ0170B9DAzLe +dxqzb/8mD3H4XT3uKjKuNCRpMDgkD4HxZ1I6qon/63nulNQRefg43hc9OIrh +2o97Vy6PyUOvuXHgKKcIbqoUlz0xKQ9ct7ctNRuK4K5XaZSZGXk44FU5sqla +BPfUfbiSOycP8kV6JQMjIvhj/sGOmwvy0Cge8iGEQxSPykp5urwsD36WjyOb +94niyQ/Y7Yrp8uA48vzQORtR/J3Z5b2eTHmw2HSm4JePKJ63sVpWf00e5jwi +i06liOJf5hRX1tflQUOCvLu6XBT/H4Ncpns= + "]]}, + Annotation[#, "Charting`Private`Tag$29779#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVlnk4lO8XxscyEhVmxj5mxjoqVEgRnlNflaVUiJRSki0k0UYlKpVIyJ49 +IVuyJ96QNbtkp6zZQ7L7vb9/Zq7Pdb3LOfd9nvu84hbXDK6wEgiEy/jP///f +3Lfg2GPpo3lnTMSg4PUejfIWxjEThi36rqEeshwyqblRUezFYNxBjYNEB6eQ +rWhbQG4mV7snoj8wv7/tLQO9wXzpRMYz9JR+yJ47RB7JTVv6bVi/RMlxj279 +FNuHerZFra/+CEBRDZcZVQmApBI3qyyvvEZXJnvLDr07guw1XB3+0cNQRr6x +hmnwcfSxtT9h/r9IZE8T9GApMEDLV491/7GORip7ORVExUxQDEv3s3+HY9Hp +J+6aLv/OIa26V9ILP+LQvo8NZ9kSLqLR0KNf5m0TULP/CKuV92X0wnLNbG7l +LXJ+3OTd+9YKtazYBM3Qk9HTmQl3liAHdLOStnv6Qwqqjf6Q2fTBCYkEttZO +/peKFqOiiNJ5zshiB7CNW2cg2mbdT9oitxDryt2GefdMVEMdyyLfvoNa+0+L +zR/+gJzPsh8wnnNDt1O5C2Z/ZKEz3DJ1IrEeSDdgmGM25iMy0sqZHeLyRNTb +X4z+2GajvBeuRlZeXgj779bM9EoOOvbp/e0HMU/Qpq5fzEl6AZrtSSR0P/dF +7dhn14nRAvTubcJ/InYvUUpiaNn4h0LEGVYSu/7eH+k765uP/VeEDkb8mWnJ +CEDBmwuDR6xLkG5zjqYUTwjKvqXrfEMIQ3IuW4lKqqEocmyf8Jw7hmaNVxKf +2YUhx0aS9ezhL+iC0md/zoEIRIqsYv3zoxQNH+wp938dg1a25SY7qZchds2B +1dijsWjwYfzJmZgy1Gozip1ci0W51vejpm3L0e3uIiuvG/HorJKy2tTKV5Rg +5eIl6ZOIYmuir4/Tq5E6L+f2G1ZpaD40Z0ffi2pkuTdj6eeVdHTEunageaka +zZSNeN+zzUATbP9OF7bUoCIfn9vhxZlov4a+2jPvbyh5X5CAxngWasxYZWVO +N6BxIy3Ou+/yEAltvrBVoRFZTlZr7NfORwdkgtS8LRtR8P6psI2xfOQ3nzx3 +t6kR2RTbbUtUKUTKr75fsXjfhF6o8h3YN1yEHtTI6e4xb0GLpzgKvxp8QUkf +8mTev25B9z3Ldit9/IKaQw+xSX9rQRJlo7Q3lFIkZX2mSEi1FXVkV8hYdpai +GrZHCgTyd3Tf5dFi+vVyJKDRRWqoaEPOohb3PtZXovSMZ132Cp0oWO+WHbdm +Axojjb3QvdSJ6neuN9lmNyDmTV1N2aBOdElmk2o1fyOKUeeOHVjqRG59TSt0 +v0YUUP3C6uzXLjQvHuJ/z6sJ3Rx4+eeoWQ9q+sFv9dGjBUVz13rxHe5H3u0n +HUpLfyBr1BQ24TyAHATo1dVJ/YgQt1DY5YPz05vmPxv7USg7tbsmYQB9tuF/ +QFvqR1XVVrTktgHk7tr8klP3J5I1Wo27ojaINOKSLwdP/kSjNszUXpYhtMbD ++erqgQFkF3CvuNF/GO0XeJDjPTOEHIe2D2Sn/0b3ks0rdLLHEZf4I2bf/hlU +H2aZxZI0j/x4a3fEXpxDGEk1sFB5BRXsE8vRd5xDgVrqbCknV9DghWto1W0O +ZRkOFryyX0EH0shGJiFzSHeUT1UnYQWN6pjd21o/h9dZs8uQvIr+85psuHNg +Hml6d99Pml5Fi395XA0E/qKcsn932WPWkUWXUQnbtwWEvdt4eGOMAFwRPx2u +dyyggma5NbcFAmSddaT2DS+g3R8ok3dZWYCt0/tOIcs/VFVKbTonwgIJ7YVK +1/f9Q8SP9nvf6bDA8HdGUm/cP2RSp9J9MpEF7Bon/AvuLKJVj/YTRiasQPK/ +g5jei2i7t5EGwYIVCk9wTAUFLaK5XY+7ou1ZgbuBrueUsYiudlm1FDxkhdQ6 +AyJzaBG9pGcbGb9nhama/DtBJ5fQm7pLbbRVVrj+9ZHFNeYyEvyZ5m0ayAa0 +wSMcC0rLaDS963x+BBvUsm5OcYdl1MlsVeJKYANp8P3zzHQZLYu1Rj7JZoOO +wtceCT7LKDsJC+pvZYODmYlRHdP49X6USi4yO0zV2xy6uLqMNu+vHX4lwg4R +kzuGhzlXEI1ViIVbgh3+7siQnxdfQSO/7Iead7ND8tu8om1GK+iI7N/0vOPs +wBdR1flf/gpaqvzqWvmIHYoLnt+vKV9BLWbBzVY+7HC1/ZjEqaYVJBNip/Dv +FTt85W+yvTC2gga2Jbwdi2KHO/4di7epq0jhlsWwSD47/Hw8JpDusYo4dlxx +DRxhB7+E1EJl31XEp/s94cAkOxwoc7zwKWwVPXph8atllh1eE+beVmWtIlOl +7cdb19hBx21FeWBwFfVdPq5DJhPhg9MWQyGdNUTyenronhoRvoWT76QZr6GJ +9FudnogIw+Ui0Ycs11BmdV+8ixYRRIS3j9s/WEM3sw48ouoT4dGXw15fctaQ +0/kRP7eLRIgaP5ZsXLaGRii/v/ZbEiGf36hhvHENiSu6xO2xJcKkrYWowMQa +cnF/vCn4OhGMSQ8+2kmsI8cGxbfWD4ngpP6kY2PXOtJQj94p+5gIz618N4I0 +1pFTk1Jjy1MilBRG6JWcWUcfap7umXhJBNnL+QPkl+vozqOFp/Q3RDjkW7I5 +OXIdBQ8qK++LIYJZXsUuzZR1FM73965qPBFecX93s/m6jtjfCEWsJRFh+eMf +8ueVdeQjynvV8yMRKL2LqgabN1D6z38qkzlEUOAkXBwR2EAWz2MZh/KJcNls +Wyqf4ga6qNbOk1JEhPtP+JsT0QZ6xDuyUFRMhNBM6uKB4xsozP9TcQGG68m+ +U8vKZgP5UiOyncpxPRUU7VZcN5BE1rfyHRVEIJiq+vt7bSAFBb679ZW4vl6Q +K/1qA8XOZ3w9V02EvWlHuwujNtAFa2JYcw0RTv7QZz2ZuoH8lj2HFL8RwY7F +WHaoYAM1aGdEutfh+p+2dOH5voH2F4byfWvA9X9wNTzh1wZa8K7LamokQkuy +M6Y6s4F6fWMeY01EmGq5M1y/toFSDdncQ5uJwP4AOLKIBDi7sept2kIEPopW +mPsWAny3SYlgayUCLfmo3FEyAcLlNZODcd6pqVfCJ0IA7XJCPOk7Efa36Bt0 +Mwj4OT/pdgvnwzYGQ4lMAmyfj5X6irPB2unb1xXwnLF+8GoFZ/MAU271vQTA +Hj/LFmkjgj3zfBSHOgE2M295SOB8p+jinqZDBHB25B8l4fzklGV5hA4BDPqO +9o7j9wcNW5tYnSRA0TVO4zScY92uju02weuPsD5kgvNubPOi93kCNMP7iD94 +vRh7ErHvMgH++puevYXzSZ0jZBU7AkwWiruM4v32+w4yfJ0IMIPKe7Vwdmr2 +VBi8SYArBLL/C1yfDQFx9QP3CNCn/edeCa6f37kSnQAvAoj3GUb14PrSYs6b +/H5GAF6egyPDuP7pgyuW4E+A53mN+l31RNDYHu4cEkwALRO52kLcr28O+z2m +IgngLfzS4DHup1lWm+/heAJM/DrcpVZLhIkFl4jIZAKwXsg414XPg9sBcvJc +BgHGN6nXWFURIbz8RHlsEQG6tDr1NL8SYcfmqabFUjy3zWWOPS8jQsHxF30n +qglQ38TF/+ULEdrbqpbXvhPAXb69a+ozEWxErTlPdxMgX+pF5dAnIvwzJwqk +/sLfn+hoUllABIHfB/ecnSaAy4AY6OLnIVG+X/PDXwIY5R31Hs/C59P5/jHO +VQIoXDp74lYmEYxWCq1zOVkg/28x0n9PhICtylEkCRa4r6+cvRhNBAmD5ve2 +siwgv7eFMhmJ50+wUwGmwAKnco5+rA0jQiM9rdXxAAsMnfN5djSQCNsUZbhr +jVjgsV5Q8X48D6JulgtJnGMB1swbu+/jeSH/yULmziUWOPOnKjbtHhGOaUUf +ZDqywBZjnis1rnh+GAvd9vJmge1CHbHLeB6JROQ+7vRlgf2bMw69xPMquc8o +cE8QC8wMWiZvNSNClc2r9L4YFiAt8KdVGhCBw41r6EAhC0w9MWveheehZ/Tq +qfkJFigvC1ypwfPz5O786zvnWOCCrt1NgW24/19uvLJYYgHXe2eUj3ESofDX +WGMjkRUG+80tb66yw6x0x4k0GitU8dgRvw6wg0VqznGrk6zQ1XqF+2g6O+zW +uO7wxpgVPK/LX1F+xw7rdXK+rWasQMGoudwx7BA+Hf/tkC0rDI9tkb+N74tm +xQA9uicrWGlFErRvsMPBAked9o+sMBbYwokpssM23R22PIWsUOMxy6u3gx26 +O4eeHsFYYVXl3I8ScXa4vWpWlf2NFTj23Qm04mWHTKR39NUQK7yjqbknTbAB +o4J5WFeQDZ7k9Y+txLABoaUfiu6ygW1jjVTrIis8+l0ce/chG0x2BXRETrDC +ZsIbVtWnbOBQrCGi14/ve3nT8pzXbGBxXEPjTCUrSHs3Hc3IZIPz6Xyse4NY +QfdAqX7cMBvcrptLWJRlhcD4eLOnBuwg+y92a4YmCwgVPvx8xJQdch9ynN+x +iwUiG81pxIvs0Nqlf8GHzgKJa6L9Dx3YYeeTUs/1DXyOTYIuuz1lh0Fvtozk +EgJ0cz+2cyzG+z7ytUlAjQAyLla3jXYQYVaTJNGuso7k1foMo3cTocLHZ3sj +eR0pE87sGlMhQupBHvuImTV06IXO8IP/iJDN71D3PnkNXUiQM3qPz4nU5ijV +HOE1FNw6u4sV30PFnKmcrn9WEHHvg5GMOTz3eAw52D2W0ODfEGPuzxwwk5Ip +WkudR3EHlW70lHFAXCPLQ9nxOWTuW/8yo4YD9E9ncBsXzKFOKWK1YTsHpNCz +N8RPz6EmQ+cDkXMc0Jxr6urxfBYVfzjGkN+xCV5EPpl2mphBIQ4sY/ohm2DY +Jz13UnQc6Q7Z3Qu4zgmGlr5yUuodSH/QfyeNxgVbopL3XtMcKBkrs/CoSuMG +7ZiYgsqVpRIFvjax/8y3giJ5Y7vwYQ6MC/291D23DbJCoHaybxt2dPLsP4nT +vGBoVDftXk/GoiheLQ/O8MKL1zE33/eSsfkD7zO6z/GCVcGdscYpMhbzfMU6 +2IIX2HNuGRF4KNgyM7J9sxMvZF/5dXJan4KlWvQUzDznhSdntsysf6NgvO3m +7sUYL5QE16U4fOHHrDa8z4iW8wLXtFXZmUZ+rEgmU/l2JS/4iOYn7+/jx2xd +CZN76nlh6mJeZNsqP1ZKij3/tosXjNoKdZ7tE8Bcjv/SfLHACz1XYjQ+pQhg +7aWWLGfl+CCspCG+11sQmznYKXJvFx9Y6q10nA8SxDZ9OaEco8gHAuHtz5ti +BDGVEjXr4f18MCXeIRtcIIgFfeKtcz7MB4FHrk8EjAliJ7KLQn0u8MHp2jmT +E7pCWMVbyu7P/nyQ+bpCzI0gjPVKPdfpD8SfH/5rxYlbGPsbv2HBFsIHM3nS +X0wFhDGpuLHXOm/4gHL8RCObnDDmGYWtfE/mA9LHsdR8Y2FMM8S+cqqUD56s +hraEJwtjOU/LLzD+8gGrg9r0pJYIlqRbK+S9yAdWTqXT0/oiWPiW5ubJFT7Q +fZJV339GBPPw7zvyiZUElLrDU372Itix0GUFY14S8I6yS4kGimC/3u3e8NlJ +guGRW1tHukWw77b7CmYVSCD04Yh+45AIVrVT84apIgloRv4v3k2JYGkZeiMy +qiS4zZitoRNEsdt5Vg1fjpDgrhqzZa+EKLatMjL63yUS8PhbnpuwEMVYnsWb +XrhCAr86dZkMO1FsXjeF/NWGBKwWb4TNnUWxjvo874BrJEiWcT3y5KEoltDW +fE3+Hgn0qysNZqJEMbVhTrgcSoJ1YrCSbJsoJp/Es1wdQYKbPydC87pFMYad +QPbuaBJcSCu9oDQgihGnJGXX35JgrKC0a3paFGv8q8kb9pEEFvHE426cVMyK +6NpfX08CO/PzNU17qZgIvfrHShMJ7K/ZilapUbH6/WINst9JcJkQl5GKqJiK +/dfPnl0kKODSuQc6VIyjhT9CZZQEuXU5H16do2KFE7YBl8dJkLWLzlgyp2KO +HMXP/KdIcP+92nN9SyrWpmp1e2yeBEWv4xTK7KnY25jc01EsZAi56FrR7E7F +zhRyHa9lJ4Pv7wuMZA8qtqX1gtbiJjKk7Dfb4/CIirls2qRksI0MNsYMk2If +KqblaMLLIUqGfIcjNV5hVGzR+/0mJRoZiArz8xWRVCw1dmPdXJwMLa3E1/+i +qRjl+7vJAiYZ6kPM+cUTqdjggcUaB2Uy7L3RrRr0gYqFnj5WGr6PDB+EDise +yqZix67hOaBGBjNxi0s9uVQsO047SfwgGW566hzu+kTFbIoio/W1yKBYvDym +UUzFqG0zwW5HyVClrJDsi1GxR5vDHn8/TgbOoeun5sup2H7JSXfWU2SYOfZN +jruSik2oH3TZZUSGTec12HiqqZiR02+LZ2fJ4On/8FHPNyrG+VzjbO55MrSp +sokn1VOxovhXpwYukqHk3WKEeSMVk/qhChrWZJDmZPK9bqFi7TO+++zsyNDa +f2ON9J2KveD6pRDiQIbSs2ap99qoGEipyJQ7kcH0DJfg9x9UbF7judifG3i/ +/tkqwh1ULMmkl0K7RQb/kCh23U4qZnZdcYveXTJYDwndte6iYuUJncsJHmTo +6IWDNj1U7HaxwmyTFxkk1Bof6/VSMbl2z9/rT8jgoffRRLSPivX/aevf+ZwM +dnfcMn/gHMS9s/2MLxnUNCufefRTMW3pBw2P/ckwu+tQD/9PKraq2VKRFUiG +P5veJoTgnHmGWdwXTIa4lJwO4i8qdtnZLWdLOBkkdx29eRFnFcXenO1vyIDS +8lEizlyzkHskhgxZTBnZDpx7PsTnXo4nA5/EwPYlnDOvc+R5JJIh0v4E4hig +Yl57bPPeJJNh684fFgScjf/U5hWmkkGna9ZvBL9++weF/B8ZZBA3YxZ/wnnV +6VX+fBYZ5uaI4+44N+yez+fLxefDRI53J85xM8YFCgW4/xlashV4/TczCwr0 +ishAiiMq6OOs40QttCkhA9dpRWoZ3j9194PCx6VkWLoVPimF88z0z8K4r2SQ +0hF5cwPXqyxD61NJFa5XZLh0Bq5v8LV3n7prcT/7eT1/4Prb7uIqWqonw33Z +B2kT3VRMfdq+SKCZDOXy83FTuF+8GQ1FSt/J0Gvqc74H93PAUfHzyXYyQK19 +ez7ud67C688OXWToPle37WE7FXs+9e/z814yGL2bWtmLz8dux8/F5YNkWKgp +GLnSSsXYFBglP0fI4NIp09PfjJ/nSc+S9TEyJNK7bmo3UTF3B21s/x8yrCjK +P+6po2LV9i1fUtfIcMC7LYBWQcUi5VRKqwkUyDfy3LVeRsWcJkJLh9ko4Ng5 +ebzmCxUTsL9QxuCiAP+zvA3mZypmcfV3eZAABf4VdlUuZlGxvTuPff0gTIEL +ejOs6pn4+RhP/1pPpUDSnEfM1TQqlmHnUsEpSYEg02vzL9/hftluVLrvooBt +9feIiXDcr+0WVWGKFJj+VfYkIAT363d5Ve5eCuwOU82XCsL9sX1ePXOAAry3 +Sn5u9cX1tuGvtdSmAGxH/2bvUbFd1jvrj12iwBbXj6FEMyrWa0u/lmZJgTiD +sF+bTfDzZk/m3WZDAUP5kJKFU1Ts9/WVUw2OFEjZkyjz/CgVi3ev/X7KnQJj ++bUmIXuomGDA1R7jEApwvmxc1mahYhVB5vfzwinQfvXNru/LophLiCFdKIoC +RxnnG3TmRbGmyAOXOhIoUPRVX3tiWBTzecc9dC6LAjmKTjP8taLYRtH7iYt1 +FBhtu9yz7CeKpZdE+35ppEANexn3Vm9RzKw0UEGilQJ9i6f9Nz0QxQoq3ZwG +OilwTS4kLMdRFLvRrDd/ZZQCWPrZ6L/HRLGRkfEVOzZ+0L729gSRKIo1kOS4 +XVX54Y/ZLyGryyKYpoPD7wh1fpCKX1bRNBXB0ivTK0sRPyjmKFaznBDB/Nz3 +POI9wg/1SOCknhq+b4dV1t4b8ENWbyD/KI8IVlNwcPrXVX5QLd4rrpsnjH29 +aNJyMoofkmLGb2ALQpjyp9APt2L5QWLn7x3cY0JYAn/ny6gEfjhbypdwsEcI +e1RjdmwihR/U9D6OXS8Twg4pW3z1zuOHGGVt+X4/IQzb5JBX3MgP7iT1rgVx +IexTumeEHJsAePgkJe5QFcQ4jp0WCeEQgMSIlcPpsoLYqd/MMBYuAejl9SsT +ERLERiTrgtt4BaDp3IJL+oIARg4TDPCgCQCMM29+yRLArnqlPm1VxVmy1yJS +RgATPdPm6u4kAFu2THw7v0bB3Fh2nPzWIwCkr2kY2ZaEDWtxt8v8FACzZze9 +7hiSsJNPJ8wfDgqAbnv+oVoNEibFk3FNZVwA2HtiBxVJJOwbVfllzKIAnKMt +rJAL+TDafs16F7IgLN23HWZy8GGljgbHxHQEwTbs+u8uOg/G1X1X2zFbEJwl +9BZaOjixoUTxoGh3IUg9LfdEJ/pfSZCsMHvBaWEYfOsdg+X0Iv9wq8pLDBFY +dmuXbTrMBmeDztdvGREB3UWuFMpRPljUersUXSwKS9/G3Gq1hWFg6NDtUm8q +eJlV3FTgY8Ch6Pq4HT5U+PY7KpBGZ0DMmbN1AX5UeLIntosoz4ALtdclLr+m +QjPEFBRoM6AzM+YbWzwVYpcmDuc8YECz2zrjcDEVmL+7rs+MM6CUr7C6cp4K +s7Opb2mfxUG89vD8rkUqpB047NtVLQ4ej5pooStUUFKX3OrXJg6a/0Zv2LCK +gdvV3ISWaXEo7BakbeYVA7aC5J4+cQnIeufqrLtTDCKprT1/vCQgTmOPaN0l +MTDe/jo4CUlCqT6X14qlGAj1GBw8qCsJv8wHxrbbiMHO/Fa/BiNJkPR8XfjE +UQxIl39NfLOVhISKJVNwEwOWc48/6ARKwtsTpaEfg8TggpuowX+DkpB0yVAg +vFIMPN9WVvy7JwVVznL3q2rE4KCJhayStxSMehGHF+rEwNQ5aOtlfymQTczL +MWwVgyYZB4iJk4LkMdHTW3+KgTkIm76skIKUG4OBHst4fbfb5vdvkYa0x658 +1vI0YOxYlvbwk4YJ9fOej3fTYE0jT4Y/WBrk5rXm4pVoIK8fLB71RhpSLCjf ++1VpwN4XOOqTKg1J6GPo2SM0cEr8O/O9WhoSlmbo+uY0KBivTRVjlYHBzHZ/ +ewsasAlQ56Y4ZUDSBmPxuUID5wscpR95ZCCu7eVA5VUabBra3ysoJgPRHxXe +HbxNA0tTv1M6+2Qg3MFeYe8rGtxfkj6qZysDnVJG0YZBNNj6NXHq1DUZEO4+ +wOscQoPmNfVsPVcZCNXlnk1/QwODRg4PoYcy8JqZkiObQoMHk2o2AqEy4P9z +RJ1aRgOWdG5iVJkMNIY2pKlV0KDn4KHIlioZ4DmZRzOtpgHdymZqpU4G/Iqf +EIIbaDB2svy9VLsMvIiQLufppgGnn9Lw93EZ8D59WY/tL37/vPmJLF4mxJ3o +NruySIOU4E/LjvxMKNI57Vi5QoPb0uQ3oiJMmNU4+sqHlQ7PPWdTtCSZYCaz +8weZlw7a3C92fldmwi1GwqgrmQ66ioH1vKpMCBARW/4hQIfeJUVFdQ0mVG7j +EYsUo8Ml158Mi8NMUPw3ayG1kw7nulaHfhsx4fifqy5PFOjQ4eD+I+4ME2zG +Bx+P7qFD7XVOYz0zJrzpa0tK3U+H9ryzP+0uM4GzqnBK+QgdaK84Hg84MUGy +VIkQokMHZaE8RSEXJmgWpfItHaNDgGWduvotJtzIjFL+bEiHmxJ5+gb3mNAb +6nn38CU65LGMVeY8ZcJSwIrPO0s6pPP8zLX0YQLF1+XNZhs61EQ+b2X1Y4LO +QyuszhHvr2T98ZZAJli69TXtcqYDq+rEttuvmXDf9czAK1c63NvUnNkcwoRs +W10OY3c6zN4/teN0JBMaLpcJ5j/A9frr+M89iglj59W3i3jRocL6RVVgDBPo +BgrHep/RIXfTaQu/BCY8VyMFWIXQQU8ndST3PRPeKvvEV4XTweIym7ZxGhMw +BfacHVF0SPXNeTSYzoS/Egs/phLocPH0fx51H5jAK3bt98kkOojL1eyV/ciE +HYKjy1nv6RDyijXnejYTLnJ3it3KosPBWuv1xlwm3CUa7urIoUNkS3zJcB4T +Xm/UwoECOvj3Zuwfz2dC5pKWwZsiOmyZU7zSW8CEmrnPlzdK6LA3ux+wQiYM +Taq4Xiqjg4j1nUr/T0wgjGY8Kaugw8nF6vkTRUwQ+SUbKl1Dh0csqeVrOO/t +jk32rqODQANRKfwzXq+CzWJGIx0mVz94UIuZMPFA4Wh7Cx02TZTFv8S5qmn+ +NeEHHa4cZg+bwzlB8tOgbCcdHloePq9dwgQP14dKp3roIHHu8qQvzmaVRz3v +9NOB8fe/I+U47xfe1hQ7QIftRW2W4zhTrrbSa4bp4LVCOcKGMWGmKNxx9jcd +8stYRrhx/rbt0meRSTocn0rWIuKcdJG55b8ZOtiIS5lN4/c/ypo8e3WODndb +/HfU4HyRPTs5cIEOTfoiaa9xVje+u/hpiQ6qOfP9p3AWSoKjg6t0eMp2oWwd +r3/ZnU2Pg8AAJn/UqUicR99aOYezMCDyHcezHTi31VeHKbAxYP38nFUyrk/5 +P7kvpewMcCmvHhXCOYvhP2rMwYBYwyXuO7ieMTpzPOObGMDnslJXjevv52y8 +78Fm/HkPDeW4cbYrpz55t4UBHEla2ea4f2cmH6Qd2MYAFROBDmfc3yMCA60N +PAz4IpPhfxP3X8ImWXKRxAB5a/6MEzm4P6+26L2gMGCn71U+aXx+1guuOTME +GCCrFb42lsWEDm6VL9rCDLjnxHJVO5MJFcpho90iDNjOII/24fOZfX6V5zqV +Ae+7Moat8fn1zyi9EIbvSS7+1Is6Kfj5aZd+Ii/OgMCcve1xSUywZ3mW9kWC +AXppUdUTiUzQNjyx+luaAYbBzSSDeCaouGdJ3mcy4NGskLVDLBOk3vLrkbYz +wO7hXoU70fj8/esKU5NjQMWBM9ssIpiQH26zz0eRARrrp8ZuBzAhsaz2Al2Z +ATyOvMmC/kwImlB48nEvA+pO36tP9GWCk+bf1q79DPhVxacdjOeD7K+HznII +r09/T0sBnh+h2yPS6vQYoKwdYUi6woT5uSNvvY7j/aRzmTheYsKJ4tlI1RO4 +f7G3/+adZwKHoe6LtwYMmDb7uUE2ZoKr+5LdPVMGyIlyqEzjeWjQYCIrb80A +LU1y5h4JJqSHsTEGbBjQV3ROxFqMCZstMwTD7BiwIHNT6LkQfv4XOTYRHRnw +QMWgMXQbE3ZJ5A51uzDgtaWSUseSDP5dTol/4cmAvW4bwsPfZMAGYeGHHjHA +ZPTu0HyFDJRttg9YfMyAfLT72B9MBu5GlT20fMaAoRip6axsGfhd6XxR3Z8B +qcLXk00jZKBCpEls4g0DLOMn+FSuyMADzDdUr4AB4dpRdSrj0jDWgwUtFTKg +5tzHxxID0mC8Muf/rogBfxL+fVrtxPexytlnbBgDJtaz09xrpKH9vczdTxUM +qFUKn0tJkgbFkJJzO1sZcDNHNL7skjQMO/yhcU8zgLPcUWUN3/+nfKREC2YY +cGT04K/iIikoSjIRtJ5lQLpPg9u1LCkIHPjMU/YXf37Nu2dv3kgBmD4nuK0y +YN+onJ/8DSkI15L8NbZZHB74JxqLi0rBcdHTb2ukxCHUoe+12wVJCB1UwM7J +iANTyXbXkoEkDKZxdk0wxcHRLuy+zVFJcIciXp6d4sAS8/EUdbckpF6RdDfc +Iw5De+6adBAkgSvzj0G3Bs7HVWzSoiWgUsuPMGUsDtc2sU4MNIvDQcfKc3zP +xGFL6p35Hl4GLLf/PlL+XBz6PcTYsvEcyP5vi+KtF+JQ+/THzgU8t2SET3H2 +vBSHpwtzXfnReO6Wd2YnBYuDUn3laIcovgeFp7ZCgjhMrde0RGzDv2O+UjDH +EnFY6UiCtF5RiKZaSH37Kw5F5jOZ3+QFQarsXbD+OQnIv61pGtDLBf7ypTua +iyWgiVjd8+jqCLKaY2+q3iEJNUX+J812sWIWH2YZz15Kwn2L3IOpDhTM3tNw +VfeVJIjsuiLTGk3BXA2zf2zBv/uOTt+tnW+iYE//uvr5B0vCmwMBmXQVfixd +dWkl5I0kFBMPnRVc58eWvmy0Jb6XBN6+wSrbF4KYf/MW3/JKSZAvmCbfjhXB +wuMdbJ5US8KWG1/uWjeLYPEu9f9p10rCgsFNJ102USxXwH+5tl4SUj63WoxZ +imLdZ8k2Ld8lYSJGpduXScWYA8L//RqQhGaHzX81U8Sw3dl3aQlD+PvO1w4b +dophao+7lq6MSIK2+7VmUy4adoz5JvP3GO7bnvLZfXY0zPkqg/bnjySMFSe2 +799Ox9zVHy5lzUlC9mszkaYzdOzx1l+tLn8lIUvyzFbTp3QsNCPeZ3ER14tF ++/K+EToW58FuXbgsCXz2uwuPcDOw96euHHJflYSNc490fkswsGyJCjHNdbyf +yD16XmoMrHhOZmljQxJkAupSKAYM7H/4wmF4 + "]]}, + Annotation[#, "Charting`Private`Tag$29779#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-8.160313928217032, 11.875090807881733`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.896378551002684*^9, 3.896378613576879*^9, + 3.89637890181448*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"7bab0726-beff-49b3-ba69-e787aa783965"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Oscilador arm\[OAcute]nico amortiguado", "Section", + CellChangeTimes->{{3.898186926970587*^9, + 3.898186935961258*^9}},ExpressionUUID->"2b4b03df-55b9-4e92-b3aa-\ +7dbcbf4fe249"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n subamortiguada", "Subsection", + CellChangeTimes->{{3.898186799603964*^9, 3.898186802823612*^9}, { + 3.8981871584701023`*^9, + 3.898187161701932*^9}},ExpressionUUID->"1d9e30d0-7940-4ba7-a5f5-\ +14308a815e9b"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.898187994240724*^9, + 3.89818799475249*^9}},ExpressionUUID->"856190d2-a37f-461f-a40a-\ +418fa2c5844e"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsubsection", + CellChangeTimes->{{3.898187371850944*^9, + 3.898187375766819*^9}},ExpressionUUID->"d1a58aa4-017f-4b83-9061-\ +c149030e3790"], + +Cell["En el caso subamortiguado, la soluci\[OAcute]n se escribe", "Text", + CellChangeTimes->{{3.8981865054516783`*^9, 3.898186517623204*^9}, { + 3.898187053071455*^9, + 3.898187059095458*^9}},ExpressionUUID->"62410e80-0b22-4ca2-9c7e-\ +da744e25b814"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x", "[", "t_", "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "\[Beta]"}], " ", "t"}], "]"}], " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{ + SqrtBox[ + RowBox[{ + RowBox[{"\[Omega]0", "^", "2"}], "-", + RowBox[{"\[Beta]", "^", "2"}]}]], " ", "t"}], "+", "\[Delta]"}], + "]"}]}]}]], "Input", + CellChangeTimes->{{3.8963751493504343`*^9, 3.89637516683323*^9}, { + 3.896380335028994*^9, 3.89638038103598*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"835cb738-38b8-4afc-bdf1-9ca43bb67dec"], + +Cell["Podemos hacer un gr\[AAcute]fico", "Text", + CellChangeTimes->{{3.898187069224201*^9, + 3.8981870756217012`*^9}},ExpressionUUID->"4c8b925d-94a9-4adf-aa3d-\ +4e8e18cd80cd"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Beta]", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.896375180401723*^9, 3.896375234175416*^9}, + 3.89637589596721*^9, {3.896380346069969*^9, 3.896380353900757*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"c5d9b45a-6b83-4ddc-a87c-2ee5e3e1ee39"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVVnk81F8bVfatLGMdy3xNIRWR5VfhPiTLEG2kSLJmSWIsRVTWUCH7NhJR +JJWd5tpClDZSQguRooUWorzf95+Zz/nc597nnPOce2cIl+N73FdycHCUkh// +//7n61Cfvp0TNBNFqgu6SjHH87fQfIoT8vWE+jSsS3D0FPvKqbOc8A8PvGhc +WYL5OfJXbonnBLVPpWvP1xVjsY0HOmrSOcFx2yT9O1GM18Y9NbtVxQm0dbNb +FhaKMGNbm3XRBCckztT+2VJXiC9fveoYv4cLOgLmU/2fZmHpxrP3TA9wwfJE +/oVrVlk478lhBW5nLvDUVukP7s7E1/5S3549xgWQYrD6Y2sGrt+f5hoWzwWO +z0z1ZZrT8LBgjLcfmwsYoy3Bq/qSsTLTI3SfGjcIvXl1VmzgHN649c1e1iZu +oBRcpZ9beQ5rc9hrfNLlhp13lZNXa57FxkkWE5HbuSFpX1gVPz0SOxVv2Ffu +yA1NUlz1GIfijP5ZjZWXuCHSzua7UM9RzK0TOXlrjhtS7J0XeZA7Elr83fZn +gRs2HWKV6y94IrFW/4IdHDzA/COw9VulN6LtdLF9LcQDOsx12714/JG++452 +HmUe+KrHk2duEYSY6YKsQ/Y88HiKv8bINRKN/8y0E7zHA7oWOdvLfsajIqPN +gSPtPGDtIPOTlnQeHb7Qd+lWDw/4rCx5b0MkoKE13A/2vuSBB7naQc/MEtHT +vQHb8uZ4IE1ko8bJmAuIfduKtlGNF7Kbr499eJeMwv9O6i9v4oUJ+UCtn0op +aItF1IGnerxwkn9gh5trCqp+25AatIMXvgUuirq+T0E3Vqtws515weXlm6np +l6ko89iKT9aZvHD8wqan58rS0L6GPB6igBcsdFrXNbxJQ2Lc/9HninnBTq9E +3VYyHV3M83PMvMMLV9UujOKz6Si693Xfm0e88DFO+aTP7gzkv672rj8XH5RY +X/gV1p+J1IN2PzEW5APZBzqrYWUW+twyPU0R44MXQvYP/TWykIc9XblBkQ9W +Dz0Wk43PQofikrNWbOMD9y4B6WytbMT44H069QQfvLxuNlfjm4NMT9MrTEL5 +oCU9dsvz5BxkLDE89CuCD7wzpvm9q3PQ1h07/3NI4oM1o/kGPH9ykFqJxhy9 +lA8iLA6180TmImWDj8SLm3wQGTmr+q8gFykNFO6Kr+aDPaKvRQPZuUiWW6xy +upUPlqquBw0u5iJB9x9Ha4bJ/S/6h7P88xDf34pMzzE+cDAMq0pIykNc6e6d +Mp/4YIf0wNp/pXloqeMFPeI3qb9ocJXvSB6aXtMwairGDw+7v5cEGOejj80n +hBek+WHfBn+bMwfz0fg+Nf1yRX449OfMK/GAfDQcnZu9eiM/CMX61/Wx8tHD +8dP7XprxQ7RIfk/Rz3zUHa4blWDND8NGpSVf+AtQB+XrbX1bfrjER2nukC9A +zSbOq6+48EOZ8fPHoiYFqKLYuMfrND9orWyVQokFqEx/cZ4aTdaPS+6azi1A +xf13VfoS+CH2yHpd1YoClMe1NkYrix88X/UxrHsL0AU3Xli8ww/b1e84u3Kx +UMIS9rvZwA9FH6Mfp4uyUGxaaP7hFn4IXN12wkGBhSI6pv60P+KHgZPrsop0 +WeiUY9G64H5+YPxtgrXGLBT846C96mt+6D8V426wk4X81jysSfrID3GD7/02 +ubCQd3P0uOFXfrijEXdSyJeFPPYZiH//SfLJjLQ6E8RCTtGV/racAmC17UK2 +ZhwLHZTzZPEKCEC2s/w2/0ssZFet2NcgIgCjhXNz5pksZD2evF5BQQA8L1OW +ekpY6OH68X7HNQLwhCs1g7uChSwD9SJy1QQgFcLOT91moZ7GBJWhTQKQnHJ4 +Z0gdC5mvHH0irScAN/nGD95qZqFOC81T+w0EoEKnTS21lYV2pETTM7YLgND7 +Th1aJwsZ09YHi+8SAFvfx29RHwu1eEYo7rETgKDS1oBnT1kI3XranewoAOcL +quliAyzE/rUm4LELiX3afJcHWUjfMJS6yksAXD6KdOUMsVBjTG+H1XEB2Bz8 +pHx8mIX+e6TglxhE1nduTRsZZaFaSoBUT5gAGF9LWYh5y0I6jvdb+M4JgFGP +vO3oOxaqvirtbRYvAMIFG2mT71lI67OPeOxFAVCgUPoLx1ioSgs3d6QJwKpQ +lU+C4yykfkrMgzNXAI4Zt7xWJXFFq/tq4yuk/i96SvNk/Xr+hvozpQLAejap +e4rEN3YJueCbAtD0W+XyLfJ81azDgv/uCoD/r51VWWT/a2/uVOs3CgD383Je +XZLfWhUep7AWAfAevigWT/Iv9jvA29gpAA1JhoxLpD6l2oqq+YdkP59FFStS +f+Hf5QN6zwXg0ezfNZj0R3HHXs7gVwLgHBjU+LGfhQqSrlVUvxEA9X+xRx6Q +/sr1L9jOfSD92ml1+Qjpfw5157LmtACMVT7rvt3DQjKuhWX+swJwYk4mrJGc +l+Ss6eLMPwFQSSjc8vseC6VtySnewC0Iq4NS9TY0sJD42ZmdPoKCsM+hLJ1a +zUIiImmFH6UE4Yjp6L7111no4v5JCxUFQbg0JltqdZWFhFlb59zXCIJe0Z1t +avksJKD+bsfYJkHYmfqfsFwyC3FaqX8esRCE/a/FgiYDWOjc5bNpcrsEIc1U +999vbxbieN1v4GAnCA8bcs93k/dhySss+aWLIHCtXBFTvpuFfsV16zwPEwTt +5TGp2A0sxHxMfSN6ThDmpzLuXVVioTnJ4/G74gVBdl2PfIw0C30rkXj9KE0Q +vv5VmkzjZKFP7S5num8KwkwvR9zPFwVIMeWl98Vqsv9Ud7xBTwHa52Rtu69J +EE5xhnJtv1eA2PNb1N52C8LWl83s+KIClLpRtP/3mCCsaBKMWe1dgLZlYhUV +WSFItj1RljiTj/zddMRmaELgcEes/ttwPrqmWb50R0UIhvsmguUe5iORhxlP +DXWEwLqYtqPnOvn+cfiF2e0SgmChwImLLvkoyVvucUysEHzW4dPZ0pOHWvVS +GywvCMFXH4fDVrV56BcXX7FoGtnPwVBeoygPObPmQvOvCMGIIv2M+8k8pN3f +o1TTLATyvx9xlqzNQyMGJ4PHZ4XAxrcbTwTlInXRF/LbDwtD9uAUj/xCNpq4 +MHEu3V0YRNp3ST5/l43yBX5PTvoIw0Pzb67HerKREJf0naRQYYhRPbl7V242 ++vTrgOmLFGForG6MHdqWjUqGR/y8OoTBNG2sYn9oFpIr+4AvrVsFvvURVbnv +MpAA+nlkeG4VVNnY79U7fxmZzRz8rWQrAtL/yeXX7Y5HBZSo55H2IuBn2Xuo +VCYe/dhWfmvYQQQyZv3Ubr+LQ4UJi54ZLiJwbvXNSkpAHPqjkveS318E1ny+ +maOSFosqXEYaviWQ64doh16PRCORl4fD2S0i8IO3XuK/hLPIYznOntohAi64 +jqlldxY1K1dph3aJgNvSJdW9SmeRVxDHjGafCCylxAzwNZ1BbWJXDpW8FoFq +n4nF3OFIxNz53jDplwiI1ood42oIRy/b3FYc3CAKVr4WRTN3gtE3oyHZ0xqi +UMu/5sBTh2DE22qjXaglCvKsKn8e7mCki7d6TvwnCqHCMlIe9kEorUnkUcAO +UajneG3FxclENtXNWYlOonDL991ZjqMnUGcJZdO9ZFF46PmHXfnhKBpdk2Dx +9rIoRMTS5z5aHUU/ry67cGaKwvVvdQEvqj3RmqJP6Rb5ohAe4dLxMNYDnSto +WRy4Lgp9y8vbN212Q4aZvl1f2kRh96DtgIbjYVQT3+FE+ykKXkK562PqrVAZ +o1c6bl4Uyn69zc+PYaAcoWfPZhZFYfG0QzPdzhydSX5j2rRSDLi2RE2eWmGC +rLL+qNuJiMFhnXiBlpV66H3ppuXE9WIw8jSqWtSTjge89Bpm1cVgIjPfsNZu +Pe5ebxh4QEsM/sglrbfK08Q3b1lOKm8RgxUh+W8Tvbbg0DqPx62mYpBLHPTv +sjfBq7ryWL+PkOdv6T8pFrEbrzh/9YCTuxg8a1c9k+68B/9g3BC/f1QMnJBY +vqvRXvyqry4u9bgY5GfTU97/3YeLXzw7vvG0GPyKHL4Y7GKPt07wgWuWGOhQ +sr8dGnLCHtxBb/v6xODI5sGgbBN3LKv4YHDxqRgUpv1u25/ujvv+k3+sOiAG +Z7ZkrXD+4I51fe/fO/daDBwtaqtsojwwz3OJXN2PYnA6QeR6Ta0nLimstS1Y +IQ5mJlvjvix6YftGgZ29XOKwd9T7UIiRNxbqdzKZ5xWHmS+Ta3bFemMmL+/m +PavEod3fT2NO2Aeb+O0X4aGKw93kK5yCEr54fNt8zzFtcfiZe/ri2Eo/nGVr +1ZajJw5/WK7bWQZ+2Op4YUPXVnGYp5/9dzvED1cXmZcRRuLQ9X6/3+iUH47m +z44Z2CkO0sXKdc6dx/GawS1g4Eliw+uf9Kv88ctvF/S8vcUh0UvX3b/bHycJ +vFfPPCYOentsXPa+9cc/DBLkvweKQ3AJx6zq6hO4o3joT/EZcfgiOzUs43UC +uwaE1QjliIMXz5W7NqsCsK7WaM26fHHYHcjru40IwAKzUGtaKA6b2GqLI5sD +cNUJnroz18Sh4ixXlbl9AF7yT6n/cYdcF7nM2ZwfgB9v+lEvWisOsSkhy+6V +Abjom12DeoM4mHwp/9vNDsAW/nKNR7E4uJpmU5tGA3DG8dKm4V5x+Peqq3g/ +NRB7aQg0L/SJg5/K7dCn6wKx/lffZsln4hD2RzyB579APOandW/XS3EYaeaL +u7o3EG/yu8fuGBcHl39u76riAjGnOg2/mxQHbS2bTKG0QPxi5hz+90kc6DS3 +52sLA3H4MfOW/76Lg8/1Re7UukD8wPd5a8VfceB+yh98YCwQ523QbXvAQYHR +ctXT12cCsf90VtsEJwVejFc4NfwOxJK+Tu00AQpML3COyggysYvPVEeaJAWa +BFtFJ9SZWGe91f3bMhR439urbqDHxHyfK+/3yVHAzEI82g4x8S1vZicfnQL5 +32r5nloz8ZLXcle4BgXu8lgMzXgz8eN1Lt3ZWhTQu7xH+vAJJi6a6uiu1aEA +ZUHzR1oIE1t4JTz4to0Ch6NUG22imFhu3cwDYUQBB8fnhgPxTPzto02PmjEF +3JtPZtAuMnHGUYleN3MKnB/v/MGfxcReqqG9Zy0psC2rOKMsj4n1Pw71FliT ++n5PGa26wsTvPQsfvtxHAYnzQ581rjNxjQrno5/7KRBZbxI7XcHE8ZPuj8Qc +yP0TqUdOVDGxhuf6PqsjFNgQ+1NsoJaJR70Uj990o0DAIarXtwYmTvIVF1l1 +lDyv8UtObzMTbz3Oe9vPhwJXmWZCnpiJp04s7n7sR4H4CwJEeysTZzG/zmoE +UODHH1WDt+1MbBoydjk5iAJloQUd7PtM/OPkoPb3UArcOOBPPdzFxFfDewd2 +h1Ogz6GipLWbifdE4uA7kRRQOu3ZNfGAiTnO3ZUSjyL9f9483tfDxJXRpfWB +sRQodXt45FQvEx+Kyz3Qf54CMZyNRVMkFkq49Ef7AgXm1SoE5R8ycWNSVG56 +MgUejPRwSJD46KUQ/V+XKaARZzjxlKyXSvUZscukgPeIOm0fiTvTDkfU5VBg +V2erWB7Zj5m5V1G6gAJFBrJKN0g+SjlmLaFXKHDEYP+dCJLv07xtR14VU+B7 +aaqKLKnnDEtj5dYyCtC1334IJ/WqF9Gv5pSTehysdpeSfgwXS5ksVlKAYf76 +UTbpV2Kp4AeHOxRo7onD+0g/t95YjmmuoYCyhXHCS9LvjxVzyvINFFhZ9zVl +bSOZh1uTXaebKSCYdHSrfh0T77jz+ugoJvneC5mUqyb9rX7Mj9opEFX/aqmL +nG9RXfsNVicFsPO2UYObTLzcXD7t/IgCMwmHLieWkH5i1oXWJxRwkSfU3cj8 +OLZdVlfqp8Cv6I9K/PlM3NAV5j82RPI/WlnacJn0r+e4qMkoBWrEhP7dJ/Mp ++cj1TvE7CjjzqG0rPM/Egc8sf7h/pIAJw/knjiD9GkDpnZ8p8NFM4j+ek0z8 +ZHCzrspXCuxc1TZNDWTijSPU0I8/KbDDZ5VunQcTT05+XvTmlACXwm189Zak +3k9v8np5JMDPRDc32oSJTWaeG2wQkIBpmvxtugETX5ltipwRkYAd7nc+D21k +Yoe/iZz+ChJk3lYa/idM3kexDYJBWySgBfFOrOwIxIbHjk3l6ksA8dae63Fj +IK7squxqQxKg3dLNDr0diC+Ga0aLmErArWKmvkdBILaa0P1bvkcC1g9Mt94O +DsQ9DUZf3/tIgM8NyZs7iUB833n/810FElDcmqV6zTkAazdl3Q65IgE158V1 +6vcG4GKJoUsFxRJQvr9E87ZpAI7ucbSaviEBohedZA5sCMDG2i734+okYNCK +4hv/6wRu4T1Wx35C8o/9XV8UewI3VZ7L3cApCcfZzOjSTH/MY2Urm8kjCVoN +UpuexPrj3VMq2SsEJGFvZ83JD0H+eJL+KOOFiCT5+22hMbjXH4tnS6WeUZAE +2ko+ober/LFPVEV8/xZJqFC198zlPI6p9i+Cwv0lIWvJ6N3xRl8ctkJt18MR +Sbh6c6P/xh+eWGD4lLlftRQkmm0cs9E8hHVDrgtfqpOCJyEqNsFfHPERsZfP +bjVKQSk7yotd7ojrzXUOfW+RAqcQ4kiNsiP2qPl6gvlICmp3RqoxFBxw60W3 +3FMTUtDxvs3Rm3IAhxpZf4mVloZgH53B9Yq2uHg4/G4pVRp2hzxJZLzbhx+H +lId2K0iD/dLJpxlX92HlSj5OgbXSkCPbZNWgug8/l22XuqApDVcE3oSq6+zF +6j/0jC4zpIFfS8VBdv9u/OEakcYKl4bKIRq94Kwlno5+t8B5RhqYHF76X/ks +8azLlcNHo6Th3hHLAXYyA3MoEus1E6TB7kjRxddXLLBsJq2tLVMavtoHj0j3 +mOFdcYrfPtyRBldhqXD+zSa42VPeasOUNLTorObjf74Vt+8YuZ08LQ2im2t+ +f125FffQ86V+fpWGnp9CctObt+DBN3Jj935JQ3zitdm12Xp4dr/cKRsuGaC9 +k0us8NfGqubUsgBFGRhM1uptLtuA01RluBpsZWCjaVV47zle7OikXDpmT9bX +3JBUDV2J16RtZqxylAEOM/V9mZ/+sKuXdya7ushA8gdevR16w+z+F+fkVh2X +AT03p4+835cNxWOmtV3jZYCzfiddvFUWDTUuDF5IlIEIjtOBm/nkUdE3nrD6 +izIQV877JMBSEWk5Eq3C6TKg7brMUB0j0J7Ndjvrr8hA+fDfvl5TZZT6DrsL +N8nALJzUDbqtjg5KPeL7jy0DJycfu9JrNZDSzqFyl1YZWPC46hfouAndqf/x +va5LBqasuYf3O2qiZ5fWRbj0y8Dn+uIVFbs2I1HDyxl1MzLAc8Giol1QDyXn +eHQdocmC0hXGP6U+AxQSfC4wnC4Lz5N+zYZsMkROewoUM5VlIZpxyWA6xRBt +EHgR8nADib125mnvQejByR2qeltk4Rx/TJGqG6CVB9acF9pDnnepLCD1vhGa +0gYdFVtZGLT90vz8qxF6IuL4zsheFnJo9sllMsaI1X15S4iTLJx3vvVW2NcY +6f/H+emdtyxQ1nSU9wluR0FS7xl1UbKQS0G/PfRMkOPc319PY2VBDl26vcLB +BJk8lrk6fV4WbB6F+mtHmCCxuN2LRDK5v1VU3bXdBFX+ailPypMF3ZqTSl/M +d6CPAywhlxpZOLzUeGAZTNHj20314fWyMFEtZ4CcTFHthUG3zCZZWDJbuVYu +zBRF71h972GrLIhcXLun8q4pImoijun1yYKbZpynAc0MHUw71Cc0KQscJ3Pn +d0+aIbm7AlSfT7LgcQVGIjnM0ZundZ4PZkg/NdcWIRlz5LZabEXsD1n4/eR2 +VrCFOfJL6Ny8vIIKM7YaE33F5mjT9cAzh7ip8AQNBGc1mqO5LtqjJj4qLFRu +Tfz92ByFcod5hK6mAifXX+nQBXN07oxG9nc5KkQ6yz+7ZGaBTFjDH2xoVNDe +UBAndtAC8bLPa1XSqaCzWiVC3dcCJS2O9XqrUWHoapu49iULlBGc9W9MjwpJ +kfFbop5YIPv0HZbG26jQqAk7R95YIGr1bGahIRUET68L6v9igQq/W2ke2kGF +rm9Pv+UKMtB13xVuL/ZQIT/aUjMfGMg3sbJK244Kxn0HImasGEj9hsPf1ANU +MGt52zFqz0B3JmsybJypYOGbqnPtOAMxeVzHbrpSgVI37nD6FAPprRXZJORJ +hSMWi4G/oxmo2cX7QfcxKojVcDBfZDFQxFkpSZUTVLgVXXlAv4iBjAo7XGKY +VMiQzt1gVs5AnSMKS0ZhVNj2tSBzZzMDxS/1mhdGUGH08oA6o4OBLKkn0/+d +pYKEW+ztmV4GemL/XL0pngqm8dtOrh9ioNSQM2EySSSft+fZnW8ZyDZjY3fI +JSrEEmNfBSYZSLpmiPIilQq5/s0X5qcZaOh53BHtDCr0iJZJJ88yUN6sdmVq +NhVePdor+uw3Ax0Wff/nWx4VmvfHzbOXGGjcWj/t5lUqcF+Xy8jltkTXjk29 +FSylwi7irHUSvyXySsrY6H2DCtRrxxfWCVuiDeXbT3XfpMKKhzLSQSKW6MuD +b53Kt6mwt6x1vZ+4Jar6mC8eU00FFfP6GglJSxTIa+k8VkeF1HWOer7SlkhX +eb7CqIkKVnVSWgGylmjepGSBxabCSOdhFVU5SxTexIrqaKXCdH/+6pPylohD +K0d4qoMKPj+fqsYoWKLosrRM4W4qbJHYPGylaIl4FS8RWr2knorF1CckTkg/ +X27XRwWvuqO1IjRLtEooWifsKRUSK+pvCZM49VwEZvVTgf+U2scusl5yIdSi +Y5AKZ84sdSMS5xwPfP5xiAq6KT5NQWQ/+Yljh4RHqWAyc1vVm+RT6Hh0UvMd +Fe6Z8pySJ/muee5ywm6cCpvac6STST1lFocWT01S4eNy7rE2Uu+Glv0xrE9U +SJfa9L6a9KNKd8/qjhkqVF0PeuNJsUSbb1plf/xGhUtj5/pei1qiWroZXfgH +FVoS3KRFV1uirTlGNzV/U8GGX16ZT8gSsUX09ez+UOF42FXnVj5LZByn23rq +LxU+sd9vMiDn1/l3kyWLQw7eR9Uvh62wRBbM9QPtnHJw9PAPnYi/DLTrCG1K +SECOfA+Sw/p+MFD/oGygprAcHPc0cpT/xkD21hJ/bUXkwH7zb1PNz2RetgmI +siTloOae5fB1Mn9+Ej/+06ST6yKSx6e6GWg28UubrbIcmKye4vNtY6CglVNW +p9bJwctSsy+1TQwU/nXEuV1DDiYLSreW3mSgxAdd8bb6cpDEsbjh70UGWgVt +YqeQHPxmvw1+FEvmvbY5r8BYDvpUmWZeEQyUc/V21aS5HDjLzElxH2OgstO5 +L0/aysGrLzKVL80YaMOPdJcCezmQPSzqIWLIQFXeydNtDmQ/6yeDktoMVLc/ +hkPIRQ7qQ0MjUxTJ+6h5XLXATw58rON+mf+wQGMfjEPb4uSgy1bqjnS6BTJm +9RWpJcoBTvbLtY8j3xf7g49SL8pBwlprPo+TFsip94SSa7ocaMhkun12tEBD +VYUPOa/Kwc+/kW9uEhboWdg/2g62HMzqed+KKDJHbaKND7p+yME7J7rotWgz +RPTu+KExLwccNdIfok+YoTPRTxWyFuWgeDDUA5zMkOHvj4FHV8rD3L23yEbP +DDUOSynwi8jDk22UkZeTpuhOaVAAY7081HhfWfpnbIqKDDSpj47IQ/H2kJbc +cRPUZi0QtegmDwNrkg54PzZB7w+PfVp3VB4upcWJKDeaIPq59MZYP3mQE9ZS +9rhkgoo7Fw5AmDy4NUYti24xQSU2bVl30+ThR6xH5+Hz21HZkb2SOV3ykB9G +cVtSNEY3Y4JEPTcqQL/9N+Fyb0MUZ+tqyflTAV6EnusSpGxGRTbDju7zCpAi +ePP223Et1Gxh69e1qACBtHfocY0WmjUwS0lcqQgSz6Lv/tmvhRyV1w+KiyjC +eOnk3bR8TaT1e9ZlzXpF+MZ6IUlT34RGs86d2nFEEXbvKrx8+pEaWkhdTCx1 +U4SwsHKNx8FqiHKBmc9/VBFYZ0RDPGlqyOKsR8sjP0X40OfM6cdch6q9GDx2 +4YogWrk2862iKkrYKpbqkakId/bOJLVFr0U6w1euxz1ShIgUV1mn8zQkon50 +/tYTRfis8IDrtBENTUeqm718rgj57/jsH8wpomJ607jqkCJIT4o7KAwqIIpP +v2LPhCK4Kgxb3yqWQ3/COS15OGig66B19omDNHolqNtqLkMDM243YOuLoE7t +7I/DsjRQVNh+7GvkalR9aGn1CTkaCH5dGMyLW4WSb7U5ZSvS4ArthND1HCFk +vtdmaWotDdReNTlcfsyH6nOO6iVq0UB4YfsNnqAVKGtd7s1HljRY6K3mlo0a +MfwxZ1oStZMGSROSgbHeLwxt2LN5W2zI/Xem3qc39Rny7GUkleyhweUSx5jB +0xmGQeEL3qcP0KDWam/awM9X7D2P96tu9KTBlj+b81DBHLsym5M2dpQGEz2n +FwV1frL53W5JZXuT6zlGr8e7f7Fb5nl4uf1oIOdybfje5AJbQ6n2wzCTBsv3 +648Lr+DAQkGUq0nnaHC9qeol1wA3PopacoyjacCO/7j9ezwPbuf3TZ2PocFV +8xxVr228+FRB+1m38zS436O/4W8uH57qCnDWT6YB3dMmot1SEHfKPpWfzqcB +D6d1leJmERzZciHLsoEG7iHnPpfcp+BPIy1pC400eGgOjBu8EthucS65tJkG +W5PUVnBbSOANugfPc7bQQKr7Hj9+IIFfliufauqkwWcZ1e5d7ZJYKxM7rO+n +QZrRsX7zTGmcXz27/9UADSTYJ2C8TxrzPVu7L26QBo8HDz4b5pbBb4SSrMaG +aMAXJW80eUIGJ52zN8h9RwP53zqBfsayeOLYdwXBrzSI/TyRdec+Fe9OXENt ++EaDW3v+vj4wR8XNZfulPGdpMHnwtbQHTQ5fHru3uv0nDbRKN6fdCpXDcCCB +I2yJBisLlqwklORxefC9JdV/NNiQwUmZY8hjybRv8y+WaSDkZyq2NVAez/TZ +fdfiJCBt9Ps77jZ5nGNCf/+Jn4CnIQPaxfYKmNvFbjRLkICaXY5Sr8MVsH/k ++SFTYQKW8q4VRBYqYLPGr8+KRAjQ+ufwRnxCAf/QaG4/KEWA3xNd1ZPeingn +1bakZw0BIhmcRx030HDWuHqLgzIBCQ72zQpbaHj8Jt/raRUCLotp+pXsoOFw +aBZZvZ6AtuyscQ4nGq5wp4fv1STghXnp31+JNDyv/jdjXIuAGFtVhbEMGjaZ +f3E7SJuA+/br0tOv0PDrhITJTD0CCmVcY61raVig6vueYQMCFCyY4VIjNGx3 +svfYMURA8XCCncEEDRcZl8T/A4L8fx2VsP4rDW8ZsGfTTAjwuBTN5cJB4KN/ +8Dp3BgGtZq89DGkErm7PNvllScDJfXSdShUCc1wIPBy3kwBPTxevj+oEzlJU +Sb++i9yvwS90T5/AXSYXOb7YEWA5fPXkF1sCi606So20J2CsL6q23oHAToNG +uiIHCVhsO+1rc4TAv7x++mgdIkCcX9RmzIfAxpsfx7Y7EXBQIG7FO38CX1wq +u7LPmYA9Y33/VQQRWPmS42CwKwGuT44YV0QQOMBed5bXnQCHtbTcd+cIzCZE +hLM9CGDuTY/5EEtg2+p24yYvAvZ/NZA/eJHAhafzD1n5EPBAzXV3bwqBp01D +Qkd8CfByIdYKpRM4+pVa5fJx0j/6m4a/OQR+UsT1IPkEqSdKb+WtfALL+Y6O +EYEEYPlX85sKSb906v/dYRKg9DDhXVQRge/+S5ExCSbg5x05jrJiAv/r8tEe +CCHgS5JnVv41AjNSdth4nCQg87flF7cyAmccVPT+fYqAkZbbO/5dJ/B7+kJ0 +fDgBWTpx773KCaw+84wlE0EA/UQLX1kFgU/VVjTeiCSAWmm3VH+TwJ2RsQPb +zpL5zTRbkV9J+m3h/O3hObI+P81h3y3Sb7Gtgk7RBHCYGNu8IfGN1+LKX2MI +MI/YTzOsIv0vnoEzcQQ4Lg+LnSCxkV+Xg+h5AlZeHvYOJfGfl1OmHQmkH7Rb +3jYkrt4upBWSRICdoeOjOfK8Y5Xq8moXCaiLYE25k1hZZjffyCUCOnS0JK+R +fN5GBc5dSiFgNKbnejXJN/tL+qjxZQLUfGQXU0g9ew7UP/iZRsC2B33OhqRe +oY6h6rIMcl6nLmo2kn50qv9lOWQR4OO80M5N+hWZrZi4KoeAGyGlfgTp539c +xsGtueR9+aQSL0z6PevndoSZT4DUOg7PnisErngVa6XCIuDm3xtH7FkEdje5 +rjdUSMDG65l9dXkEfinzRRiKCTjGrLafziBwarTIwmwJAcIHzyq1XSaw5Vet +8ZJSApzfdtV5J5P56ghpFCwnoHJpd77OeQKHauSUsCvIPHfcybaPIbBmTnPy +iUoy7yP3G2zOErj4+ArPwdsEPNrt19wUSs5jiL4n4S4B75djGJpMAkvtMDUw +qCFA4++eveHHCZwgmyh+tZ6AJ+/l16e5E9j/PqXFDxMQYlpg3m9DYLVNeuVE +KwFWpbSVyxYEHss5kNHfRkAe9fObFSYEtvMv8N3aSYB+h6xDih6B9amqMjyP +yPxxJCa9lSPnHcPgaugj58tuKBmQIPCtb75ffZ4QsC4kNqZkFYGVOm/ff/qc +gOOV5ZPku4n5TmwLyB8iYEhG1Pb8Wxpue33o0K5hAu6tFWw/9JKGw0zPmHOO +EjBnZJyy+gkNf6HeV/B6R8Au/71ZQpiG+zute7U/ku/fxX07g3JpmCXnsubh +T/I90nxTYm5Nw1s3r1d3+U1A6OcrzC4Tst7ih978PAH5WdOnN2wj+4fEWq5Z +IqCxbuf2Gyo07P/0RkD4SiUQ5re2/v1PEUPsXMuG1UqQc8v3tIOtIn7/NfrQ +BVUlcNa3vCn4Xh6H81h70tWUwJUd/SXpAfl7IC91omG9EqTcmNH9VCWPGYzr +0R/UlaA5J7lua6Q8vlP8qNxARwk6eeAgyMrjqAOSf2aMlCBtc8Hn7Qw5vKa9 +NMPagayXTKPvSJfFfRvmi4cdlSDbr0Dn7klZHJphftfbSQkeGIxsFnKSxb1e +U49jjyhBN/Hm7BllWRwgsp4feypB/fFjKqdrZTA+VBmmwVSCqd5PB6nPpfHB ++WpnkQtKcCbKJj5shRRO3tim9oytBMqZpWofdohjjzmupw/U6NCdaR9tcosH +O90w6XPcQAdj+9U6WiE82O5IdO/XjSRe7nYDxINNH3N2SmjSIZDXKB8/5sbK +5SubjujRYTYyvXPPLBf+4MJRsrCdDntGNV6JG3Jit2eLoesO0aHXteye6vgy +2/H8tuBmJzqUi+52tz29zN4HYYE2znTgPpFQOCC5zDap/HMsyJUOnxfs658x +/rHXJCy4tHrRYbf3P7eHtUvsMaPfVgeC6aAfZORKYy2wXW7P0s5fokNPa72f +aPUc2/fc3iVGCh3qOTiYb3bOsYP2Vg8KXabD9cOa/Gs/zrLjfwZdTM6gw5mF +15HSCrPsyi0Li5n5dHhWo+pXfukbe6F1+cW1cjpkBem3XxH/zE5+JnSho4sO +054VRjf937Bzrh47GvuADipn5Gs1JEfZV5l928176WB0OeVQ9b1hdq1k8p/e +PjrMXL/e3Ck2xB4+KH70+QBZH3PgqOJAP1tlTGb7+zE6cPUPygsH32dvqj6l +UPyBDuujk3v6VrSzt8a8XnCfpMNiwJGNRSktbCuV/KqpT3SI+u5BWT5Vxw7w +oSl8/06HsoObb7zZlMoO1z+7cGeODncLr0j9ktlmGCP8vp/5kw59V+c/U6ZS +DbNuXU2cn6fDDUe+iF0t5YZFZ7g8G//Q4djaDa5vPe4Ylu92Nw5fosP3LOua +gA+1htVKnfKG/+gQPhBS8sahyZA9p7ywvEzmw21Fs0oPNvwfJj8tPg== + "]], + LineBox[{{0.8269544457688501, 0.06038588874837174}, {0.8289900136128668, + 0.058722877546820706`}, {0.8554035390369732, 0.03786712192994364}, { + 0.9082305898851858, -0.0009295412543697951}, { + 0.9115322805631991, -0.003224832669240946}, { + 0.9148339712412124, -0.0055048771783721565`}, { + 0.921437352597239, -0.01001923116096371}, { + 0.9346441153092921, -0.018865075150251997`}, { + 0.9610576407333984, -0.035826450706386015`}, { + 0.9791414604151867, -0.046444854240937146`}}]}, + Annotation[#, "Charting`Private`Tag$29856#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-0.046444854240937146`, 0.06038588874837174}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.896380398649035*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"1a880765-a62b-417f-ad6f-ced03c8ad0dd"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes amplitudes", "Subsubsection", + CellChangeTimes->{{3.898186771556943*^9, + 3.8981867786034403`*^9}},ExpressionUUID->"eda4e1a3-0ed0-4596-8877-\ +57fd702be02e"], + +Cell["La magnitud A es la amplitud de la oscilaci\[OAcute]n", "Text", + CellChangeTimes->{{3.8981863319385357`*^9, + 3.898186362785534*^9}},ExpressionUUID->"0e9e744d-3a32-4a29-b193-\ +b49d674b3c36"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{"A", ",", "\[Omega]0", ",", "\[Delta]", ",", "\[Beta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Beta]", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"A", "->", " ", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"A", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", " ", + RowBox[{"A", "->", " ", "3"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], " ", + "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896380450611208*^9, 3.896380487875456*^9}, {3.898187015289568*^9, + 3.898187015545003*^9}},ExpressionUUID->"55d33a37-8b59-435c-a061-\ +abb174ac02a9"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[{{0.49353724533135945`, 0.1068723117880184}, { + 0.5084312032780537, 0.07959813754210111}, {0.5115358167912871, + 0.07412975669341301}, {0.5146404303045204, 0.06868881445455302}, { + 0.5208496573309871, 0.05789044425985337}, {0.5332681113839205, + 0.0366359116663719}, {0.5581050194897873, -0.004442690130852244}, { + 0.6077788357015209, -0.08044185560091789}, { + 0.6108225490216341, -0.08481690090392098}, { + 0.6138662623417472, -0.089158344028336}, { + 0.6199536889819734, -0.09773979970764347}, { + 0.6299942153631456, -0.11155592080864524`}}], LineBox[CompressedData[" +1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAAd+0rsJG/9z80XYzH7Y68v2rQ7JC5 +efg/vso7yyLctL8SkHk/J4f4P8h3PWffULS/uk8G7pSU+D9BxpejBMazvwvP +H0twr/g/j8lt75Oxsr+szVIFJ+X4P+JEvNsQjrC/7sq4eZRQ+T+9rJCNiL2o +v3HFhGJvJ/o/NxSZJDy+kb8e5EYG9jP6P2lLI1wt8o+/ywIJqnxA+j8xFP1y +uWyMvyVAjfGJWfo/uyOju4Vwhb/ZupWApIv6P/Mspu+40G6/QbCmntnv+j8w +yM8b2cqCP+7OaEJg/Po/YGpPjI0Chj+b7Srm5gj7P0oe0i3DNIk/9SqvLfQh ++z/6p4syjoiPP6mlt7wOVPs/mYw9H1n2lT8Rm8jaQ7j7P0lBqbkO6KA/vrmK +fsrE+z+oCfnRCp+hP2vYTCJR0fs/CQqjYYhUoj/FFdFpXur7P67fDq4Bu6M/ +eZDZ+Hgc/D+wyKDBw3WmP+GF6haugPw/TOThpl6hqz+OpKy6NI38PxufYW7N +P6w/O8NuXruZ/D+GzJ6OqdysP5UA86XIsvw/LxgqO6YRrj9Je/s04+T8Pwg2 +NRJNNLA/sXAMUxhJ/T8+qCre6WSyP8yaE3mtVv0/hRte7PGssj/mxBqfQmT9 +Px25WVwH9LI/Ghkp62x//T8N4k+kWX+zP4TBRYPBtf0/mIgTDpiKtD+e60yp +VsP9P7s7qDYHy7Q/uBVUz+vQ/T/YOvfrggq1P+1pYhsW7P0/1OZCCaCGtT9W +En+zaiL+P8fsXrtyc7Y/cDyG2f8v/j+JXgjLR6y2P4pmjf+UPf4/dwKiHSrk +tj+/uptLv1j+P3Mte1cXUbc/KGO44xOP/j9BaMvymh+4P/qz8RO9+/4/hCtg +2Y+PuT8U3vg5Ugn/P+FVzapcubk/LggAYOcW/z+hc/91POK5P2NcDqwRMv8/ +n009Ijcxuj/MBCtEZmj/P4rgAAcpxLo/5i4yavt1/z9+iFO3nea6PwBZOZCQ +g/8/XXCSMyoIuz81rUfcup7/P4E/xlSNSLs/XNszBa2n/z9yOvrb+1u7P7E1 +lyA= + "]], LineBox[CompressedData[" +1:eJwVV3k81F8btTP2wVgGYxZZSkSS/T6EJLKOVFqIKNukxE+WSLYQyhKyFyVS +VLS41igppJRokZC0yU71zvvXfM7n3vvcc55z7v3OpXkGOXlzcXBwRHFzcPz/ +90bFuZ/NHzkh2HD57cqe+yi2aNVxdpoTbLLa/yvTvo8cNjQcXfebE8yrs7kE +5e4jSsuxDM8lTpDWvjXGzXEf3Rud6u3l5YJgg8zjd57eQzNr3thXU7ig55y7 +rL7HPeR5/bbdIQcuiEkuUW0MbUQbTI4GXHLlgvy4c8fG3BrR3x6N1AF3Luj+ +o2h0x6AR5f0oe2p+mAu6tLcLOS03oH6dzO1KsVxwvGKdU0poAzJrDNz2uo4L +SoPvGcgevItEbdYeFrvHBaI//ZARuouGhz4nWjVzwTuHPdMy8ndR2Kp7V/1T +LjjA2v2Xq/8OqkXbt2Z85oLpInGTFuM7iPpI1dJGhhv2Ky34jPPdRhwvPsCD +cG7ol+ctmAu5heK+NJWEx3BDZW6w59zWW4jAcYnLIJEbdBKvfO+Ru4Uk1u9q +v53FDTXUQwuiD2+iNQl9W2/UcoOdkUv/AudNZGPUuqN0nBvsdbRfa4ncQOfL +ytwTnXjALaf6V4XAVaRy/FCYy1peQMyKdknXPLTe8L1z0QZeqMsQTpu5dhHp +crhpTenxAt10jak9x0VknrJtPHoLLwjqcnGlXc9B+8o1XKrceUFxqcvqqFAW +yh6Y0eI6xwtlDalxQU/OId5N0RM3fvNCzDqjVZ4jYUh4ZaF1eYkXbqfcfv9R +/ASSaGEVWnLwgUatA//ve8cQ1c6T+VaYD6oDJdLKtAORsbdlG58KH3BE1EXu +/7UTHc8SKtrrxgcFnF5Ftpo+eGwux1XoIR8Uiqiq/vhzBpeabTw20sYHO0WW +K5d5EvD+1GfnbjzhA+E9grw3CYl4SJn3sfNrPlin71wlKZyM+5yDjQp+88HU +lHLRkdlU3HTTlrp+LT9cpKnvvluZiSP+TBj/28APKV7l3QJy57HBttO7+jbz +g5zo7heUxPO4/kNjZoglP9wuLXuY5XkBXxNT5W06wA/2PwKqCwSycU4A59SO +HH54eJC8L0/2InZpLOCjFfLDVcM9iz+PX8QSvPqM3+X88Lbz+xWe3os4rSDQ +PecWP6SbHcjyjM3Dcd1vn73v4Ydqqs2HucF8bC4T+vXmAD/E5ScRdNYW4H+e +EgJxb/lhzUDkk7UnC3D4srWZ2hd+GKi3DHaSu4RZ6nfqWDwCkPgm6VaUVSHW +DHHsNRcSgOuSuo1laYX4a/P0tJSEAKSkm43FvyzEh9wYKo1KAvAdbLmS9hfh +vQnpuZxGArBJubR5i04xJr9Yd/uFmQDIMhe3uzgW49eUzr7L1gKQ5nb/ckdQ +MXa580fQxlUATmvbT3ZfK8Y2n49EZh4VgLhLZkeC5EqwVSTjukWYAPzy4NaU +3liCzUnDQ/NRAhDz4IiIim0JNrS009+TIgBy/A75sREleO1lrd+MCgEIur2X +2/BVCVYxmaS9qhYAfg7DQt2vJZj+stghsV4AFCf+y8//V4LJvBI10y0CMBvq +lFurUoqFvGd9bw8LgMPI2s08gaVY4M/1HJ9PbD6HsvyDokoxT5b3I7kpAXhq +vci1Pa0Ur7a/YkQtCIBK57ozzOuleNH9nNOGvwKw9uOd9DP3SvHs7NaYUR4C +jBUVGat1leJp5cZ3VhIEsEp42tv5sRRPPjgqsiRLgH0n3053fCvFYy5rjauU +CJD3uUfcYKkUD8flXxRbTwCJ094zp0TL8GsFl66WjQT4Hf1l3lW2DA/UCy8c +MySA+a2/6eW0Mvx0LNLl9VYC/JW8qXFVpwx3ReidTt5BAN6BLQkehmW4XerH +TWMmAXpFt6hfMCvDzdcrPnzfQwAdlNFuZl2GH1gcECvxJIC/pIaI344y3DAs +a+p8mAAGUcqN4i5luP54nz8viwAburJPbdxVhmuFk/PvniBAfEmp4sDeMny9 +3PzJ4UgCOOgetP3tUYYrjVcW5eMIcHPzxJMM7zJcPlCn+iyZAG+41XfV+pbh +Yn9/11MZBDCs4Gu09yvDBTxrzujkEkD2j0ENK6AM5xaM1I0VEuBMh8NfyaAy +fEE3ezT7MgGMcTnLkFWG05/uIG67zl7f5vxsjI1Tvfhh5RYBwkc3j0oeLcPJ +qziwupEAX868D+tij8dfCLu0v5kAPelnDnCzcayG9lNiJwGeniEc7ggsw1Ht +X5bbeghQUzNxUIy9f7h7qfqJAQJIb9VWHj1Shk/M7nZTe0sA1rW4KFM2/+AU +yYShjwQQPcO7bQ1bX6Dy09spkwToE2DuyWHrP/Igbsz0BwGC1ySnZbH7c8jF +RPLXHAHS2tUfUtn985yeMytbJUAnQanNgN3ffXE1LCa3IHzKrov8yO7/bgWf +In5BQdg5kNAtu60Mu9YrPWsUFwQj07MpH8zL8I6x9HUUiiBMDhp+V97E9n/d +2IC7siAc8TAxVtMsw9uPbY7KXysI8uUbUntUyrA117te2c2CQPuJ6ZwyZfjR +Nu3wnSaC4DM3/i6dnS/LjDhG9hZBMOMWTO3gLcPm1HUnJB0EYf4oukv9XYqb +faKUnFwFgUAwvGn9pRSjG31d6e6C8OvsfK7s+1JsbBomL3pYEFSfxG6qe1yK +N7l3NAvECsKqk+anybxSXF8me2RroiAk5LrHe7PPj85XP8n4NEF4Se7SSo8p +xZrhEoe48wVBKG30+syhUqyWu1/ob50gDGVdJnJplmKFgSXm78+CIIwEhJar +S3CevN0/7WlBiN1Y/aS+oATLHSyuZM0IgsX0adrasyVYesZq5dtfQdimiNu3 ++pRgcfELxZMyQrB7Ta+xt0IJ5rbV/DqyTQgqlkq3D4cX46k2z1Nd1ULwx8cx +/IZCIVbKeH0krV4IRtTjvuGJS9hl3w6my30h6N/gFnj41iXctGiw9kOXEOgd +7rl2zuoSzlxPHFj4JATu9zh3eRwpwEY5WFWVLAwOCrMHX5fk4ZQjCs/PxAsD +X4Ll/KORbKxJfKW4Zb8I+DOLOe+PpuLx1PHYLG8RGJU5s/rILxVfElyYmPAT +gfOhMilfZlOwMI/srZQwEfb3JMQ0gj8FT83vsnqVIQI1rfNP5DWT8eXhkcDD +7SJgOSYV7nw6HitUfsbn1EXhdoVozP57UXhAeV55VEsUdiesdZkbisRnS/iS +dfVEga944NOW1Qi8nKfq8sZcFLLOeNHIZifx69TDk3R3UejyuIyIA6H4/LFv +4nfSRIGl02JuSD+KBdGcx/BvUWjtaWs9N+iIw8zUBO4si4KafxBiKNnh8S17 +as5xisEZ5TfjeRetcKt1y7K5mBiYlJvFnnffiMOdUs9fXSsGjlKNEkftEPrq +vabjhIcYlMb9t6ZC5ADa7evm5+ArBtf6Tkgrn/FAXUfOEtcGiYHnuYTJ60ue +qDzo196RCDF4U6G6vveNN3L/7+H8llwx6FK8JPs5xA89TWGqEZ+LgU/PpeUf +wseQ4bnEZ1MvxaBGfcpGvvYYqsy4f7x9WAyimbOFNY7HUVw2rSV0SgwO6chc +4U8PQZTeeY0fXOLgpGS/Y99SKHr1prWDSRGHhIQ/uDgyAonsGc5tpYlD2w+D +8w/4IpHF8Jyf1hpx+Ol3K1wrLRLdeqcmQdAQh2N07VWZ3CiU9ilt3wMDcSDA +AYeZ7afQ1m+7F+hMcQhsv/0+hRGLCqVOv4h2E4fVoLLt93bFolmjqhvDe8Th +0cW4LNlzsag4ecUn21MchMYdvvosxKJl1YLXBJY4TMf49Ts3nUYO9u31h46J +Q3aXo4ng99Poyonp9LYT4hCcf9RtRiEOOXcYb4uMFIcbu4u93cLi0HXPkcaf +yeKQklPkGLvmDOJK5s22SxOH5xpamU93nEFuN9cHX8sQB8VNX5NsQs8gXo6o +tV654uDe8HtptOMM2neJkj94WRz6dcac0nfFo/p2q1Ddq+Jw6k5EWWxEPBKc +DnTOuC4OA8q/XlQVxqO7hlhoe5046KQk3yv/EI/EX++PaGoWB/4EzT7TPQno +0L8EN/l2caAVnt40H5qAHqjU6oZ1isPod5/ayfMJ6HAIxzftZ+Iw1fTHIeZx +AmouUHuc1icOCl/f1ql9SkDS7Q6Xvw6Ig/zP1AqR1QTUKlGy9/Jb9nibzufM +dYlI1vCxAdd7cbgpb5Ksa56IAj1+kfaPioN1yKYT0m6JSL7W7JnsF3H4dAJz +FMYkouN2o6Yp8+LwQj2tvrc7ET05Lij/ZUkcBJcEbZOGExG1QGfB8o84xNfe +QInTiahnKvbGP24iJMX5n3EXTELKElVn3fmJ8OlSeNxG2SQUbvDCp1GQCCt2 +CQYua5KQSiKDeoxIBC/+OrMTJkko4sb21edSRAj7cWT3f9ZJqP/VsdcaskTY +9sKk/rFTElL7m1+fJE+E5mqmga97Eope054+TiFCUdj9V0zvJPTKdtp/C50I +c5G2EecDkpDGcaltxWuIkHf1hgI9JAnF5huv+aNGhOkhm2quiCT0utWLc7cG +m5+evopebBL6aTZEjtQiglv20uTBhCTE32KvW6xDhAdxD2tWzyYhCnTYtW1i +r39L3cqZnoT0sKHPuD4R/DOrTwefT0I7TGtPEYyJcG/ji82O2UnI++GaPA1E +BO3d7/ULc9n6jPPr7M2JYLN2fu/uvCR04b54T7AlEQ48FzwVn5+ErhvGj2dZ +EyF4efA/RkESamtc+dewnQjnPF+r6rDxkP5RueEdRPhvK/KtY8+fuTuu88+R +CKnzP8mV7HqEze62dCYRnjuepBEvJiHqnT5vSzd2v3aJ7v/B5qO/aWu07x4i +nG883rDlQhKyr3+Qe3YfEY67CkuJZSShQxt1btV4ECHzY9Mup9QkFHWrorvP +iwgQsBwsmpSEsrQVP8/6ECGC95qNRRybb23mXxk/IqRt1+yZjUpC7VoCskaB +RAgkuU5S/0tCb2sitfcdZfsjvvPs4+AkJFjt61UeSoQ3wRkaF7ySEF3jXWRn +OBHKds+LNbD9NKhyzpmKJELXqwhLd5ck5HvV9MmGOCLYHXaMVjdPQqfU6j85 +JxDBWHUk2EU/CeVUqP85kUyEWruFbG7NJPTostSGh+lEOPiT4j4jk4TeKSdv ++3CeCP3pF+Y2CiehubJ/ntw5ROhL2137518iUi6dytp2iQgbeAzi148notjC +5pWXV4mQzKjrJVcnojxFPdLSdSLUld5MbryUiG4WVGkq1BJhrHt/6GRqIvqQ +l+3heYcIOQ/EuVb8E5Fpjn/n91a2354mDWIqichVevQD8RERiM72I7aSiSgg +a+ey7mN2vv5lhNM5ElHBefP1J58TwV3pi23+6wS0fE72PP8wW993+3sf4hLQ +7cT2fdQ5IpCPPUmu6I5HlTbdsgmLRMjlqzrVVxuP8oT7+7+tsPdzvtaVlRWP +TqW/t7rPJQHXslTaZvbGI9vcZU1XcQlouTd1UXnqDBqt2PDv7DoJOE4t6rv4 +Kw6JdhYULXhIgIsnFDs/ikWcSWW79nlLwB4xtfN+Jez71+aaZIevBLjp6KJt +EbHozbO7CZlBEtCc7yu+RzsWlb/qD1ofKQGdYa6Jf3JjkOG4ABzMlYCo2WwH +z/2n0CHekA/PnklATbPBL42yk4is9HhwpU8CSNkJzY7Mk+iZvuJztZfs/R07 +DHfyn0R6/h0PY99KQMDH+UEhv3DE94KUrzcpATGm0R0O2v+hy8V3mIWckvA6 +pQR/uXcCjRktPgnQlQR7sfhXz58dRblM29a8zZJw06+1Le3UUWQbVNzYaSgJ +295czzqkcxTVl1pX0szY892eaPpks1Ac4eKZl3aSwOnycKEGByLlQQMw8ZEE +05CoJ4m/D6ODwSdvC+dJQnv45dvbKw4gPZ13t9UvScIN2cc9IXIHkOAM3LEq +loQX1HbubbL7Ue1RvrunrkiC/1VOLu1xd7TKymiYvSUJoy6uJevPuaHsoIr7 +w92SYLn+aWCQnAN67P+i5fofSVB8eiu6KXvMtEBDr/UxhxS8ZE49lzYgYNZ0 +bus4txScP1mgJlcvj6X997VRBaXAO6cm6FSPBvb0+9J+QVoKjp9RsukTN8Gr +h/91RmhJwcz16lfb8m2xls+6Z7YeUjBVyp3GxdiD3x1WCqr2koLnldLhY7/2 +4BR/SXFRXykY2O9y4m6TO/5ydMXxeaAUrJhvlVzrtA+XRXS/dIyQAh7K+jah +2gNYJtNvxDVHCowb8wTCzx7Ejy7sj7qbJwW6+xcu0kYP4uM5zkqyhVLAr2+m +2rDZC/cVGHm8KZcC4veqkdr3XvhshdDnPbekIFq45XsX/RD+96Bq+kCPFCiu +k+EOCPHFNbgotaVXCk783CH69Z4vdm89r0kfkILYLxuWmP98cWPnSdanISkw +N2sbmok7jI/1b5/1npSCOpkzRnanj7Dftyjr0VcpeDY6FKvXfAT3Dm7UU/0h +BXqfSVqiq0fw+hH5sMk5KYCYx7+TWH54YuLryhFuEkRZ/DR6aOuPs6feF3Tz +kUDLc8dZRow/tvj2wkRDkATfSTLuJ+v9ccnM/ehv4iRoD046zSkbgPf8OcvN +opBA4ViQSWh/ABbkOFXeSyOBe2lcS9jfANzAddxSew0J1AIEPFjqgZgk4J4w +s44Egx/eXLOICMTPJTSEQgxI0Ct45nIWKQibBgR8yTcmwZypkhfH5iBc01nT +2YpIYNVthBN3BuG0CO04cSsSNHDkCcxlBeG/r4I9N28jQdGq4f6huiAcoF0P ++2xJ8EyBwPjQG4Rtx/X+VDmRoKlUal6Vh4UfQNjbfiYJ1qx5cX8vkYU18hsb +l9xI0KK7zXQNhYWFHIxPbN1Pgk5RG0k/PRZ+0mj2Y9SPBPn3Xl0Y8WBhQ6nT +PYQgEkit+fLkuh8LXwtsr9oQTIL5/UwKMYSFkxhbfaPCSJCRYv4tL56FFyMT +rS6fJMGfLY9cWtJY2Pf1Y+WnUSRQ2VB0Myqbha1TbT/KnSFBo32UbnM5CzdM +pGJIJMHA9QknyyoWVjV/fsnnLAneeHvuPHiThbMLxCPS0kjQd+plC/kuC/Mt +OO6+nUGC5yV5kv4PWPiE43n94QskUJ0Ne76zhYXHqwakuXNJcFmy+L93HSzs +yic9p55Pgo9zpTkcT1i448DOFw6FJHj3Iri2qYeFde/n3gwtIYGs1G5buT4W +LicNnSssJ8GI7sKs+AALS7HkAzsqSHDy7uZNV16xcNwTd9vpayT4LOR88c1r +Fp5VLlwrWUMCp8iOmqohFj4Y/V7A8CYJapS28ygOs3D/G+rEgXoS8DQNqWuO +sLC5rmdHwl0SrHtSXPuejW+llZXV3CNBpN3yWp13LEz/Mhbz8iEJVoeCNFTY +OHOLyoHVZjb/2NptD9jzOQt9TBntJKjoTJGdY9dnLVYq2HSSoO3CL62+tyz8 +wWlqmfWEBBybP6k6svk4VK97k9NDgseuYRdD2Hyb+QPuNvWSwHZ2gILYejZ4 +1mR9fkGCQu81zjUvWLj4wY9jwoPsfO+82N/Wy8LiMtpOG4dI8LRnn+Epdr+i +jwZv2D1CAkuNS2pjj1n4e3edaMwHEvQYsIx/svu9T2VuuuITCSgan0iX2X6Y +vg29OveFBBGC3oVCDSxcs6kxQeEbCeT5hDKbbrGwYvqy95afJFheFzKgUM3C +qxaR9Ix5dj+Eaa9HilnYv6iJo2GJBCJrasfM8lh4eOnfu3erJPb368Ir5/Ms +fL8mNl+DWxoOESIJcXHsfNgyyTl80vA+Vnh1/iQLO35RvcgpKA1iN12vCB9j +4QlGT/YrcWkYLzmVwDjAwpIXZTJPUaSBefD5MRl2/vfpTYl/pUnDhIEAqWEt +C1998eAcc400TG+Xs+dSYmEk6pm6VkMa/JoNRXL4WNjv9PXEAQNp8BkrvFJf +FoTvUKP5kYk0WH+4c6M5IQhzNjnGXwVpGKkpJ2j6BeGcxfnTUVulgXpA6+XG +DUG4LcAsWo0pDWk2VVyUukAs7/YqJIIlDZ32x79xFAbgQ3OVs+PHpKFm/1Xu +5bAAfDPz5DHHUGkoLDFwPuocgLf2UI+qREnD2rajkx/5AvAxcz//3rPScGNO +bfGPjz/u1uA4qFwhDdodlJVGKT98knOtw9MRabjJm9fyW9kXj1sIvVb5KA1f +N4dW0mZ9sEPi9P6YMWmw+zekINjmg5XFbgTpfZUG6ah8Z+IBH/xUQfdc8aI0 +FCd2marmHMIUfdNnxyVloO33Hvr7ZS/cGuhkq7hNBv7NmluWl3lgweFw68B6 +GSCwSitq8plYL/SqyLm7MlCfrBD7RI+JPSRe99+4JwPCCz5WYv0uuMF6095f +zTLgOrhRQ57ggg/d/nH0eI8MrL/8/AfrPyfckuaVHz4uA9NZz9+7Pt7Bfn/v ++B4vKwvy75ddY0bNcflwRF2FvCwsm4lwYnVz/Dy0KqyLIgvu/lkyjUfNsEqN +ALfgGlmYzrW4+Y0b8Atym0yqtiyIZu0r2nbQEGvObjY7byMLH3uLcs37NfHn +K7QLRRGy8GuSkxzdKIWm4z4ucZ+ShUeD7EcnHxnNeJbs9z0tC/78IpkHtykh +DiXaOu1kWbD7cXjc8o0yIudQW1tzZGFIK3ujBb8WckhQ+vn5liyInf5gML7Z +AO30fs+0uSMLiWlXuJs9DdG+LUX3axplQeV9vcd8shHy+0dJCG2WBeqY87T/ +CxMUH0qhEJ7JQtHnECs5uhl64KNoq/GFPf6oVPE/R0vUZjlyM31aFiTeqLpr +9lmiJ4xLMnM/ZMFwp+dilL0VGnyv8OnhvCxo23nz/Ni6Fc3sVAi355GD3MWG +zjnVbUjNWr4yWEkOOh3Md5HLbZGWyluRQbocyNzSj9AXsUN6PPnHjFTkYIuA +U8yX43ZoSzMZ8ayXg79Sl/25YQfap09+lWUoB0Nc6ickO+zRBTU5nkamHBwY +6WK4WDoi930qFZ/c5ACCR6Ja/ByR8oWNNqLuchDyIN80PcMR1f+zSz/oKQdS +y/vind46ooFXsQqiQXKQU5vKCPJxQgXC6Vg/WA5K0v3/m050Ql7mlzwPhrD5 +W5fff3rVCc1W361sOCkHEafCeO5+cUKSZ6Z1DybKQWXAlK2hpzMaurc0mHpW +DuZ/ErJeRTmj0p98JxvS5MDA1Vr6dZ4z0nGntYhksXGZLV24zxk5bXS1ayiR +g0et6zPN9VwQ+fDBn6PlcqBtUd4sscMFjRayzotUyoGe2+H1271dULDg2Tee +NXKQHeIdNp/hgjI/Ym+R+3Kw4dZ7ry1jLmi3TI+AfpMcaJnmcHsuuCC63VCV +Z4scXIpXy5gmMNGthtlfdzvlQPQPOWbreiYK/86ZNfpEDljat77JmjKRubKY +vsgzOSi7FrPXbQcT9Z9Tj/IckAPNFq8QRgAT5XXo0VIH5eDMSrZh7Ukm8lzZ +0n53iI3ltU2qk5ho5tA+QZGP7P7WvLNbLmOiewV+1ZvH5KC3S+ns9lomiu0P +c/CckIMxlrSX2AMmIpqez777jd3fwZ37f/Ux0etjxQajP9n1OnhaxYeZqPhq +9bDwrBysm1Y0u/yZiXzf34vevMDuN9/fmBvfmWgDqYvuuSwHkVQejQ0LTLRo +87Ij5Y8cDDemTKr+Y6LmU6O+dznIMDE15ZnD54ocpldrhPnJ8N5MwfqDpCuS +pQs6bRYkw9rnapL35VzRh50ycx4iZFghsNzFlVxRZapyboo4GdRlbrz+wHBF +rDZto7uS7PEklul6NVekv2T67qM0GZ4k8VrNr3NFHFq2McJkMvQtRF011nJF +XV67lDcrkiEj+4oyp44rSs871OlBJUOH9uJxC11XFHoi9lgEgwxb4yLq/21y +RfucCpVyVMhw8o0kwGZXZKl5r/umOhmSe14/49N3RRqCr0KfapDB9c1eORc2 +lhz/xZjQIsMd1Yo3amy83CLSy7mRDNz+yt1n2OtHL6lHKOiRoevetWt+eq7o +8X+WapsN2Pt5Beq9Ze9fy/QYcDQmg17f6vqXbH652pGn/BEZsj30nHZvcEXR +Ihc1EszJ8NPO2ttvvSs69KX+dYklW3/ylbWEta7IrqM37oE1GV7f4PXRVXFF +uiXTGwa3k2H+ncuHbzRXJB8pMPJrBxnwzbt79RRdEdcu5SRhJzJQVU9ViMq6 +oi+6sEmVSQadLLWEUAlX1Cvu/tHMjQwjl+w6jwq7oqKu8wah+8hQ6MJ/UZHt +Z3z5jc8ZHmSoS7Lp6GX7HXiqO+O6Fxl2+O5JkP3JRMb63FMfj5Bhhlggcvg9 +EzGklLJXA8hAvFpw/NgrJhL8aWguc5TNt5jjLqmHnbeK4DzbUDJc85tQXNPI +RCEyozZ3T7P5cgm9jE9hIvfff+b74skQwO1x1OcUE1k8lyubTiJD9CXVovFj +TCSR4LhCSyeDxSmiXPsuJqqZb65KKSCDjc2V85I0JsrqH95ZUUSG09tC2zgk +mCiiZpG7tZQM65TgyHkuJtp+aIP7QiUZbp8j518fdUGTL4uEPW+ToTjmoXxn +oQt6fvN+Q0QDGSbv/UtfTHFBd1IHvXLuk8GBORL/KtwFxVmKPXzaQoZLDqkx ++UwXRLsdFbD5GRlaLaxKPfnZ98GFvc+EJ8jA+L1hpdrdGSnUCcr7TZGBv5w4 +TbdwRu/77vo8/kaG8COJsVbrnJGXmARn/CwZDtyWMypcdEKByY82/uOUh43L +DbK155xQ7Cmti78U5MFIYP2W/bWO6Ko/p9crJ3nY1DbnNpRgj/zP1tTqusqD +tk0N+Z2VPdK8tudP5i558EOTfxN47dGtidvZ9gfkoZG+nn8wZgd64HnkcVeA +PHx8nVxZdMIO9bq90LyfKA8kr1VSq9N2tGhxeamoSR7e19jQ5MesUMT9otPt +LfKQssescKTYCnHo5Il8aZeHrToFCil7rRC/0jmaTrc8cPYo+Ne9skTSS2Hb +2gfl4W6XKf/OLgu0sdr24uRPeVjnJVRofc0cBZJm9bUZCtAV9MKLPm6MZs5+ +b2WqKIDog29/gg4YoxCuL7bh6gpAmEoY+TVkhCJ+jBxo01IA4eSp2oJeQ3T2 +cWci01gBnMrXWL9s0keVkfmv/2MqwFu5k71zlbro02fzsNYEBTj+tkP3S4I6 +Mi96Vrr2rALsOrMpVD1KDRW77e7JTFOA/d3Biakhqmhf91H6wSwF6Os5qD3g +swYN1RY/5S5TgLbC32Mju2mo/+RfqmWTAny4Uv499o8E0t6UvL26RQFqqpiu +dySIKP076QSpQwFMK3wHQ5miaIfH+u7P3ez5DKGpu4/40BMr95D4NwpwiGO+ +YeLhD9NW4r3HnbMKcDL8nNKvizyY1m05q7WoAHXFTxKuiQrgU3F9lNwVtj76 +F/svEULYdGHymC+XIjy58nNxjE7E94ZlKARxRZC2e9E12yaDb1WEBNusU4Tc +EyaDptp0XGqiLd/joQge7zbePBC+HrfuEDy94qUId+pI2+OkNPHo/k9T6r6K +UFyd2y5QrYkZsVn34gMV4XPEKEP7jRYuf7S0C04qgt+B3Q/nRLXxZfvW3LoL +irB01vnRFo2N+NGBfI7RHEV48axi+2b/jXj86HFf8XxFINBfau6s2ohVLqjo +B5QowsiFhQZ5VV185XXyoEoNe32SQsYdqU240sNZOq9TEb4v7QnQ79LDXcEa +UV1PFGFbamb6r2U9PHmad3y+RxFMri0PDWpsxmpX7t52HlAEXZnddzTSNuOr +U/JMkY9svSrqG/5a6eMnK7MPjMYUwUViQFr1mD6eEn6mfGRCEUyj+fWiC/Xx +Wq1Ts4++KcLe6qMnmmb08bVjY+dPLSuCkkqR3ekMA/wk7uFKzR9FuMV1T33D +XQM8lZV9cISDAjU2HTvFhg3wugbrjYb8FEiflI45xDDE11ev9/+WpEAD5U3z +mUpD/FQk3pAuQwGZPp/H/Z2GeJqyv9SBTIHpQvbXZtwQa5gRg6upFGg8mx/F +RTPC1WdCiD7rKRB4I+AJZ6oRnjbeG3tmAwVGj8l0Z182whqzFr/LNlKAsvy9 +NfChEb7mKfXygwEFkON/a6emjPCU3KrlP2MKVPm9mUrjMMbqfZ/uKAIF3Hfe +3PIfyRhXorrc3VYU2J10+hTNxBhPzucR/ttGAYvulKcf7I2xak1seI4tBUoM +5GMmPYzxFQUn9wEnCvT0v5YYOG2Mx18Y9MwwKVA3ExjYeN4YrzlLMyXuosDT +8K1aU6XGuHzpp9KO/RT4oimxsgEb47Ha1+n+nhSQOtJw0fqpMWb4NnOe9aYA +99HF9prXxthTqTL4qi8FXkUR7bzGjHHpq3OfOv0osK6wlefID2P8MTXUZTyQ +AvnW5i3NS8aYarm/gyeYAgZ8ersPc5vgojrNCrMwNh4WSKmTMsHvjkjLHjhJ +gbJRiQ+uCiaYQv+bGBVFAS/pV/H2DBO8983npYIYCrTlXj5YqG6CC9J7jtyP +o8AWJtHdQssED2+9/fZNAgWcykZ2muuaYPl/BbaLyRSgTi7DRX0TvPtO3EPp +NAqoGkZy2xib4LwAf81NGRS4z3shlYlM8JCyS5HzBQpsqot5/sDMBMsNG4kH +51Dg8Y7z909tMcFu5xkx6XkUMNWRtSq1MMG5NkIzNZcokFq7y5tuaYIHOX97 +9hSz89WWSeRiY+nGoRdfyygw9GDCwpw935XVaiFYQYE1C3tXPpmb4CzVa7fV +rlGgP+WFziSY4IF3GSpbqykQIbYwZW9qgqWy/8vxrqWA7ha0RsHIBDvbeQjE +1VHg7vDomN1mE5zJs+2/0jsUENzSqzmuY4L772+Yam6kwC6Xy4Tx9SaYeEx2 +z/sH7HxqVkTuUDPBDms5nv7BFNi/2niBSjfB6R8njBXaKDDT5rZ7r7wJ7s19 +Xm34iAIDxqlvedl+iDncpex6TIGKigkVeWETnNYUz5H9nAIPNuG96cvG+FlI +4NH6fgpIH6wPmPlpjEXWu472v2Tn3+dGese4MU7JX9MuNkwB5U9ffNp6jfFT +J5FNmu8p8KMtY/vPdmMsJDh32XaUAgRrjpLMBmOcHNaekDRJgaLOTyLGhcY4 +gXlwO/ccBeI5Hqw1O8jOl/2wu/ciBd7lzmwcdDTGD7YxAztX2PmocP04gIzx +jMnWjLNcSsC9tm5FmGyM3VXWDUqKK8G45j+ji51GOJRaPhkiqQTfemcOZ900 +wplkxeVBaSWwMt3MxZtvhDtFxRQLFJXgcsDnwxb+RlhnYcZTmf3nYrPkJslA +ASNs98vveLymElRkliVpfTfEvl/HzkxqK4GURsFR1gtDfOn9q8rr+krQ6WFW +eaLAEAt03fuua6UEdddq7LGaIX6XGxtu6aEEZIu21Zx1Bngpc+VshZcS0GPz +r/ELGmCp1OOXCL5KcNjp8RaxSX28LeZQc0+gEiil/tg7XaqP6w/b8LlGKMFW +g3w9gpQ+TjaUyDyUowQ3nSWF13zWw5uGS64m9CjB4yCd4hQ7XSyu6bt4o1cJ +/nGmjr9W1sXT0ZpbX79QglsSGYWzKxtxOeP+mNqQEmQS3qoUXd2IpfwGlJ6M +K4FYsTz+yLURL0dwb+fjoIKpt4MBo0YbvxHSa7GWo8LSKrGA8X49zlXPr+7Z +ToXQD+lj5XV0PPvb6vJpOyp863Nz+upMx/ZNMwUG9lSoL0qtdp+lYT5nm5TL +TlRQ1939vGsTDYdELB2J3EUFB3ub7TwnlLDT851q632okFISo5ZYIoeFQ6TK +UmKpsOvXGhv7t8LYFzXnmcdRgfl5qYseI4TbCP6Zi2eo8KNThDddTRCHF7bF +eCVRwb7uipBDBD/+0hl8wDidClefNkgJ63PhR+Q+xelLVLAI/NTWKPizKbo5 +NXd7IxW0bOspO7vnTKdGmi8s3aPCW2eH6uDlBVPXld/pFQ+okMnnErtjzbKp +ht7uJO5mKtjyPMEagX9NX1ephN9/RAXEIyQy5c2NdHLwnnUDVCAta5tPuAmh +S/UzO9+8pELM3qRsKTthJNC/xiVhkAq9vCSpeVMR9F44xfbTEBXm7lCkeuTF +UEqsm0n+Ryr8NuL58didiMYDflGEflChFcexuFqlkONZZfnGn1Tw/ui8bKdO +Qg8qd8r4zFAhPIFef+gcCZ3/9FCsbY4KSbPcN/7slEawK5nj5CoVDu2Rdr89 +JIOqTjxcVftLhQPm1u179WWR9IWfi6/+UeFIdbxy7wVZ9O2Z6y8dbho4SL7s +IdrIoTwLxugUgQZSKTvOcl8hI15P13e5QjSQM1Qwn18iI1Z00pCVCA24s3Va +b9rKo633fvSXitOgRM5C4fR3eTSr9aBttwwNSMd4B9MZishOnnn5iTINdNO/ +zEQ6K6HcMc3mPSo0cLOeMWg+p4TGqgXeTqvSoPQ788L8EyUUAQ/ExdbRYMFZ +MpKqREXXvRkRzto0EHt/cW5dChUtav7JHtOhwaMDjTyMK1RksfjqZoguDQ5Q +h19lYSp6m5w8kbOZBie6bHt//KQiwdpfTsMmbH75Y78j7GjI9b/ugABEg7hD +A593HaShUvPLiX+BBj6Gqr/qw2jI4KVbE9WCBuYjYVXjJTTku4zVvW1owHtO +IcP8Ow3Vt120mN9OgzubtlPJHHTEkXpsf4IdDbbeKLoZTKSjXCXVrKsONLDN +2xRWqUNHnRZpHN9daUDTyt2pE0RHEqK+8tFuNEiOj65SjKSjfYNmeuK7aSB4 +vutoajIdzR+e89PZSwMD7qCNq2V0ZL7xeXzbPhoUbUyhr96go7TVyhKXAzTQ +i4j2i71PRyrn3AdPHKSBvN4Sn3IfHQW76c3we9PgG13WHd7SURNNXOTiIRqg +ER3xz2N0xKxvM79/mAZtJ1RqHs/TUXHkpb22fjR46vOgUvAfHU1bhYaN+NOg +neMh4xUfA8W9WVvzL4gGZ9/LPRclMVBvKc/j9KM0YJmUKUbKM5CC/7tPtGNs +/1TG1cJoDOS7qeHvreM0aF34e5pDlYHq/mbIWZygQeez/DZpDQb62+mn+zKU +Bn1j85H3NzCQTYal/aH/aMA52WvzQ5eBsncrHVkIp4GQq1/bLX0GGmUsxSVG +0IA+GBvLZ8xAmt/6i+SiaPDw4jblr6YMFH7n+r1r0TQYqvGw8jBjoEfR8S+N +Ymjg5zOYcHgLA0lsO/DzaSyb3y35JB5LBtonYSi0L44GQZF/v+pYMdC1t5Iq +P87QQF3yqvMcG8+Xf4NTCey8ROd62W5lILPAzj3EJPb6mZx2fTZefv3Fqj2Z +BkfXsm5UsefXbxHWCU2hgbXEzo5Sdv2AGk3FtWk0GG6rfkexYCAVOUeBkXM0 +UPgb+5JqzkAfTh/7fS6DBiZPks9cRQx08XvWO/PzNPBSln7ayNbntKvh8dwF +GoxUCCY6GTCQcPtQfWU2DbahoYvHN7H1af4p2pNLY7/3wj9RtRko+qLSWdE8 +Gryi7LN2Y/dXn8f8REs+DTbpHq6WZ/d/JtDL4/glGuw9Mb3ox/bn+pt4W9Ui +GlhuyZewYfvnbXF181AxDaraT3+6I8VAr+W+i0A5DZoDnjOB7X9mnPjSzGUa +aDl2P9/3l462/9AZu1xBgxgF+i0xdn6a2kPvCVWx8xJ7NFCDna8wrbzLTddp +MHnp/Nq8ITrSznuQfrSGBuMpzpKFvXRUHsTpM3iTBvaUP4b+7PzuG2I4Jdex +89JR5KVfS0cyllYmJrfZ+/uZpxeW01Ey+axkWQMNQvgv9hin0BGrQ6o5ELPz +KpSuM+xKR2s3bK6itdDg0hrPu+et6ehT3q7sgVYaHKYGSn0zoCNXVqG/4SMa +OBGmHJLk6chYXk2Or4cGf2aju08P0dD8GRuexmc0+PBJlPfQYxq68dP/h18v +DT7P0cgzd2mI/uhmR98LGsTzXxgVukBDAkeNgi8N0eBU5zzT05qGWt/u3esw +zD6fO0723dCloZNWp6y537Hvy70ftt2g0tB3+Q7K4Y804NvUsrVrgYoGHu3o +1p2kwb+JKqXoUioqUvBUfjpHg1/pY9e6Xyohw43rND0X2Hl+tONff6USGtg2 +u3lxkQaEQrkngSeVkEBo/HblVfb5v7HB74iSEmL1XQuO4KLDjueuB4s9KQji +fzdriNFh8LD1wn+DCmj0R9zeVDU6hKlNKrnFyyHltorsHXvoINR/UFDYUQI9 +01gsH3anw2OO4vcL0hIoLNu67sg+OixnT5e8HSai7sNfnsd70OGlXJpgui8R +BYuvI2AfOnj7fe55Hi2O8N6ak1rH6RAiG/0meq8I2r1Yf0A8lQ7EjBiy2Xo+ +xOPJG1SYRoeW5steTfd5UU03M1IjnQ6b1qh0htjwIs6i+YvW5+mgIUXkyvfl +QZWW+i9OXWTz3+Z+bqGCC81l3rf8dZkODX0+QW6H/5qmr29d299Eh6Vp6Xy3 +Nb9MK/X3EGKb6eCT1TRdZ/XTFG+ZndBupYNC5Z7jRv3fTb/vUrmc0UGHG3uH +ju70/Gq6PT5ZyfEpHf607fy9/tKYKd97J6neN3S4MBe26CPyzFRx6utM9Fs6 +TO2KU6u83mmqOxfXpzVCh80W9sWCri2mB4Xupp37QAebvxPZOyhlps2b5Qn2 +E3TQjc6lDAy2NZ1M//SnZ5YOTJK4V0rbh6bM/IjhyHl2/YeKPdUbRpuuXSHd +X79IByPX1nVzeZ+aXj/YGpa6QgcLnrs/xw6NN+l9qZqx5WJAA7+43uu3X5t+ +mh2f6BZjwF211ORA+d9NAnYij04SGdB4Dm+1vfe7ScntSvk6SQb8+P5otXjn +bNOOwNceZ6UZUC3j/udq6lxTVZ7xsI0iAw5J8rTLTCw0HfrN0/d4LQOaVgKa +ju9Ybdp3zeKZuwYD6poiWpndq02uHnHdP9YzIOCLMO63+tNk9Zz7EUmbAb53 +UqoKDf42qVRx3ffYzICv6/7pG/Bz4M+eHJeXtjCgEksIHrzHiYfloDTFkgH8 +Z0POFX7jxAO90UVKWxngfnOFT4XKhdtN/120tGHAnl71QdnTXLic/Dctw4EB +PL2C1HPAjb36V8LU9zLgV0DMxIuLPNg9yejEg30M+G42cXuwhQe7wMlj9gcY +8Fjz0k71LzzYomY5IOQgA64/uCd8dxMvVk5e8mw5zICnxpMdpx/xYgUzgwMu +fgwQadMo/DPJi6UWw/ZO+DNAe0tYZqcgH+Y5tLhThMWAHSs2G+1s+fAnswXb +XScYcOtpYpd6Jx8eWtSzmQ5lwD1R72HNMT7cf+PE1uj/2HqDxNQSOPhxq+K8 +2eUIBkj+Z75h42Z+XLo0q/crlgHhB5BWfAE/zqvV1Y2LY4D5y1/SOvX8ONPn +uLZMPAOeGX6X3tTNj2Nf/l5nksSAn2SjBPMFfux5c4aadI4BtCMeb5K3CmD/ +WOdVmwwGPH86+UHOXQCHONcPCp9nwKh8l/FwkABOnAtJS89m56Wa0//vBQGc ++ejVYadcdn2ReL4DVwRwfs5mS6k8BjjvLTi9eEcA1xgsreRcYsDZ3GPv+l4K +4AbB3YO7ith+MBRKpcYEcMvbe7fkSxjAlyAklflLAD+5Lp82UsoAQqLPhu1/ +BfBAZMThonIGPGn/Og+CBDyyY8TC4woDIk8PHzlOIuBxJVMqo5IB36KWMseV +CHip5d+rK1UMyKD1rTurQ8Bc5w/c8q1mQOHVP/ewIQELe7Wkrr3BgLIOJaPN +5gRM2kQ/PF3LgDfueW0z1gRM4TttUXOLAcppq4G/dxCw2uAnJVY9AzZGzu42 +dCFg7UqLFe07DFhPM6/sciNgw/8uv/p9l62XdC28yJ2ALWz4bt1uZPPzm1zE ++wl4h7xPauh9BqTGlNmu8yTgndOdvgYP2eNv9pWOHiTgAw/VLFaaGHBtNkB9 +wouAj6QlKT1sZsCIzoSkoTcBH98/tRzVyoC39dnZw+zxyA3bX0E7A0K2/Jp8 +zl4fz3n9JtcjBqwa8luS2PXT+4VT2zsZkHkydKKavX9eWYBv/GP2+dvnKZbP +5ld2/NkW624GuNxy/zvC5n/dUktJsIcBro2ei6FsfXek05e7n7Hzp9O95Yg9 +ATdP/HyZ2suAL4cM1e9sI+DHDY437fvZ94FR1m/3LQTcn3QrhTjAgFD72R/7 +jQl4eLek74uXbCyfE9Csy/Zn3fEtWYMMEKMMPozWIOAfqwOUnW8YUCAsr1vE +YPtTlP1yaJgBF1ZMp7jFCViItVBb8I4Bh2vvD23nJWApM7eUfR/Yed/t7rS0 +JIBVP8ltGf3Evn+Ug22TPwrgDfXhlPLPDJBr/5XKGhDAhmfeLnlPMEDGLGOg +5ZEAtlW9VPtligFxTts5q64KYNfFP2erptl5FbKrs8wTwPsf7/MJ+M7Wq6XM +5ZgsgIP9qJRfvxgQJMVHwb4COMI4ZunWbwZceWPdqrxTAJ8RGR04PseAbXUN +NzksBXDujbKzi4sM4LXeo0lTEsClp3h87i0zQOhfeoGvkACucvQ2j1hl83n8 +UUaDfd7q6Y8UTf8ywPt4lGTAKD9u+q2y9O8fA6p2ZnGv7+HH/wPzKP+l + "]]}, + Annotation[#, "Charting`Private`Tag$30147#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[{{1.5702086023039177`, -0.11155592080864524`}, { + 1.5821728472480419`, -0.09664205032520364}, { + 1.6346277092346464`, -0.0346545023608446}, { + 1.6376857991401788`, -0.031197270153664833`}, { + 1.6407438890457111`, -0.02775850071272518}, { + 1.6468600688567758`, -0.020937051370115017`}, { + 1.6590924284789053`, -0.007523271948581145}, {1.6835571477231641`, + 0.018351929018486313`}, {1.6866152376286965`, 0.02149411362538911}, { + 1.6896733275342288`, 0.024615335151365415`}, {1.6957895073452935`, + 0.030794355235151706`}, {1.708021866967423, 0.04289511209824432}, { + 1.7324865862116818`, 0.06604091675513248}, {1.7355446761172142`, + 0.06883304239548826}, {1.7386027660227465`, 0.07160236724579518}, { + 1.7447189458338113`, 0.07707224368539187}, {1.7569513054559407`, + 0.08773444630859006}, {1.7801335373303033`, 0.1068723117880184}}], + LineBox[CompressedData[" +1:eJwVV3k81F8bJftuMMwMhjGyZ09RuY81a4lIhbIrSxKRLEOibKHsoixRIluL +FleWKCkkSrRIyE+bkK288/41n/O5y3POc86937k0j2P23htYWFj82FhY/v/7 +e3oz65ASO4QYrLxbPfgAXSwrczlnzw7OuTW/KrmbkUKoT8ReFQ5AjpUdok43 +0CaDDw4lmhzQmMmfPnfjOtJlcdaY0eMAOcONhrtZriPjVMvJWBMO4NXdsCH9 +ZiVyK1fbW+3CAdLL3ebH+SpQzuCcxoYLHFB2Ly3h2LMSxLE5durWbw6IU922 +xn70HOJf/dO2sswBt1Nvf/gknIhEHgcXm7FwglqdHdfv+2eQrK2H4zt+TqgJ +Ekkv04pB273N2jkVOIElqjH60C9fFJrNV+LqzAlFrF4lNurheGIh14nvEScU +Cygq/vibjUuNdE6MtXPCPoGVqhX2XHwo7cWFW884gf8gL0c9Tx4eked46vCG +E1S3OlSL8hfgfoeQbUW/OWFmRr7k6Pxl3FJvI7tJhQvyacoH7laV4qi/U9vX +Nbkg1au8h5tchvUtz+zv38IFZMEDr6jnynDTx+asMDMuuF1a9ijboxzfEFLk +aDnMBbt/BNYUcV/DuYGsM7tyueCRJ8WtgHQd720u4qQVc8F1g4NLP0OvYxGO +rfTf5Vzwruv7Nfa+6zi9KMglt4ELMowOZ3vE38AJPe9efOjlghpZq48Lw9XY +WCL8v/pBLkgoPM+jrXITr3uIcCe844KNg9HPVE7fxJErFkZKX7lgsMksxJ5c +g4OV7zQGs3PDubfnG2LMa7F62J4+Yz5uuCmq21yWXov/a52dFRPhhtQMo4nE +17XYx5mu0CzDDd/BZsP5Q7ewa1JGHus2btgsX9pqol2HKa9Ub78y4gaS45L1 +3j11+A21q7/CghvSnR9UdB6rw3vv/OW1cuKGM1q7p3tu1GGrL0ejs45zQ8Jl +o6PHyPXYPJp+0zSCG365s6mL69RjY+LoyGIMN8Q9PCqgYFOPDcxstx5M5QYy +l11hfFQ9VqnQ+E2v5IZjt13ZDIbqscKOadpQDTdwsRgU6/5Xj+VeX7E718QN +0lOnCgvX6zGFQ6R29jE3zIfb59UpNGA+73m/26PcYDemsoU9qAFz/72Z6/uZ +yccnO+BYTANmz/Z+Qp7hhucWSxus0xvwWscQPeYPNyh0qZ51vNmAl1wu2Gv+ +4waVT3cyzt5vwPPzO+PG2XlgoqRku1J3A56Vb35vLsID5knP+7o+NeDph8cF +lkk84Hb63WzntwY8sVdle7UMDxR86RXWX27AowmF+UKbeEDkjPccQ7ARv5Ha +2/1Yhwd+x35ddCI14sEm/j8nDHjAuOFfRjmtET+fiN77ZicP/BOtV7uu3Yi7 +o/TOJO/iAY5BkyR3g0bcIfajfrsjD/QJmihfMmrErTcrP34/yAPaKLPDyKIR +PzQ9LHTVgwcCRNUE/Hc14nujJEOHIzygHyPfLLy3ETeF9gdwBPOAZncOQ2d/ +I67jTy68e5IHEq+WSg+6NuKb5cbPjkTzgJ2up81v90ZctX11STKBB+q3TD3L +9G7E5YONii+SeeAtm/L+Or9GfCUgwImRyQMGlZzNu/0bcRH7xrPaeTxA+qtf +GxzYiPOKxhoninngbKfdP9FjjfiSbs54TgUPbMflwQbBjTjj+S6C5U3m+naH +FxNMnObFBasNPBA5vmVc9HgjTl7DQTXNPPD17IeIbuZ44qWIy4daeaA34+xh +NiaOV9N6TujigedneY50BjXimI6vK+29PFBbO+UpxKwf6VKqfHKQB8R3asmP +H23EJ+cPOCu944HgGwkxhkz+IamiSSOfeEDwLIflRqa+IPnnt1OneaCf2/Fg +LlP/0YcJE4Y/eCBkY3J6NrM/Pnt3iP5a4IH0DuVHssz+ecwuGJWt8UAXj0y7 +PrO/bgm1wY5svPA5pzH6E7P/B6R8S7h4eWHfYFIPybIROzXJvGgW5oVthimp +H40b8a6JDFUqlRemhw2+y29m+q86MegizwtH3XdsV1JvxNYntsQUqvCCZLlm +Wq9CI7bY8L6PtIUXaD+xHKtEI35iqRW5bwcv+C5Mvs9g5sssM4GeY8ILRmy8 +aZ0cjdhYVvWkqB0vLB5Hd2V/N+BW3xgZeyde4OExqLf42oDRrf7uDBde+JWy +mEf60IC3G0ZICh7hBcVn8ZsbnzbgzS6drdzxvLBmr/55uqABN5WRju48xwtJ +eS6J3szzo/2fv2hiOi+8pnRrZMQ1YPVIER+2Ql7gSx+/OefTgJXyDvH9a+SF +kewKwgb1Biw1uOz4+wsv8CNuvpWaelwgabuuNcsL8To1z5qK6jHZ80pV8Bwv +mM6eoamk1GPxOfPVb/94wVIad+z0rcfCwpeuTEvwwYGNfdu9peoxm436f2OW +fFC5XGo9GlmHZ9o9GN01fPDXd0/kLalaLJP55mh6Ex+MKSd8w1M1eK/bLse9 +D/hgQNM56EhDDW5Z0lf52M0Hekd6b1wwr8FZmwiDfz7zgct91v3uR2/ibblY +UZHCD3ZS855vrt7AqUelXp5N5AfOJLPFJ2PXsDphSNrkkAAEOF5hfTB+GU+m +TcZnewvAuMTZtSf+l/Fl3j9TU/4CcDFcIvXrfBHmZyc1pEYIML8nYYZRXEV4 +ZnG/+VCmANS2LT6TVC/AFaNjQUc6BMBsQizS4UwOlqr6gi8oC8LtSsG4Q/fT +8aD8ovy4hiAcSFLZuzCShlOucibr6gkC55XBzyZrqXilQHHvW2NByD7rRaMY +peA3aUem5VwEodu9AhEGk/DFE9+E76QLQrD2Y2MDuTjMixbcR38LQltve9uF +YXccYaTEfWdFEJQCjiG6jCueNDlYe4FVCM7Kv50syHfCbRaPV4yFhGBHuVH8 +RRcTHGmfdvG6ihDsEWsWOW67G/3nvbHzpLsQlCac2lgpEIwO+Dn72/kJwY3+ +k+LyZ4+j7qMpBJVjQuBxIWn65nIIKj/2y3UsSgjeVipu6nsbhlxOPVo0yROC +bunLpC9hp9HzVEclwksh8O29vPKD/wwyuHDuxcxrIahVnrGSrDuDqjIfhHaM +CkGs43xx7Z4ElJBDexw+IwQ+2hLXuDLOImrfotqPDcJgL7N7l9tyEhp629bp +SBWGpKS/+Ep0KhI4OJrXRhOG9h/6Fx9ypiHT0QV/jY3C8NO/IVIjPQ01vFcS +4VEThhNyWmsSeeko/XO620N9YeCBw3Zz1hlo57cDf+QchSGo4/aHVHoWKhY7 +8yrWWRjWjpVZ39+fhea3Vd8aPSgMT/ITskkXstCV5FXfHA9h4Ju0+8/3TxZa +USx6wxMsDLNx/gMOLReR3e6OJp8TwpDTvWcH7/eL6NrJ2Yz2k8IQUnjceU7q +EnLo3G4ZHS0Mtw5c8XaOuIRueow1/0wWhtTckj3xG7PRhmSOHNt0YXipppH1 +fFc2cq7fFHIjUxikN/933io8G3GwxKh45QmDy73fy+Od2cjtMrVwuEIYBrQn +7DP256CmDvNw3evCwLgTVRYflYN4Z4McMm8Kw6D8r1fVxTnorgHms24UBu3U +5PvlH3OQ8JtDUS2twsCVpN5veDAX+awnOUt2CAOt+MzmxfBc9FChTjeiSxjG +v/vWTV/MRUfCWL5pvRCGmZa/dnFPc1FrkdLT9H5hkPrvXaPS51wk3mFX8d+g +MEj+TKsUWMtFbSJXXSveMcfbtb9kqeYhksFT/Q0fhKFeckeyrnEeCnL/RTw0 +LgwWYZtPijvnIck6oxekr8Lw+SRmKY7LQ6G244api8LwSjm9qa8nDz0L5ZX8 +uiwMvMu8NudH85BskfYfs7/CkFh3C52bzUO9M/G31tkIcD4h4KwLbz6SF6lO +ceEiwOfLkQk6pHwUqf/Kt5mXAKu2Sfp7N+YjhXN02RMEAnhxNRqd3JGPom5Z +r70UI0DEj6MHTlnko4GhE2/USASwfLWj6al9PlL6V9h0XpIArTWO+n4u+Sh2 +Y0fGJJUAJREPhhy989GQzWyAiRwBFqJtoi4G5iO1UDHLKxsJUHD9lpRcWD6K +L9y+8a8SAWZHrGo2ROWjN21erAfUmPz0tiroxeejn0YjlGgNAjjnLE97JuUj +rse7da9oE+BhwqPatZR8RIVO2/bNzPXvZHeyZuQjPWzgO7mVAAFZNWdCLuaj +XYZ1DJ7tBLiv82rLnpx85P1oY4EaIoDWgQ9bi/OY+rYXNu42JoCVyqLrgYJ8 +dOmBcG+IGQEOv+RlJBbmo5sGiZPZFgQIWRk+RS/KR+3Nq+v3rAlwweONojYT +j2w9Th7dRYBTO5FfI3P+3N1J7fU9BEhb/EmpYu7Hs8XFRs6RAC/3nKYR8vOR +7J1+bzNnZr/2Cx76weSzdfPOWL+DBLjYHHrP5FI+2t30MC/FjQChTvxiQpn5 +yEdHu6HWnQBZn1r226flo5iGyp5+LwJA4EqI4Pl8lK0l/WXelwBRHDesTBOY +fOuy/kn4EyDdWr13PiYfdWhwk7YFESCI6DQteyofvauN1nI7zvRHeF/K05B8 +xFvj51UeToC3IZlql7zykZza++iuSAKUHVgUusf0U7/aIXcmmgDdQ1FmLnvz +kd91w2eaCQSwPbInVtk4HzGUmj47JBFgu+JYyN6t+Si3UvnvyWQC1Nn+yWFT +z0dPKsQ0H2UQwPMn1WVOIh+9l0+2/HiRAAMZlxZ0+PPRQtm6B1suAfrTD9T9 +Xc9D8qUz2ZaXCaDJrp+4aTIPxRe3rr6+ToBkemMfpSYPFUjrEZdvEqCxtD65 ++XIeqi+qVpeqI8BEz6Hw6bQ89LEgx93jDgFyHwpvWA3IQ4a5AV3f25h+e+y4 +J6SQh5zExz8SnhCA4LB7zEY0DwVm71vRfcrM13pmpBxLHiq6aLzp9EsCuMh8 +tSl8k4tWLpAuco0y9X3fff9jQi66fa7DTXaBAJQTz5Ire3JQlVUPKWmJAHmc +1Yz+uhxUwD8w8G2VWc/hRnd2dg5iZHwwf7BBBG5kK7TPueYgm7wVdSdhEXh8 +fyZffiYbjVdqrqeoikCobEl//q9LSLCrqOSPuwjs9YArDk+yEOv5sv1u3iJw +UEjpov9V5v1rdUO0008EnLV1kWVUFnr74m5S1jERaC30Ez6olYXKhwaObYoW +ga4Ip3N/8zKRwSQ3eOaJQMx8jp3HoQzkwxH28cULEaht1f+lVpaCKDJPh1f7 +RYCYk9S6xzEFvdgq/VLpNbP+nk6DfVwpSC+g81H8OxEI/LQ4zOefjDhfEQv1 +pkUgzjC2007rPKq4csexmFUU3qRexV/vJ6KJbUvPAnVFYbdQ4tDLF3Eoz9Gm +rWCLKNT7t7WnM+KQzbErzV0GomD59ma2j3Ycaiq1qKIZMec7P1P3zWGgBJ78 +s69tRYF176M/tTgGyQ/rww5fUTAMi3l27vcp5Bly+jZ/gSh0RFbctq4MRnra +728rXxaFW6SnvWHkYMQ7B3fMr4jCK9kONkvSMVR3nPMu45ooBFxn3aA1GYDW +gjPvzTeIwvhep6ubLvihnGOVD0Z7RMFs0/OgY+TD6GnAq8c3/4qC9POG2Jac +ecMiNb22pyxi8Npx5qW4PhkHz+a1TbKJwcXTRUrkJlUsHuDWLssrBt65tccY +vduxh//XjkviYhB6VsaqX9gWrx1Z74rSEIO5mzVDloUuWMNX9YWNuxjMlLKl +b6D74/dHZI7VeInByyrxyIlf/jg1QFRY0E8MBg/tPXm3JQB/Pb6652WQGKwa +7xRVsQ/CZVE9r/dEiQE7dVM7X10wlsjyH3PKFYPtzQXckSkn8JNLh2LuFoiB +7qE/+bTxEzg010GGVCwGXFuNFO9tCcX9Rdvc35aLAeF79Vjdh1CcUsn35WCD +GMTyP/7eLXcSrz+snj3cKwbSqhJsgWERuBaXpD3uE4OTP3cJ/nc/Aru0XVSX +GxSD+K+ay47rEbi563Tw5xExMDZqH5lLOIVPDFjPe0+LQaPE2W22ZyKZ71uU +/eQ/MXgxPhKv1xqJ+4Z19BR/iIHeF6KG4Fok3jQmGTG9IAYQ9/T3+eDTeGrq +v9WjbESIMf257ZFNFM6Z+VDUw0kEDY9dKfS4KGz67dUONV4ifCdKuJxuisJX +5x7EfhMmQkfI+TOspGh88G8KWzCVCFInju0IH4jGvCyM8j4aEVxKEx5H/IvG +9zaEmmltJIJSILd7sHIMJnK7JM2pEmH449sbplEx+KWIGl+YPhH6eM9WZBNj +sWFg4NfC7URYMJTxYtkSi2u7arvaEBHMe7bhc/ticXqUVoKwORHusRRwL2TH +4n9DIR5bLIlQsmZwaKQxFgdqNYGbDRFeSPHQP/bFYptJvb/V9kRoKRVbVGRn +4IcQ8W7AkQgbN7564EpgYLXC5uZlZyI81rU03EhlYD677Sd3HiJCl6CVqL8e +Az9rNvox7k+EwvtDl8bcGdhA7EwvzzEiiG38+uymPwPfCOqo1gwhwuIhRyoh +jIHP03f6xUQQITPV+FtBIgMvRZ8zrzhNhL8mT/Y+TmdgvzdP5Z/HEEFBs6Q+ +JoeBLdJsPpHPEqF5d4xuazkD35tKw3COCIM3p+zNqhlY0fjlZd8UIrz19tjn +Wc/AOUXCUenpROhnvH5MucvAnH/2HLidSYSXVwtEAx4y8Mk9F7eOXiKC4nzE +y32PGXiyelCcLY8IFaJXTr3vZGAnTvEF5UIifFoozWV5xsCdh/e9sismwvtX +IXUtvQys+yCvPvwqEUhiB2zI/QxcThy5UFxOhDHdP/PCgwwsFiwZ1FlJhNN3 +t2y+NsTACc9cbGZvEOELn0P+2zcMPC9frCJaSwT76M7a6hEG9oz9wG1QT4Ra +GWt26VEGHngrO3W4iQjsLSPK6mMMbKzr0Zl0lwiqz67UfWDihvSystr7RIi2 +XVHRfs/Acl8n4l4/IsLayDE1BSbOMlE4vNbK5B9fZ/mQOZ+12NeQ3kGEyq5U +0gJz/+ClKimrLiK0X/ql0f+OgT/az6wEPyMCy5bPinuYfOxqVN/m9hLhqVNE +fhiTbytX4N2WPiLYzA9SEVOPpkdt9pdXRCj23uhQ+4qBrzz8cYJ/mJnvffkD +7X0MLCyhZa8zQoTnvW4GDGa/Yo+HaB4YI4KZ2mWliacM/L2nUTDuIxF69YO3 +/2T2201hYbbyMxGoap+JFUw/DN+FX1/4SoQoXu9ivnsMXLu5OUnqGxEkOfmy +WhoYWDpjxdvkJxFWVMMGpWoYeM00Wi5zkdkPftqbsSsMHFDSwnJvmQgCG+sm +jAoYeHR5/f37NSLz+3VpyOEiAz+ojS9UYxMHH55onoQEZj5sHCm5nOLwIZ5/ +bfE0A+/5qpjPyisOQvVO1/hPMPAUvTdnSFgcJq8ykuiHGVg0XyKLQRUHR8+X +JySY+XfTmxH+jyYOU/rcxHsqDHz91cMLjhvFYdaavHuDDAMjQY80FTVx8G81 +EMjlZGD/MzfPDeqLg+9E8bWmslh8RzaWC+0QB4uPd261JsVi1pY9iddBHMZq +y3nU/WNx7tLimZid4iB7WOO1jmYsbg80ilVyFId0q+oN1MYYLOk8FBYVLA5d +u0O/sRRHY5+FqvnJE+JQe+g620pENK7POn1iT7g4FF/VdzjuEI139soeV4gR +B5X249OfOKPxCWP/gL4Ucbi1oLT01zcK96ixeMpXioNWJ3W1Wew0Ps2qYvd8 +TBzqOQoe/5aPwJOmfG8UPonDf1vCq2jz4dju3OyhuAlxsF0fkeJtD8fyQreO +6f0nDuIxhQ6Ew+H4uZTuhStL4nDlXLehYu5JTN1q+CJUVALafx+U+7ASituC +7G2kLSVgfd7YrLzsOOYdjbQIapIAnuDSytpCb6wXfl3gwl0JaEqWin+m543d +Rd4M3LovAfx/fM2FBrzwPYvNrr9aJcBpWEdNkscL+9z+cTy0VwI2Vbz8EXzK +Az9O9yqMnJSA2eyXH5yeujHf37u+J5JIIPlhxSlu3B6Xj0Y1VkqSYMVIgBUr +2+OX4dUR3VQSuARkSzQf34MVarnZeDeSYDbPtP4bmx1+RWmXSNMigWC2W4ml +pxVWn99idNGKBJ/6SvKMBwzxl2u0SyVRJPg1zUqJbZZHswmfltkYJHgyzHx0 +cqqgOY+rh/zOkCCASyDL01IDscjQVLWSSWD748ik2VtdRMmVbWvLJcGIRo6O +KRdCdkkyP780kEDozEf9yS2WaJ/3B0erOyQ4l36NrdXDCrmZlDyobSaBwocm +98Vka+S/Tk0KbyWB7ITDbMArW5QYTqXyvCBByZcwc7LcHvTQV9pG7Stz/Emp +9Kk9jqjdbKw+Y5YEIm8VXdT7HdEz+mWJhR8kMNjnsRSz2wkNf5D6/GiRBFq2 +3uw/du5Dc/ukInezkyFv6V7XguJ+pGQhWRUiQ4YuO+P9lHIXpKHwTmBYjgwS +DVujtgq4Ij32whPbFMhgwm0f9zXUFZm0UhD7JjL8E6sIYAM35LaVMpRtQIaR +DconRTsPoUtKZPZmRzIcHuum7zVzRy5uCpWfnckAIWMxj/3dkfwlHStBFzKE +PSw0zMh0R03rthmeHmQQW3FLtH/njgaH4qUEj5Ehty6NfszXAxXxZ+CtIWS4 +mhFwavacB/IyvuzhGcbkb1H+4Pl1DzRfc7fq3mkyRDEi2O9+9UCiZ2d1Pc+R +oSpwxsbAwxON3F8eTkshw+JPnuyhGE9U+pPz9L10Mug7WYi/KfBE2i60xwLZ +TFxmI8ff74nsdZxs710lw5O2TVnGel6IcsTz53g5GbRMy1tFdnmh8eLgiwJV +ZNBzPrLJ2tsLhfCmvPWoJUNOmHfEYqYXyvqEvQUekEGz4YOXyYQXOiDRy721 +hQwahrlsHn+8kJztSLXHYzJcTlTKnOXxRg335n/d7SKD4F9K3M5N3ijyO2v2 ++DMyBGs1fCMZeiNjeaGtAi/IUHYjztV5lzcauKAc4zFIBvXHXmH0QG9U0KlH +Sxsmw9nVHIO6097IY9Wk4+4IE0tq7ag5743mfNx4BT4x+1v73nalzBvdL/Kv +2TJBhr5umRTrOm8UPxBh5zFFholgcS+hh96IYHgx5+43Zn+H9x361e+N3py4 +oj/+k7lfJ3ub8Kg3unK9ZpR/ngyqs9JGFV+8kd+H+7Fb/jD7zfkv7tZ3b6RJ +7JbzWCFDtCy7muYfb7Rk9boz9S8ZRptTpxXXvVErY9zvLgsFpmZmPHI5fZDd +7FotPxcFPhhJWXwU9UEkOV77LbwUUHmpJPqA7IM+7pNYcBegwCpPsIuwjA+q +SpPPSxWmgLLErTcf6T4ouF1r211R5vj5YMNNSj5o67Lh+0/iFHh2nsN8UdUH +sWjYxPFTKND/J+b6dg0f1O21X36LNAUyc67Js2r7oIwCny53WQp0ai2Fmur6 +oPCT8Sei6BTYmRDVtL7ZB7nZF8vkKlDg9FtRgC0+yEz9fk+9MgWSe9+84Nzq +g9R4h8Kfq1HA6a0reS8Ti07+ok9pUOCOYuVbJSZeeSzQx6pDAbYA+Z6zzPXj +l5WjpPQo0H3/xg1/PR/09JSZ0hZ9Zj2vIL13zPp1ju6De7ZTQK9/bdNrJr88 +rWhGAKJAjrue/QFNHxQrkK+WZEyBn7YW3v6bfJDP16Y3V82Y+pOvqfCo+CDb +zr6EhxYUeHOLw1dXwQfpXp3VHLamwOL7vR+/0XyQZDT32K9dFMD1d131pH3Q +hv3y5/ntKSCryKgUJPmgr7qwWdGRAtrZSknhIj6oT9jlk5EzBcYu23Yd5/dB +Jd0X9cPdKFC8lytfmulnYvmtL5nuFGg8b9XZx/Q7iNGTedOLArv8DiaRfnqj +7VvZZj4dpcAcoUjgyAdvRBeTyVkLpADhelHoiSFvxPvTwFjiOJPvFZa7xF5m +3ipDCmzCKXDDf0p6Y7M3CpMYt7p7hsl3A9/rxFRv5PL772J/IgUC2dyP+zK8 +kelLctnseQrEXlYsmTzhjUSS9qzSMihgyiCQO/Z7o9rF1urUIgpYWV27KErz +RtkDo/sqSyhwxjK8nUXEG0XVLrG1lVJAVQaOXtzgjax9NF3+VFHg9gVK4c1x +LzT9uoTf4zYFrsQ9kuwq9kIv6x/ci7pHgen76xlLqV7oTtqwV+4DCtg5jiUO +RXqhBDOhR88fU+CyXVpcoaMXot2OCdzyggJtpualHlzM++CS6wv+KQrQf2uu +1rh4IqlGXkn/GQpwlRNm5Uw90Yf+u75Pv1Eg8ui5eHNVT+QlJMKaOE+Bw7fJ +24qXPFBQ8hOddVZJ0Fm5R6q74IHiGRr5v6QkYRv3JpNDde7oegCr15C9JGxu +X3AeSTqEAlJq63SdJEHLqpby3vwQUr9x8G/WfknwR9P/kjgOoYap2zm7D0tC +s9wmruE4N/TQ4+jT7kBJ+PQmuarkpCvqc36l/uCcJBC91oht9gfRkmnFckmL +JHyotaJJTjihqAclZzoeS0LqQaPisStOiEW7QOBrhyTs1C6SSnV1QlwyF2ja +PZLA2isV0DjkiMSXIyw7hiXhbrch177uvUinxiZ/+qckqHrxFVvcsEdBxPmt +WnQp6D72yktu0gbNpXxvc1SQAsGH3/4eO2yDwjZ8tYlUlgKemaSxXyPWKOrH +2OF2DSngT56pK+qzQilPu845bpcC+/KNFq9bLFBVdOGbU45S8I58um+hyhR9 +/mIc0ZYkBaHvOnW/Jukj45IXpSopUrD/7OZw5Zit6Irzgd6sdCk41BNyLi1s +C3LrOS7nmS0F/b2eWoO+m9FI3ZXnbGVS0F78e2LsgBYaOP1P1qxFCj5eK/8e +/1cOaW1Otq55LAW11Y5Od0RoKOM78SSxUwoMK/2Gwx2paJf7pp4vPcz5dL6Z +u0/E0TNzl7DEt1Lgw7J4b+rRumEb4f7TrnkpOB15QeZXvhim9ZjNayxJQeOV +Z0k3BEmYkdBPzVtl6pP7uvtrlCQ2/DN9wm+DNDy79nNpQo6G749KUHmEpUHc +9lX3fLsibqgMC7FSlYa8kzuGDbW0cekOLcled2lwf69TfzhyB27bxXtm1Usa +7jQSrRPEDPH4oc8zyn7ScKUmr4O7xhDT47PvJwZJw5eocbrWW4TLnyzvh9PS +4H/4wKMFQSNcsbstr/GSNCynODwxUTPBTw4XsoznSsOrF5XWWwJM8OTxUD/h +QmngkXutvq/aBCtcUtgaeFUaxi79uSepaIqvvUkeVqhlrj8vlXlHzAxXuTuI +F3RJw/flg4Fbu81xd4haTPczabBMy8r4tWKOp89wTC72SsOOGysjw2o7sdK1 +u7cdBqVBV+LAHbX0nfj6jKSjwCemXgVlzX/mFvjZ6vzDbRPSsFdkUFzxhAWe +4X8hf3RKGgxjufRiiy2wigZj/sk3aXCtOX6yZc4C3zgxcZGxIg0yCiW2ZzIt +8bOER6u1f6WhYcN9Zc27lngmO8dzjIUKtVad+4RGLbHqPQsdAy4qZEyLx/nQ +rfDNtZsDv0WpcI/6tvVslRV+LpBoICdBBYl+36cDXVZ4lnqo1I5ChdliU12n +SSusZkQIqZGlQnNKYcwGmjWuORtG8N1EhaBbgc9Y06zx7HbX+LOaVBg/IdGT +U2GN1eZNf5fpUIG68r0t6JE1vuEh9vqjPhXQnlMqMzPWeIa8Zra+nQrV/m9n +0llssHL/5zvSQAWXffUmp4g2uAo15h0wp8KB82cYtB02eHqxgOeUJRVMe1Kf +f9xtgxVr4yNzbahwVV8ybtrdBl+TsncZtKdC78AbkcEzNnjylX7vnCMVGueC +gpov2uCNKTRDwn4qPI/cqTFTaoPLl3/K7DpEha/qIqua2AZP1L3JCPCggtjR +e/kWz20w3a+VNcWbCmzHlzpq39hgD5mqkOt+VBiKIdh6Tdjg0qELn7v8qaBa +3MZ+9IcN/pQWvncyiAqFFsaPW5dtsKzZoU72ECroc+odOMJmi0sa1SuNIph4 +lDu1UcwWvz8qTjp8mgpl4yIfnaRsMVXu37mYGCp4iQ8l7qbbYte3X5aL4qjQ +nlfhWaxsi4syeo8+SKCCiSPBxVTDFo/uvP3ubRIV7MvG9hnr2mLJ9SKbpWQq +yE6vQP5WW3zgTsIj8XQqKBpEs1ltt8UFgQHqmzOp8IDjUpojssUj8ntLHC5R +YXNj3MuHRraYPLpNOCSXCk93XXzAMLHFzhfpcRkFVDDUJpmXmtriPCu+udrL +VEir2+8tZ2aLh1l/e/ReYearPYuwgYnFm0de/VdGhZGHU6bGzPlOwW2mvJVU +2PjHdfWzsS3OVrxxW+kGFQZSX2lPgy0efJ+psLOGClFCf2Z2G9pisZxTud51 +VNA1QRulttliB1t37oRGKtwdHZ+w3WKLs9gtT5XeoQKvSZ/6pLYtHnigOdPa +TIX9eyt4JjfZYsIJ0sEPD5n5VK+M3qVki+1UWJ7/xVQ4tNZ8SVbOFmd8mtou +1U6FuXbnA66Strgv72WNwRMqDG5Pe8fB9EPI7i51/1MqVFZOKUjy2+L0lkSW +nJdUeLgZu2as2OAXYUHHmwaoIO7ZFDj30wYLbHIaH3jNzL/vrYzOSRucWrix +Q2iUCvKfv/q299ng5/YCm9U/UOFHe6b1zw4bzMe7UGEzTgUeC5arWfdscHJE +R9L5aSqUdH0W2F5sg5McPa3ZFqiQyPJQxciTma/doy7eS1R4nzenM7zHBj+0 +dAzqWmXmo9Lp0yCywXM7dmambJABNpXGVX6KDXZRUB0WFZaBSfX1bfld1jhc +tnw6TFQGvvXNHcmut8ZZFOmVYXEZMDfcsoGj0Bp3CQpJF0nLQEXglyOmAdZY ++8+chzzzz8UW0c2iQdzW2PaXf2iiugxUZpWd1/huhf3+mzg7rSUDYmpFx4Nf +WeHLH4aqbm6VgS53o6qTRVaYu/v+d11zGWi8UbsbK1nh93nxkWbuMkAxbV/L +VbXEy1mrKZVeMiAXX3iDi9cSi6WFXubxk4Ej9k9NhKYtsGWcT2tvkAzIpP1w +nS21wE1HrDidomRgp36hHo+YBU42EMnyyZWBegdR/o1fzPHm0avXk3pl4Okx +7SuptqZYWN1v6VafDKyzpk2+kTfFs7HqO9+8koEGkczi+VUTXE5/MKE0IgNZ +PO8USq6bYDH/QZlnkzIgdEUSf9pgglei2Kw5WWTB0NtOn15rhN/y6T22IMvC +8hqhiP5hB85TLqzptZaF8I8ZE+WN2nj+t3nFGVtZ+NbvbP+fgzbe3TJXpL9b +FppK0mpc5rUwp4NVaoW9LCjrHnjZvVkLh0UtH43eLwt2u62s2U9qYPuX+5Q2 ++cpC6tU4pXNXlTF/mFhZarws7P+10Wr3Oynsh1oLjBNkwfHLcrdcnCRu5wnI +WjorCz+6BDgylCg4srg9zuu8LOxuvMZnFyWBv3aFHN6eIQvXn98T498qgp9Q ++qVnL8uCadDn9mZeFhzbmpZn3SwLGjZN1H09HGhmrPXS8n1ZeOdgVxOywoWc +Vn9nVD6UhSzOvfG7NvIiNb0D59laZcGG/RlWCxJEb6oVIh88kQXEzicw4y2K +tHPxQdVBWSCuaBlPOUuiy01z+96+loU41/M5YrZSiHtg496kYVno4yCKLRpK +ow/8qTafR2Rh4Q5VrFdSBqXGO+8o/CQLv7ex/3jqQkOTgb+ofD9koQ0nBG9o +k0d7UuQlm3/KgvcnhxVb5Y3oYdU+Cd85WYhMkmvyubARXfz8SKh9QRbOz7Pd ++rtPAcH+ZJbTa7Lgc1Dc5faIIqo++WhN6Z8sHDa26HDdqoTEL/1cGlqXhaM1 +ifJ9l5TQtxdOv7TZaGAn+rqXYKWMCkzp4zM8NBBL3ZXCdk0FcXg4vc/jowHZ +QMp4cVkFBceeHzEXoAFbjnZbvY0q2nn/x0CpMA2ukk2lznxXRfMaD9sPSNCA +eIJjOIO+CdlKOlY8k6eBbsbXuWgHDZQ3od56UIEGzhZz+q0XNNBEDfe7WUUa +lH53vLT4TANFwUNhIVUa/HEQjZaV0UQ3velRDlo0EPqQv6CaqomW1P/mTGjT +4MnhZnb6NU1kujRUH6ZLg8Oyo0PZWBO9S06eyt1Cg5PdNn0/fmoi3rpf9qM7 +mPwKJ35H2Wohp1M9gYGIBgk+g1/2e2qhUuOKc/+ABr4Gir+aIrSQ/mvnFllT +GhiPRVRPXtVCfitY2duKBhwXpDKNv2uhpvZ800VrGtzZbC1LYdFGLGknDiXZ +0mDnrZL6EII2ypNRzL5uRwObgs0RVdraqMs0neW7Ew1oGnn7tI9pIxFBP8lY +ZxokJ8ZWS0drI7dhIz3hAzTgvdh9PC1ZGy0eWfDXdqWBPtsxnbUybWSs8zKx +3Y0GJTqpcmu3tFH6WtXVvYdpoBcV6x//QBspXHAZPulJA0m9ZU75fm0U4qw3 +x+VNg29yJBd4p41aaMIC+T40QGPawl8mtJFjU7vxgyM0aD+pUPt0URtdib7s +auNPg+e+D6t417XRrHl4xFgADTpYHtGHOHVQwluV2vVjNEj5QH4pSNRBfaXs +TzOO0yB4R5l0tKQOkgp4/5l2gumfwqRSBE0H+W2+968hlAZtf/6dYVHUQY3/ +MsmmJ2nQ9aKwXVxNB/3r8td9HU6D/onF6AeaOsgq02y3zykasE73Wf3Q1UE5 +B2SO/omkAZ+Tf3vDVh00Tl9OOBdFA7nh+HjO7TpI/dtACTmGBo/yLeX/M9RB +kXdu3r8RS4ORWndzdyMd9CQ28fW2OBr4+w4nHTHRQSKWh38+j2fya5A8z26m +g9xEDPjcEmhwLPrff9rmOujGO1GFH2dpoCx63WGBiRfLvwEjiZmX2Dwvm506 +yCio6yDhPHP9XG7HViZeefPVvCOZBsdVgm9VM+c3mfBrh6fSwEJkX2cpc//A +WnVplXQajLbXvKea6iAF8h7usQs0kPoX/1rWWAd9PHPi94VMGux4lnz2OtJB ++d+z3xtfpIGXvPjzZqY++/33ni5cosFYJe85e30dxN8x0lSVQwNLNJIfupmp +T/1vycE8GvO9F/lZVksHxebLpAgW0GCI6mbhzOzvVnbjk48LabBZ90iNJLP/ +c0Fe7qGXaeB6cnbJn+nPzbeJNoolNDAzKRSxYvrnbXp9y8gVGlR3nPl8R0wH +vSF/F4ByGrQGvnQEpv9ZCcLLcxU00NjT89Ltnzay/qE9UVFJgzgpuQYhZn5a +OsLv81Uz8xJ/PEiNma8IjYKKlps0mL58UaVgRBtpFTzMOF5Lg8lUB9HiPm1U +fozVd7ieBrupfw0CmPl1G6HbJzcy89JZ4rW1ThtJmJnv2HGbWd/fOKO4XBsl +U1JEy+7RIIwrv3d7qjYK7hRrDcLMvPJlaI86aSMVzS3VtMc0uLzR4+5FC230 +uWB/zmAbDY7IBol909dGTsHFAQZPaGDPM2N3XlIbbZdUInP20uDvfGzPmREt +tHjWir35BQ0+fhbk8HmqhW79DPjh30eDLws0ytxdLST3pL6z/xUNErkujfNd +0kLcx7eFXB6hAaNr0dHDQgu1vXN1tRtlns9dp/tv6Wqh0+YMC7b3zPvS9aPl +LVkt9F2yk3rkEw04Nz/e2f1HEw0+2dWjO02D9alqmdhSTVQi5SH/fIEGvzIm +bvS81kAGOqrqHn+YeX6ya32gSgMNWs5vWVqiAU8x+VnQaQ3EHZ5oLb/GPP+3 +NP2Pymig4P4bIVEb5GDXSyfPKx7qCBJ/t6oJycHwEYs/p4bV0PiPBNc0JTmI +UJqWcU5URvLtlTm7DsoB34AnL/8eOfRCbal81EUOnrJc+fBHXA5F5Fg0HnWT +g5Wc2avvRmmo58jXl4nucvCanM6b4UdDIcKqPNhXDrz9v/S+jJVF2LX2tEao +HISRYt/GukqjA0tNh4XT5ICQGUcx2iSO2D04jhWny8Hj1gqvlgdEVNvjGK2W +IQebNyp0hVkREWvJYr7FRTlQEyNsKPQTQ1VmW18x8pn8LV0u/KkUQQtZD8x+ +VcjBvX7fY85HBFHGpjaVgRY5WJ4VL3TeyIqqth7kiW+VA9/sltlGcxaETean +tNrkQKrqYOi2gX+G3/crVGR2ysEt15Hj+zxWDa0Tk2X2PJeDv+37fm+6PG/I ++cFerO+tHFxaiFjyFXhvKD3z31zsOzmY2Z+gVHVz2FB3IaFfY0wOtpjuvsLr +1G/oyXc3/cJHObD6N5Wzi9po2LpFkmf3lBzoxuZRB4dftZzO+Py3d14OHInC +XqntP1uyCqNGoxeZ+z+S7q3RnGu5cY34YNOSHGxzalNdKPjd8ubhzoi0VTkw +Zb/7c8JnsUXva/WczQY63OMS1nvzbrXlp1HoVI8QHe4qpSUHSbJhbluBJ6cJ +dGi+gHfa3GfDMs7XylVF6fDj+5O1K/vY8a6gN+4p4nSokXD5ez2NA1cXbB+1 +kqaDjyh7h8QUF/b5zd7/VIUOLauBLaG7+LHbDdMXLmp0aGyJanPs4cdO7gk9 +PzbRIfArPx4wF8DmL9meELXo4HcntbpYXxArVG944L6FDv+prm/V5xLGXzxY +KpZN6FCFRXg97xPwKBlKU83owJUSdqH4GwEP9sWWyOykg0v9KqeCrAjuMFzP +N7Oiw8E+5WHSGRFcTvmXnmlHB/Y+XtkLIIq9BlYjlF3p8CswbupVvhh2Ob/t +5EM3Onw3mro9/FgM74XTJ3YfpsNT9cv7lL+KYdPalcAwTzrcfHif/+5mIpZP +XvZ4fIQOz7dPd555QsRSRvqH9/rTQaBdrfjvNBGLLUW4TgXQQcskIquLVxyz ++yztEwimw65VKx1bG3H82eiPzf6TdGh4fq5buUscjyzpWc2G0+G+oPeo+oQ4 +Hrh1cmfsKabeY0JKSSwSuE160agiig6ip4w1dbZI4NLleb1f8XSIPIw0Eosk +cEGdrm5CAh2MX/8S126SwFm+oVoSiXR4YfBdfHOPBI5//Vt1x3k6/KRsSzL+ +I4E96udkz1+gA+2o+9vknSQcEO+wZpVJh5fPpz+SXUg4zKFpmP8iHcYlu7eP +HiPhcwth6Rk5zLzUsAb8u0TCWU+GjtjnMfcXSOQ8fI2EC3O3mIkV0MHBtejM +0h0SrtVfXs29TIeUvBPv+1+T8D3eA8P7S5h+0KVKxSZI+PG7+w2SV+nAmcQn +lvWLhJ/dlEwfK6UDzzlfTet/JDwYHXWkpJwOzzr+WwReMh7bNWbqfo0O0WdG +j4YSyXhSxlCWXkWHbzHLWZMyZLz8eH3oWjUdMmn9qinaZLzh4uEGvxo6FF// +ex8bkDG/1+M0lVt0KOuU2bbFmIyJm+WOzNbR4a1LQfucBRlTOc+Y1jbQQT59 +Lej3LjJWGv4sE9xEB53o+QMGe8lYq8p0VesOHTbRjKu6ncnY4FTF0O+7TL3E +G5ElLmRsasXZcLuZyc9/egkfIuNdkr5p4Q/okBZXZqPqQcb7Zrv89B8xx9+6 +lY57kvHhR0qmqy10uDEfqDzlRcZH08/LPGqlw5j2lKiBNxmHHppZiWmjw7um +nJxR5ni0pvUQdNAhzOTX9Evm+kTWm/UbntBhzYDLjMjcP2OAP62jiw5Zp8On +apj1C8oC/RKfMs+fm4dQIZNfWegLE4seOuxtcPk3xuR/00xDhreXDk7NHkvh +TH13xDNWel4w86fdY3J0Nxm3Tv18ndZHh68+Bsp3LMn46b099bsHmPfBtuzf +LiZkPHC+IZUwSIfw3fM/Dm0n49EDon6vXjOxZG5gqy7TH9VQk+xhOghRhx/F +qpHxj7VB6r63dCjil9QtoTP9Kcl5PTJKh0urhjNswmTMF/ynrug9HY7UPRix +5iBjMSPnVLePzLwfcLFfXiZhxc9kk/HPzPtHPsQm+RMJazZFUsu/0IHc8Sst +eJCEDc6+W/aeooOEUebg4yckbKN4ue7rDB0S7K1Zq6+TsNPS35TqWWZe+Wwb +zQpI+NBTN9/A70y9GvIb9iSTcIi/LPXXLzocE+OkYj8Sjtoet9zwmw7X3lq0 +ye8j4bMC44OhC3SwbLxXz2JGwnm3ylKWlujAYXFQnSZDwqUMdt/7K3TgW88o +8uMj4eo93sZRa0w+Tz9JqDHPW5PcE2nDf3TwDo0RDRyXwC2/FZbX1+lQvS+b +bVOvBP4fkaiJ6Q== + "]], + LineBox[{{0.5234521787069084, 0.1068723117880184}, {0.5332681113839205, + 0.0732718233327438}, {0.5581050194897873, -0.008885380261704488}, { + 0.5916582666204868, -0.11155592080864524`}}]}, + Annotation[#, "Charting`Private`Tag$30147#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[{{1.601019295667737, -0.11155592080864524`}, { + 1.6346277092346464`, -0.0519817535412669}, { + 1.6376857991401788`, -0.04679590523049725}, { + 1.6407438890457111`, -0.04163775106908777}, { + 1.6468600688567758`, -0.03140557705517252}, { + 1.6590924284789053`, -0.011284907922871717`}, {1.6835571477231641`, + 0.02752789352772947}, {1.6866152376286965`, 0.032241170438083666`}, { + 1.6896733275342288`, 0.036923002727048126`}, {1.6957895073452935`, + 0.04619153285272756}, {1.708021866967423, 0.06434266814736649}, { + 1.7324865862116818`, 0.09906137513269872}, {1.7355446761172142`, + 0.1032495635932324}, {1.738211677470398, 0.1068723117880184}}], + LineBox[CompressedData[" +1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAAGFxNBhnOBEByOvrb+1u7PyZ0ZnhU +KgVA7399047Asz8tOt9TnzAFQEZtieo1QLM/NABYL+o2BUCa7ptuO8CyP0KM +SeZ/QwVACKeBgWrBsT9epCxUq1wFQKx1Leopka8/ltTyLwKPBUB6Smqj09en +PwU1f+ev8wVAoWAsvYNPkj8M+/fC+vkFQIgpyGepjJA/EsFwnkUABkBCCPmK +bJiNPyBNYlXbDAZAAtONqjqlhj88ZUXDBiYGQACdRp4H9XE/dJULn11YBkA1 +AYt3uWKBv+T1l1YLvQZANkpdXXN+oL+iQTNz3cMGQAGKu/67Q6G/X43Oj6/K +BkBJxMfDRAeiv9okBclT2AZAIGp+wA6Jo7/RU3I7nPMGQDCwW/dPd6a/vrFM +IC0qB0Bmsj0HE/2rv3z95zz/MAdA0pZ2MY2lrL85SYNZ0TcHQCYVBz0uTK2/ +tOC5knVFB0AQdHWc4JOuv6oPJwW+YAdAe3MSgnWGsL+XbQHqTpcHQM7Kk8Zz +0rK/VLmcBiGeB0D/a0S6tBezvxIFOCPzpAdA5BUzfQNcs7+OnG5cl7IHQCwx +CPDJ4bO/hMvbzt/NB0CCmDdo+OG0v0IXd+ux1AdAozQnh6Uftb//YhIIhNsH +QBxf3hdgXLW/evpIQSjpB0CfR7TV/dK1v3AptrNwBAhAJmPnBd+0tr8udVHQ +QgsIQMEO58r66ra/68Ds7BQSCEBpLDErJSC3v2ZYIya5HwhAsjC5waaHt79d +h5CYATsIQFA286BlS7i/GtMrtdNBCECkf/Rx/nm4v9gex9GlSAhA1QSZeKin +uL9Utv0KSlYIQETKdtwxALm/SuVqfZJxCEBGbGIfJ6a5v0Z9I6xEeAhA6hIF +RaHMub9CFdza9n4IQMIaIBQ58rm/OkVNOFuMCECmCvjowzq6vyqlL/MjpwhA +JpAMBVfBur8mPegh1q0IQAoAV+3O4Lq/ItWgUIi0CECs2jZpaf+6vxoFEq7s +wQhA7rN75Ag6u78LZfRotdwIQPhLwFIGpbu/CP2sl2fjCEDGGeAip727vwSV +ZcYZ6ghAMm10hHDVu7/8xNYjfvcIQLmqwUeAAry/+FyPUjD+CEC/URJZyBe8 +v/T0R4HiBAlA1m/vWjwsvL/sJLneRhIJQOnKMrmrUry/6LxxDfkYCUANOUnj +qGS8v+RUKjyrHwlAZ9g0mdV1vL9FT1JnMioJQDRdjMftjry/pwCnHw== + "]], LineBox[CompressedData[" +1:eJwVV3k4lG8XFv1UlsxgLINhZpCQLdnznITKUraRSkK2sk32RMm+lLUQsita +tElCHru0IMkWLZKQSlJZwjffX+91X+c859znvs/zvtdLdfa1cmVnY2PbxMHG +9v/nmSAxSj5wgfrRCx3fkuuxUVo0PXM3F4ytT7Euj6/HBlIKQQIWXPBT/j3/ +Pa963Oh+VtLKlguSeQc2fTtaj9GdV09T7blg+tWpz6X767GefojY5hNcoKNs +2HNBqR7vsG9r3BjJBaFhbTZHJ+twVYnIyT3xXPBsPHFf9ps6rPbVUyA2mQtA +7tYeu+Y6rBTK78aRywWEN9YcXjl1WC77GPfqAy7ocAwhcxjVYfG+Rcavz1yQ +7nCB8De6FueIma+pznDB7pccKnyetVj0eGE5c44L3MaM1LBFLRaaM17+tsoF +329Srn8l12IC4VLhpDA3bNDSept14zHmMFP6OrqPG0KDAk6Z1NTg6RbniKe3 +uWGV90lu1OVqLJk2eDK5ihvcJOlz3d7V2MZhP8OmjhvypZv5u42qccOCtvyH +p9wwuZnc+HX+IU7fRuz7+4kb2kyb2DsPPMS6WXjLFjIP6JH+mjgvPsAXTop3 +x8TygKFMlRZD9h5WIvZL7D7GC0TQ2sVz8hqeuDgRedmVl6Xn8Z1vCNfwVa6/ +X7548kLlFeLWO4/KMM96kfsXQngh49mA0tX/yvD0n0PG/Wm8wM6vPXipuASX +jYz6nGjlBfWbKblnxwqxePlnnLJ1MzxdeVbYwZ2F+6T/SI8pb4boz5Jrmi6Z +OKmIM1FdYzOsD3k/rfbkMl7K2WIzZLAZVFy4r7xmXsKDF09M0uw3g+2m+h88 +79Nwhv83QnXyZih/TnU5+CABc6HfTiO/NkNJlUzpwZaTOGSX3Mbqpc1AScvw +PTzgiid2H6lMWccHLm9p29R/OeLmvU1LBnx8YB/kvHuUyxyHWl3MqJDng53d +XF2CoQfRV1eZtiAnPvhlrFETKhiCDnvYeVp48ME5nfvU6j2h6OnJJKK8Lx8I +HHxuHxUUhkp9fx4dDeODT09GqfbHI5D96Sd/dmfzgW1/YK9ndjR6cYEhR+zm +A3LVzF/3jAtIJyW+a/oNH8ToH5uVi7+IytPqAlpH+EA/wud7TGgyis6kNgVP +88EL17T6/xRTEaXnj+IPdgKcPVhXy7mchvqHmtsYFAKUyaymaDlcRrxHRrKb +qQTo9ff04W27jAxHfnsqyxBgvue/vBL5THT/nRz/JkUC9A9JrxDnMlHyp2SH +em0CbHZMDfl6Khvt+Xb4L43Bqnct9YD1jlyULxj1+pwdAZa2BJ7Kis1F87o3 +74wcIUDFhPGH0v5cVJi47J7pTADCocUPYv55aGlL3uAmJgHGDIrqwq9eRRYH +Wqvc/Anw8dbSEb7PV9G1oJnUliACKJy4Ee2pkI+s2/T2hYcTgDOemR1dlY9u +OY8+nk0kgNVx39DdNQWIPfG/TPNkAmi0GL9V+1OA7O5t87uRxuLvzvwSLFqI +/mM7K++STQCjZ0G6J20KkcNVSu5AGQEosgr6ii2FqKrVOFi9ggAf4q8uOY0W +Iq4ZH+u0WwQoeDv/ju1vIXqkg7lNHxBAdupL0hm5IkQYPBbW0Miq93lM3De6 +CLmtxdmJtRLgSjWtfOFKEaqXvase0kEA+V/m0d8ri9CJQLZvql0EUDnQ8E9q +oAg15sl1Jr8iAGN2PNZhuggJtVqUfe0jgGDAjZ1cK0Womb/oaNlbVpx/QqFS +qhiJ6HRqs78nQFvfbffrqsXIx+kn6dgYAf4Ilw8SDIqR2N1dXSJTrH5XUiI0 +nIpRgPmY/oU/BHAoOBk3kl2MngVwiU0tEuCpzsZFt7JiJJWn9tdohQAurS3K +bveK0cvpyDtrHERwP050aesoRtL8N5PsNxDh5J8jJbK9xShU+7X7Yy4ihIXK +KKy9LUay8XQpfyIRkoyM74l8L0Zhd0z/dQsSIWd7D8eRP8Wot99/UFGECMEO +SnuEV4uR3GpuVYIYESwM2BT2/1eCzsm0pk5QWPEcHic2nhLUbzbjtZtGhBAH +7atK/CVIMUBwX6EMEdRx1OUh4RIUmasnsyJHBFXphXXsEiVosNll3WFFIshv +vZFXTi1Bs7uGyeHKRGhWqfueKFOCNjQdUC9UI8JF+uaoFbkSRIE285YdRPhZ +avebTbEEaWAd9wktIrza1jx2WakE7de/G7FJjwgv3N5N1auUINcnMjmKiAhl +UddvBKmVoDC93AcHDIhQUxDS3rK9BF2qI7z0MyJCvNjGD6XqJeiWTuzE5b1E +6F92yiXvKEEtj5fXakyJ8HXf2FUZFh7WOiU6sp8IuYHKye2s/LlHE2prlkSY +rlEXXGXV26Rpb0ZjEOFIuPjQC1Y/qepXrkZ2LL1aTOK2q5YgrR17znkcIYJS +0sFnasol6EBVfXaSAxEGYNOB56x53Lar3a90YsW3HmhZ2VqCzt6//vyVCxFm +X+n2P5MtQZdVJT7PuxNBInpNczudxfdu+qqwJxFu1Ixd0ZQsQa3KG0V0fYjA +nwqVg+QS9LYyXNXhFMsfs/NywkIliOu2h0tpMBHoQt5UX+4SRFN8F94RSoSl +lgXuRJaf2jets6bDiSBUJKFutFaMPCr0n6lEs+KbwyULfhajCLmqT9ZxRPAe +lbFF08Uo6/rWlaBEIhiGat+LHCtG7WWCKk9SiWCiLtz2+1UxeieduO9DBhHy +vZQXZDuL0e+SNWeOLBb/r7sNVzFrP4unL++7SgTplhvSxbeKUWR+4/KbCiKU +H44V7ztfjHIkNEiLt4jAqfOfnGlQMbqXd1NJ/C7Lj8G4Qz4ni9GHnEwn52oi +nLp4YVe9ZTHSz/Lq+N7M8nuT0rMk8WJkKzT2gdhOBPOzy2WnNxcj78sHl9Q7 +iRB57ttbUbZilJdhsO1MNxFiBipPB4wVoaUUkYwNI0S4PVeXVF5ShB7GtzpI +/SaCTb9w+RORIlRu8lwkboEIc4YRUlfXF6Ecnt7eb8tEcG04Z6syW4giUt8b +17HzA8za8we1FyKz7CUlWwI/EHmY/rm+hWjsuspakgI/VN71qXU7WYA2d+QV +/HXih7MZjszwrXloXULJIQdXftgoXG9PnWO9f01uCLR58EO0adc779pcNNT1 +KC7dlx8Kp/KyN5rkotL+Xt9t4fwg//C8WZhrDtKZ2AjHs/nhic9YiEBKNnL7 +L/BDVxc/RFp8rXKqvYTIkp0Dy6/4IfWuq8XKuUuoS0uiW+4NP6z9E/A6b3QJ +aXi1PYl8yw/8Wxc/7u3JQJyvSbkak/zw0Ufy0r/xdFRWWM3IXycAxVsfH1Dm +SUPjugvPvNUF4I9QZ5NmdSLKZpg152gKQGJRiUw/JCIz38LHHToC8N0o6sOV +5wmoqnhvOXWXAARFK7fnfIxH0ZuuxLwxF4B1ay+1W/jikPSANux0Z+UPvMu6 +FhSFjvudeciTIwCyWiGpP5dCkIbau4dbrwoAZ9ntKhXZEMQ1B9XGhQKQL/K6 +WcMqGN09xfko4poAENH5ptJbgegfM61m/r4A3MBs2s6efijT93rdyHMBmNyt +JrtF1gN1er1uurUiAIpqF7DE2Kp+nqJGcyebIDg2/hB7NU3DzJns5gkOQai0 +D3zH36GOhbwcWqS4BOHCz2ZrqRwj7Ow51XpJSBCES7P+5r1g4H8n1jrClAWh +ehe7U3CAK1Z2V+gycxIEldrI6V2HA/C7E5K+t10EIXc19Yjn7wB8wUuAsNlD +EN7vwdmbUgLx1Klly24fQdDzC0wueBKES8Kev7EMEwTO2y2lxI2nsXC656ht +liAMkyZ5NC3DcfulY2cf5QhC1+Zfbmqvw3FAlrWkSL4gcPV91LlkfRa/ytN1 +GioVBPLn82YJB87hpOvcn4/cF4RjnYQHQjkReK3+5ozjS0GwdbRsJtpF4kpc +cLGpRxDs1OtMVC5EYvvmDCVanyDQ7oyHRuBI/LjjDPPTsCDMMfmlq+lR2L/X +dN51UhDaX5XMnB6LwrQ36HL7V1Y/eekxOUI07hnYrrHlhyBMelqUcO2MxttG +xUImfwvCrNRAkPulaPzly9flkxwkcNg+P3NROwZnTr/Pe85JgpLO0PJhxxhs ++O31TkUuEvhZEGPs42Jw0VzduW8EEggIXaet643BR1aSOJgUEjAyBXyGjsZi +LraI0h4qCdpO09OGz8biGvYAI1UZEryzbN8rWBCLSRvt4+YUSFDkQY/YPhqL +u/kVuQO1SSD+lK6nYhGH9b29p3L1SKDlK2wKJ+JwZUdlRzMiQcCgV8q183E4 +OUw1mmBMgsQI//bgu3F4td/PWXMfCYJ3enV8ao/D3qpV4GBGgpw3xuTykThs +NqGxctOKBBLzlJ+6nPG4HkLe9jJIUPOo/goPOR4r5j5+vGhHAlq396jmtnjM +baEXtOcYCeSFfuQVWsbjZ493/RjzJMGksMGxF+nxWEcw6uUmXxLkPzqqElUU +j2/4tN5U8SPBT76I21fuxOME+h6PsyEkGO79dHyyMx4vhMcbl50hwT/XrWvU +/njsMdgp/eIsCbSf+nA1fIzHey+afRSNIUFm8JP9Un/jcc2XixjiSaAfdeTf +F7YEvMWg+6p7EgnaswU4SFwJODOPEJacTAKdXY20cv4EzPnX8vDDNBJUz7lL +FJMTcJBlhtbIJVbcZ8cjDloCnrjZJ8SRTYIQCWb1S7kEbMsp9HtrLgl6mQGf +2JQTcJvjwdcW+SR4ufPWxnz1BKxel30vuIgE0pS4uTLtBFxKGk7JLyWBWbef +r6h+AhZkivm0XWf5k/H6wOKuBBz9zN5s5gYJBtP+uRobJeB56Xx5gUoSLOvK +xa7bm4CPn3u/UeceCWLuMGMVTBJw75DUF8cqEnBKPNVvM03ABurObXGPSADK +P+O7zRLw/eSSkspaEugFBIOpeQKmTY2ff/OEBKFPrxtos3D6blnHf40ksGqN +98lh5a/Ld9ent7LiCq9LfVn1mAvl4iYdLP7Hpjse70vAH6yml5jPSBDR21d3 +ek8CtritMJT1kgRKkepudw0TcOMG70cNPaz99kGVDqx5VJwrL39+TQJvkZqw +mJ0JuLD+hz/PAAlusE/UybD0IAirWm0fJsF99eSDwNLr3Ck/lcOjJPBo/qrX +r5SAvz9/sPn8BxJU2ZYfnmTp7SD7e+b6JxJsa+4rDGb5of82uOL3FAlqU7K8 +iYIJuHLH4zjxbySQSyC8leBJwBKpS667Z0nwt+mO/k2OBPzPMJyW9ocE9emq +rWY/47FXQQNbzSIJLmluHHD+Eo9HFtfevftHYn2/3jWtjMTjusrIXEUOIRBN +1t3c3h6POc0Y5CxOIdjfyh869zgeW05tubKOSwgyN0Uupt+Kx1/oLzP7CUIw +NAemO1LjscAV4fQIihCwkR5to7P230FjmvCVKgTDthckBSEeV7yuT2HICMHY +z7KgKKV4jDY7X5RXFIJCqcGMsU3x2DPqVnyfthCYK/wN66iNw9VS5zagnUKg +IdcZ1VMWh9c1WMZWgBDIRunGOafG4ayFP1Fn9wiBSPyn97IucbjFe9c5OYYQ +TAezRdpyxmExu/7AMKYQvNEVvh+hEYvdfpfPT/gLQfMGHFlHjsX30s/4Wwaz +6mt7rl5ajcF7Xkqdkj0rBI5WDJ+tbTHY38DTqydJCHbXUEJXzWPwc0W249LX +heCzwMGwpAPR+Mw6eYsXo0JgFL39VbVYJJ4w5B6U/SgEsycO6Yv+PY8t4meO +nR8XglBUenlP73kszXfHV+OrEKTmV63yxJ/HL8TVUwoXhCDETcj36M8ITNHS +7woQEIbSbwkP9oecw80+VmYS+4ThrO+4e1BgKOYaCd3rUyUMG/oerzSrM7FG +cAVvyiNh2Nwj36Lc64ud+Ad779QKQ/pc7pSQri+u2bvj6M9GYVjXYt5czuuD +3R7+OBXwUhhagx+5b632xE3JLrmhE8Jw6u7bLeuE3Vn/3/u/x4qIQPn+EPZm +a3tcOhL24LqYCPwdyzifr38EdwffDHlKEYFEmmPJZfnDWLZyIweXjAg4f55I +GP/PDr8mtwhfVBWBZz9iNYOfWWOlec1dGSYiUDESPHdPYg/+fI16qSBMBE6O +sl/XF1JGM9EfFzkiRKDvoy3P3ejtaM656JhHlAiktSXc5grWRGySVAXVRBGY +n8gfmjRCiJwl1dycJQLjJXdl/Y32IIs4ydnP90XA1Nnj5syUFTro+p5hUi0C +E9P17IRn1shhd0Fd5WMRsL++p1Or3AZ5rlHightFQOSr/r00B1sUG0yhbOoS +AZ/Bu1MyDw6hencJM8UpEVDZGnBrx9Ix1GI0ei91RgS6xiTaxuwd0TP6VeHf +P0TAq2mfTkGdIxp4L/7pyR8R+LxouvtXoBOaOygeemC9KPjVPmMsjDojub1i +5X6SonC5/mezwBlXpCz7lneAJgppMfJHpztdkcb6XH9dWVFQi12RuiPshnY3 +ktH6baLQ0H0mjf2uG3LQIvdf1hEF6eb87K7X7uiSnOj6xwxRIJjd3rH65QSy +d5C9/slOFBwVzPSLqSeR9KXtJpvtReFuztRRu8MnUdWaeepxZ1GgBCd3Lj89 +ifr6I8U3+4rCWLzNQ9lcT5THk4q1/ERhbpBW7fzSE7kYXHU+HigK415Bog9W +PdH87UflNWdEobaxKjbdwQsJxMyoH48XhbDSY/4HBbzRcO3iwMUkUTg1lfx+ +l743Kp7lPFOTLAq2572ohh7eSM2e2sR7WRT65/22pz/2Rlbbbc1rikRha6nh +2+OWPoh84vjsWKkomLj9kRIP9EFj+cwM3nJRsFxPaZ3N8kF+XElDzpWi4KSS +XfVz2Aelf8SuvHWisDfpgLCrrS86LPxyo1aDKBiPOv8n4O+LaObDN52bRGGm +s35oLNkX3a+Z//mog6X/mfJdX1t8Uej3dZfHnomCnEmSi8yoLzKQ5tPi7RKF ++XMGF6J/+6LelK1nnftY+qRyZw8TmSinTYN6cUAUSvV+KrSKM5Hz8u7WR8Ms +3Df+bdcWJppzc+Di/SgKKezutcs6TFSb53lbc1wU8voPlmsZMlFkb4iF8xdR +uNlHSOI2ZyKifkbmo2+icP/j+Q2BR5lo0L9Qe2yW5e+lqDQeVyYqrLg9wjMv +ClKn+md1vZjI433tOc2/orAafbaIw5+JVEhPac5LouAgwkF1Oc1ECyZv2i6s +iIJr0onvR88xUWPEmMcjNjJsU1FJ/BnNRBYz/yp5NpDBXZWkMZnMRCI0LitN +LjI45jrsN8tgog8HhX878ZIhbIONkVkWE5VflM6+QCDDMcuo4skcJmK2qOo+ +EmDF3fu+U/OZSGtR/91HITLYbYmuWihkIjZls/M8ZDKMakue8y5hoqcuh6Q1 +JcjwbTbsbUQZE6XmuHU4SZHBRqb24PbrTBQcFOkfRifDjuNHO86VM5GDVb5k +liwZxD9tVmFWMJGRUu3ze1vJIJdDE/vvBhMpcvUHv1AkA9txTgHEwgITP+lf +lMnw9OjOEgoLLzXx9qzbTgZ2yyN2pazzY1e3holrkEGIh62xh1W/87SRnKY2 +q9/zXo9SVv+7DKc+Sz0yTOaFj0leY6Js1fAIL0QGlc7yJ7tLmegc7xXFOAMy +BOj8SSIUM5HbVNVgkREZ9Cb/vY8tYCLztp7o+r1kGNttaH49j4nUi2ZUBkzJ +oHUdefhdYSKx8I2jP/eT4UDbvvbJy0zEfkg6gceKpZdE4QpXOhNNqcOOLQwy +TPg6lA1dZKIegv3HXXZkcNMIZTASmKjgaYZ2sAMZgs61qdmy/IwtvfM5zYkM +xl/+Zoyw/PaJeJ52y4UMOsnRrvwBTKSnxTH98SQrn3fHs2R3JqILSmb+8ybD +y7OBWf2OTMQ1q2MgfIoMxSGwr+cQa9+u++WYBZOhMdW7/60JEwUKj5k8iiID +n8FTSdetTGT/a+XPq1gypDdvvGwuxUSG3aIlMwlkkKw++ndGiIn44yyXqalk +2C71kt+ag4kq/zTevJBHBl/f00ev3vNFl3tHDl4vIIPhdzWZdbm+KKxygaO5 +mNVPyVFyNMoXmbqp2P8tJ0PqwPVJdhtfNPmmgMf5IRmYBnkV8t99UPe9upqw +GjLYZ58bCnjtg6ovDrhk1ZFhYc302a4aHxRtxPfkRRMZZhasDU5E+CDqw7Pe +ml1koLuf+CXA7YMOXzraxfOFDFVenQvrub2R+AMuMc9pMnAFkZ3VJ7zQ+1eP +3Du/keFRwYuWqUYv5MLHvy52ngyE1Gt23wK8kE9i+/a1dWJgFkySiR/wRJER +yld+iouB3YWW8eT4k6jCa51Lv5UYeFjVNH8qc0deSZV31W3FoOwR+yXZQHek +dOPISvohMUhVVlqTMXRH9788zDzgKAbcw05GTh/dUL3zyc6n3mJQQfNo+Cvi +hnrsXivVxYsBwTQ8lXjWBS0Yli0WNIjBFo4FO0EFJxRWVxDV2sTKX39P49qC +I2JTy+GdahWDhzKBpK3tjmiDZApV7bkYNF0hpXE6OSKhxZB9rQNiwL/tXWKk +4jG0/bbZlclZMQAh4jevtSPIhzSvpUoXh/6M/OdXbjHQXNL3ZoasOHCZ+61a +72WgQPYps9Ct4hD3Q8Ztx7gNCvsx6tiiLA4JX+5EB4rboKTOjniGnjjo64r/ +kUyxQuXhuYOnGeLw9FpNDXNlP/r02SCkOU4cslwuffkusxsZFHQVyyeJA4e0 +h2iBgwEqtDv8Mj2ZVV/EVlY+exdyeH6KdvyyOBwd5pJ5zwto+G7hC44ScZD2 +8R4w26iDes+sShk1iIPF0h9XwzBFpLoj0fR2kzjEnI84T8zbilK/k4JIbeLg +E578UbRRFu132vb883NxmDwc/2MTiYqeGdsHxg6Jg1lEzTPvrg2omVjb2TEv +DjWaB+9MTVAw9bnRvPKCOMQuDHxe46LhiOhXlOxlcWgY+r5ceVUa6/+d9Pdg +lwDlJY/Ag1Vbce2IMGUTQQJ6Tudn/u1VxfevB/qZKEjAuOqIwbt9urh4p6rY +SycJ6JyYiH4qZoyb93NFLbtIwFNjC63jKcZ47Nin6a0eEqAV6ZfRvm4Ppkde +ro31kYBbo1PD42N7cGn74iE4IwGFqRvymJn7cNmB5uwHlyTgj2V4hWuzGW53 +zGUby5IAveozP61o5njiVIAHIVcCNj9A7eznzbHsJVkt7yIJMDvmf7lCZz++ +Npg4IFvJOt91Y4hYcACXO1kL5XRIgN/yeit5IUv81E/x7NNnEvB3yltxh54l +noz6b+LPSwmoXNMdL3KyxHLXHj207pMA97SW+KIblrhiWozB+1EC5kYopfo7 +rPCz5fl63XEJwLySlkdtrfA0T5f0yS8S4FMQ4/E+yArLK0fMt3+TAE6DN4Ob +q63wDf/xjIglCciy1wylbbPGz6KfLFeusOKRppIu+6zx9OXM46NsFGBfeH2e +29UaK9Ts3a6zgQJeSq8+XMixxrf+3er9JUABroFiC5dVa/yCN1aHJkyBVyO8 +wu9INniGcqzYgkwB1eDt1xsVbbDiLqLfbSkKPC+ff9dkZ4NvxwQS3bdRIH13 +78GmCla+3tHIGBUKTGdaiqjWs/LnDX+VbKdApu52foEuG3zDWfDNB20K/Pg3 +XKA8a4OnRf8ZrelRoJFAV/FkY+Ctrz5VSwAFYta1zZEJDFyOHmQfNqbA+uvO +UkPbGHjyT86m0/so4J994sqkLgNvqYwMzTKjgLZnn6PPPga+Jm5l32dFAXI+ +bfN7ZwaeeK39co5BAU6N1/zPfRhYJomqTzxEAdG8wBLlUAYuXZyV3H+MAsol +5vUuKQw8fncw1cuZAikHTPw1rjAw3aNxXZIrBZptagWiihnYWbLcr8KDAlKS +L7VNbzJwcX/Kpw5PChT+SYtKecDAHy8G20z4UCCg+meqRR0DSxkda1vvR4Gb +0eUcKc0MXPBA6fquEAoolHFWxHYz8LuTQiKOZyiwtHWz3K43DEyhrcafPcvS +N1Wq7MwwAx8d+ryYd56lr1r9M433DJyX+vJkXTQF5tZ4jPw/MfDInodvh+Io +cFZnokn1CwOLreWZLSRSQESpftZvmoEPV0c/EUqmwNWvVyM1vzFwjreX0o40 +CpitV5aP+MHAw9I2BdaXKOBhXJRr/pOBRUd0CX5ZFBA+U3mhcI6B7TLo51Nz +KFApk151+hcDZ5twz1VepcBJQ44XQyw8sO6X88tClj78ShebWFjo8fDrryUU +KH15+4EqC9symw25rlPA/nTsP3lWvctbbjyUu0GB/AqKbOUsA/e9S5Pdc5vF +z1R7tu47Awtmns5yvUsBd78fYowZBrY2d9oY/YACCTI3PEOnGDh9/b7TxdUU +2KsmXqI4wcC9dSrTjY8psHtNN85rjIGJ/iJH3tdTgPv4znc67xjYQp7txQqm +wJ7wJN/sIQZO/fhFT7yFAn/Smzli+xi4J7v7tk47BQq+VbisZ/nBZ/GIcqiT +Ak+ebDsq2MnAyQ2xbJndFDD3OGA8w/KzK9DnVFUvBSxM9vQ+rGJg3m22Y71v +WP5cjFIUvM3AF3JlWvlGKHDk5I+L6XkM/MKKd4fSewr8srqtVZXBwNxcv8vM +xiiwQaNxwTuRgRNDWuMSJinw6M1JrttBDBzHOG7K8ZsCLmy8H5gmrP06MGLv +ukCBa3O/3Zx2MnD9PoZPxzIFklbYKt4rM/Dczj1pSeySEHmsvT5BgIHtZRUG +BAiSoHh8beb+GxscLFU6GSggCffFg/hU2mxwOlliaUBIEqp8Kpp2V9ngjs18 +EnkSkqDH73Vge5oNVvs75yytIAknutyTrYxtsPlPz4BYJUlYua1zvUTNBnt8 +HY+ZVJUEPuoOxiWKDb76vr/8lpYkMDaprtr9tsYbn9Z+VzeWBE62ljMp+db4 +XXZkqJGTJAj6p6/c+2CFF9OXk667SEJO0TyO6bDCghcDrm7ykITulX4/7kor +vO+8W+NLH0kYqPA3Vg21wlUnTDhtwyTh98n5SU4+K5yow5/uliUJbWc3d75V +sMQ7Rooq4l5KQuV101mrgP2YoOSxcKdHElYjXx8y0tyPZ84p7Rl8LQnceUPf +vi+a41J63bjcsCQcSd5b63PWHAt69kk+m5AEIWZFvlW0GV4K4zDlZJOC0ayF +N+oxJniIW6Npr6gU1IXzPjzsboyzt+befmkqBfcthmyDefXw/C/jsihzKRjX +iVn+EK6LDzTM5WkfkIJkX5v1Sd91MKe1yYUyKynQ379B83aPNg4MWzwZfkgK +wuqCtaKyNbFV90G5be5SsFXbiSKrvR3zBAqWXIiUAo7AvOAzpTLYAzXmGERL +AZtXndBwoTRu2eSVvhAjBb8Yzzi88uk4NL/lvEuCFJzhfLJR7yoVT3X4Oeql +SsGqGkmS30YMt5NfScxclQI3mTdlQoSN+FzjxWzTx1JA195w8LwdAU2PNl5a +rGXx1/+3rn+ZiGyXf6Ver5eC7+vxx6VcAaSocTiBo1EKtKMGUop6hdDgTdnQ +unYpcIhNFXgvIoHUsvARhT4pSD1Tdup2pDS6WjV3cOiNFFA5vzC7tWXQxl4Z +m7gBKbBv5UvR+iGD3vNcMPs0LAVam4S7h2y2oAuRdjtzP0rBzKHYCSVueTTh +/ZPC/UMKSiQ7yjnoysgySVrs8awUiPSG/51/oozqyw8Ku89JQd5n0Q0XFVRQ +xqcnfC2/pcD9r8Hu1SYVBIcS2c78k4ILrYT/No6roptBT/7JrUrBU1UNa2N5 +NSR0aXahf00KCOyuYnm+auhbl+1PNQ4qhHUdO3zxrxrKMaSPTW+iAt9UaHnk +v+3oP2fbd9ncVMhQuHwvRFcdMc8lDBvzUiFytswy5rQ62lP7o7eYQAVtge2M +sTl1NK9c33JYmAoWQoZFt4Z3IHMxRtkzaSpsUVQOyj+ribLHlRqPyFLBoDpQ +oeemJhq/vfHtzBYqLPnBD61BTRQG9QQ+BSrMreTV3VXSQrdc6WHWqlTI7HKb +3dWrhRaUVjLH1aiwlSgUp76ohQwX+u8FqlMhVcWk2VFSG71NTPySpUmFe4r+ +Ne4ntBHX3Z9WIzup4DfV7607r41sTz/39kZUaL/SMMhJ0kHFBmXxq0CFnIHa +E3w7dJD2G7sGKUMqfDLdsW7YTwd5LOGtriZUiO+/MXT8sw6qarli+MeUCmk9 +TJUtbLqI7aL/sThzKkzH+nIpknVRtuSWyxUWrH7uFlX/THVRh2Ey23dbKtw3 +dol6fk0X8W/2EDtnR4Xufej8rTpd5DCwS4NwmAopI7fk+7p10Z8Tvz3VjlKh +P1rWfOm3LjLY3h3b4kAFH/Pe7Usb9FDyv/IiG0cqWOqgot2iekg2xX4g6DgV +5F4FclVr6yE/O425Da5UcFGXTvywVw81UAm8V9yo8M7ULPvgQT3EqGoxqDtB +Ben72jFKfnqoMPzqUTNPFr9c8krKWT00YxwcMupFBdnzuTt2Jeqh6CH5yjVf +lp/d1zQyC/RQT/H6ztRTrH4jAbd0K/SQuNe7T1R/KvzSPrRT/b4e8thRs3o/ +gAol/qttEbV66MFqmqhhEBXkq0/I0Jr10GqHp/qbYCroHJzTE+3UQyZpRgfc +TlOB3V571q1bD2Ueljz5N5QKhHVUGZ43emiMvhgdH0aFBwatLZuG9ZDSt94C +0bNUyHPzqXZ8p4dCq2/V3jhHhT2x6VPEMT3Ufi72je55KkiJtZhSPush/n2O +sy8iWfySKl7GftFDDvw63A7RrPnqV5zMpvTQjbcCsj9iqNCQF77iO62H/pR+ +g4g4ln94PHOOhXf5dBwhJrDOf/0k+4aFlwanjFsTqXADycWtY+Gq3TxqwReo +4JXLLhcwqYe8K5Uk5JOp8Kxs/X6lCZY/opYbR1NY84cbguonPfQhyv9XShoV +7JUt9p59r4eufL/8ziCDtd8a1PtCb/WQ1aGazt+XqPBime/FMmt+ntbhqvJM +Knx36JhQ6mHNp7RScCSbClZGWox7LP3OXZFM2pxDhV1KF72iWfpqrTcIaspl ++dUlEV3B0n/Ox8Up4CoVLtxz/k1l+XNrKNZsSwEVJscnxX6U6yFXwwrN4UIq +sF03YvCz/B0U/c4LpVQolH4U4Zigh9KjCYtzZaz7snhXMzlcD5n+UBsvu06F +ZvntScKnWPvVGlzLfZOlp+GNMgNbPRSinFPWcIsKI16j6MsePaSaU596qpIK +h6xXxL9p6aFS33XuA/eoEHT7jB2Ntb8Ow3SrxAesfSn/kWmzUQ8JGxnv3PmQ +1b/o+OC3P7ookZwkUFJDBZUkV/UjvbqI2SbY6INZ+0ocNDWJ1EXyKpo3qU0s +/bUEMka9dNGnnEOZfc1UyFcpy/9kq4tsmfleOu1UWOY9tmi+VRfpicmJcr5k +ve9+oHttHTroT4zJ+sddVOhhZG4QrdRBd2a9fnj2UGFwVm3L1wwdRGu/1/bq +NRX2cb97TXTQQRtP6fpdHaYCKMxFZMxoo+a3R49ajLD8+a1Vu6FbG50xjtjL +8Y4K15J6vnPe00bfxdooJz5SIaG7yPOWvzbqa9//XH2SCqtvz99p+KWFCsSd +pV/8psJDL4VGuw+aSGe7gpLzX9b9JJ1B+Q2aqG/fvObCAhXiNDKEM/I00cbg +WFPpf1TwiHLpSTmoiZivbviFsdMgVOy8yUKnBoLYX42KfDRwOhB0OrdoBxr7 +EX30ohwNDlO+CzdLb0fSLdcz9x+hAaHuMl/6aQXUpbhQOmJPA6V1zG5/mgIK +ydz74KQDDYLHxvz2PZdHz09Mdcc60aBR9g3foLg88iMobMLuNBChDlY9wnII +H608oxxAAzsryU+SnLLo8EKVI+EiDV4qfnw9WySF1jv/55ufTIM0i7DnXWZS +qPI5I1wxlQY9mo9v3P0hidYV/LmyN4MGBvmiUZN5FFRupPU64goNmn24Dv5a +FkO/0+uMfpbRwGT0ojV7txBK3dYs39tAg6DjxZPrazahcq0jmyIbaUD+IPGJ +9+RGhHfPf1FtpgGpwTDrlsQG9P2QbFlaGw12tx+/3JSwHpnGJkpavqDBvzKO +b61fV/U531sJ9gzRQLnm8BJv4oS+xPTXuXNvacDcfZxytumjvvrv6FfKozSw +mgia5Vs3rH+c+1Fyygca+K4cGQu8Xa/fqCm26cAXGnQ1jG9raBltOJP6aeXl +PA3YpEQyrWQWG9Jzw0bC/9DAIe/Wg/X7lhtuXCPVbVtg6XW+pMnXY6VhsH5P +yMVlGmzfnVCl8JINa0zdnDNjp8Oz/y7IjY2vx7O7Ar4856MD/5PX3TIVPHij +OW/7GSIdMg8WePpl8WJJu2ulCgJ0cHOTP3MqajPe7zPolCREh2bif2eRPAHf +zNEbMZGgw4XNHK8tvxGx26/1rzrl6dAV1ps8oEPCDjcMu+wV6cCZMmoZkU3C +tk7Rz39sY/W7s4+P8puEjbs52kmqrPz4CjbNm0JY9iZ7nZMmHT40nX3zhksE +f3ZmK1vcTYcwSfGUS1lkPCIKxReM6JBooTLgPU7GfT3nCiT30IEr8TSXtooY +btVfu2JkQof4mgaDslYxXEpeTU6zYPXXItzt/yCOXXqXQ7YepcO0tMHbJxMU +bJ+gG1TvQIfPY8OpLTRJbANn/A840kGp3ZOj4agkNqxc8g48Tgd2MZGM9B5J +LJ246Nx0gg5Xtvn0jdlIYfFd2o42nnQwSS/SaPCRwoILIUe/eNHBVW34Nile +Cq93WzjIy6RDqF7IhPZjKfxp11+zQ0F0iL3iZnuMRMXDCxomM8F04HluKkNX +oOLeO0F7zp2mQ0MGt4MrUHGzxJ9dZWEsfYZVXdxOUHHx4rzGz0g62Mf7lrg8 +pOKcu+rq0dF0mDu2I02mg4rT3QNUhWPpQL6l9sp9kIoj3/xS2JlAB3Ubr8+n +FqnY+d6cVEIKiz/fJnr5Dhr2irT+Z5JGh9wrlR4CRjQcaF01wJPB0kcwc9tn +axqO/x2YnJrJms9g3asGXxpOb+8/YZVNh8OJ4+ufhtFwbpamkWAOHVaNHjrr +JNBwpfbictZVOnjc73c7WkjDNVyHBw4V0CGafPk0300abnpbe1+siA6GZRtT +tj2k4We3xJJHi+mw4Zq5S00DDfeFh50oKKVD9muVx3c7aHh0/6ih0zU65DvL +WAj30PCEpL4UvZwOapK632cGaHixaa3/2k06bBsacZz8TMPsGY73PW7TQQPp +v+CboWEel6aL8nfooNN30KviJw2TdtBOzNylQ0nbA/7qPzRM4YwyrLzPmv/k +zgyNZRqWG/gkyayiw8RRzVaFNRpWLTdcVq2mw1i26tlMdjrWOV3W/+sRa96U +tdzg/+jY0ITz/sPHLH4WlUvdG+h4v5j7xeA6OsgXhZ4u3ETHB2c6PLSf0IFC +71ic4qJjxydyhssNdIgI5j92m5uOTyYnSD5ppIOs27fkrywccGx66WwzHUo3 +/GSWsXC4imk/tLL0mKv6/pZ1PnbdrXvs7XTY6dX2K4VVP7WX52JrBx0q8654 +N7P655R4e8R20mFzR4JpAItfSUDX7r3P6YBj2s5eY/G/ZaQsyfWSDmzcJkuH +WPNVC6UuPe9i7Z/b4P0U1vyNX2bfXOyhg/LLr/l7/9JwZ43lvQO9dHg+c6c6 +Zo6GexPuXyD2sfZH9++vPd9oeOSwgMfrNyxso2qV+oXlj0LA7ssDdEiydeo6 +9pGGf/zroxwcokPgPkH3R8Msfwoy3wyP0OGO3p0f7C9omJv5927eOzocaOUZ +X2ihYcFddhccPtAheXfbSmgdDW/5JLp77BMdHuQyHm+poGGVqlBK6Wc6CFgH +nrQpoGGdmLeLrl/o8GrW6xjxMg2bbbl6d2qaDp/CFwDO0bDtwkrSzRk6DD89 +bVzlT8PHOh3cvb/T4QU9t6nenYb9PKUoP3/SwTol2jZlPw2H6Z1fvP+LDnol +1WlHdtFwDO9YX8BvOgTHmsQ0bqfh7DslSQsLdFgf1DpmJ0zDxRHr3WuX6LAX +ewUmb6Thm5auBmH/WHxsp4hOrPtWRWuX0F+lg9lAfterKSpu+CW7uLZGh8Z1 +d5s/DlHx/wD+FPhE + "]], + LineBox[{{0.5338798696883907, 0.1068723117880184}, { + 0.5581050194897873, -0.013328070392556731`}, { + 0.5795059219789263, -0.11155592080864524`}}]}, + Annotation[#, "Charting`Private`Tag$30147#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-0.11155592080864524`, 0.1068723117880184}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896375366032028*^9, {3.896380461509735*^9, 3.896380488983677*^9}}, + CellLabel-> + "Out[160]=",ExpressionUUID->"072975e1-4f07-4e56-951f-8ff1cc06c14c"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes amortiguaciones", "Subsubsection", + CellChangeTimes->{{3.898187122863616*^9, + 3.8981871286853933`*^9}},ExpressionUUID->"aa77cda8-c7e7-4688-9de6-\ +8f5ad8dc6972"], + +Cell["El par\[AAcute]metro \[Beta] es la amortiguaci\[OAcute]n", "Text", + CellChangeTimes->{{3.898187131566989*^9, + 3.898187148566062*^9}},ExpressionUUID->"e86c8cc4-fe4c-4eb5-959e-\ +d6a9f268b64b"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{"A", ",", "\[Omega]0", ",", "\[Delta]", ",", "\[Beta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"A", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", + RowBox[{"2", + SqrtBox["2"]}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"PlotRange", "->", "All"}]}], " ", "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896380450611208*^9, 3.896380549178166*^9}, {3.8981871176403437`*^9, + 3.898187118087818*^9}},ExpressionUUID->"bf3c28dd-01b5-4814-8568-\ +f604154f80e3"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwUV3k81F8XtmRfx74Og5BEJNnvIQmRwkglISLrUJZKWbOFpCwhe9FCRGXt +KmRL2UlKSX5ItpA177x/zef53HPueZ5znnu/c0lOPpYudDQ0NNd20ND8//f+ +dSdGFeebes3qPsnb23OoqVfS7ITkBXTw1YeBjIk5tP3udYSk5GV07tvahZL3 +c+h+Q4IEg2QscvJk4NVLm0Oeuv5efyXuofrlxAo12TnUu+F2d17iEapMSdWt +UJxFAS3EvXPlj5FyeZ21J9ssErnT1/H74FM0NnDGpmLqN3JSAPpfrs+Q4Y3X +nfOFv1HQU7bqxcHniD9NJfq4wG/E9HlM7rdENSr9tKE8/fMXGmqo95+ZrEYt +nQZme17/Qo8fpjf+Kq9B8yT/3fypv9BRv6Nnpw/WIdUXleNDhr9QKktN6n+u +GB1lDOGyzZ5GPFmtdAuDb9EG6TXZz2AK5bXn+P6SaENXAmKav9lOoKX0Fwqj +8W2ozTjnhIPMBDJy7fjRs9aGCFXPBB/N/UQz9H/JNb3tSOvFo9msGz+Rhu5R +rdjo98jZ+bKW7rNx1PVsk05u7iO6drpqtG99DIW0K5qqnO1F3vCK8fDWV1T6 +LPazp9IwCnzwj9dJsBtN80zHmzoOox7M9sDjeReSCzDVk787jF4OHk1+ad6F +cnXY8n6sDSMZmvt3lFk/ouS2+POnmj8j25EjThdnO1DAj1sLh+2+oJ4Z49W1 +vmaUw9YRQTj0DYUNJ+286VCJ9HSv2oXaf0OM94vnFdafoxHv3fvnAr+hsd+l +vGkp5Uio5+bE+8ffUERR+VpXQQm6nW5mEsP9HZ2pmFVbeJOPInZ+4Nz+/B3h +QsGEEFU/7Iq67834/UDHBVjODaRVYpr8lZrPN3+gPW3RgbdevsDpO8RG2gt/ +oBi3pg6+3pe4te088dHAD0TiOFh7maEay1tv5rtojSNF/uDF8xb1eNJN7ulX +2p+o5pn7tematzi0w6yzU+Qncsn8HCWm0YiFlPxm6/b9RBYfaU9LVzZi4z91 +ezNdfiKz6iWJp8VN+NE1yxcn2n6i8faCubsR77B78rXXXUkT6GyY5ZoqTTum +W84fxY8m0FR2v8dZ93accaKV5tnbCXRatYnuRG87bhfjPZiwNIFmTiruf5jX +gXcXFbeY2P6H2PYN2tUpd+KZ2t6utxKTyLVKlfcDcxeOJK4tlGtMovSCH4nK +al1YLIzIm3d8ErXP/7Bftu/CZkYXyCERk8i08LJU6fMuXNL175P2f5No/U7f +Rr9lN/b+uetHZekUkh0uDBYM6MHf7D8xv2mbQt9tv7vez+jBVkMxSp3jU4ii +JZLk/boHa3T8d/mnyDQ6Zf+w5Q99L6Yvf8AtED2N2jvT6O9E9eIABbK6VP40 +Ej4fOn31QS+eLNhhp1Q/jXbdcex/3tiLP6SeKzL6M43CfbrPsf/rxenBJL3A +s7+QFyl25op7H2Zd6ToXceUX2rOe4/gtog9f8wmNvZXyC73WvX8nLasPOzmN +9hV1UM9dS+HRrY4+3Pc5cb1i4hfadT1o/ulYHz5M1pNsoJ1B61+fh5at9mFF +4/seQwdm0ClplsYXUv04+43Z7XHLGUQZrymuUu/HBO3Nl/NeM8hHd+YHwbQf +r+w5TcdSOIOuMgf+bPPux294he9pcv9GG8XMt5zK+rFaQuvrQ7t/oxGd8QgF +3I8fMgaNHzf6jdysu/Yd7ezH8WsDyu7Bv9HkUYeyJ//1439+UeSAtN+oBk+t +Tfzpx74z+6+GP/+NyE+1V0O3+7HN6N13GZO/0c+793b38Q3gVlvDmYf0s2gz +LP1PInEAa/f8IVQQZ9Hx+6qpT+QGcOmRggNYcxa59wf9UNg7gCWbLc90WM8i +v06OUg6NAZysRxcx6DOL9h4U67BGA5ihqrz4R9ws+nvJnIfWaAAHqTh+mHsw +i+qj8RleswE8/Zh7aaNhFhX93oiNPz6A7WQahJlHZpFl529/L5sB/PG+D+L7 +O4u+Xxiie3VqABsISrhI8syho/HmfO72A7gy6UOc4p45xDwrnRTtOIDlWK+X +aRjPIb0HXvbczgM4I2LPgOG5OTSe7H2B4fwAZt8a2Th2fQ6N9STfd3UdwCEB +8aQz9+ZQmJLL1AG3Abw4p334QuUcOnX7hm4gFTtf+OXp/3EO0YblxMtS8eBY +RnLY9BwqSnPoMKLm71TaOfKObh79ovWZH3IZwF+nN2fNuOfR9vbZpS/nBnB6 +UR9tr/g8inAv7bah8jvu/JTv5O55JKBdHmlI5c9KipQb1aDGCyWzFVP1terc +Vr5+aB4JsTKFdlL1R9lmHxC3nEdZt03Mgi0HsOGlJ6jOfh7xl/EefGE+gOmS +qg6f9phH5D4XjcvGA7jhSbPFeuA8ctIKpW0zGMDXW3pO3IucR0vmI5ce6Azg +9X8zroP35xEO31/DpDyAq0TWfQIez6MUHmZ0izrfAHWmIP5X80iFvab3oQS1 +H16kGKsuan5cbnYs5wAui1VKWhyZRw4HvJJsGAaw9wPt9NtT88g/S4fl1UY/ +/jVCLv5It4B+jSnxqFP993jVqcybawGxPRtxsRnpx258lCoOsQX0Tim1haO7 +H48fiWs9sn8B1Q3qGx2q7scjNa8nW1wXUI2w+Yn5yH6cMdAxf/7SAnJ8UK89 +FtCPbReHVhnCFtDTL3dd/Nz6cd+uP8yGGQvIc9/Zfb7U8/M+XW5Xw/sFdMiU +JoyOtR/HVaqpnP20gBKOapJp1vqwcZe+5r+fC8juV0tPwX99uInJzkRnewHt +wF5Ro419uC4g6UKVyiKqXdcgGAb14RLrtUdlqYvoq6cvXUp3L/akMD63KFhE +/xK2be1re7FCPG/N7LNF5La67D9S2IsfNu5pV2xbRDER4r3rAb04W9Vpunhj +EUlILH8cFuzFidwdCnkOfxB6tDdzy6wHVx8Qf3HU+w8iuSd0Htnbg8ftfdDm +1T/oYubZx1a8PVi7hNf6RNofxCkpppUy1I0nTeyucXz4g6xTGENoHbrxwYjf +Hy9rLyHN1+dLbp7rwqvLXP6WAstIdq1P1/Hme+z02RrTv19BN90Ou5t6NGLW +zO9evp9W0P6c0GVDqUb8/JS32OjECnqqc6EZPr3F9MPRl2to/yJGQZUzBw+/ +xYVDNft8D/xFB+Wtxx9Iv8ET/ZLFX/P/osK1WNPG1/XYvWsmqfryKnrdrt0h +NVKJeZIuI7noVdQaqOs6eqwS11gwzt69u4r036UV7HhXgdk+ShyhPFtFt9q8 +5u6UP8dPOy0Z5H6uojHDus/ciWV4tr3q8t1ja6j+aVJCTH0x9m2OdPKRW0cH ++O7J6Ly+jYnjRowr+9bRhSPSdnsWb+EOOpbHwbCOVPi2/Ko94/FOSFiIPbmO +aqULam9QbuBPNSmhhTfX0R/Fh3NVXd5Yv+xh9qe5dbS39aPop/ZwNPvBzcBh +cx05uFvEJ9BFoczfChMTzBvIlNizp1EtFi0rPNuzRNpA60U3VRNjbqFHD17V +cVpvoHvxuhInV1IQIbN1+GDVBjLRf1TNOZmLXlfHXW9v2kDFLGvdrDl5yGPI +TOp49wZiYS1wjLHOR8383RfspzdQ6ShnKW1tAbqc9Gk1SGwTlbXmvmn0f4i+ +35gWKA3dRGbj3x/a5z1BiYVPa9QSNpFojqN3J3qKtBu97WvvbaKo99mJj0ae +ohSaPw9an28iZSEF7YeEUmRydUPtx/gmYlbfz2OuVobKKexWQiZbSK9Y4euU +83P0PoP3conNFrohaj+z8PQ5mmgSyTFw3kLi1SftmJaeIxHhXb88Q7YQx5hF +4cmQChT55lDEmxdbKD2GlzM9rhJl/zJ7ZNO4hWq1i9WZOipRFb/1x19dW2hI +6++vcNYX6PcFJ1GBmS3UN2HAkhv1AtnwhFS4S/1DLTP2tX4XXyKKTtSnbeV/ +KNaeuePw05co7nzC9l3dfyiQLl9cYfwlwjWZR7DtP3Rxz9UTgsdfIflzVT94 +b/1D+m4dixkSVWi9YoG3fuMfitzt8OnWrWrE93VV05JlG30ndz62q65GSsw0 +Dv8JbKO8i9v+OmPV6Jwd51OC6jbKMdeVOqBSg97v2G143m0bxX2jYdrVVIMm +lFTdN/y30fUYq1f3J2oQzUnNpKSIbXSGkrxPgbkW7S85PFKTvY3C0DvrBONa +lE12vsTVv42KogRzk17XoqoQj4zCsW3URHFdGvxUi3of+TVozm8j4bob/LpL +tWhHCDA+Z6AB74MEXmfZOkTgM7wXzE4DAQ5ZhXJ6dYj46LDiYV4aWJIX8mIn +1yGN3qOWI5I0sPXzn5ZuaB065Gb586EcDWi8KxS4ebcOWW6Rg3yVaOBATFr/ +VlEd8pQ7k82oQwPqD6P7ye/r0OU6B5VuAxoIXjZg1/1Sh6KOOzdlmtCAzNES +gvnvOpR31WN67wkayBGNuP+LtR7tbWBZjT5DA5ocLcxZgvWoYUcxw+g5Gthx +ZU/gXel6dMzEiFfdnQZIX9Zb+pXq0beEcckECg1Et4h8cdCsR5SecKXxABoY +eyGQqX6wHm0LkHS0r9GA2gT71AmzepR4GpskR9DA2T1FZc3W9YiYe+bEVCwN +jL4nfA21q0el4xvOkEQDbcaLZ+PO1SPdXRl+aak04K5nL/fjQj1676UROptF +A/e0e+TifeqR3fOBhEMFNDCVKn8i6lI9mlm5lJn1iAbETJJKeoLq0VVt3kd/ +ntFAd0vETr/gesQaWv7S9CUNdHzHtS4h9SijyaIpr44G2rO0fErD6pECy2z3 +6lsauM4vom8eUY+qzeNHLdpowMXxidrByHpknKzw++FHGmC7eNLiNhUPDbSu +b/XTQAVNYboGFbuJujKTR2igxEtARIua//csg8DTMRoIeak3mkrdP6qwQJp+ +igZ4HAqXLaj1Bab0VU7N0YCAO/Y8T+X3cM83vfJlGsCGc+TPVP77/a6bMW/S +AKHdt+kZVV/TS7FTZ+loYVnrVOc4Vb/1Ro3rS2ZaEIWY6Kvu9WgcnfTn4KIF +zrlsNn/nenQx8m+4Mz8tBPZuXOw5U4/o2lKSakVpoXezZOSuTT1K5lDL5pGi +hRfcXufqj9YjKcueJxfkaWHcMUnO3KgeladSqhuUaMGGndH0kG496pIo6fPW +pgWD1DP7L+6qRw7OR8aa9WmhaLT+8BNiPZornpoTM6aFfRWnjxzjrUecqrJs +Hda0MECRaPu5XoeyA5qEpE7TghuncPoQ1X97ap1kLzvSgtOuCVrdb3XIzDBH +X86bFmJNl86cbaxDcTZCQRHRtHD1dWbE7og6JJL58sZwAi04CNR6vPetQ49G +re+o3KWFEwxy1ybP1qFWt9ulo7m0ELZW8zdVqw4xXmX9qV1DC/6PKiLmpmpR +Ki5eTG6ghbMsrRM3+2rRzh2Haabf0YJWYpBBCfX8GiZEiKb3Uvl5/RmOuF2L +wnM2jy/N0IJpStPlApVadGxvle/uP1T9Jal0rMK1iPjm4m2nNVoQUHk+Tk9T +i2rGpru6GOjATzP50sv3NWhx5yeLEiIddN6yE9JwrEFOT1+Ynz9GB2FxeXLV +gdVor66v130bOsiMvHVx3LYa/etUTOizo4OOLXHtl5rVKGOu4L3BBTpoVTnC +ZrlehXpUk49IhNPBpaLdlvGBVUi/2ttkqIIO8v1qNIXOvUKcpgoXuGrogHPe +A2mjV2hk+GeMUQMdfD12ekZQ9BUK2rRrrXxPBw6UU//oel6iMnTk8O2fdDCT +w637Ruclknwnd8hUkB7OSvx1nWB8gWh6v0HdFXroEWXIWvZ/jiKnXuddCaOH +4nQ/p+XDzxELzX06zRh6UI15ONsp/Bzx7DnZ9CKFHkolz//lrC9HO6O7Dz8r +owdzbeuev7TlyFT77dH8CXqwUFUZUuZ4hu4UFNjFWO4A27SShSLmR0j20vkg +awUGQOSiJl6bDLRHa9QqZy8DVNxmT1x8fA+p0dgqT6szgJTeTj0LmnvIIN5k +IuQgA7Cq0dElPk1D9oWK1k/sGEB8rdXIly0FpfYtKtPdYoCCqoRIn/ZbiGF/ +yH/P/jBA2G7tzR3uQYh94+/b9TUGeBH/YvQ7dwDieUPJPkTDCIplx5j+1FxE +kuZO5M/sjFDizZNYoOKNdFwONTLKMgJNcMW1swsn0KUUtpwztoyQReucY6bk +iseX02zY6hkhm0NObm7rBs7X33fxSyMjnOBYL17fEY3PJny49aydEdhPszKU +s8TgYRmGNqshRtitYfWElz0Od1v5aWf9YYTpaZkc96UE/LrcTHKPAhPcI+06 +9ao4GQdv/aezvZcJ4p0LO5iF72BNk4iT3QeYQJjzVC8x5g6u/Fad7H+ICV7k +F9SnON3Fj7nkGF47MIHFnFdJFnMqTvOinT6axgT150TsM4TuYevqLEZSNhM8 +0jq9On/pHuZh0JD+U8gEn1tmH+7ouocTs7zt0p4zQZK+Q4pTeAaO7Pj8YbST +CUokTb8tD2ZS31+Bv8r7mCAyM5ZFVSELbzvxMEd+ZoKdfdfaFa5m4Svrxvry +U0zQV3nIz1L4PqbsellB2cEMMZ9in183ysZK/se7DNiY4SmvWnVBYjb+1TAz +w8fDDPFJ+uNR/dn4vK20bLUEM8yCGV3s2Rx8JjopnVabGfbL5DccVM3FIr27 +X/TqM4MQefWI9fFcPERs6X5gzAyJtrUPmn1ysfXLLVZTG2aIULGY7Hici01/ +ul9L9mWGyPv67j7CedjomvRTwyBmWHCkVxLYl4cN+EeGV64zQ1idO4esWR7W +OmSucTqeGYSZjmWGB+dhhQfKf6SLmMHnxRl6rYE8LKs7SRooYQYmGq1stV95 +WKo/91hMJTOI/3c5M3M7D4sw8JTOvGGGpUDL9DLZfMzmsuT2YoQZjn1ROLDD +Ox8zbz1Nc/1B5XM+xdPnej7ekeLyTniaGd4br9IdSczHm00D0tf/MoNsy+4b +5Kf5eNXuluXef8yg8P1l0o2afLy0dDhsbAcLjOfk6Mi35uMZmeqvRjwsYBT9 +vqvlez6erPPlWBNiAfurn2eaf+fjcWsFnScSLJDxs5Nbcy0fj0Rm3uPawwI8 +ES6LoZwFeEjMuvXNPhb4EzK1YiNUgPsq2f9e1GIBg+f/kgpJBfj9+DXrocMs +8I+3XPGRagFuDVaPiDvKAgx9B6MdtQpwE99cuQ6ZBbo4D+66q1+AG54WfZs9 +zQKq6HaTvnEBrjN04MpzYgFPXkUOj6MFuGpESM/qAgtoXpep5rYuwJWXuj0Z +KCywtzU1dN/JAlzGHpf5KoAFovLyxfvOFOCnhQbtF66xwDG1c2Z/HAtwsc7G +qmgkC5Qf+K/9tksBLuyrkPsQxwKf6HedLHMrwLmenjaht1lAq4ix2sKjAGft +2HlDNZ0FhLY0SyleBTg960vFeDYL3Gg+9o/XpwDfVUsdS33AAjq4kKJFKcBJ +748STJ5S8xutPoxTcYIzE2w8Z4ErYwfGeH0LcNwm9i6pZoGpG6NBrdT1qLtB +9882sEBn0g0HeioOV1R5T2hhgfc3WC40exfg601T642dLFBa+t85Lmr9K3b5 +uwL6WEDgsIrMmHsBDlg6ZSv/mQUojyOv61H5+8XzRg9/ZwHOGwwmO6n6vGXe +v4ifZIFuZvLpNKp+97rIcb05FvDbGZeYQu3PeWtd3oVlFkhs2lUvSe2f08yy +fsEmC7SwSDRqUvtrH1lKIdOzwo/Uimvfqf0/Jeaaw8TKCif6ojuETAqwTaXE +h2puVtDWuxn/zaAAHx1P2k0kssLkoNaszH7q/HeP99nJsIK7o66OvFIBPnLx +wPVMBVYQLdyb0ClbgI3pvnYJHWAF0jyWohUswO9MVK6c0GUF1+WJr0lUfx26 +HSmdepAV9OlZE5oZCrCB5O4A3mOssOKLXkn+yccNrtclLG1YgYVFq9x4Kh+j +Z92tSXassHBzJV1oNB/r6AWJcl5gBbn28P0Vbfl4v11zA3M4K2xaKv2YzMjH +lQVC7odjWCE63S7KhXp+VH958EYlskK/SKtyUlg+VrrCc54+kxXYEseeLp7P +x/LpZ9n+VbDCcMoDAp1SPhbrWyP/+ckK7IiZbb0kD2eImm+rzLBC+L6S9sqs +PCx8LreYssgKhjMRJIWbeVhg0Wjj9z9WMBHHTYdd8zA3993cSUE2OLWzS8dF +LA/Tmyn9+mLCBkVr+UdGruTi6Uan0NYSNthyPX7lmVg2lrg95J5YyQZfdkX+ +xv/dx9b2R8nWtWzQs9fW+8Lz+/j1qqbCt1Y2UL/Q+fiW0X2cvIfQ9/cHG9jV +0J50dM/C2mlYTk6EHY6JLZ0bysvA8e5iH29EsQNj9KGVd19SsRJhQPzgWQ7w +JOfS1o4l4ImEifAUFw4YE7yx+c4jAd9n/fvffx4ccCdQMH5qKR6z7xB6Hh/E +Qf2e+OsFM8Xj6ZWTRgO3OaD07Uq7qFIcfjDyxftCEwccGue7YhURhcWKf+Jb +uzjhRRFn2Nma67hPZkVmTJkTTkUrWC8PX8M38xjj1NQ5gTG378fBzWC8niFn +/cmAE1JuOJNE9K/ioYQLk1J2nNDq+AAR+gLxnYu/uV8mcgJF9Y2BlpQvZkXL +jiN/OOFtZ+PbW4PHcZC+PPPLdU6Q9/RB0hLmeOLg6dJbtFxwQ+bTRMY9I/zW ++M26ARcX6Bbqh9+x24evWCbceaTABcf5qnl8zRH65bKzOcCRC/IjL+8s4nBA +p9xsPY65ccHj7gABmRuOqNX9JkHBhwucbkVPPl1zQoU+C2e+BHPBpyK5PV2f +XJDd5fqVg+lc0Cp+X+invwd6H0+WJ3zkAtfO++tz7BeR1q2YD9P9XFC6a9pU +tOwiKr5de6lphAtCyEvZpccvochU0pvAaS44ryr4kCnJHxG7VhTn6LjBUsLi +qP1aIBr49LaZTOSG6OgtnHstGHGcHkl/S+KGxjnNO3WM15DhyLKH8k5umPd4 +fkU58Rp6/lWeh0WRGy5KqWwKpl9HiT8S7es0uYEFHI4tHglFh3+f+itF5gbv +phej8dLhKJsvojfElhs2fQqO1JwMR0vaT56NnOaGd/ciU4RuhaPcuA3XVCdu +YJs49sv1bzhal8saYqFww0yYR4/V6wh0zKKp8vxFbkhtPa7LOhuBHgbMJDUG +cINfpq/tolgksmrWMbl2jRuencp1sQ2KRE+dvlTPx3FDfFrO8fCdNxBdHEOq +eSI3fFRUTn5/9AayLd/j9/g2N4jv/xVrGngDMdBcV3BO5wa7qj9rY803kP19 +YubgA27oUR23TDoZhSqbjALVHnFD6MvggvDgKMQ64211+yk39Mks9D7JjkKv +tDDbkQpuUI2Pqyn8FoW4h84Gv27gBqZopW6909Ho/Ha0rWgTN5CyI/avBEaj +OtkytaAWbhibdS2bvBONLvjT/Fb5wA3Tr7eOhbVFo4Ys+bbEbm4Q+/W5Qv5H +NBJoOvbgVx83iM4nFHFsRqO3PHlnHnymrjeq/kzeHYOEtNo06Ua5oVxUN07N +IAZ5Oy7wnx3jBmP//QECtjFItEz/g9AUN/wIwDTZYTHokvmYXvwKN/TuSqzs +6ohB7ZdYRafWuIF1jdUsdiQGSWap/j20xQ1RZc9QzEwM6pwOf7ZNT4DYSM8b +dqyxSIbnyU07JgL8uH8lcp9QLLqi2etazUqADfNoTeudsUg2RlryIoEAzkwV ++gG6sSj42ZHNj3wECJpzP3XZOBb1DFwcUhQigEmvbmWbZSyS/5dZGStKgIYS +sqabXSwK2dmUNEEkQE5Q7QDZJRYNmM14HpQiwPI1s+A7XrFI8RKfSe5OAmQ8 +eiYm5R+LwjN1dm7JE2Bm2LSELjgWDb11pj2lSOWnriGrHh6L5vWHRa4pE8A2 +dW3yXHQsYnpjoZarSoC6yPrSzZuxiAjN5o37qfmfJQ/TJsUidazlOqFBAM/k +kgi/O7HoqF5ZKIsOAWr29R44nhqLXOp3ZigiAqicGtXITqfq08mssDAggKnC +yplTGbHobi13p98hAjh8ZA2NyoxFT7WiJlKMCeC3PnhZOisWNVZvbFcdIcAt +pyE5VSoe1vAVHjlKgMuHkVsFNX7x1YTq9nECJKzMixRT92M5YGcmRSbAx+NX +SYR7sUjyZbfLIVtqv05ynp2j8tHYfzjE7TQB7lRfqjp4NxZZVNal37QnwCUb +dj6u27Ho/D7V56WOBEj+/vqkZUIsuv68qKPbmQDgte7HGRuLUlTEfy65EiCY +4bGpYSSVb1nyP0EPAiQeUepcuh6LmpSZhbS9CeDNbzMpeTkWfS69pmLvS50P +94mbbX6xiLXEzbkwkACf/G4r3nWORVKKX6+1XCFAwakVrirqPDWfWKVNXyNA +60DwITvrWOT2SK99byQBzC8cD9llEItC5St/WEUTQEfui5+1RixKK9q1FRBH +gDLzv6n0SrHo3QO+vfVJBDg3T7RbFIxFX2XiTL7dIUBP0t3lfeyxaLlg24k+ +jQDdiafKtrZjkEz+dIrJfQLs3aEZtWciBoVnN2z0PyJAnHRFl0hJDMoQV+df +e0qAivzyuOr7Mag864mSWBkBxjvOBk4mxKBvGamOTi8JkFbHTbfhGYP00jxb +Zt9S5+2kW8UlG4NsBMa+Ed4RgGBl8cWMNwZ5pZxYV2uj+mv79hUpmhiUdcdg +z9WPBLCTmDLLHIpG67eE7jCNUPXNWtR8i4xGL2Ka7CWXCSBysT2uqCMKFZt2 +CEWvEiCd8Ulod1kUymDv6fm9Qa1n9bg1JSUKhSaNGtXS8cDjFNnGxTNRyCx9 +XcmGmwfe1Ezfk5m+gcaK9m7f3M0DlyRzuu8tRCLOlqycv448YO0EuVbvwhFt +bMFJexceOM0lf8cjj3r/mj7mbXbjAVtVNWQSHI4+fXgVnezDAw2ZbtynVcJR +4UCPz55rPNASZBOzlR6GtCaY4Vw6D1xfSj3mdDYUnWfw//bhAw+UNmguKBZc +RSISbYMb3TzAnxrdcJx8FX3QEP8o30+tf7xZ6wTTVaTu2Vwf/pkHvL6vDLJ5 +XEGMvfyZ6pM8EKYX0nxM5TJ6kPuSnE3LC0PxeXiqJgCNa6+2e6nxggVX1MDH +D74onWz2NuMAL5R7vG1MDPVFZj651S1avGDy6WnKeVVfVJlvXEzSp8bbtiu5 +plJQJMu9G/3mvEBrXf+3FHsjmUFN0HXlBT3/6+0xfy6gc35XX7Bn8ELTlQcv +jhQ5IHXVry923eeFZ0Jtnf7CDoh1EV4a5fJCr2QTvYnQWVTmy/gq9CEveD6i +pVOZsEOblNtVS895YczaJm/PLVuU6lNUO9LBC4f2vPf2ET6G2jx73zzd4gXx +989DXqeO62Upqr9to+GDfvL0RwFNFkyZSX87Qc8Hd65myQtXimIBT/tGSVY+ +cEkr9QntVMROHlNNdwX44NINCdNubl28eWG7JViZDxaflgyYZJphZdfdH8wc ++WA6nz6RTvo0/npBwqfEmQ8+FgtcGV84jeM9ebk53fig76x1wKvXdnjKd+P4 +R28+2DA4zKtgaY8Lgjv6jwfzwQ7inka2MgcsmOzxxSaND3SqM5iv3DyH3909 +e/1VBh+onf17jzR2Dl9Ks5IQyuYDJg19uaoDzrg7S9vxUyEfEGaffCkbdcY3 +i9h+nn7OByHsb2Zbpc7j7bonMw6dfCC+W5Dey98Nl+KchDddfBAwf5TzV40b +tnt7R0mqjw/Cp/aukbfdcHXLVcqPYT4w0G8cXoy8gC/2HFlymeSDCsEb2uYR +7tT3LUp594sPPowNh6s3uOOuwX3qcnN8oP6TX5lz0x3v+SIaNLnMBxDW9ieW +4oH/++/Xhjs9P1w3nNeuN/PEqdOjWR2M/KDsdPSmdJgnNvzdq6vIyg+z/IJ2 +Vys9cd5ibchvbn5o8ouNoBXywqe3btJTiPwgdtFHN7DHC7PShBZ2kfjBLj/y +TdA/L1xFd+mQyk5+kPdidqTs8sb8zHbRi7v5YfDbp8eGwd74I48im78mP3Sx +3niQwu+D9by8pjJ1+GFZT8KZ5oAPLm0pbXmL+MGoQxvHnPDBicEqkdxG/FBF +k8G8nOKD/w34OR0w4YecTa2zwxU+2EulEuzN+OGDGIv0ty4fbDahvvXEkh9e +5/OtyO2g4DoI+txD5oedO3trzxAoWDGzunrNlh/eqJno7SRSMNsxnYDDZ/mh +hdOU10Odgtur9efGPPghs2bg7hdHCtbii+hk8eEHvp1T7U89KPixd9OTvX78 +sHKWTCT4U3Cs9GG360H8cDve4HdGFAWvXosxenCVH7YOvrN+k0jBbkNtMu+v +84Ps3pzy66kUbJxg9l34Bj9UW1xXayik4Kr/EjDE8EPf0/8sDz2hYDmDj/dd +b/LDJxenE+fKKTg1izs4MZEfukP734i8omDGv8dPvbjNDx/zMng96yg44Pgd +jZG7/CC3FPTxxBsKnnjSJ0Cfzg8PeHMvf22mYBtGgeVdmfzwfTk/jaadgpsd +TvQey+aHr71+Za87KVitNr08MI8fhPhOmQl3U3Ah//Ct7EJ++KL2d4m7j4L5 +KKLezUX8cPXVgf0PByg4st3ObOYxP/xks7r3aYiCl2SyFXhL+cHyWnPpk2EK +PhcyyqxVzg+lEkd2iI9QcM8nyf8cKvlhx+vhXUpfKNhAzak5+hU/7G7PLRul +4ueJBQWlNfxwzXxdQfUrBUtNjYf11/PD5rCPoiwVJx+UddhsoPIPLzOpo8bT +ZrvqSTfxQ1FLvNAydX/KarGYaQs/NN5dUO7+TMHfLKfXKe38QHPgh9xxKp9j +Jbs/pXXyQ5tN0D1/Kt8GJq9Xr7v4wWypj4ioevY6lab87OWHbJedVqW9FJxb +N3eRfZDq7xP3ehq7KJhbUMVy3zA/vO+01wql9ivE12/vqS/8cEjxvvx4GwXP +dlRwhn3jh05Nis48td/2ssszRT/4gaj4g/8BdR56nwMfLU/xQzCrSzZbFQWX +7q+OFvvND6KMbMmvn1OweNK6y8F5fljf7d8nVkLBm4bXpG6vUPvBThr6kkvB +njmvaarW+IFjZ9m4fgYFj6xtf/26yU/9ft0dsLpDwbWl4ZmK9AJwnuUaS2Qk +1R9mZJE0RgEYDWffXLlKwcen5O7RsgoAV7nNQ/aLFPyfdGfqALcATOSFRks7 +UDDvPcHkUKIAkM99vChI9b+9+jT3L5IA/KfJzF+lQMGPeutukXcKwMwRYQs6 +CQpGnE4JCooC4NGgxZHGSMEeEU9j+jQFwHU8+2FlgQ9+KRnChHQFwPjby2cN +0T6Y9vXxqEcgAF9KC1mUPHxw2upKxPXDAiDpoNy/b68PbvTSD5EnC0Ci6RM6 +YoU3FrUd8A+mCECLxaXfNNle+Pxy8dLERQEoPfuIfj3IC5cnX714PFAAsvM0 +rXytvPDhTklf2esCoNDoO/md0QtfNPDw7LopAM+W5Ve3XD1xhyLNOZkiAVBp +Jm5U83ngq7QKx95/EYByhow3f2Tc8IQh25DsdwH4dSCwmLTkio/FzJwNGxcA +8+1hMdZGVyzD9cxH/ZcACFzPtCI4uOL3Ymq3clcFIDemVU8u7Twmauh9uMQr +CI1/TkuNrjvjt96WZuImgrC9ZHCosMARs45cMfauFAQWSn5RaSYZqwc+4rj1 +ShAq48TC29XJ2JFnqOdZjSCw/3U14uqxxlXG+88sNAiCzeA+RVEWa3z+xZzv +pU5B2PPg4xzlsiV+k+iceWVCEGZSPo7atB2lvr+PzkYJCYHo6LpN2JgBLhwJ +rigSFYJ1fQ5avMsAfwx8EtRKFAI7zxTBal99LFvKTM+6Uwhm0g3Lf9MD7hVp +FExQEQLOFPsck3NaWGnpgP4dUyH43pWTbtCjhH8+JN3NCRaChUlakZBqPjQT ++X2NPlQI3g1SH52MImjRKe+sW4QQeDJxJJ8zkUA0EqTdKnFCYD53YeLQJxkk +kib59m2aEAwrp+4zZFJGx6Il5n8+FwKuiG+aEwc00QmXUbLpSyGISXxI3+Ck +hewP5tSWVguB7Gil40qcNvLYJkYHNgiB5LjVjGevLooKJBJZPghBzk9/I2Ep +fVTnKm6mOEVdf5cvfvn4IdR46Et50owQ8HySs1PqPoTape8LLs8JgdYJp9Xr +FkZocFTsR/2KEKiYu+yYO3wYLZ4Qu2KxQxjSV6taluVMkLyxaLGfhDC0HDM4 +KVJohpRlP3MMSgmD4HONYA0Oc6S+I/OitqwwHGS2DJu6ZI4ONoigHXuE4R/f +A096OIrsNUQGUrSEYZhuVwBvswW6Ky+8o5osDA5fWqWtDx1HdvayRT9shQH8 +vlx/43EcydzdZ8ppJwz+dZl6SbePo8pt86RzTsLAt24fZfn5OOobCBfj9BGG +tLIEaR9XS5TFnoQ1/IQhL8nz8kyMJXI2uO90zp/K37iw9v0jS7RU8qq46qow +BIcG7Xg1ZYl4b8yonYsRhmKvaTMtJys0XLM2mHBTGFbmWVIGrluh/HnGq1WJ +wqBpYywwlGGFVO1IbzhSqLjATIq92wpZ7rMxr8oThndv9yQbqFsjkQvn5scK +hUHFsLCB56g1Gsum3OEoFgZ12wt7jrhYIz/Wm5+cSoUh1d8laOW2NUr+jl04 +aoVh7/NR54Pj1uiUYCezxmthUNZLo3f6a42kzIefOL0RhvtR8rdnWMjoedXS +wqsWYeDcEgk7vIeMrszSpoy1CwNF5flvIT0yMpDh0uD4IAwFj8PO2B4lo55b +u6479QmD0htnf2kvMspoViclDArDjY1UrbKrZOS0cbDp1TAVi6rolsSS0eJ5 +e1aO79T+ln41Xy8go5osj5ID48LQ1Spx80gZGYX3BB1z+k8YxikCzlx1ZETQ +u5P66je1v4Mnzi50k9HQxVzNsXnqfs073nKPkFHuo5IR9iVh2D0jrv/gJxm5 +jdaEHPhL7Tfjv7Bns2S0l79VymldGK5J7lDc+5eMVk37m+O3hGGkOn5SbpuM +GkLH3F7RiMB/09NOaYw26NjMZik7kwiM6osZf+O1QUJSrJYHWEVA4aM8b62w +Dfp2QnDZkUMENlgodtwSNqg4QSY9nlsEdgk+G/ombYMojSrar3ip67EUvT3y +NkhjTe/rdwERaI9lMFrZbYNolM3C2EVEoPvv9Uc6yjao1fmkzAFxEbid+lCG +VtUGJWWcb3GUFIFmldVLhmo2KDAg/GKwtAgcjgyu3N5vg+wtsyXSZEXg6ide +gAM26JBSTUf5LhGI6xz6wKhhgxRZBwLfK4qAzaczwtZUzDuxIP2fsgi8lCv6 +JE/F6284umj3iQC9p0zHDWr+2P1dwWLqItBa8/ixh7oNart8SP6AJrWes7f6 +Z2r9MrJj33EdEVDv3tzTT+WXrnIt1BOJQKqjuuWpvTYohOOeYrSBCMybG7t4 +7LFB56cqh/IOUfXHPVRgUbBB5s1dkXXGIjD0jMFVTdYGqeXN7B08IgIrX62/ +/SbZINFrzF8WjooALn91Rl3cBtGdlIlltxQBSbnQIk4hGzSlBvvlyCKgmiIf +Hchjg7q47b7r24rAl/vmLb7sNiin9Y5moL0IZFsz3ROnzjOq8NnP244iUBFr +2txFnbd3aMftp84icNTtdLTQPBnpaNBPf3cXgUVCFseFUTKS5pNI3fQSAcKj +rEsXB8iIdV7LQNCXyjeX5hV/J9VvRX4ZZoEi8NjjP/Gd1WTkLzhm+iqCypeO +rT8qnozs/mytdEeJgBe9o69rKBkZfhQumIkVgZD7cjkTF8mIJ/r4BilJBAxD +CcJNJ8modKXhSXyWCJiaPrzDSyKjlJ6RE0U5IhBhEthIw0NGwaWr9G/zRWC3 +BLjfoSOjI+f32v0tFoEXt0Qyn45Zo8n+HHanFyKQG1Yv2pJtjT6W11YFV4nA +ZM120mq8NXqZMOicVisCx8hfogauWKPIQ1z179+IwP1jCWGZZGtEenHd68AH +EXhraJTvxES9D+6e+cD+nwhI/9m7UWJnhcQqWEU9pkWAqZAwI2VohUa7X7m2 +/RaBK+4x4Ua7rZAzFw9t1JIIOLwQ1s5etUTece/2bdOKwr71KqGyW5YoPFT5 +3oKYKGgz7zl4tuw4euRJ6zxgKQr7G5dth6MtkOfN0jI1G1FQMS0V+WpkgZQe +n95KPikKHmjyXzSDBXr+34tUCwdRqJbawzQYdhTVObm3tXqJwvehuOKcAHPU +ZdurVBsjCvzOm/xvLY+gVcMHazmvRWG01JQkOm6EgmtzIpreiEL8af3sL7lG +iEY1g2OqSRQOq2aJxZ8xQkwSt0iqHaJA2ynmWTFwCAmsBZk0DYrCq1Y9phOt +hmhfidm9yXlR2O3Mlm382AB58y9pqEiLQatPr7PUhA5avDn7liwrBpx1v7d8 +HHSQP92U2ZVdYsAyHf1lYVgbBc99cWhUFgP2uOmyrC4tdLOtJYasIwaWhTuN ++19roOJrmUOXyWLwWfhq13KxGvrx0yDobbQYXPrcrDYVvQsZ5HzIV7gpBidv +7A/cdV0e5dqe6kxOFIOzHX4xCf5yyL7DV+pcihh0d55T6XPdiYbLct/TF4hB +Y/af8S+nSKjn6j/JQ6/F4NvDwtnwLR6ksj/uSMkbMSh9QrZ5yUNASbP8AfzN +YqBX5DYYSOZERx33dPzsoMZLs02/eseI2o3s/KM+icF5mpWq/+rn9N4Satpa +lsTg6pVbEgv3dmBSx6El5VUxqMhtj37MyYxDI7uJ6RtUfVJTFlPBbFjv7+RF +NzpxaH84vzouRcA1I4JEFm5xEDDvbV1qFMTPi/z9THeLQ3qA7qCeihTO11UR +7XQUB8ev+8odruzBb4+yRmw4i8PLCv4jkXxKeOzsj+ldbuKQW5LexFyihKXD +U2qivMXhZ/CYtMonZVz4bu0kXBUHD4dT9cucKviBxdv0irvisHbT6t1BxX34 +nUMmzViaOPR+KDpywHMfnvC95MadKQ4sUv1KJ57sw7J3ZTW88sThy92/VaJy +avjhUNygbCk1P1bs9ku+/bjY0Uogo0UcZtdOe2m0quNWP8Xrre3iYJKQnLSw +ro4nIxgmVjrFQffx+vCg4gEs//DVC6s+cVATPPVSMfEAfjQtSub4TtUru2vv +PyMN3L6xVKc9Lg7WPH0Cchc18DT7Bxn3/8RBL4RJPSRbAysohy69+y0OZ0p8 +A14vauDHF8fvhK6Lg4RsjnnEbU3cHlm/UbolDs/panbtfaWJp1NSz32hIUKp +afMJrhFNvLvKeJ8WExGSJgXCzktr4aebT3v+8BKhivip4UaxFn7PEaUlJUgE +wW7Xtp4WLTxDPJt/TIQIM9nUr82EFlbUJ/iVSBKh+mbmdTqSNi654U9w3UME +72de7bQJ2nhG50z4jb1EGLso2JH6QBsrLhn+KdhHBOL67Fvvem382Imv/5sm +EdDxywrT09p4Wnjz0LYOEZ54fJpOpNHBu7p/vBQHItidKD94mV8HF6OK9FNG +RDgVGxFK0tXBkysZLJdNiGDYEf/+m4UOlisNv5JmRoQ8TdGwSUcd/FDM0q7P +kgidPUM8fRE6eKJXs3ORTISKRW/v6js6eOdNkh7hJBHeXzmsPJ2vgwvX5iWO +niXClBLPxl6sg8fLhpI8nYjA5151z/i9DpZ2a6C96UIEet/VptIhHewkUez3 +yI0IA9cJ5s7jOjh/4NaPFg8i7M5+u8N9Tgd/Twi0nvAmQqaxwZuGNR0seehs +8w4/Imgyqp+6QK+LcyqUivSDqHiEOb6CTxd/dRcQcrhKhIIxnm82YrqYKPUv +5vp1IjgLDERZSOviM59+rmWFEaEx/cG57F26OCup0702kggHyQQ7Q2VdPHL4 +xedP0USwLPhywkBNF4tuZ5mtxhFBcnId7mno4lMvI+sFEokgp3WN3lRHF2d4 +eSrtv02EWoa7CWSki4dlrHOs7hJhf0XYxzp9XSw8os3tl0aEtqN3akMP6mLb +O9JhSRlE0FMVMso31MXppmyLpfeJkFB20kXqkC4epP3j1JlL9VdjMoGOigWq +h3t/FRBhuO4/QwNqvA3lrSFrERF2/j2z8cNAF6fIPX4h/5gIPfG9qpOgi/u+ +3pY9XEKEYK6/0xZ6upgv9XKaSxkR1A6inWLautjK3JE5soIIr0bGxs0P6OLk +HSaX818SgfVgl9KEqi7uqd073VBNhJPWD1gm9uhiwkWh06N1VH8qFV07Kq+L +jynQvN/CRDi7WX1XUkoXJ33/T0eskQiLjbanzojq4q70jyVa74jQp5PwmYE6 +D65jr4gn24hQVPSfrCi7Lk58HUWT+pEIdfvxmaR1HfzB39u3socIAucqvRbn +dTDHHpuxnn6q/12fJTVP6OD4zJ1NXCNEkPkx5drYpYPfW3LsVxolwlzj7SPz +TTqYjXX5gdkYEViMafKSq3RwXFBTdOwkEXJafnDoZOvgaPK5I/TLRIiiqVPQ +P0f1l8WIncsqEb6mL+4bPK6D60zI3i0bVH8U2XzvQzp4Uffw7Zt0EkCvULHB +LqKD7WR3D/JyS8CE0rb2vRZtHChZOOnPKwG/uxYvpJRr42QR8fVBAQkw0jtA +x5CpjVs4ucSzxCXggdfPC4ae2lj176KTDPXPxQHe/bzezNrYfMHjUpSSBBQl +F8Qqz2pht1/jNyZVJIBPMcuX0quF748OFD/VkIAWR/3igCwtzNxaM6tmJAEV +j0stsLwW/poefuWQowSIGDZupu3WxGvJGzeLnCVAKjzzMROrJuZLuHSfxU0C +Lli2HeSa1MAmYecbOr0lQCJh7sxMvgauvGDKaBMsAYc1M9VZ+DRwnBZP8vk0 +CSi34mXf+VMd7x/JexTdKQFtPqq58eZqmFvJbfVZlwRs0yZMDMmo4ZkQpcND +vRLwnOd29tLGPlwoXTsuPywBySyfZXMe7cN8Hn0S7RMSwJUrir/T7cPrwfRH +GGkkQc/lmKZ0qQr+xKb+xlhYEtY2CVnSo3tw+q7Mks4jkhD4LWm8sEIKL/0x +ehBhLgm/u20tf1lJYYvXi1maFpJQmZNQYrdEwoxWpvEPLCVhl9qpj637Sdg/ +eM392klJOGZhemRHgAS2/HhCfo+rJMTnhcnH5Aljdn++gvhwSTi5sNPU4jM7 +dkMNGQaRkkD+udYqFcaGG1k8k1dvSMJcCwdDkjwrvpLdGOYcKwkWFQ/ZjgUz +4akWPwedJEl49L6Kj12DDr8T6RafuS8Jht4/GqtZ51+HNCSkH6mWBGWzSuKJ +jmW96S8Nd9dqJOGz1bESv/W/ejYbf5KK6iQhmdE6/OjOdT1F9VOx9A2SYLaj +HSt6/9MbeiJ7pfadJKAdbBzTLvRINQ2f3t0nCfzrKgb/2bKh+5WLJz71S0LY +mdhUPnN2xNyz0zp6UBK6GPj5VvQ40Ch7vNmPYUlYfknk6xTlQvHhtrqZ3yXh +j/aOuTY7AprwWiCyzUnCWxxJoXvLh47flBGtnpcEl+9W6+a7+FFd8QlB10VJ +uBItVXn+Fj+686Oeq3FZEmKX6J9tnRBAcDKO5uqmJJw/LWD3YlgQPQmo35T/ +JwkOBsZNZzSEkMDd+dWBbUlwL4mS6borhH5/sFlQpSfBMd7+ToKpMMowlB6b +ZiEBX/zRm/QPRRCDk83XdDYSCGuJGaysiSBKSOywEQcJ6FNV35abiaLDNXM9 ++dwkyBM2FIuYFUVLynWNpwRJwH+RYTBJWhyZi5IftMuQQC1pavGalQRKH1dq +OC1LAlvjRc2GWxJovIT584wcCfJnyXdX2iVQMNRxc+0mwV8r3muSEpLoqYt0 +sJUKCbhG7y3vjpdEq0pbqeOqJHjnUL1D+qEkMlwdKPdXI4GD5MhACpZEn+Pi +/ks7QIKAVrOuuXlJxFq2YDmiS+WXOf4n2JyEbC53eHkhEkSe7/t58hwJ5Rs8 +iPkHJHDVkluoDCIhzX7b15KGJDD4EvRkIo+E3NbxLhdTEjDcErttMEtClY33 +DFeOkODl/iOSIjRSiCbh4tlocxIcfpZT7keQQukScimPjpHALGN/ULGqFGox +TKSZtSEBSTn9hKqPFOLhdBMNsSVBXFTIE/FrUsh+UF+d+xQJWO+0+ibESaGV +C8seqmdIoEnvs2+zQAoZ7PsY1WhPgpx98VKbz6RQ4mZxnrUDCdSDQzzCa6WQ +7C27wYBzJBBVX2OU6ZZCfrbqi0wuJPgtJWQHn6XQaxI3x73zJEBfVLl/jksh +cmWjQe0FEjQGyJa2rUih3Gv3z5h5kOC9a10x67YUmjEKDPriSYImmnrpAUZp +FPlJoXTbhwQ3R4U/cvJLo678HW1JviSg6BaIXxOVRmKeX3+QLlLnJzshH0SS +Rm77q/49v0SCt3//RdDISaOKf7eFDQNI0PIhs1FAURr9a/FQ6w8kQff4yrXa +vdLI9PYhi/OXSUA72WU6pyaNUk9JuP+9QgI2G4/G5xrSaEx6LTImmARSg+Hh +jDrSSOl3T47wdRLU3zOR+aUnja68fFrzOIQEw6WORo760uhdSFS/dhgJPFwH +oy8clEY8Jg7z78Op/J6Lxu44JI3sebTY7CNJ4HPt3y9VI2n0+DOv7NwNEuzi +fWS1TMUrhb8hNJrql5B0Z7PD0kjfu+U0IZaav5jWpEHF60NTRk1xJPBVoDx7 +Qo2vPMiuGhhPAmOeE8351P29SpXEFRJJMNJY8pVoKI1khY8zf7lFArF/4f2S +BtLoW8TFP7duk0C3Pe7GIySN7s2mfDW4QwJnGYH31VR9lier2pbvkuBLEWuM +paY0Ym8arixOJYEJGr53aT9Vn9JWzul0EvW9d+WHpIo0CrkncZMzgwQDRHtj +W2p/NXYYBLzJJMF+tQslotT+L3o7O166T4IzATOrHtT5PP0UZSaXQ4JDBzN5 +TKnzczF8dGA4lwRPmiJ+vOSTRkPCsxxQSIIGr49koM4/OZJ7bfEBCZSPd3y0 +/yeFjsypjj8oIkGYmNRzLqp/XjcF1rA9ofol3NdbkeqvIOWMB6+fkmDy/h2F +jGEppJJRl+RbSoKJeCve7C4pVOhD6zpYTgIL4paWJ9W/9sPSlnEVVL805zhr +lEkhwUNGurovqPU9DJKyC6VQnMhN3oIqEvgz3evUiZdClGa+Bm9M9StbkuqI +jRRS2HvgCekNCe7vdHp1x1gK/cg4mdr3lgQXJL35fmtKIRtKtqfWOxJYskwf +ixWVQjqi8sKMnSTYWgrpiBgmoZUbpjuqP5Dg2w9OhvNtJPRs3nPOo4sEP5dJ +IouvSEjqXXlzdy8JopjujrHdJSFmX22/+8MkCG1ZITsZk9Dbz2fOHBuhns+j +V7ufqZHQVaNQY/qv1PvyzDeTZ5IkNCvaTLzwnQSM+98cbv0rifreHe1QmyTB +9n9PJELyJVGOmJPM+2USLCSNP+7ol0Ba+3YrOf2l+vnd0e2eYgnUZ7J0YHWV +BCzZwu3eVyUQc2DUEZlN6vl/ttfDXUICUbof+wXTScHRjzbncp2ICKL+NChy +ScHgBeO/lwfF0Nhc5JkEeSkIkp+UsI0SRjKNRalHT0sBW885VvbjPOiD4mrh +iJ0UtNHkjv4V4EFBqcYV7vZSsJ46k/d5hIA6Lkx9jHKUgn7hRNYkNwLy497N +gl2lwMXjZ+fHEG6Ez5ReVb4kBf5CIZ9CznCgU6uVDtwJUkC4HSaiv4cR7XBi +8MlOlII3/2ug2uOhzrtwNGZ+P5e3WrdtxWi+1hKKUnJ5x2GIENsN1STkWqne +3REV2WKV+6VSoewSq1DIIvL7ukVWCZGEfVvaxm1lGjKT2/7+PJ/zOc95ns/z +nFOf70fVylk/aN8faZjKga3f6raGOslZy+R8vuV4lQOGKmtks4IY1oX221/9 +dIvmv5OfMvebrPVseq29KJ8D1V2BpzyDl7ipRo0buikOSCfVsjy/FXELtx8i +L9VzIPA6NfloxzQX82aEJo0cWFd4SGDZPcWdOqCbn/aUAw8Pv/2fh+8E1zk2 +nr37OQcWmzzERrffc5n/36PS2c+Ba7PhkkClDq7m+MSnqAEOjB+I0SssbuWa +zsZ0bRrigJmd2y/y7g3cowpVySnvOOC0JMxw1crj1ptpkG5CDphG3dTq6Wui +zqeOLL6Y4cB+1dV+iU3vqPSsiMHIzzR+neaLEuNh6n6Baq2RhAOW7o0Gs5kj +1JsnDuFJ8xywY1RNvw/4QG0bK/rkIougmrV625uBCWraRiBsX4WgSi8p/qSG +mCJ2KbWcX4PgcQp2cKkRU2zPgrsGygg+TrUs/OIxQ7mefOOToIagRJ2/eC9p +lirKtBp00kQQoMxoVhfOUQFiRlfbBgTUfAglcF2gvO7bdfANETyiIhr3ty9Q +7j4x7R+NEISMKeLuHYvUjpcrW1RNEARVJhbdMV+idItka33MEEwYLG83Z63A +f/uuyJfyEBTir+SP1sjgwbWQm2iPgJUQmnLnHxnc0xmVw3ZAwC+bZ+pqy+Jm +7vIteycEhzr1+76OlsV3v1lKTvseAaNTXjsFVmK/7vlw/cMIRCEXha9uMTA/ +zvLMEy8EUzbC3/saGHgfnP/RzRtB28bbHvpjDGz34EtI6FEExU9qFKu2ymGd +eKlvQzCC51ajT6Nb5PA6G3PvfccRKDUZ3lkclcMqkvDDwhMITHjh6a3yTMwI +kHgonUbgOu+0ZZcLE4/YzLkcOIOg/PmVZ/qtTPxWss1pMgxBzX/8Bze+Z+Lu +h2ccos7Sek+t0ru8goUbNT/b5EcgUD5ra7zFjIVzpTPbRJcQnPO23hSbzcKZ +paamMTEIbHtFapsrWDg9UGCiHougw2JKbWs7C1/qFRv8Nw7B9DeWl23nWNi3 +7JN2XAqC9cd8+uMdCHzi0t4FpzQEL5+PvlvLJ3Do3oo+xasIhjWeWQ2eIvCV +2dDk1Aw6LyUyJ5auETi95XXwnps0vlIs07uAwFk3zOxVMhHsPZwdLakk8ANz +6fyN2wgSbv74Z1cvgavlD/YdyKH9QOtyVd4TuGGgplzjVwTMywoq6SIC/1Gs +kTyUi4C8EmjsvETgnsiI4Jy7CP5onvgM8iQech2y8ylAEBk9eEygSuIPbK42 +KkTwzwVp+gc2iaUNy68LihCkre8ySNhMYtmr3uVBJQju3FuswRYkVvRrSNrw +EEHeU7almS2JVbdygidLEfTzM5s+OZJYixlt96AcgU7ywkmxK4n1+kbYpysQ +bImcOWixj8QmhXbzJpUIjNbbFj7zJLHF2fzX4ipar+r9czl8Ets5Mct/f0zz +Oz4qwUdI7KoRmBRWiyDpYp6LgS+JPSZbg8zr6H6/V+7wURJ71+nZzVMI7s+E +6Av9SHwsOY5dV49gaLNQ2cKfxIIj418uNCIYqMjIGKT7kcbOr6EZQShPNPqS +no+VKS6TbUGwYMGyV6XxU7sVk5pbEaSfDxOW0Psz80KCYtvo+/PyXZVF88sT +dPAc2xHsK+cvDdH8i+03seVfIHB/7CsJo/VVqqV+ae+g87e5nXfMjcT1wune +pE4EYwEW+pU7SdxWvbvMrZv+B5bXxXweibvjyhPX9CAIc5v5eMSKxIMHlYNe +9dK1xo2QelPaHwMB73ofglVafXVRhiT+uNCj5dGPIFtRwzQH0f7kZPS+HURw +bZ47vnI1iRVOz5Vm/4kguLT2rbMciVVsPBO93tF5P8jfI5US+LuRtbzhEfr/ +6PzgEv8XgY0rzmnd/RvB2mZR0ukeAlv8PCD1FyJQt0nraWghsMt3t0vHxhHE +7HGWKbpHYHfJYkLRJJ1XhV2P7DMJfKTNKzBkita7SUd2dzyBfziurSUSITil +wtTCQQSOsLooLRcjKOh3bNTxIPDPSsM9glkEOx9Vl62wJ/DNh3kJEgkCOcdD +G9ezCZz7EyOw5gsCheXU7CAFAhft9reNWKD5tP2lbkjfWwWnRZO7hMBfcEE5 +ZJiFKbGudHkZQZHH9ZVGL1j4X0VlMDo= + "]]}, + Annotation[#, "Charting`Private`Tag$30286#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwUl3c8le8bx+29t2MdhyIkK0Se+2oJaYmSJJS9DypR+aY0zCQrqyIr62RU +eB6kEoVQRkplr4wjRPE7v7/O6/267mt+rvt+nUfR2c/KhYWJiekYGxPT/38z +rjhzaJ+LwoQvfFPe2JhFTV1kyxNkD1Rq+/xp5YdZtPEGjyCTQ9BxhS0fTj6Y +RRn1MQrs5NvovGGWkL/+LPI2CfZZVkhFI0+POq54/UJda+6JcwoFiBuLV7zz +aRpxfvmpMqPwAvnud6i5VTiBeuvrgqfHX6CLHgeV9C9OoMInKa+myl+iDLcr +Wxf3TaBD1ENnJvfUos9/7Qpzf4yjJO6XSWNuBNJYVFRekh5HIunNLPM9jUgl +lizAEjeKHrZkBUwpvEP5ejdI3XFDaDGlUm0w+h06ZeJIUTo9hEzdWoc6/7xD +9a0u27LVhtA067LNy64WpHToMavKm5/I0OSQ0e2b75GziW14yMYP1FH6l0Vl +th056fUaV4V+R1dbNCy0z3Qhval/76V3fkH55dWbi+53ocTyyYPWw/2oM2U3 +66b3XeiChOcl7ph+pOxmWyu1oxvxaKqpjw72oRbW65pMop/QDp4hpYtRvUjC +5ItI+5vPaOaYibr76idUUnr7i7dmP/L/9zbq846PaFJkMtrCqR+98t/NPrnU +gVTOW2Cqif2oYN1WMqCiA2Xv5H049KcfvSzg0ujX6kAJ76Jd7V5/QZudJ5W0 +HdrQ+aG4+f32X5HcYefEiGstiGY692hT3FeEGRRzyvK2oNmCI9asjV+RoGBG +clriO+TuL1yNq3xDHAmySuaFzcjuX0LYdvo39ILFPu7c9zcoi7c1QnjfdzRt +T/GzvPAKYSah9uEO35EpT14KReAVGvBV3z574TvqSf90qi+3EUl1Ro2+L/yO +dsSIt4z2NKC7KZbmt4R+oBjepD2BpvUoYlObwMaXH6hVkjJZmvoSuaGPqdPU +IbTp5/x6xEQpYnq09PJL1BCinjkRX1ZVglLYZAdacoYQJ+uh7unIYtT8zlW+ +4PMQUhZ8tveWVhFStf77yMVoGPXKLC7S856gcXeVp9+YR9Dt3mrdXPN0FN5q ++eEDaQQ9VSuTWd+dhqQ0qb9qdUdQ1w5ekuDuFGRGr9V64DKC+Epl/pgcTUQF +l60qT7wbQe9N7IRkXG8jz4TLeEf8KAqq+8pzTsaWYPn9aJAoGEVb2JpZ5P7z +INJONDOVNo4ieScL+S0ugUSLrOiemMVRxMmRfLXBIJxQz8t/a247hjxSTIuY +30QT0zVdHY0K4yit9OKduxupxHX5P/PlhuNon71gIv/pB4Tsf/KiD4+Oo6bm +ItuXlemEpamHzdWIcWT7tMu3yTaLKO5Y7zMeG0dnq73HDXQfEb4jW4YqSiZQ +llJqmHvXE+K7Qx9Xw7sJVBJadFnQI4841ntL88PwBHoRRDqm9jePMGwdCxkh +TaLvFEmOdlIBwVqeKyRxcxLV1mXsPW1URJxXs9GnPJpEKa8GstVri4jxx2z2 +mnWTiCaN+hONnxJtSWfzTOmT6JjokZMHdIuJlDBF7MKZKbRigQd2cJQSPEsd +ZyMuTaHiT2OF/4JLict+4bfj7k+hUu/v16d/lhLOzoPdea1TaE/sXh3hU2WE +hlmGV6/BNJp6LPnASLGcyGywvDtsNY1UGkb+kI6UE8LGf6vmfBjvyHmdo7OX +y4mlradYuHOm0Q2JXy6XP5cTDaLSqTuEZtCYMeeegFAaoRfTjO9Tn0EX5J/f +1n1EI55wXBw+ajqDaLPcGX/f0ojoP5+3eYbNIIuP588/FXpGHB9MfJM2zjh/ +RaTsVdIzotl27/QT1l+o0juc8q/yGWHcSRd+Jv8Lvdp+su1w9zOC/NrqdKv1 +L2TtxT9qLlBBTBYKLa7V/0JMJlt1Oi5UEPbK9dJcA7/QDuWyVJH4CqI9ww+J +Lf9CPdnWmuF5FURFfNsdja2zyP9LRPlIVwWhwnOlzNBsFkXs/Mn6c7yCSIvY ++nnv2VnUx/nXQuRfBXH1fLTi6dRZdCAw1VVSqZJYmDXe71Exiwxu8cTM6VUS +5zymvIPbZ9FMNrslh2klsUlz08Abljn0efeC3JxLJfFt8u8vS6E5tJlts39z +UCWRktfN3CU3hxyZTveNXKskeBSvqwwaziHLH1+sV9Irieadd7dd2TeH2kI0 +U9XyK4lI20wDOSuG3fagQQOtktgbVIRqHebQAv3cQF1tJcES/3z/Ka851Pzz +uS7lTSVRX/T68OqFOfQiOnt0tq2SuPK280Tq9TmUSY9IV+2pJFbXp916MuZQ +xx753B8jlcRz0qrf+cI5tNthYKfLdCVxXp/zonj1HLr4PNPJbqGS0LMSC694 +NYfGfy6UNS4z+vdRvHWsYw4Jubu8yfpbSZTd1oxfGJhDjylXjelMVYRvrnHK +3Yk5dDSvMQ9nqyI0GsyytZbm0GJDQTYrVxUxNWCT384yjwbZH794xVNFFK44 +l/kKzqNdAYLXmfirCHcx/+f8svPotBLE1QhUEZu1Ltc/VZ1HNpuC3JcEq4jh +A3eaD2yfR5H7PqfRhKqIR27JHZO75pEKe2jpPIMdI3J6bx+aRxvJDlsrGSyf +Vf5d9dQ84llyTl1n+A+8xMffus2j5fWD59sZ8dM+t865Bs0jkdK3e7cw8tsu +9K6w/zePnrvYRvDzVhESAqNMuTHz6M9Ot5LLjPq7t9C59qbNo91UQwhlryIS +9jEJDz1hxBucKuNkqSKOOPFLX3s2j8puhp5XXq8kBC6TFBXr5xHv1pdsXX8q +ifcpKlvq38+jLiarD2K/K4k7FXraZ/rmkb39KzQ1W0mYdezasT4yjyajz747 +MVlJNHHam+/cmEcJKXnvV75WEteUPI5+4V1Ak91iEloMPQGdP3lJagENPd0l +wdpRSdSej/d4rr2AHEqdGv+rryQuJWQEnMAWkOihDA2t55WEYUlhyJLFAhKa +UWm5WlpJVIw03dY7t4Dqv0SzcmVUEsXWfwrKkhbQKbNPtB+BlYS3Pwft8OMF +dIJzKw/hXkmoRYu+/FW6gAJTjZTNTlcST15tbdF4t4Ba/dVw532VRKaO82T+ +2gL6+g6+DghXEvaH/Bb2c9HRruWCYmO2SoLkGbY6KkZH2VfTdh9ZqiCSHibx +bNKkoyC1sfisvgoiVqhV7aEjHfVtbFJaSa8gXhjIVR7ypaN2nrDojqgKYtjB +D/0NpSOfYPt1+0sVhHGxqPWJZDqSip9uTj5eQYyb21/mb6OjzvN9U7W8FcSe +iJn2EONFtKtcV2LN4xmx8lsw2EriN+o9zVZ1YqOcUJJz3thQ+o3y3hye3j9W +ThzaW3G7WPs3smw6NiLWXk7kJthmch38jW6ZTwWaZ5YTVtsevsUjfiP/O+KV +RsblRLG7Dkl9/jfyyjU3ofiXEc5frAnW90sIb9K10U8tJnge/PAJ6FtCXOWR +4jwuxQTNzld2cHQJ5deEVnVqFROs/TdDXjIvo2C1lINmzU+JnN6XugEGy+hf +u1vN1FIRMfqJnP/t0TIyjal02WldSHh2TMe/CFlBewa9kJdkHiESH4JUbq6g +vo8O/QeGnxAvD3P8SkxcQb+vjL0zLX9C8LYrHPAvXUGn+3nN4w48IZ5+sGJX +GVlBT0ICPCL+yyV+tTwPSTzyB+nvSPUrpz8mAl5fd/ZTWUXGtqPTO5ayCflh +U44l3VUUcWfLGFNrNtHKwl0YBqtI53jJiYWsbGITxMzfPrmKLt36YXjcIpvo +e3k/PCdqFZ2olX54cncWsavsSWbf7Cpis/mj2FKSTgg/aO7f83wN2Xs0tG/t +SCbwF3eutDStoXpB+3PpN5IJr15LytGPa2ik4SqJapxMvBb/6OEwuYYOZyRi +1vlJREh838pF2b9I4ey75bXI+8SPG5MSJeF/UfviwFVR23tEuT/fMSnzf0jR +caXX4H4s8T5NNKT4+D90DXGuuwnFEqNNpKzd5/4hv3dX/ZOiYwiS9JYp76v/ +0EbBcfFfN6OJ6w37Ihoq/6GT8z3jN+7cIY6LXH3mSVlHm5/axGgRkYT/zsi+ +jW3raILS4KRnEUnccY3ZSDRZRypi2ga6n28QxMsHBwjbdbRDk/UYef46oXr2 ++ZBo3Dq6H7hq/FQnglh9Ni9at7aO3MGpYXvzVULs28oOK+4N5HPlYYH6vyuE +JheT45jEBhr4mdjGoXeFOGsv8FRYZwPNrFwLdMsLI96zqe91dd9A6UY87EU5 +IUSmzbkgwU8baMz7BzG5HEg8v+qVlvNzA6m2/Wy7bhFIdBVQ63fMbaAVy5iw +qUwqwXYVOGjsTKCKxRdLHgwgDLsOWQ2QmeDYSgI39bIP8TDUa1LrBBOE3a3b +vDx5ltCq5165eZoJHugsm2FfnIl6tnz2wbNMkH0URQW2ORHfY4bJMf5MYHCD +pKYfeoaQzz59YuI2E2yc0NpYDztBpDUdbnpYywSV2yMenZTfRahx//q40shg +z2lCbosx8eJg9ODhd0ygkc/GYqyuR/R+bl7994kJfv9cz3WplyYkJnZp280y +Qc/Rnox2Dj2UwK+XKUJhBgyTph/cexRRrDqLPFSZoSPaVXWw0gqVJ/m/qNdk +Bk/WXfOXKNaoQ6G429eYGeqVPevmpo8jAZ3NvK3WzGD862B40X57lHm+SYpy +ihnITaTzbgmn0dYa580hTsywV3bByqvXAVnuzdql4ssMlosq7XpFjujOcamL +ETeZ4YxtQnA0/1lEelB1oz+GGUSMe43PZ59FBYPW97QTmcFN69QYRfscana/ +WzKYzQz6rg8Dug+4II5QnhHjl8zQzW+5xObmhq5l/T26OM0M2fQ9sUyGXuiI +1vMAdTozlFKsraueeCH5hsC7zn+YIawlujtc1Bu9/DnZ0cHOAsLPm+84j3mj +hU19h4vlWeC7b5Q5ftEX1Vcl+g0rs8AKU5HT1V5fFLv/SJyMOgsYdz3cTNX3 +Q2oeb9tuG7BA6Uyb1Nq0H3J+WnnQ9QgLhCgeDb36yB9pmQT4ZBxngchTD6Zs +W/3R+geNmG57FrCKbL56ku6P0mYfv9/twQKqTyzVeiAAdeokHFC4xgKJvNTZ +3x8DUParg17Hb7HAomPE9I7FAORrzR0VE8sCI+UZ5GfiVMRzPrxlLY0F9P47 +oWR5nIp2vfA1733GAhff9HOat1GRgIWah+BLFvh2rHuH2yQVDfSP3DKtZ4Ew +3gHfZvZAdPGvfXPFexZ4PXCxzM4okPEuSo1PdbJAn9wiOe5YIBKT7+ZU6mOB +t2XInt87EJWhA/vvjrDA8z+q0zNpgehKB4db8xQL+F54mXqsPBBZOjVGbsyz +gPu51VfcbwPR+LUdb3zWWWB3VamW71wgIr9R2WchyQqDV87c3GcchH4dHzr3 +nxwr2F7vgNOWQah2LPP6cyVWEGy2T+y0D0K23BJNm7VYQeW4cehAaBDanPZx +6LQ+KzgxHdgTdCcILarFsN7fyQoV2ycE/FOCULwl2x5Wc1Zo5A7gSqMFIYev +hLPRYVZIfMjt0IoHIQ3f0GsBNqzw39BNDreWINQct9Aw6MQKFnzkmKHBIJRE +Lvkh4c6wH/C58XYiCJ0r92A+5MsKj54yscvSgxBT13eovcQKh4yda2TZgtH1 +Cfzhpf9Y4bPg86/efMGImymDZcctVrDUjfSREQtGsRKhZ5djWeFhtcEJNZlg +JLL1ZFPlfUa88NrrDxSDUfIeg01B6azQ43njq79KMJK1E4/UecwKx+PCTZ9q +BKNsf/roXAEr0B+LPzqsHYw23fy4v7SM0e8FSof99mBUmFGa71PNCqxRy8Wf +DIORZkUMtwbOCgWvrCVqjYPRsxYvz8kmVmDZ6fpDGAtGhj/MW/NbWcFta8Nw +LwpGtcsqGm6drLD5tyNdZFcw2iXAEbOpjxW26eV8bWDwG+XhmaFBVpjgsggY +Y7CFceOhR6OssOLsF3KDwW1Hs0sdZ1jhnX80ngHB6Jj7FSGFRVY4sZnKocOI +33vFPuDrKmMeX/eL7TUJRvb3jTofMLPBF/7b+Z+MgtH3IildOy42sCaz/jdu +EIxcGpfuSQmywcDxLtsresFosrd78bM4G3i1nxtP0QpGvrM0m/uybBCS4Tuy +gzGfBfa7VceU2MBsbZ7lLGN+F2T9JEXUGPESDOfFKcHor87Bix1abDDZ33na +WjYYhZur98UasIFvQhJdQSIYsTtyGx3E2GCzWYbdJcFgdOf8WBrvPjbYxrTH +0IUrGN17/Nj+lhUbvDQmDy6sBCGpl//VmZ5kA8l/R0ZS5oJQescZeXZHNuAl +CQ98GgtCT/7JfP/Phw06X3xeIn0KQmpiqwBBbPDAqG7X5tYgVKrW+3D9EhuI +JNFb2uqD0PMTiWdDb7EBU9W9t/8Kg9BOX2rTjjg2SHAuOXAzKwg1XD+yaeU+ +G3B/CdlWcS8ItZTzjQU9ZuSLmZdavxSEBnhvePribBC6sXMqdF8QcqScbdV4 +zQYYy7YVc4MgNGK4S2OqlQ2iByUpb1UZ983l34xbHxsotiWd7+YJQsz1wQFO +i2xQzKSv7twaiDYHuV60VmOHV65RCxdRINpqNHgsS4sdTE+EZsppBiI9Jttt +k/rs4JiX7R0rG4h2R5uPXt3DDoLfhi/1rlCRQ46GdZE9OzCHKBqrlVJRUvfC +NpY4djgJ+d7polTEvv3qWCmdHZ68KT4l0uiPhn8nH+et44CYMP4N8isv9GiX +buDXVxxgGqo5PRvnhc7EtMWVtnAAVKxtfmHvhfqV2d8d6+WAEI27zLDkiT4e +oxqn0zlgyx7O8r1bPBFebkneqsYJdNf4VNN4d5Tswzx5KJkTOk6OcWt7uiDr +F+kcipmc8OjHucAsQxckwm6oRM/hBNnNKd/VOV1QbLqvfTKNExqVt2s/yjmH +rrd+aRv8wIiHKlplfpxF/luqnvmzccHb0+e2zjk6I4sRz8sJAVxg9fSlWCHz +GWR6Wenp3otcIEzMNlALHdBu8YH+pStcEKf5wz/jmAMy2nfQ8FQ0FwzYhujL +5p1Garnb6Ep5XDA5mfPrk5U94nVZdK8c4IInh2Pmv9adRO+HL1v37ucGvvty +5i6j1qg5TD/iziFu4EwLsqpMt0ZNYrPlO224QbK55kTIMWtUu9dR8KEzNxiz +K513aDyGnubsbvG4zA1mP+4I5eRaoZhznLBG44bKo95HzK8dQYeG49Xl5Xkg +xYrrtOMWc/RefbjbXpkHsA8vX4TWmDG+0w2uPFDjgcD9psdcDpkhM5ZvHVIG +PBBdYBbx6Px+tJusfl70CA9MzqXN4h370Hb71/Vc13jgT9em3r1Fu1HFYynP +/bd4wOK+ftFmi91IZ8pLNDKWB26Xuul2TuxCmpdEXFkfMPx3u7+/rr4Lqaac +4V1/xgMPz+iVp/gjJNv9x4Y+wgOCnt+Prc7sQGkyBze0p3mgIq7X5PbeHUj6 +bHa+/wIPHOa/vz893RBJLJiuzazzQL7JGy2LowZISCgxe1ySF2ZqqAk57/UQ +q6Xm1FdzXvi9LjGJ8Wiha/f+S5Q9wgvHusqn/85pIqYv3SanjvOCWvNxTvuO +reivR2h8rzMv0IZMyaXJ6mjpZvP2rlBegD3svifNVNDkK+fw5mJekN8Z0nrK +QR4p3O31jK3ghZ1vctnl9ssia4dDNtY1vJCGm7zU1ichfGWH2vdmXmDJKbTb +riKBErYKdy8P8YLJ7qdG1/L4EOMvuooKiQ8+fHixxXZbPu5/brvIDJkPojgt +ta3PfcOfaBf9panwwd7jL7PptGlc6H3SR2w7H3wcHKBo3l/Dh5l8Q48f4QPf +mt4N3is8RLSnbPuNSD6o5BrdWjchRTQYJLw4EMMHhn27Hs+ZkoglNq4c4UQ+ +qKeojQxnyhCOWfSLGQ/5QPPYypoukif0ulsolbV8YKYXv2n7Q0XC4yHwh77i +A1nb1bkjxhQi07dqGVr4wGLR32++k0JwcT96/76HD2JTbGs7V5WIryYh54cX ++KB9I3dL0tbNhAjvrGPhHz7YoS8he6JiM2HWe+6APxM/DHEM6zUYqhA06hHy +X35+0Pe9KvzYSJWIzFNpEd3CDxf6/36TVVIjNIU/y+05ww8HorKVftzZSozG +jF6778IP3id/Xns9tpXI4FkeG/PiB2r/Vo7B3ZoEH5sULfoiP5TPrXPX0zWJ +yaWTpp/v8sOeF3Jdh8laxKNAzyLVFH74JJXt9m6/FnFy7pJQaCY/SOAz3N6+ +WkTzxIN+hSJ+6NStydF9oUXkDnz19WjiB0V+Dr31vdqE/clfXTUt/DBRYoMt +uGgTYp/XDQU+8sPY74lEuUht4lq7Auuzr/yQd3JJS7FJm3BsdEr+u8QPzx5o +qPAb6BBSiPr30D9+qCzTy5w+qkO011xzesgqALJBLjbC3joEVvlY3VRIAL58 +OO+inalDyOaPEHFbBKCWaW507Y8O0a28pPxzmwDYMm/as11Ql4h6yHFHT18A +ThVoXG5Q0iVW01Ss+3YLgEdqiUmfhS5BkzR8oW4uAOkFH6XdT+sSHolm8lcO +C8DpRcGrR/x0id4Yj3GKvQAUmv++ondXl4jnuXQw2FkAkh7kOes+1CX237xD +e+suAD98IpwSynSJqvCiMO9gAdAf79e68EGX8PlX8wMPZdRfj0yYvugSypfe +mwpfE4DYrykDs2O6xL3AGaGqWAG46Hx6BzeTHmEx9y+Y674AJGyT2KTPq0ew ++Ah8sXsgALoyJ5g6xPWIFxPyUPxQAATYJk/3KugR/q7bcjfyBOCzWHfbkS16 +hOoQ4rEqEYCYBKufRjp6xOCZI345FQLQiPdsSjHSIw6dDNhh3iAAn35VetDM +9QiOz/9lPngrACe9f4RSj+gRdVYJrL8+CMBqL+1H0XE9Iqj9kTt0C8BX6xAF +R3s9QsPy2YeEfkZ9Q3nV8U56xHDzK52R7wLg+KlTDbnqEQ/2dScbjAlAy+7i +ZW9PPcKqcfjv7RkB6EnjeCDjq0fwoN9OA3QBuLOnOc4yQI+4uEuVq2pVAHhs +lbK3B+kRo3tOlcQxC8K3w9zVsef1CGvTWGsPLkEYrZgpOXlRj2g0a1jdLSgI +H31Sz6SE6BFaBxazZSUEwbZWJdPykh6ReVBl/5KsILCeYDW5yGC+I3Yz7UqC +cDlziFeOwZesYu4VqAkyvs/e9exk+I9b1++I0BaEas4Nz74LesTxE/RBe0NB +eJQiFLMYrEc0ndwcqY8EAb60scQH6hE69ic1hEwFoeGIRWyxvx6R7RDdOWEp +CMn3P/465KNHCDgRF18dE4S+Q7Pfgz30iLCzC/IZdoJgpO0ur+yiR0y5bHp9 +3kkQCsk7HE456hF27rZeR9wZ+d3vW8ud0iOaPaOE1fwEgZ1/hOZlo0fo++DV +rOcFQU/nlYrZYT0ix2/+9NcwQSBn/nWoMNMjRKjKbNURgjB2OJaZtkuPCA86 +URh/RxDEt+VU7mbobR9St7QnRRAWbGcHlNT0iJbQuXS5LEHIOWcfe0FRjzC8 +orRnOVcQZGVrPpyT0iPEIm7HFT4ThNJHMcdE2PWI99E2qsLtglBHFvEY6dMl +jOJutU1+EoQvcwFR2m26RP7dmqCmAUF492b/U6VGXeJ6kmLDhUlB+K3gP7WR +r0vIdyxpzLIIwdiTtLYGqi5hc1SIyZ5DCAqaot3czukS0Z1bupq5hSA0avk5 +bsO4n932IY+EhMAxm1PjloEu8bmv8bWNvBCw9DrsKV7WIfhPDaQ0KgqBqaV9 +DueYDrF34LfXtk1CoFMT0SD/WYegfVMV4dYQgs6fe8NuPdMhYodiHWp3CMGg +n46Hr5cOsX/GbpliIwQBnuLJmR3aRKZYRNdVWyGQrbZ8XFurTSwaF5UOnBIC +rmuuHMX52kT2nTW3JGchcDacV+cO1yZWVdJ7uf2FIKSJ/8d7DW3iqfPXF3N3 +hKD611FJj6tahFDvmTC8XggmJ/5ctlXQJHobzzHbaQiDf0QVT62YKjG3q590 +eZsw9DemWF4dUyE4Gw7rZesIwwE3F3HLlyqEPmHkNmooDN9FW3PYHVWIxBqh +D9R9wsBKxv4IPt1MHK6oTYlyEIYwD+6tOvs3EW9yxbTq4oXB8tk+npxYCvFN ++Y7593vCgG0X+MpzjkL8frzhzJosDN5btlrd3UEhlB9N3jfPEIaG5BMmG8OK +xLXM+rVPBcKgPfnTwsdEkcCSvd/+ahSGXXOLP1cmFIjKW00O5N/CoLU7dmcs +qwyRb9EqdXNFGDhv2U1kl5OINL7Ozpk1YWgrHOiRcSQR4fGDpjUsIpC/+mPb +QVyasExZ1TwuJAJH2oFWelWK+JmntRGlLgJ7ha+k0SUkCIG36VnLTiJQkLS9 +6HaaMMF8+/FJBxcRKLeSqMs4LkwsWhSKvnYXAcGwC4YqosJEX1v1zQQ/EXj2 +4gP7gxghIudzp9/WyyIQyZv9XURIkDAa5YKzKSKgHB6Uq7yZl3BlD/7e1iYC +rm0xekGsbARJ4V3P2kcRkK2M4JHJZiXaDOXaVT+JAFKNao42YSX0vV/XXfsi +AmVlx5+0X2IhOLrEH+iPiwDfNuH25nUmIje7yiaTWRSe9Myu2dn+xW1f8hxs +ZRMF7vNzC3mFazhft8PeFU5RaA3Zr3x5fRUP4uTUtRIQhTDZaNbawj/4Xt8T +QhwyonD69h1NH/FlfNh4pcVHTxSwbytvU3QW8BQby8Y0A1HYo/qf5I/0edzS +L/vFWyNR2FdokZXJNY9XPDLLV9wlClvr3i6NNc/i17lTb3w6KAq7fQZ5X9lN +4co9O8DETRTaw+W/CnMM4b1zMQaenqLwN1w7eoXzJx7N81Mz2UcUOsQUIx/w +/cAXTe7IzQeKgpz79R+iO7/hTTn9qznhjPOsZpJOjZ/xs9TQSr40Ubij4jh3 +KLkB19f5VrklQxTK1/U3xMtrcZ4FqDLNFoXpOwGKXPur8LIAjurwJ6Iw3Jqc +On7yMf7X/+7zRZoosGcq3mzeU4wl+eXVDLSKgi6r6o173z9gHtt4av+0iUKd +pFfdh70d2M5Z71qJTka+2SNfviR+xIZ8deqO9IpC6PjC3nKVbkzLtw5vGhaF +qvrM73+l+rB33l0NT/+JwolkfXkmqR9YuoZ+4zsmMbivYhWlkv0D859OaRxl +FYO5alCy2PwTk/B2eEXmEYPrV9KDYzWGMGeviaZECYb9+AFyoOIItl3d8nW5 +tBh831Vq35U6gnFNlbxukxWDuGAKn4XQKFbqGfSGS0kM1PXz3W4tj2J/PTbe +hm0Tg3GxnvP5peNY+xbn5lQdMTj+yoQmIz2BPZpoaq7aLgaBjRvp9eETmLnH +nXdzxmJATkkXLbaYxJLcxVvPmYmBHlujnd+7KWybm3qbpZMYHJYuiY8O/oV9 +81DwKz4nBvLFP12xll9YtLeokIC7GBy8Z/VeUG4WmwhYO9ruy+CyXzqUulns +cVjrp6NhYtAh8a6iLnAOs7pKnKddFYORgLc/2pPmMKZrzyRFI8QgSa7zMcuL +Oez0zQcnu2+LgdoVil7n6hwmmeD19XiyGOSETh08FjSPvUk8c6U6jeGPWfx+ +HD+PBSUfU5DKFIPug8Y5m57OYx/TjZ36csTghnSMbtP3eSw8axuLUT7Dnssi +N/JnHtN8pPQ4rUgMTo9sIiORBSwqj3fkFE0M7tzQoT6BBcyocONGbaUYzOTM +1FQfX8DGn9I3y70Qg+qP02I83gvYPtoX92+EGJzwfPcpJHEB26gtmnb8IAa1 +9tsO1Q4sYCVEVkxDhxgsVRzo55tZwOwb72lSusVA6VsvW8nfBezF21D/oX4x +iNS59HlCmo65t/gJ7/0mBihzyuyWCh2T+HCWlvNDDNawK3NX9OhYYOeBRZdx +MTA2NHcIs6RjlE/o/pspMfhWXPEt8gQd6+jR1VeZFQN7V8ZtdKJjV/pVem4u +iEFefMazWi86tvWrzMXx32KwcJK/ciqIjg0MCkqb/xEDozqu71cv07E7P1lf +Fvxl6O3nyh56g44Zjizb8TCJw+xIBf1bNB0bG5ta82QVh99h+heK79GxpMnB +9FYOcXCp+HpyPJWO7Z3pMtHgEYcPUeZn72bRsYXZt9+i+cVBYKXBtjCHjj1c +qLk6IyQO+YF6//QK6NiR36XkQ2LisLlQS1i3mI6tLz9uKJEUB32TEasnZXTs +6Wqys6CMOMjnyF6Jf0bHTv2LYvWXF4c/ykaW9Eo6xsMUntOhKA4cY/pBHdV0 +7DlL0D7tTeJQK59VuOUFHXNldx+9qyoORlZxD5le0jFxLvubC+riwFZdznWC +wU08R1SPbROHJ3nGMZoMpvLvffdMRxy6taf6bjH8yUKGnmL64nCjli3Z7Tkd +axfR4A3eIQ7HXh/xfF9FxzAfn4kHO8XhjKLhtu8VdKzkbcnbRiQO1OYvt6Jp +dEyeMpc7sZuRP1euubOUjsWGaV8XMhWHJedl44qnjH4/U50NzBn5KSHaOox5 ++GhXgIOlOFRhzfSDuQx9on7L3zgsDufl5N9zPaRjlqP6/4qsxOGp8Fvmc+l0 +rBYufum0YdRnrtjvmEzHNB68ePHHVhz+a32QwpRAx3iP7Dy//4w4aBz527o1 +ko5dKrxs7essDh2ID6+7Sscm2Qid+y7i4FAcG//7Ih1rebFr9qeXOHypaqtx +8qRjRmIRH7j9xOH5XplrKc50rNC3qUiLKg7py0usYXZ07LbSfvcrF8VBYnh6 +46A5HTOLsfwhfUMc4m59+IgpMfQYiyHgljiElO8L/StFx1R2t2e4RYkDb+4x +Q38BOsaxfNSu8q44KMH7wCsrC9hrxxNdRzIZ+yTErWXzbgHTq0kpv/BQHBwn +u1/9rF3AcsT74zJzGPt4VX3ftrIF7HqLveV0oTgw3We25U5awHbrOb++WS0O +YUJf9g46LGD1nD7VeIc4pO6yW18emce0nEvuj3SJQ79TS83cp3ksu3Y2kK9H +HNb8bB8+fz2PXQ2gatl9FYfrGltLX+TMY9iXCwW/Jxj6zsgvpDnOYzUl1x5o +sEpA7em1wpyOOYzD0oaUzCEBLTO6/V61c9jRCZVUZh4JuM5E3OLJn8PGlD4k +fRaSAKPw8LTOK3OYaKpkQri8BGg551wtVJvDvCKe3ureIQHSFh+/lK38wmRs +PweH+UuAzqOy2X2y01gos9qR918l4MlFNFSjOYqN7uXt3fxDAnIOnM/yYRrF +jtyaPvPfsAS0+Ww5ta1zBFMWLPXTn5KAkUuD10aDR7D3snpx2SsSEFdxr3gn +PozJG2JtQaKSQMGeipgeG8Iafa0s5cwlQXeH/i+BxO+YBk23+4KlJDiqnu08 +4PEdS/otZt95WBKw6NM8Zdh3zCusx+vmcUkQ+Sam8aNrEBO7Yx81f1YSvl28 +1lJ//Rvmmuva8vqKJMxLp35tXvqC8QxcMvOtkISsgkCbaMUeTP9CAX9ctSSY +x6xJhQ98xpxEejtLX0oC02uekA/Jn7HnZttPz9dLAn7WI/684GfMtXI2IOiD +JEwpl6/xsn7CGmLPPbg0Kgkn77qv3lrrxC7uOvQrUkoKwto2Mptc27CcgbBn +eTJSYCz9q19m8QPWfqHoYrO8FEzVFVTqXvuAbS7hYuXZJAUXWqVycrPfY12k +V5Ix2lLA3Zuwcm+0BdNcNNh1z0IK2lTzbFOT3mIjTxQTs8KkgGzIlBYQ2YBN +X//xhzWcwc6He2WVG7AF54dn3COkwH+jzyi3sR5jUlBU174jBa5CObEHWOox +UjK5sTFZCiI3neBskKzDjtxUmBuhSYFN7D1+x7hq7ITLoI1FlRSkis9Qv4xU +YQ57smpKXkjB6z7zL+smVZjXhvzNC/VS8C+aeYchvQKLvCAvz90mBVkyD0MO +BtCwWjc5S40JKegJKOg4F1yEvdr3tTx+WgpcbK6krNkUYi1KGZK/Z6XguRM9 +tnxHAdYzKDtUtyQFA33xl3x48rCFE7KXDrNJQ/Geb6lNHY8wVTOZfKqCNLxZ +r656+OU+tm3zF/4eijR0VcdruP27h+mzPQg03iwN36o9Hi8rJ2B76kmIbas0 +KCn3d1XyxGAOhqTP942kof4ebrJ/yxUsUVWa7YWNNPAXDTVk3gzG7R025w3Z +SsNei8CjydtDceVEXQsBe2nAPKmdUe7heMXGwfizztKga//LIGb8Bt79+Zqs +gJ80ZEWJynNg8bjojWm9s7ekobvmHdlzPRXvf/mnJyaKwYVT/NpKD/BHcxyh +z2OlAV1cvvRmTzquY6/YwH9fGk4knD158WImbqV7/ODzh9JwMHE+1t72IZ7w +g3Dhr2GcD+36aa+di9tJfuAyxKWhOee5RefjXJxysL/IuUEapNeytVzFnuC0 +54vz1W+lweS27v7l2Sd4Z9yWK87d0vAidHKHwt18PO21vmJMjzR4jRzSnFjM +x53X9jRV90vDW+5m3ZnjBfiCqwMP/w9poGpEbS0XL8SFsXtJ1TPSsJK/0XTr +ShHeG5i94+ecNLhuDdCK6C7CswuKB/gWpeFltRRXl+pTXEu8meK8Kg3uFpwJ +4e+f4kem/5bwcZJAZN/OngCmElyKwmNlwEMC8xW/oPPmJfj3E5K/nfhJUHE4 +7b+p+BLc/5W2cbUoCULc7xzUkynF49Nc3zqRSVB2NHypTaAMv3D+WmCYEgn6 +jrYvF2iU4Q5WmQrJm0mwYXys+qN5Ga7B8/nCew0SWAxuZPFfK8PfhexTNdhB +Au1PCpudJ8vwMhun7qM7Gf6hSLONpRxP0b4c7o1IkNVSqH+PVI67TlT0PtxH +goiT3NaaZuU4y0nl23xWJLjvQm7vfFCOT+jBdhUbEtA3j8xqlZbjHUL2P3bZ +MvqrCedabCjHs5rv7bjgQIK61mW20pFyPDKndOSuEwkkjp3tKVgqx33DW+8+ +PUcCdkX8iiAnDd9pyDr5w5ME9SI3SYqbabiSmELSXx8S5G7JXWjXo+E8c0a7 +JQNI8J8Tr9vsbhrem0dNs7xAgtYLKQM3TtNwIiLW1O0SCXT95Ks2PGj4kzOF +C/9dJgEbyhmYDabhwZI/LaojSLA12KXcMJqG29P/LX2MJME17/0aiUk0fG+7 +9OPp2ySw8veP8cqm4epF2w9zxpBAjUQ1qC+g4SI3j64pxpOAxcQ26h6Nhv9x +9snbeY8EnVuejI++pOHfsdvHTiSRoJ/NurimkYaXLNUXRaeT4Hrh+MCvDhp+ +v3PgRF4WCaKa5tYO99DwsJIV1sZHJCi6lTRp8JWGn7sjVjaQSwKekMX1vJ80 +/ICrlv1yPglMdkXFPByj4Tq7LblEnpLAJQxNbJqm4SR59wqNUhK8vnPirP4c +DWdejXDcTyNB+/mQA910Gj7+KYvPuZIEHhP5s0zLNLy9vOZ52HMS2Gzdl173 +h4ZXxfScS64hQfQuznTevzQ8w4MuxIgKIasbBtP/aPj1fYJ17xtIMKidVO24 +QcO9FNU9xppIcIj9hqMn0zPc6p+pOEszCQSU+s/zMD/DjfqcG2RbSbBz0+LO +3QxWrLziY9BGAtW1cLoIg7nupklbfSRBhmNY32WG/5x31WvvbhIIn9XUuM6I +32PWGXCzh2Ff3KKisk7DceVfco/6SRAYfYDNnVFfLhNPS+1XEgx1V6/tX6Xh +0QObzvd8J0Gha/+eZkZ/gc93URaGSHD+7jnhyUUabpd4uo1vjAQXtS2TS+Zp +uOwzHhmvSRL8q3wU2zRDwwc/Vru9myEBLsaf7jdBY7xH5ypU5kkQz/cGyocZ +egiKMEcukiAy8cHanUEavlmTODi8TAL7KzNm6300fMLSO233Ggmeajx9xNdN +w33vvNHdYJaBWrZ/x5ne0nCtgsDw0+wysGuPYeo4QcPpb8kfarhkgHpOqzrg +OQ2/yB7qelFQBqzWioy882n4tfBtqfOyMvBVDpq2XGfsY9bAyGGyDEzZMNnB +JRrOid/WKVGSgYwBwUUWf0b/a0OtnmoykNkYlHbXjoYnnU9ZHzKQAYMuwak/ +6jTc9v6+A7uNZWDW88TsfQUaLlOxkJyNyYC0seG1cREanj1vqX16nwxspvR7 +VK2U4wXezOc+W8nAQuKDI1KM++sdVVKmd1wGos6xTkXRynHNwlP/Ek7KgIbo +zw3icTlOG6tMOuwoA3Mf+R19b5Tjtc6e75p9ZGDM7/kPNlPGe2DbpVlzSwZK +LJgVpOrK8JW9uX+ycBnQ31MtnCNWiofVZEU0NchA74sCovBXCc6kk8Y/0SQD +Wyd5scvNJTinQpyiTqsMTDYMXY0KLcEl/lw0b+qRgSrZGnLwYDGuW2yZOj4n +AzNxzKPlWU9xX/FFQ20lWdjZdj24hacQHxrZfbHxpizIP/ge0NWcg+/Oanuk +FiULDtc2PX75IAfPtrX7kBArC/9VR7ZW+ObgDq0BlLP3ZQElno4ZEcvB+8uy +37M+lgVTX8rwEefHeGfoOnkfLgsv5xIV2Vge4Y3CL9+9XZSFPxEpl6qfZeKK +rfsWt63IQnBJmvB2p0w8/PpH+ZQ1WXhQMPiVTTATx5bHA91Z5ODuF2a+LK8M +/OWApDy3kBzw0Q7v71VNx2l5wVQLdTlI0InTVKxIxR+ZaMt8cJIDXZ7KZHnR ++3jjIZ6ItXNyYFhp7ST1MRH/eWZocou7HKQesVfyiUvEla7dfxnpKwcyNsZf +VfkT8Zw3f05CqBwI5Iokz/Pdw3MPN6Y8S5QD96uqTCzyd/F8p2MSaW/lgHf0 +854agSi8mapxpblFDrYmq+nufXQHH49gH136IAcZ6aKOMfp3cNUn1ZXHuuXg +4PaOIEen23jBpIwN/w8Gz3MXc9XfxAsDh++FrzLqbdynevDhdbz4RrCw21Z5 +aD96yfm/4cv49M7T125oycPt0d50R+wyrrG4l/5YVx7uL8+0PE4NwwudxT59 +3yEPM+rKhJV1KJ6PnqXYmcrDzq4qWeP+i3jOnzmFQ2fkQXIk5KerShA+XNYb +7+0sD+lduzOkkwNxJfd65igXeWB7UUVR5ArEH32OG3rrJQ8LHlqaar8C8Kxn +mnm7LspDMWdsGXeiH57m4625/a48MJ37TSu86ob3K1tnHUuUh885PHqJt1xx +6QFjIWoyI7/VEzJzogueYsG7UJIhD0YZLJ/saGfx+yqFlaqF8hBvdzr3FZ8j +Hv9jbKfsK3l449y3V8zbCu9IaS82eiMP28P4lNpbj+CCR6rlT76Th6V0J02q +4yE8Fo9kSmqXBxG5GRMOATM8+sGmJsEBRj3/nUnXKjXAb9qcPcD6Wx7sky9R +11u3Y48OD9i7rMhDbdTA703ZxlituY3v2zV54FyIXmIpA2zBZP/dKBYFqE/W +8q46aorZb1bvERVSABnf2BqRuCPYBXLOeLCoAky/cvL0HDiKJZDkVnskFEBa +jS1+VvkY9lZAUC5dTgFi2QP3PMqzwXSWF5yV1RVgUTlmy50gO+zgvFdQpKYC +8HK/PKyZfgpznxq+Ma6tALkmgmZA2GMZg5/znxoqQCIxyt+27IBxNb/8pWeq +ADP3emZfpDph31KuXdrnpACHXaPuMfu6YH8S1qLyzinAO2PdYdVBF0wsJiiD +210BzJ31uc0OuWLm/7nWf/BVgPb6PPYrm92wCg8LjuNhCsCB9QsaEe5Y+9lX +ks+vKoCuec+hu2QPbPL0zi2kCAXw3DtfwRTugSlYaVp+u60AtYsj3IY7PLE7 +RiIJrskKoH7TgyfkvheWqxf1uDlNAXhMGnHmcS+sXpOtUi1TAc5SI5MbDb2x +35Slnl85CvDNsiDhb7c35sjbL3eBpgDClodQ/YoPdon92La+SgUwjbSsuGji +i93faAXjFwrwdfPhD7fCfbEWet3ZDUIBXOuWLxPMftj2gYcFNz8owJ9nYfvp +c36YkKb7SmmHAjym7mu6J+KPTV/V3N/bpQBr7L1uLBr+WI5SzbBqP6OfGzHu +Q/b+WHjwf7pHvyoAEfK33zbIH7N/u/9ayHcFMCOzr6lG+WNiXt0KLaMKUFlr +7DRY5Y/N1ab5LkwoAOpfpTW3+mPvBZzqSDMKINnu/U7kuz92nTZj50VXgL/P +rh5s5wjAVsNYD3AwkeGTxZ880YMB2HiuKzWNmQw3JDrktp4OwD63vUvVZCWD +aMLT/c+8AzAaOX78OAcZjij2J/LeCcCyzemCU5xkCKjf9/h7cgAWSz1ucJWb +DOfGh41VcwMwzybZyDw+Msj/6f0ohgdgtjNXi40FyHBb/L+S2ncBmKnEUHe7 +IBk+X/7bNdAdgFHcC5RWRMhgHuiSFzURgAnd5TsQLUaGwwlBqnL0AGz9hR+V +LMFg4cQUjb8BWB+vfoOZNBlmPwh/aeGjYm/0UscHSGQYXF0PtBejYhWn/woG +yJIhYlTsdoAMFXsUecaAXZ4MvaNJIbwUKhZf2uiQqkAG4VOqj9VVqdiV3k2R +WxXJsFW1xalrKxXzZr5d3EAhQ6ZpryCbLhWzU5vutlEmw2tHTg7CgIqZHTv8 +d2ITGSjXnB+w76Ri+mE0pSsqZBDrMdvUh6iYcq74AZEtZBgN81o22kPFRNou +Up+okUHdufWshikVY1r+kmqkQQayQfXLEjMq9ksBNbRtJcM/n3cWryyo2IDZ +o3HnbWQQODDq6GVJxVoC2IWWtcjgymZkln+Qij1PczeI0iED/7y+ReghKvbk +VauDgh4ZLr+9VzLC4MRpzchn2xnznDKvGWfwNfGE4v0GZOh8d6/iBoP9sd/d +XwzJ8H7f1EAdI56Dm+1fPyOGPtpcwQmMfJbxNUpsO8nQ1fOthu0AFTN6IX8g +xYQxn3uZv8TNqZjqz/+oGogMnoFlZm8Z/UjwjqTWAxlOzVeykvZSMTY9swbr +3WS4VnbzhOAuKrZgXzQ+vocMaYf0LuWbULHvNwSELu9j6A8bWaM7qFhbSYCB +8H4ylOBn1lq2U7Hanm6HXDPGPF9u1B7XpmIpWx4UfzhAhqlXGRoeKlRskW6a +G3GQDM/EbGxCFKnYYXwhfcdhMoiLUYRVGHpzHLOIzrUig/dzNgUnfirmLLcU +ccqaDBJ91ifn2KkYPvYwVPg4GSaebV2mrAdgwWF/PC+fJAP1qbbIxZkArMM0 +11n3FGP/V13PZgwHYBrCR+0m7MlQJWRY7/UlABvOzTe3cSSDDueoKndzAGbV +fkJ1qxsZwjmG/3lnBGAlqazkIXcylJuosDMnBGDc50olUz3JEMV2/pdZZABW +v8LBye5LhgNMWx798QnAtlGqRgaCyBCbsyedxSgA4wsWexx9jQwntzmttbz2 +x9xRfdru62QwSGdp1WPc91fc3gkrN8ig2+a72/WJP3Yp89V/526TQTCquUE5 +0h+beEt13BlPBi/PU0+27fHH3pA+yk1nkOE3rXx1yN0Pu1ofk3LgBRmsrv+r +zPrtjU1+rU/885KxP+eKZ/U+eGPH1+jxebVkuP633utBjjemoW93m7WeDGf9 +vyX9tPLGeos2X6p5Q4YLH4bqbhR7YTrJxCn1bkb98g+rA+w9sVGfeXneWcb+ +7ZWiZhS6YQdlbHJblBWhr2LXg7vmzljKsGb9qc2KUGDGku1NccaGi7m+TKso +gsnqDmaHNScsDGqFBNUVQcdhRDqy2Al76qIUdkxbEQQb66ZXRZwwnrJ5qwET +RZikkR26X5/B3u6NZfp1XBGYJ6aYxfROYSIC7jJXbRWhaD1IC83YYQ49u/SF +7BThjeMplWdP7LAlj99eOqcV4XW1yswFkh22Oc6+5/xZRahq2xJzg/0kdr1P +rWTDTxH8T84kqU8ex3b5vj0lfFsRDkjPnfowZ4Wt9k6YNt1RBM7hRPaZEius +Yg+fzoVoRdA0Y4mg+lhhm6WPcn2NU4TALX5aZVNHMb6m/or8JEUYGZcRWp8+ +gvVK/+KHHEX40T3UpcFxCEu4LvRnIVcR2H8IajrFHcQOzOoM5+YpwnVZ0Q43 +6YMY3nThJW+RIhBXOmnT2yyxHD9mt55yRcBNvpL6XC0w/9di9b6EIqTe3CNx +4K8ppqZlUKTYoAizeTMepQmm2FDayaTuRkWwV/O7P7rFFDvun+lt9EYRBmpP +f39vtw/bKaMqzfFBETLuX9IOerMH4wowpmb0M/r7aqe61ARYlqyz8vvfijAu +8ibJ8bk+ZqSrrum8zNDjDN9pIyV9rNt80WBlhRFvuK3DJ247xnUh8oDyX0WQ +eDdO++qlh/l/LKSGsVBg94tcgSY9HQwi6fUaghQ4OPLgtCuvBtafXtvSKESB +Ov/3xgd41bGgZze6bUUo0KL/wYHgV8Pyv0uOXxenwCfOIt8DJFVM2Hin4FcZ +CohPSOsWHVXGfs5ePx2jSoHLc5fzAn1JWBjHITclNQp4sf5kq6iTwiTkJANe +qFPgruz45TphSczCouD6iCYFHKvvrIs1i2K0nA9FJtspMKZQNevRz4NFnJRY +ndlFgW4fiS2Wu/pM5P0HWa/voQAaP5sUff+JyfPIfH7SPgrYC0Y1gE1X3fQz +I0VTMwq43Ih6aecxW2ctcMYs8xAF7Hav9X86yoIrv8pLOnSKAnvGMqaUP4vg +bRorOQP2FAhSC1J5SBfFLyaZPfN0oED0d0wU8YvjrR4T7ZFOFJg+5MixoieJ +U4XUuQk3CqjOC5I5T8jgspdCJQ96UOCriVrcjuOy+Ouh1k1fPCnQX/J0qe6o +HC5V7b172YcCu3x8Z7tNFHDidEnotiAKtCVU4tRgRdz97frtumAKMFHF2vJH +FXER7cMpBy4w/N3LlcjHKbgr21yF2yUK5Mirt3zbpoTzFWn/ygqngGVHL2m+ +TRm3W6lwFIqhwEz+r3hhXAVnc2b3y4ylQMa39X3NYqp4SavNZY14Cijd2orP +eajizFlLqWb3KLA8ssL0WHALnr/PsCs8lTFfUeee72ZquFXprR8CDyhgkB9K +C7mnhq9J9c2mp1OguVdpf/qAGn5oOoTvRRYFxHTi/rvjqY7/TqjZN59LgTTZ +JHWHYA088y+v9dU8Cjx6Uvc+uUIDN3O1d+YvoMCIZ3YLdUEDT9/x78qWpxRw +EnSMl/Lciu/+jj13olFgtDvqfZC5Jj5tHvdm9hkF2LCyMZ4rmnjSs8Huy5UM +f4P4lJPlmvhEZPh86nMKlJj809UQ24bHb21U68Qp4OzDqbbUsg3PNzzFfa2e +oX9rU4bOn204sWdxTLuRobdC/Ek2US3818nNuXdfU4A1tJqz2UQLZ3chIna9 +pUDcoJORspUWLutv6zzfTIHjE1r23S5a+IHIOwpH31NgNjwqxCBKC3e+q7TO +1EaBL+/Yl2fStfBL6bUDZe0UKNO94LZRrIXn036lCnUx9l9eXMSoTQuvr7t5 +sb6bApXpWL3rVy28p5l8wv8zBZ5TDpv/ntLCOQatxDr6KNBYqF+PcWrjcpNT +C1e/UOB24QXRf6LauN7v6x+3faVAYognnzJZGz/LWx0b950CN10icmn62vgl +iSM+6CfDvn3mgdwubTxBceLA7BAFir7dHF620MbrDWS4D49RoFDRlZX5tDbe +u7tibH2cAhpHd5F1XbTx2YMH35RMUgBfDpL94q2Nc5wczXGYZtipZkmrgdq4 +/LmrEQK/KLBveHXLvUva+HY/KWd8lgI6LUTAk3Bt3PJSOfjOU+DQoxp2/Uht +/NwNCwV5OsNeyhS2J0obD40f+vdhkQIfP0a5d8Qx6nsQNnB5iQLU/zVM91FN +l1EcwH1FIAyUl5zK2HaZNN62n4SEol5edERAyhKTgAREmAK5AgWZJe8Jihge +lCmivKlAAgYiaLdDhwN66AgCq3hRCjRDs+RlyUC2fn/ec+557ufc535TPcMe +FzJUXWV5x2lGgPzm5+MJ5xhqa7hR/EjL5s9v/cUMFeu9K00+NSfAVy+v6K1L +GHrV+Xvw5nkB/qEqLdlaytCyvhTXlzp2fxMH5scvs97HKy1KFgAWNK2u4JYx +tGG8ZtJ/EeB4mMpihK0Dpn0evlkMaPDj1W7Hctarf1RXuxRwV2ePzIitlcZH +8kOXAVKQwvow219oaRZvYgTYubKhKvEK6+Vd//CuMeDek2kxBuy8nxy87ONM +AIdFF9WOlxga2DBkuPZtwL8jju8bv8B6PROfdZkC3pxUZG0uZsgwYHlH6grA +tcyRq/ZFDNl8UlXhYA4ojtvtdvNb1hu1NWPIAnAwqrhUnc9QYMJvEXlWgAf6 +0nyLchmKTlHgplWA7qYrz2uyWG+msc0LDmBgk8HkNPsfNSqPYT9rwMKeet+B +JNZXqW6d5bJ+52ML2z5naLA+obiaBxhbO+ARKGc9nZeDjW0BtZ1SVfinDPF6 +3V1bhYDNQTb7n8gYcnvUa37ADvB76QpDS3+G9k8teXjfHpBZmmGo3MRQeLXP +g1BHwKyX3e0BLgwFR2R2/esEmNz08/0Be4a2dy/usGQAR2RGPbYchtbVLLoT +4QZYl9gVUj4pIW6k1+3p9wF3M1b/Rf0lIStOelPORsCg8JFXf7J5MchZWP/d +ZsBuR90/bvck9DRyQaXWG7DB//oKvkpCwxwsO7kNsHIivsU0X0L9PV+X2kgB +t0k9Yu6lSah9i754mx/73i1N9oVYCVWs1uWf2QEY5m0mG3WR0L7euWRRGOAT +8ZbCQxliCj2x6fDdcEDFbLcwOlpMH2Pqlx/tZffpYdVmJBWTz43Z+KQowLeG +rc7LjcRkm6uNbJMDtm5f31Sf60xjnq/99xwGfCHf9fr2cSeKbJjknTgNWN+U +3vLEx4Hi0mVv/M4AKjm+Ow+tcaAkWeOvJoWAd+JFpx9O2NM3mqT8giJAs7PH +2tdcsqcb7tq5cyWAEdkpR+enRaRt0/9SVQO4Vd58bU/Ju1TQa3KqvRPQmRv6 +Q+mokFTl8bHZ9wFzkj/b0XNLSOWJD7x9u9j7aVilXZwnpFtWBbNdD9j76Y6x +THER0nCIeWyfGrCUuzqkJdOW7MY43qNjgBwzlZFSBCRpPMqteAp4zu2d/jCd +gDZmDWmjnwGmNCaYyvoE5G9XUj/+HHBpfJE89ZiAvjjI405MAH4wOK8e6uWT +0iNNe3MK8OmuooOKa3zKWj7an6gB9E8YdOV/xafzdeV5MzOAorjp7F4Rn8qO +L4lpnWXzGKw4q9bzqGZntJfyDaCnQjOmUfOoUdBhvUXHzsMgyXu1PKKpdVq9 +HjDYSyc5k86j/wHjSTGO + "]]}, + Annotation[#, "Charting`Private`Tag$30286#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVVnc81t8ftff22OvhETJLZnk+94ZkRWQlJCOrbCVZX2RmJFsaRhlJRoV8 +ng+SnZ0UiURmZW9+fn99Xud17z3vc8+578+9og5eps4UZGRkNZRkZP//5oU6 +0Jx0SkBERfk7Dw7/gpZBvKEl3g2YcPiEn6r7Cw5bSZF4/B2wKS3iu+z7F+Q1 +JopQ4+OA/DbDM+rZP+AGMeDmpkg2YBX7mnh7ZAkM7rqm/RMpARzUHk5t/Qvg +Vpvwib+VpcBUnDpa5uEC4H841LWk9RKQtGZKGM0XgIM0pFxwqQCkGJp2jW/z +IPAlY93Klyow/UPujOH8HKAd/Sm5JFIHHqlMtPngZ8FIIxqwOFsHFD/yKqjN +/Qalz7M+LFTWg4I7VzQ8q34DI1+jq/NaDeD5xthFCZ3fIIO+PuO3CwbKRGs7 +K31nAMejdorlL80AjDYop/34BZ51PvFZEOkAqCjx4gvKn2At6430j/sd4IEa +3b7350mg49I1NbDdAX5UlE4XvJgEi5Sb5vWDnSBJ/swpzQuTQI1odDouphs4 +OBuH6+dNgL6KPQrJv70g06ax+N2TccAB6O2Y5ftAu4ZZ+FvjcXBGIu10jFMf +AGdzpL3IxkHSWslqUH8fSKcLxtM5fQdKDz47O5T1gyps49TrU2MgrFNW/+TV +QfD1235q3upXUFz5TqIsfRA4V56QS371FQxkaVIe6x4E5Z1RuuLuX4G4i1UD +r/oQQH7MNJyaGgGdlFHyZJyfgevSqsKHsS+AmzjK0ds6DJ6EvN6OWfwMXlXE +jd6Q/wZ6UjaOqdwaAPMc8/f1r30DMe6hsik6A0Dylj4ilfYNNFYrpljyDICn +GozPpra/gaqPHrvS9f0gteP+deuPoyDUvju2m6of3JpKXj5v8x3cVDGfCbfu +BVU6//KPJX8Ha1Nuvjx0veBvyUUzyubvYPOOj4vn2x7g6s3+jiQ5Dt6Ef7hs +ydUDrPdTg5VXx8EntDxtfrQbPGHsimQ/NwGisbC29vhOgBDv2oTbTYBCn1PB +lVqdYMxTRvnv7QngNsNMqbXfAXgHEma6SydAblv/rrXvUY5ZhnqxbJOgulfd +XM2pHUQe62E5HJ0EOda37oc6twIX0J+96DsFdMUVvJ0+NwOy/I360YQpkLpw +5s3Cs2aQRSU41lk4Bf46X9v649kM2juuC5cMT4H6OlszZ4ZmIGW2l+98+heY +xsX0rOk0gVlXyZfj5NMgjYLrVXgZBsK7DD994p8G8EUIEL6EAV553z8Np6bB +3AKwSdslAd3VhhO5ztMgeY5hlMKYBEpCTN9YdkyDSfJ1ybeHDcA9NYTUlzID ++M5ysS5E1wOK9fwfWMkMSGq4mXnmTD3IsWwnq2ieAeezDz7o/qsDnYKcWolr +M4D9ek5kqk0dkHlR3KZn9RtQqT3Of0usBYvvB/uaRWYB1V3r91P4t8Bz+vhU +zas5cI5FuizcvgpM2H2la+qYA+lKp1wGxKvApZFY+U+/5kBuvKd211wlUOv6 +fWeafx4Y5Jj/LguoBJSVRWzcMfPApe8/1b201yArWBS5fXUBzJ5a0jucKAcM +G32OkUEL4FfwrTtsIeUgxCs8Ljl9Afy0iFME/OXAweHH0IuuBXAvVGF3zvIl +kNXN8xhRXQTdRa42khOloImTL1udbQnwU31VnxMtBkqJ7aRzMksgYe1YVmLP +C/CcJvCXic4SmK1xkjsW/ALc3x5WcA9eAlnFr5TFvz0HFj/SWnNml8ALDuko +4WdFYL6UbW238Q/IFu4W27MqADbijXx0Y3+AS2HWnzrOAtCb5wVwm39A4Hii +rk5vPqhJ6YmXlfsLFHc1FZt180HYrfuittl/wcwrWozp3DPAIBol+UPtH1Bc +jqGzbH581OcPFELP/QP7Hzn+WVo+BtFWj1WFTP8By+6wN3FLeYAipfb8FY9/ +4NZNbNdPKA/sHCy6fMn7B0r81fvZE3LBwph5cS/FMmiP3bqzk5MFSrccXnuy +LoMno2ExVWezgCvOu5ZZcBmsNFePec5lgl8G8e0GysugvjWSZf5MJhirJ822 +uRytX1p9XrCYDrqzJI83di+D9SLmfwdBD0F8jdLJq1+XwYz187n+Ew+Bbt9Z +9YPpZfCCfy8w4ncqaKG10dM4XAZNwrJufpapoOFWilvtyRVw83GjiOXZB6Dc +bLvkdcYKYO8ND0q/lQRueNNUGResAOsg4tv53UQgfZ+z/k/FCmimCRWqjUgE +zz/Idcp2rIDsuvGdsrT74LGiw3zx7gqIyjYjJXbEgyS2Luln9qvg8fDJWCr/ +GFCnKvTGyHMVcPH4SL2niQG/7LzA3t1VMBTKaPA7JxqcKec0s8xcBbm0OpLJ +bffArJ5NCHPPKtjCP2QoORkFtCKXeu+cWQMcCraR0ef+A56lwFpSbw2Y3/QV +rlgKBzn9D34NWayBbmnRMyyZ4eCfiMq2gu8ayHjJLffhWxh43BAqNlO8Bh4q +ttutGYeArXXWAFPudSC+63xysyAQEIQcDg8J6yBtPN7rB08gMNKuiSs/uQ6u +Nyz3diTeBkWpVo/pLqyDd30tOffDbgFThWdtpMh1YH59yooQ5A9CLVZNbjxY +B36deOWAfb+jfj83xvdkHZheFeHPifADZN1z//zr1wFPKi5HJ9UXlLsq8sss +r4NEs7XdlFZvMJIcVThysA48fC9rTFp6A6p3w/LRTBvgaUFKSNVnL2BNfVdr +UnIDwCfPVyxlPAFd/ocbmXYboHC8ue7xnjtwGDXDKLs3ANGxoalI3hkw5E7e +9Pm6ASK5XK+3RjmBKmtPwR8zG6C51fzMve+OgPJbzJ168k0Ai1xrGjIcQOFI +/Skf1U0Q+5PDV1HSHhhmnf85rr0Jjnc1sLaJXQVrlkMphqabYEt6k/73ri04 +92VpSfLmJvB4XHxBvOEKmPmMLx7P3wQUmwHntnwtQVJ6uYXh602gcXlyuczD +AqiYn6auRzeBbPnwpRJXcxAzdMkhfWQTUHlSCOp7XQJSg9GChixb4ByVXorZ +FWPg3reYUndnC1Dfz64TbzsLOFLuAMmYLeB4V2fJRxmCemOaP2lpW8DY+0FT +gDkRMPaKGHhXbIHmTUXYdkkVvPxkSi05vQWejZU/ujohCcwSf1SnrWwBDcnm +12JeYmDP8IYDBdk2MFMWuMQjzw8udN/DvvNvg97Vb2nzMevIn87aO2kXtwF/ +6YWXJbt4LCP+nBSF3TbwHJR1bnt5DEP0B4a9PLbBgb46jcF5aSy5Y+GUQfQ2 +2LeItBt7dBI70S78h7xhGxjHfjdSZTmN+XyMcvCS3AF8h5rcYtHamPAvHZqN +UzsgTa9agcP0HNZFQV8aDHfA2ys/L7Dw62DHYOJy3OUd4Ntr1mn3+Dz2tT49 +vDBhB8i9T7rQekcfi/5qKS6TtQP4OX14QyQNsFNbfO2VhTugenijurDfAEtU +fsyKoTvA+jx26pbABezs6+ePv/7dAV1XNzfcoo2xPz2umvZ7O0CCgWfhNtNF +LHdJemaGbhd4Ci55iZpdxNalK+TWRHcBDeaHJ41fxEqK3jWwmO0CzjepuJpJ +E8yi5Y59uv0uYJ3E4ZqFTTHKqTNUgjd3wdXCrUV7a1PMFt9ocDx6F1AqWyo5 +fzLF2HPbv2nV7oKiL3fPshdcwkh18aGdLbvgXb1GjsLnS5jHiKGYSf8uUDtT +7UtNY4Z95Op3s5vfBU3unitzjmbYnZSvW4GCe+CGxPdgTnZzTKIi99Gh1B7g +swz+z0PdHBv8ZAujlffANebTZo/tzTE5xp8xD432wGxPmEBRmTk2eW+e+1X4 +HnjVeja5RMkCSyp8Wa+UuAeE4sXr9c0ssDMfPO3eZ++BdJW++RlfCyydbLWo +vWoP7BGWc0XKLTBNkTd6xtgeYBmLePKh3QL7S7y99LlrD/CsG1f4TFlgend3 +laZ+7YHAlfTwHS5LbCMbHXFb3gPnPt+/OSZniRXUhgX/298DLdkr6LC2Jba/ +Ttmyz70PUiYfeoh5W2KluFaXKMI+eHla8mlQlCVmeSqWkfHEPmCuYPm9lWmJ +VXozXeLV2wcK6Lt5/wZLrDuH8065xT5Q5Jc/+6PHEptp4X+i6bQPhuLqyC9P +WGJkf0U/fvHZB/tBz5Rm/lli/HzHF26E7YNS0z9D8WRWmJLWCXaKxH1QM5bU +p89qhRnfVFXNzNkHv+1C6KSFrLCopnORTW/2AW+Zpo+5ihX2eMGwxOLDPlja +ThYvOWuF1XKZ9S707YOWhat8MoZW2AC4sh4+vg/WC6lXxs2tsCU3BwHuxX0w +Vv5Wu93OCqNLcztbtn1UP748d/66FSZG8naBtAcgc9cgQM/TCtOYvZ34GXcA +LGc0tGf9rTALjrBqd7EDYDSX7tUZZIV5a0R/PVQ4AJXZW6arYVZY/PXEwzTi +AaC+WY1cj7LCClPSjkkbHIBCo5+3JWKtMKw+1wCzOgBeP5PUVBOssG+/8n3M +rh8A2oC+itxEK2yNpTRzzu9oPGeB3DLZCmNRr0RD/zsAbXd9dG+kWGFSjrVT +nMkHYHfILnX8CGsmYvQljw5AU/7pX6+PsM27VgWk9AAwRSipzRytvzX5yXzw +3QG41aQZ+l+SFfaA8fNd148HgPkYfHTvvhX2Unns2f7AAfhkS++5HmeFtV6d +akudOABzSjkfB6OtsIm4+SXJPweg10PagxBphe1UL3Oiuwcgw0Rf6HeoFYYb +31I3pT8EySyHKaJHfsjTkdn/5j4ERs/HfT4f+aWrSBsdLH4ItCplHKi9rDBH +G5aX7IqH4FrPv51qVyssNJpr4Dk4BGc/CXRPXbPCsl4Lbp25cAiwB1k2mdZW +WDeVjPZ110Ow0tVd+lDfCpuRV3TfDTgEA3lQf/Iob7LL6ikpkYdAqa/qRoOa +FaZcfn6s/vEhkMsdeyJ+7Oh8mDv5s34+BHaMDtV7W5ZYbZhHTuHPQ0DLSZe7 +sWiJDZb4Nqr/OwSMx3R2k4/OJ1UYpKmiJoOuIzFxJa2WmNqgkekYngzqka0v +v06yxM65mk4/lySDGkF/5n6EWWKm++aBPvJkcP9BhT3pqF9uSNo+ptEgg/Cx +n/YDE0vs2V2P+ROWZPB7fW9dE6sldqKRfivGlgzmycec+HhogTVSFVP/cCSD +jL/+G0z6a4FNJP7CJ3qTwTc1rXRBPRaY8FNby7k4MmhsYsD2Oc4Cy2kxbnnW +QAYzRVbi3myaY6nMSo85xMghj7ZD2eE7MyziyZ7J2iI5bFnL/xm9b4JdPFHr +I7NKDtfvb9EV/DbBhJv8Hjhsk0PxVQ4xUr8JVv9zvq+PmgJ+rIjBrRaZYCvH +vhqXC1NAoc+2P5yMTDCHl28uXL9IAenNLEntTy5iZ+s89UaqKaBIb/mIZ5IR +xqIv7cZaTwGjOBOW1xyNsLFv07E6jRRw/260T4q6ERa4Z9Ne000Bw2isGumn +L2CvgcH5B9MU8L8Ci2pO4gUM3yp5Tp+HEhqps8ouLRtgZIMTsCGIEo5zd27c +8dHDouZIz4L+o4S9JRm3Tp3Xw+jJ8ijUYylheK93NE5ID+OQu9zyJp0STvq8 +fWjUoYsdi+k/X/GaEo7YZMaXEnQx/TPNRvkzlHDh7XbMmQkd7GFBgU2sKRVU +kUlpxgdpY7z1/6E6l6mgzE5uoIa5Nvao76owtT0V3Ml7XnjvhDb2fF9g4r+b +VLB0q6jw6W8trNYyzfFuLBVUW3zxfcdSCxtjvOfuSTri+08wSfesJibhfz3Q +TJoakqyqRQxVICZ3+selJyeo4d1Tx/uU+CCmRGalMK9CDaNVTi/GbQFM877e +TJgWNcw6rtD/9h7A7AplzcpsqGF6Xo8DqQDBMoZWFCiSqeHzsWPZzn80MGrl +sN8Vq9QwjlwsZLZBHWPa3Wze2aaGKrQD7gb31TGOJu/H58ho4DcL8ubNK+oY +/oKD+SgTzZG/1O0ye2qYhvO5DzQSNNCpVKNvB6hh/umMT2ytaCAzSevgcEgF ++7WeacGI0sCJ+qRHs4pKWP7ZU37fP9BAwU+OPSW0StjVxJ7kik4ayGHX2PNu +7BT2TZy649IIDTyTf2qkNuYU1n/J98yjVRpoX0BpcG5SESNVGuLlpGnh7Psv +o2r5J7Hg/d8ahydo4XDsp6lHd09i6nqRl/tVaWFbZRmXrvlJrGaiLjXgHC2k +lquO9aU/iZWySlKT7Gmhos5oPnPACSzzJvm8USYt1F1RCOKtksfM6h7RiD6m +hdsdSlVeN+UxDmo1wmohLSz5EtWsd1weS3rkaZNZRQu/FCskRebLYVFdoz0/ +PtFC5pXt9u0cWcz7+Ntqbyo6mG2sctykQBrTn3YPSfWhg0GA8bCBSRLTCSG8 +1A6kgyle4tEMIxKYJtfYt41QOnh77XRyY4EEdvrcBbUr9+mgfYxttqOGBCZd +pLBKeEEHVe40f/TzPYYxOq+5vhmjg9Gf3ccVlgkY3f7LTJcpOlhImPlZ10zA +qNKdW/nm6eBET7N7fhoB22sZJoRu0sH4NefM++oEbFG8blyHgx5un5WLqYkR +w7p/hZiNnKeHv+9G1H9SEsXag1Ui443o4dVrcpZbjKJYC+5vpYY5PSzxIFIH +TuGxBm171mcO9LDm/eIF/4d47GWhZqdbCD3s3r4R8uyPCJboRAt3q+hhtRtB +Sv2REGb0K0VGWJgBun+VhkGufFi3zK8hG3EGOGvIHSQlz4cZ+KmG5kozwJNi +J4QurPFiuhTjfbyqDNDK/Jn3xn+8mCZe5hbnRQbI7lMMqvN5MGWbj410EQww +/nKqmdQ2F1ZTwOt+PpYB+lcYYT8+cmGKCx6c0UlH+JuLIflDLkw+iOM6ZS4D +1GRxHA+T58Kksq4yHlQzwLuBTIkW7jhMcGjbfHWaAf611srvXOPAcgQuHJ5c +ZICynAEyPW0cGJ/j02LvFQYoXOgdfyKXA+Ne0dldOmCAlZwXeVm1ODA2trSn +szyMsOf8yx58JjtGaSi/8F2PES7x96RTXWTD5j84hLeXM8IzqjJpo2RMmMiD +EfekGkbI0BhXY/6WETOzMzI3e88I0zx9L4bfYMRIW+rSE+2MMDDA9PzkNwYs +VY59aHOKEaoZB/aUYvTYmUxMUpKfCSbKnvgjVUyLeTspcyzhmaDhSEARlSst +9vxk2V6VJBNc/FwgcFeKFmPrzuhHlJlgr725xKkyGuwXmeddi4tMUCvzs+3L +d9TYfXfB3nvRTLAwY/9bxQIl1qSaWmeQyATT+GZj8msosQ0qukL2NCaoo1l6 +RzCUErN/shqY94wJStA5ZD3joMSUhjrF3jQwwT/u9Qr9Zymw78Q7t36tMMF8 +odVfve/IMHn2YSGtq8zwv12/FrqNXdJM4kxEujMzDKm0mF4u3SXlMWz+/u3B +DPe+yj9LtN8lMVHxVt0PZIbIjh3dl087pPmNyzrDD5jh/tElG/t6m1Q09t3T +rYUZ3vkPDZFL3yTZXP4z+L6TGUoya5umm22ScMMHaiz9zPCvIad7Nm6TFNEr +Qln9nRmKDNBL+GRskOybr2XubTDDIJ3R4tPP1kmCxdNY8nEWCHw4ggQHVklD +4hviPxVYYChhWut1ziop4RlNvJIKC1Q//8az23GVtJMjafZVkwW+jbUD2Zsr +pJFEt1kxGxbY4ixR6XRshfTQb4ntbRILVDS6x9OR9Y/EANavja2yQF0mS/3e +VwukwLNSdG93WGDEzwpLMcsF0ozWlVfJ5KxH90WCnQvZAqlZt2lHk5UVkktd +5CKZz5OCTBMflkizQqfQ+852jHOkBedjH29dY4V/xkrCgp/OkKxdrTwuurJC +28UPV6csZkjt7gns0l6scKB30paPZYZU6LVs+z2YFab/ePJ0PnSaZHMH3dDK +YoXZppSv591+kbrvm0ux97LCS+Eqr6scf5JOJ8f2zH9mhWU1QvJiEj9JxQ/e ++7eMsUL1zDfemnOTpKgM0abb86ywjXwCSfKZJAn3bcj+pWCDLi6ytWLxE6Th +r80fzYXZ4HEXF6aH1d9JzFfGsppF2aAV+VXfdcPvJO2xdQ+FY2xQU9KoMur3 +GKlqXIqDXpYNTjFqJQvhx0hJU0l2Deps8J6ulMT042+k80vWm2LmbHBk4s6U +dt8X0mNc5GCYFRtUj2XHngZ/Ia2dKasYu8IGg4vsKlaOfyE9jd91yXBggxYm +ct88Y4ZJO5KPRui92eCx26OLkRc+k146fK/7F88Gk2I6FlmpBkkU8dQZF5LY +YG5QF/cr0gDJqlLOt/QBGxz9EEcnFDRAoiYLlXbKYoPFj0ZLnFb7SXZ5wrlf +itjgfmJ+19W/fSS2kavBpEY2aK0mUnuHu4d0/TDGSqDlSA/e/s6Pgk+kBonX +SoFtR/VJn9yeK34iuQWQLZ3sYYMG/M00embdpGaOZ7ZFo2ywx3XP6e6LTpL/ +hZ/I/Q02+CO77r+I+DZSpz+DwNw2G7zxXvbBRdk2Ev6R4ua5fTYYYp3pptvb +Svo0H1FxSMkO/+7O1xXztpIkYgl4P3Z2KBra7TpU20IaaXYit5Zlh8a2bhLK +ss2kf2e/8YcosEPOkG1fs19NJNomY6WniuzwWr5v1YW8JpIKdtplRo0dTkTQ +yX5kbyKlvWf75HuOHc6e5edKoGokGdc0ZCXYscNM4+UxFZEG0vVTilWvrrHD +MfkvETXF70mhVS+6+p3YYaP1Vk7Bqfekl69TD3g82GHcX/b+1gv1JIZyV6fC +2+zwyeWfuNrUWlJrEe4EmsIO1X8XveC1eUMaF4/Xm3jIDueVGmTWdmpI6wWH +DpSZ7LBmlruXNreGJJ4/n66Xxw7ziyk0O8erSRGPG3c/l7BDhCVE+Zp/FQnJ +vNH2p5kdos5hhSqlFSQL7p8T7K3s8PdS0fA2YwXpZrrljlIHO4wZOfu00+sV +6dFDTbm7vexQTsPzQiixnLSTzPuQdowdStd5X079V0p6E9tih19nh3qURbbv +Xz8nFet38cZsscNHFHbzfBLPSTlMAwNLu+zwotBdvdC8IlJ4yg+d9xQc8AY1 +eQtILSQZZu3IW7BxwDNjXNJ7qfkkYE0+18DJAeVZ2S794MknKQrSFRB4OOBl +Iu6/rMfPSDxPuXiWhTjg2s+1U7cqn5J+vjhxmCDDATNbaWOjR/JIn91U61bk +OWBnhfKi/8EjUrsM4ndZkQPO1Lrcfyf5iFReYfBbQp0DGlEFdrJG5ZAC313v +bdLhgCTbp/5/HDJJLG2Pnmxe44C2n8/f7Xv9gEQeV3DZzpkDxh/XfWJF+4C0 +pl/K+dGVA1JNS8fn2KeQvva8i0n1OsI9fHomKkmkwuEBL7kQDvirRC9r1y6O +lJn19XhaOAe84iFX2aocS4q3npjaieSASsNC2yHsMSSv8SXL9ngOiLmoTXh/ +iSKdnqGDjllH4xzg+uvccJJcMetOR+7R/rJchHRPhJHw7tw1J55wwGpGmV1W +xRAS9R+C1EERBySTXpvoMr5D6ltH2LKrOeCi82e+vn8+pOvUARM9PUf4LW1k +0wdTEr9Ix5fdfg6YP+yj5ETQJ/WoCfVKfeaAhkwSmv0/iSSVGx/RiNEjbK7t +kxIkg9AMcuWqzHLAnvl/vrx4K6R+0S3VcYEDEnjjPBQ4bBFPGlJcyh8OqPNT +WK13wx4ZVr8eOL/GAQcnoyg/v3ZGip6+NX9MzglNQz90SRV4Ilb1DBe6qDhh +lwGTQrODN8I0ZKe9RcsJuyODygY9fRB/WtpTpiycUPqVD+X0bT9E29OSjUaA +E84462wkGt9Gfp3Z6rypxAmP//jvZ5dYKJJlbtico8oJ0X9rLnVzoYih19O6 +ttOcsMP4R2jkyzCkJl+3WPQsJ/R16p1ZSQ1Houiz732+wAlPn3iTV7X2H6JG +WAqmMOGEcg2XrtjqRiCLGmf9Fcw4ob5nT59sTgRi5j3nEGfNCYN/Gr2+pBaJ +iH9Rh0QXTtga7v3N52oUMvIvUdXdnROm2vzwWy2MQu4z/JTPvHmk51Autms2 +Clkjxgst+3HCf8md1Rke95CWwm87heGc8LHDlONpu2gkkCS/0h/JCcdrpHPZ +M6MR2ZGIuYNoTtj4gRa70RONpDHKjFglcsIhv2HjFrUYxNH37humHE74woKh +OWEvBlFRHH9zPI8TPnTVMVE6HoswrMC3Ok854bCRv3mmWSzy2ofmXfjzo/pL +l9WfvIhFIk+6vcsr4YR/X8wpX+iNRSyWu97Vv+SEhO92k23rscie94PatSpO +2MvA/kcJxCG9J9Zq2d9ywveZRZQnHOKQ/H8WdfJ1nPABju0kfVQcouctWO+K +ccIGVrHK6y1xSIbXi/djXZywEG9WdFYtHnFTYGjY7uGEj147nHxmGo9o/L3R +wD1wlO+bYLNDj3hkylMRvTjCCd1X/EmtufHIW/l09OYoJzSi485SrYpH4v9s +ovHjR/y7EfJv2+KRE54oqeXXkZ5uXo2Fv/EIpTwem/zNCcdiyJeKKRKQ4aUI +7GD+yM/bnj0RuAQk+KZuo9oyJ7ywyYjPVk5AjOXKGs3XOCGtZqT/mHYCIrbE +3OS7yQlLBjWb9S4lIB03Bpte7h/pnch8WnEzAXkkq9LcQYaDuiSnD6/uJCDe +i1nNM5Q46GoiRDUdlYBovdxtpqQ9GldlemienIBw37D7gGfAwTBHNIMyOwGZ +k2n6QGTGQdN8HtmVZwlIwwKhxZoNB41/BFwXL01AksuiW25zHvGdbDTOq0xA +HDzmWtK4cbDzZdTs1doERFnG8GMlHw4W7LBKeZESELqFVx97BHFQovbe3qcP +CchYKXvrgggOSj3a0g9rT0Aq3P1b6Qg4GOgU8fdedwISIf2l9ZgEDkYkXEF/ +9SYgFvPqbZrHcfBk60ro44EE5Hjpo7arsjjYpE+18WYoAdlzO2wLVsBB9cnX +o3LDCUjvcYf2bEUcjEPTJui+JCD5cy3tb5VxkEJ8/KXeEb5VItkxqIaDJiOO +EytH8/Xc4jv+ncFBK6v3HLRHWPD4UgczwMHbk0aDsUf8/2aNO6U1cZBFy68k +6Kj+h+KqzvPncDA5OAT340hfhitXl5MuDi5KjSTUHul3kwrs+s8AB/nf8YbR +dyQgGrPfuh4b4aC5N85iqCUBYS0mdr83wcH7huveAo0JyE+Xp90jZjgolG4k +NVmfgLyRpPy0bomDuxYnP0m+SUBifzt/4riCgxUFsGT5VQKi4CLTY3gNB1O9 +P9DxHuUz7ibiVe6Eg9eib7D1ZCUg929wsrG4HuVXG/1z9yjfOZ9dk15PHLw1 +vt3TEZyAZPn/XVHwxcE060/nvHwTEJ3bUw9TAv6fB4CZLglIQXDXZ5Pgo7yO +9bPfuZiAmIZht6rCcLA5fW1H9ej8kUVU83BG4iCZ73pCpGoCYhuTe3koDgej +oiVcOgUTEJ5Uj+8WmTioHBDkcvlnPNKadjX0XQ4OlvNmn2ociEf8My+J8D7G +wV5jacPW5nik/9GZa18LcTAlzpSn7lk8kvCCcfpKFQ5+GrY09L8Sjxw2lC3a +f8JBj3yLNfLGOOQV9iSxqQ8HEzSY+k3L4hCb5ofyYkM4uNWtdM0hIw6pa7vr +PfUNB/+NoSEtHnGI34DBmvMsDobXbbh84IxDfv9e2HWn5IKC+0x+zNaxSC+H +LGOAOhespspqedkRjSA3b87lanBBp7dJ7P6V0cirtldtzYALOsuXvpbKjkaS +gk9GselwwVRtDx1b12jEcEZlv8yUC7LS9aEMNNFIZ93Zvz89uKDQnfUuAriH +fLS3HLz4mAuG3blKxl8eibx/FZErS8kNnyYx/WLOCEdoDM35M2m4IeOEySF9 +cDhiMieZTc7ADb0PvrjzOIQjvwmfMobZuOHofYZYF/lwhDObJzVcmBteYpkN +7UoOQzwiX8YOqXPD/L8xE8r7IYiA1XBAsDc3xOkmvxTfDkKurxevzfhxw9dx +3w4DOoOQytS7fia3uSHxY07MVm4Qcv4T3kcilBvKXlIjpoIgxE/T40ZfAje8 +yMSyJhx3B+mSJXMUf8ENGTRr73YdC0Tukktf7P7ODZUCeGx8ogOQGW3GEYlJ +buggudy/YxeAXIxdvPrfL26oN8fR8k41ABFnrfBSWeCGZypDZLvn/JFuQaXk +p1vccKk/SeHqRX9EWA3p8efkgaF0XrvSkn5Is6epoZAeD0w3Siml3fVGZKtO +Dd025IFyp0d2l796IxnrOJsBYx6Y2fZZnKXOG/EI/uIRY8EDXxpQJI7e9kZw +8TYJy4488PTsqZWkv17I9aLrnR9DeeCBX31oMrknwjAWpOtZwwMDx37ufr3h +jqjcLmFOfscD27nO1muddkeucYwMVNTzQNpH59X2aN2RWl1l2+VGHnhPrcXC +qtANuf7mr4//J56j98KGxpsJV6QpySk3aIYHMpoh1k0uLkjgWaM/0by8EG+B +U2Utd0IKx4KrXwgcYQ8p7cZIJ6T3dllguzAvjLhTnvDW2gmReEVHyXCMF8o8 +l0nwoXdCBvk/8CSe5IWTrXFJvO6OiPya6tmH+ryQOLsW/kvVAZl+Lpr2JJgX +fq8he3GW0h5ZjJrcpgznhXz+UilOpKvIisOzq66RvLC75yZt/62rCJmIqMzJ +eF4odFrAQ3fODuHPxDc3Z/LCk2Uf/uUM2SIXY0T+TVfxQtfjuh4iLVcQS+cf +5vpveWFBbGOTedQVxE7ryftXdbzwU6RED8O5K4jHoXDM7UZeeDjWu7nUZo1E +3xYWpu/hhYnzCkqRg5eRBhchQ9k5Xqgp/v4MJLdCPpz7XpmyyAvvDLQz0HZY +Ip2EPJ71v7xQlEc1Hj6wRL78EJxCN47mw2PldARLZMVSMMiYig9ymKnIfDWw +QKR0BYp9RfggvcJn92+VZkiaFB9VnTkf3L4ttx3caYLY2Em8mLLig7lsUlp8 ++SaIeNopfRYbPvhuv1yTJsgEqTm8kOLowAd/9dDo90mbIEPDEYIsXnxw+Pjq +X66UiwjnvUUlx1g+yNey4jDfb4R8q9/+kpjAB3HCfVdI8UZH7weau7VJfDDO +hRBF0DZCFG1Em5jT+aCzplVIXu0FxPSUxYXaZ3ywgcWRUbnYEEmdxJyZ3/PB +g2ENLeFn+og1zyc6NRIfpMzNfZfqoI+IXfhW5tDEB6VH7S7EiesjVbVry+/a ++CB8tKa5XaKHDCQfD3UY4oMXDtOuddXrIuzIw4x3S3ywkUkk339VB0nJud52 +Dc8PQ79x8+/UayG3b0X4BRP4IZfZ4fhOghZiZ/pYJFOCH6qOy0tetdVCZBmG +b3fL8sPl/BYXY3ItpOPOOSlVdX74dRP3r/6CJkJxWTyOyZQfvqxKLiZsQWRO +CSpLmvPDnjhRQN8LkT42m8mzVvyw49kT1/PPIfKk/aH6bTt+mJbmMNppDhEN +Ncr5SXd+WHJeIKXWByABPD/130Xyw36Vcht1ISJis7q/0R/ND5//U8SFfdZA +tHv5Chbj+KEkcxSDQ5IGwhFjsiuawg81Ka7u7ZBrIK82GsvuP+KHkTvN1lb/ +TiOzn58wObzhhxJKV5SaZ9UQ6zTbHqbf/LCRyqOzDiojgtUMAh7z/FC8elV9 +jloZ+dH/zqVj6QgHNxqXdCkhTqwc5NFr/DAv6m/0sJUS4hnfeuqQXAC+OFdu +9OHOKSQiXCF7WVAAjrsYjIwPnUS0n4xNG+MF4HQi3fH4/JMILSlO8RVBAN5J +PhZR7X0Sub871eUuLQDt7/X9u8tyEsm4lXUwpSoAY7a9Sz8an0BKbpA7DZsK +QLWzx5mK+uSQGwmvXitZCMAe6gU3LEgOkS+9sp96WQA+p0xvrTkmh1T9fpNh +bC8A//AxNkmFyiINDu4d7TcFoCzDgAeZugzSZzUo/z5WAPoXZmj0DUkhW9pF +209IApClesCpLkscCX7/JLKlSQAWjrIdG7UTR8gUc5jnWgTgq1Mc5QnHxBFa +kWRRxS4B+Dfvx4m0GgLCvR2o1/JFAM5Zr5uIfhVDTpUbZs/+E4B0Vif7jp0R +Rd4SzhOY1wRgm7mu5HN6UeR0ztnyk5tH+wPdjfkjeEQzRqUpaF8ArrFTuTAF +4pGL1/BzTAyCcPTFz0u0d0QQT641tZMEQfgPeamj9FYQWUn402wuIQiDJ/Rl +mq8JIgEUc4ZBxwVhbfnzAUkWQST473f7DwqCMEb4YYuvmwCS0NEWa64hCLfb +H8UMHOdHikNyR+6YC0I7C1EbfB8PMjWtGdgcIwjPX+ga/P2cE9F80pMvnSAI +N+xpx387cSJPraw/pSYJQhMvzpAiAidi1+Uj5pguCKkHq1ZMCjiQb6+fdlMW +CEKRgBtbZ8rYkYG7B/hzJEHIqT5WE/OOFTmpHG9Q3iQIk9hk12L0WJGUP1y3 +uD4KQvnGp+OdYyyI0TW5rukuQVgVoVvCSMuCdOrYBER/FYRolv51EXcmpJm9 +vqNtTRDmPD34+9WFHhHtOremsCUIpXzJqu4z0SPhUf3CWbuCkL1qR92kig5B +Nmf9XCmEoLLDgTkVOR1SP8YjTM8mBOfYyHQ+ltIgVS8CfPVlhOAGha7pFTkq +hP0aeV6VvBBkZWrMn56kRLz5E9v4FYXgZHpqtGUmJSKfWCi4oCYEnXRfmsxS +USKlvoOtCTpCsP6hwpm78+RIPvGkwKdrQrAw5SpFa/0hsdmIIXLXSQhSEj+n +dOocEn9enZo/7ioE0+fqfxCGDoiEiPT6aE8hWOIyT2hb2ScWtm5fhneFoJj1 +n1pfsEcsMm7Oqk4Tggl/PS3iObeJrfa5ZD8zheDbh5EeptVbxBkff1e2XCH4 +IWNOTcNsiyiRJqF285kQnOq5r+yWvUl8PhL/ReKVEOyrtW/8cmKDWHztEndO +mxC0XuMSTX+wSmz3lQ1t7xSCxyRZ5I5prhJnI6lnNj4JQXDcuq90dYUo9fzd +m0tDQpC+w6Dy/uUVYsm8gDnzpBDsWvix5XRimVjq9+th+I4QtAMCAplsf4id +Uejuq30h+M/hNQ6ftEScT89w/E4mDNk3OAR1mZeIMrW6p07TCsPQX7s9jmyL +xJd7LwdWOYWhsrCUm8nxeWL5vQB2FzlheCfbb9Yxf4a4qGEbce+EMNwIFbbd +Up8hyq5prxacEob1XqITYwPTxFIH3OcJdWH46So6EUM3TSwG1VnWOsLQIO26 +CVXkFLFw+5+I0VVheI/KjuF55QTx1+uRlBsOwvCfu/Vgvs0EkeDaSJ7gLAzj +8rMf1dNNEPOHk6faPI6wVdyubfs48Um1/IuzgcIw2z7S55XxGDHn5g155QfC +cNzNCodgX4jfxM2eXEoThvtpW5+/Kn8h8o2dYfPNFIbqezOhF18NE7P0GVde +5QlDTbnivLrCz8R0ydI3UqVHevfOhS08HySmTP7WEPwgDP1CouvXtnqJfVm9 +5adbheEDWo/iYcFeIuvFd8KXO4Th4BVThwGtHmISKZoso1cYVgdUBq7mdBPv +5x5rYR0ThpksYR0zNzqIMeaOBpTrwtDRJlZEPusDMd94zMZ5SxiWztoNHX5r +JjbomXu27QpDi3fMe1/xzcQV4vkHCRQiMJTpfWf4m0aijYTMF042EbhLXM8X +pGwg3sYXzgZwisDqR74pJ9/VE1P5hXa+cIvAuJov9k3edcQ2FlahR0IicGiJ +L5Rh7S1RcXPFQVxGBJrfE79wRb2KeGHZwz9aXgSqV1xNtuOpJLou/Lo3e1IE +Sriblz9fqyDm/RgufqkmAhl+pD17mldGpGuv/6OkIwJVFNnJauwLiONZEUHn +rolAU6FFNT/NCOJ26m7CCycRaL3uq3r+5y0iLtE/j95VBBZDjkXPQwei3n/X +Gz95isB9G1PNp7HeaI2bPo1FsAh8LF0Wb+uVgvY6fuCpDRM5ulj9VRpsH6Lz +thrH+SNFIHng8YJ6YgYqYipvOB4nAm1ca51tB3PR+NMcqdczReAT6ZQObbkC +tEgpoaA9RwSeP9fx8tHNQrRRnuqN9GMR+H3O91vkiyJ0XWzjy59CEZi2PFpo +TVeM2jN+E7pdJQIvKOJs0sNfospjz0piPonAbcealin5KpRN3nWrok8E+meD +Hlx2FboYJn9+ZFAEbm5tOtCRV6OFhPe/pL4djRfk1Zt3VqM4jyGRzhkR6PsB +NbTWeoP+a8jxXJkTgawPJv18Hr1Bu1muofxLIjBjSoYvevUNGlW1ZO2xKgJj +5yd7P+S+RXeCKQ1oyPBQz5dG+eLnd+hs0XXfHHI8HN+WJ3CK1KLDPR3Z8pR4 +iA0uBtC71KJV+JRZCxo8fKNxfKBkuRZ1bxGMfsGEhyoWKuKuK3Wo1VJY+RkW +PHxH7XUnQL4e1eGeGuplxUOWxm3P3671qJhrCWGLAw/tiNrxbF/r0a+MKk26 +fHh46vOlHe4X79FWpezZMX48lFKJ054bfo/W2O6x+gji4ft1Y4EL1A1oSkWz +XbYIHr5611oxbtuAho4ci5YTxUM5zdEZ7tgG9AZ5XHmTGB7y1+bkrb9uQHUv +Ge/NHcNDNjN0sP6gAVUJriKESuKhiaWeaRkBRcWLuAw4juPh8HMRY4vzKEq2 +OZp9WhYPyQ/vi/yNR9HaHFfVBEU85BgPvvOakoQ+/9BlJ6KEh891BV9vC5PQ +tEX56GrlIz1dpmVi6iTUG1kfGlU78sN2M+GYOwm1c7Ha8zqNhxm9BsJ0/5FQ +w5T3BCoNPKzo1OsdzSChUj//85UFeLj1wsbSBSOh3IzT2Y0QD5WHI/0kB0go +lZJuk5kmHgYZNajNTZHQFZuy2Vmto7z+Spe+XiOhE/dY2ELO4eGxgGek/6gw +tOeVjyr7+f/rJ9nbc2Jow5chuyJdPNQ9z+Z1URRDs47nln8ywEMlvV8s/qcx +dG1VpyjyAh46I5Sh6ToYakxaeaRujIeXxpex1yYYWhr7OO3vRTzsvbLp33kF +Q2ku6d8vMsXDx+dIcr+dMNRBaCPyihkenk77z4PxJoaSfj+7y26Bhzna6k/P ++GMof9UFvzZLPIwIb5UPDsLQgOBt95DLeBhpLuLRH4ahv4qK9czt8XCUuFGj +dx9DTXstpeRc8FA1C+9olYCh9E4VPNnueHgxO/q3RDSGNm7R0FJ74mFUXtL4 +ZgiGCn6oOqj3wsPtJRWvzkAMDUy02/D2wUNvBouIWV8MHbJk+CPhh4eUJwOf +mN/AUAWxt9Nj/ngYsNB4lssZQ+MXr31PvYWHO59ZR6RtMXTmLfNn3cCjvKmO +fcw2w9DHBs4tNXfxcDl7bCXlLIbucLE3uIfg4cBkASqiiqHmEw3V+DA8vOvc +tIqTxVCmAFzB/Qg8fMabogpwGOoKGnM0o/CwIGTBL4gWQz/Q30jduoeHArNK +d6R2SGjQ4w//OcXhYUME+YfZ7yR0rs3XXiPlyE/jfaLBExKqnSpstfIADw2R +W9s3k0joU5tO4+KHePhNKkSZP4SEWi2LAlwmHp5Lyungu0xCW/n7hRbz8DBM +JTZ4n5GEik0Hc+U/wcOsUL68mk0UDamQYrZ6hofucS+C6KdQVEk7fO9DIR4q +OiiPpteiaP5NhdHcMjysaqEyuHMVRcMaE7MM6vDwv1yjeePHDej898a07Xo8 +7BwYOO54rwG12F1NedFw9H9Qu2ajdqMBlVWxjqNsxMNpNYU8BfUGdKRMIuh9 +Kx4+bPeQ/K/vPaqYiV2RGcLDDX+/HZ6NenTm5rIw49+j/liQ3eSWrEMvCJgX +dYqLwsrJKeeYq2/QrF/yjVckRGH+l4fIlaP/269yutFFSVEo7szqqSL5Bg2G +DWysMqIwYCz/LdXfGvSlMyH40klRuHp34Q1zWA3K8HrZdIwoCk+HOBWeeFaN +tmknkf2xEIX9kYOKhv8qUQ4WV4EwK1E4UvqdrfdzJWr35awKm7UoHPziW+T0 +vhLdcFv3ULQVhc0/IubboytRiWSbL7ccReHmfKRNsHAlGvVV+tWhlyhUF7rB +SjJ5jZ71bLvCHicKl8VU6FsflKM7I3M6LfGi0Ehty1TVrhyt0WJSvH1fFBIk +XghMSpejEnwmdN+TReFCYqLgj5aXKFPLt5riDFHoLOG+Er9bho7w/WGGhaIw +Lk+2udOvFPX+iGv0xI74Xy3INKa8QKVPqJaJNonC4mitpQSnF+hUzuWMoWZR +GJtmkvdQ7QVq4f34xulWUfjquBvJYvI5qiEgxUfzSRTeyJC7Xqb8HKXzOeOb +900U9jClLkbNFaJPBB3Eu9dF4ez5Dj6vkHz09CkZeYdNUWi71p3IeCUfHdJb +U93aEoUuVG+Xv6rlo3S3ow3E90Sh370uVqb1Z6h3f6lvMIUYJOfaPdXs9QyF +0auNsqxicJU196eV51P0598o20QpMWjdd1POVjgPDaYxciFIi0ElwZWz8dOP +UG4hHp86GTEokuk+w17+CNXXL4malj/C2idiFIiP0KrCT2VEZTHYYxxTlHMt +F428zL2zdFYMSrHa/PhZn42Kf3iRYXRFDNKpMzGTXmagPbJbhWM2YrDx6TDV +7bAMNDBDt9rdTgy23+ziCDbNQLvc5nqjr4nBgCFfJrftdNSXTYYecxGDbN6P +Klv001HM9tVdBX8xKKTgeFtp9yFqvVVjz5YoBrPu632JTHmAUjlQez1OEoPC +7ie8OG48QF91mYfIpohBConvm5PnH6DkTzaydR+KwXfapLuaZA/Q4nNqg+HZ +YkfvOdy7Q78UdD31/bnlIjF4fa8mk9iThKbINUsPkMTgi7g2ToXVeLRY7Qp9 +RKMYxB0XbTStiUcxrbXfJ5vFYDi+SnYjIB79c1mi6MFHMfhQZpe6bicONYiO +FzHpFoM6buZCvAxxKM0PU1zfVzHI2rPtFAdiUKH5hZWwUTG4qRpFrUcXgyqt +R/UrfBeDmDex7m5/NOrI+C4peUIM/up+rafqHI02qgrQG/8Wg/7aN9uWH9xD +76ZM7X9aE4PM1C2F3YeRaGpu8FjIxpE/vWdOOfZGoqXPud7LbYnBZMdP/+yf +RKIjDecDE3fFYIueqlAyjERV5spWDCkI8NDN6np+TAT676z/7y5WAvyvsW2c +Tuo/9PoqVX+HNAGyvWMyOW8dgtqVavfYyBKgdJKRdyRXCGpxLarrrxwBum1c +MzPqD0Z1eilbuU4SoMF63u37+sGoRBnF+2uqBGgq2NSVpHUXnXYgK9rWIkAf +56rNIaM76BgfzL9/7oi/1DQ5juMOOtQX9kTk/BG/Y0UNOhyItiCH2ef0CbB9 ++iftM/tAtJD/IOnBRQLkiTesOh10G3Ua2A08bkuAg1baF9Y/BKA2cWduNdgR +YOlduzi15ADUDN71M7YnQK4XjxyWrANQ7Vc7NwMcCTBpeCe3eNUfFY/fdmhy +O+Jfpz1jJO2PTp3dNLx8iwBbFkfL8st8UYfKFXxcMgGu5PO3H1vxQm9EXNrT +f0CAziNZDz5meaEBl2q+MD0kQN6d9kkt6IXGrgckpWQQoEWvVvjQA0/0lfr2 +bmYeAfo9j7ZmBzfR7abD4edlBNjbVlZxrdEdpXhoX+VaToDKV0P1mf3dUSan +pkTpCgIsnnHPCpJyR4VpIrVfVRFg6onl+IcP3VBtfZqqN3UESMITjqf4uqIp +A0yJLW0EiG6ZeOmZXkdzCm66RncQID/r3qQB+3W0wL9HS7eLAL3SA5w2+pzR +t9wpO109BNjx3i2baOqMjllzug5+JkD33VE3DxsnVHKKT+vn1JGe1MJTlEkO +6ImaIOHCaQKEhcPPRiwc0NP3RredfxMg36cXHgDvgBpK5r2emz/yyzbh4/ua +a6ivB154eZkAf9y6wGLwyx4N1vhvu2qVAAtAanN0pT16j/nnkP86Aa7uZYTo +hdmjWRUFCVtbBNiZnM5yVdAezQ+ncqnfIcC22Ltjdl+uomUmzprBewQ4d2O9 +l/L2VbRGrFUIOSBAw5nOxFKeqyhpVWL78JAAvfVFKy/W2aH/A5AHJjA= + "]]}, + Annotation[#, "Charting`Private`Tag$30286#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896375366032028*^9, {3.896380461509735*^9, 3.896380488983677*^9}, { + 3.896380542438208*^9, 3.896380549923717*^9}}, + CellLabel-> + "Out[169]=",ExpressionUUID->"744d0afc-fb94-4b4f-8b50-76085225f3fa"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n sobreamortiguada", "Subsection", + CellChangeTimes->{{3.898186799603964*^9, 3.898186802823612*^9}, { + 3.8981871584701023`*^9, + 3.898187183837284*^9}},ExpressionUUID->"9c6e96cf-2a83-4ad0-89b1-\ +3031a45a3f02"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.898188005544651*^9, + 3.8981880060246677`*^9}},ExpressionUUID->"eb513c10-7b28-4b19-91e4-\ +9aa53b4cba84"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsubsection", + CellChangeTimes->{{3.898187385210685*^9, + 3.898187387740952*^9}},ExpressionUUID->"afa40f45-0f95-48d0-b3b7-\ +5bb193554952"], + +Cell["En el caso sobreamortiguado, la soluci\[OAcute]n se escribe", "Text", + CellChangeTimes->{{3.8981865054516783`*^9, 3.898186517623204*^9}, { + 3.898187053071455*^9, 3.898187059095458*^9}, {3.8981871863575563`*^9, + 3.898187187245311*^9}},ExpressionUUID->"b6fd2b59-e30d-4c28-8d96-\ +3e9a0f16f131"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x", "[", "t_", "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "\[Beta]"}], " ", "t"}], "]"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Ap", " ", + RowBox[{"Exp", "[", + RowBox[{ + SqrtBox[ + RowBox[{ + RowBox[{"\[Beta]", "^", "2"}], "-", + RowBox[{"\[Omega]0", "^", "2"}]}]], " ", "t"}], "]"}]}], "+", + RowBox[{"Am", " ", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", + SqrtBox[ + RowBox[{ + RowBox[{"\[Beta]", "^", "2"}], "-", + RowBox[{"\[Omega]0", "^", "2"}]}]]}], " ", "t"}], "]"}]}]}], + ")"}]}]}]], "Input", + CellChangeTimes->{{3.8963751493504343`*^9, 3.89637516683323*^9}, { + 3.896380335028994*^9, 3.89638038103598*^9}, {3.8963806170003967`*^9, + 3.896380652743968*^9}}, + CellLabel-> + "In[170]:=",ExpressionUUID->"16d61f6a-15ae-43af-aa2e-359703ba8f9e"], + +Cell["Podemos hacer un dibujo", "Text", + CellChangeTimes->{{3.898187193502159*^9, + 3.898187202429097*^9}},ExpressionUUID->"eef8f48d-7e28-4dfa-971d-\ +3a0885ef55b5"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Beta]", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Ap", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Am", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.896375180401723*^9, 3.896375234175416*^9}, + 3.89637589596721*^9, {3.896380346069969*^9, 3.896380353900757*^9}, { + 3.896380657087902*^9, 3.896380671455781*^9}}, + CellLabel-> + "In[171]:=",ExpressionUUID->"5a4c54da-a22c-4a73-b751-e9e23305ae5d"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVknk41HsDxcdStygRabGEH8l+69EthfNtJ9WtEC+lKEYqItqsL7K8EsWN +qCylzdZMipYrVNYxRGQtGYwZQzONqaZ03d4/znOezz/nn8/R9QrY4y1Lo9Ei +fuX/beWr4iN7+w12x7CN+tMmYXmpw9ur8A2CA6xKGJcmEdloum3FgXasWGj1 +V6JAjLuM8mWFf7XDQn42q7tLjLbMDXIGrHakPr/zp8drMfTprs8XWb3Fmtye +hzI5YjTKxZrTVDswP7vtWq6TGOo2vfNbajsR+eRQxtP6zygpTew9Zt6DL509 +GldbReDP51/Y5tkDNbv4WIeXIhie2ma7PL0Hl18cZms+FiHXWjGPI+1BCJWW +t+SaCJcbLvi4ve6FpsHz6rNHRDjFSRFt3dcPxa6102GzRWBuEeYbpPTjQl1h +o+SnEJ/u7XKSq+nHrdOXXBI+C+F7QqW80vA9Gg7XJ0t7hXD7eTlslfg9yo9H +xMg/ECJHsSlGZfMARnKaf0TuE8LWJnRflMcAxKzPgyf3CNHnb7Lq0+kB7JI/ +YR9uJ8SitqQR1v0BmOyKuNFiKcSlzO32Ccof8dvx0M6jSkLEGLCVpns/Ykdh +08bc/30CHW+uCoI4yArsvFEUNQFa/penvUkcfPnNOuhY4AQy5TX7Gm9xcIQO +A3uvCdQ3+Gjf6+TAx6+e57JpAsudpvK91w7hXVLGvprZExj1NSx6LzOMtx1+ +6xKvjsPvcnhla+oIJM0jpT8aBZCV5H94cW8EBna82axKAbJc6mmlNSOwLQhp +esAUoFFTdWPy5Ais68xvP84SwOTO3Tp7Vy5suma9Kj4qgOBZe2vN0lG0/n1o +VENFAP9hI05ZCQ9jq+nH7viOYcCje1Z1Aw96L1fOaNo/BseuBPPmoV+c7VU0 +vWcMa5q4Z4eX8FExb/bBbJsxyDEKlNXj+QiPTVfLUB1DZpiu7ekDYwgulTqf +ruGjWnXxVSvlccwS9NiVGfNhmVxfudlkHI1+yZtu6fJxe+aZod1bxnHGvEI/ +dxEfF6SdFn5h4zANYsx5NpOPvR/Sa7NGx3He2I13lsMD/77y5I+qCdRmDifR +cnhQ0I01/LBGCPPDLrJ+WjzUW1+yiNj86wcN6m266jzEud5YrfXLc0nUyskB +JR5kUyu2uh8VwtWMPRxM4+H7PwL6u+tCODTsihNxRjHW53y3RVYEtm5MnnnR +KFiZhkZVLBH6NX8Y2K8fxUXlJuO8g2Ik2ptaK4Vy8WS11qOd/mLEPjWNvhPM +xZBHAKZCxfiiGRq52Z+LdcWqTi4ZYpRaZAWleHIxar8vfC5bjA2+RfJudlxs +jBlvObtuEpsCvdKr1Ln4JpkXskddAjeaen7K4xF49Tq9kGN9wVaGh0kAbQSB +r2O9Agy/48jnhO2ciiEwTsxxXGT/E1pmK69tyeMgL/Qo/3cXGjlhrqanGz+I +6Jyp3ZMCGVKbFtgtk/oRtPYB8vycHNngWueoVTiAZcE+Z5yMZ5AP+RUtr6I+ +YEiSsVfx75mE5dGodHKwH9uG/cIvB84iujRJXrJVH3YOpZpoayuQFQVyLmGl +PeC/9IqqL1YkpbPs9Xwdu2Gu0qm18cBc0uVe7TI2/g4KkHj2iZXIH3V7GpSZ +ndg67vZVz1mZaDRvXmXm34GumsMybqYqRDG1Rq9m/Vs8SnjloSNRIXMhb/6f +Ne3wmREywGbPJ/MMOUZ8wzYcCgp9NCdLlVR/pr+zWP0GFnQT9nZPNcJTX2ru +4NKKlvmmiiFWC0jMFZ2DEYNsPCuJzjaVUyfJP1wLphyaESpjvIvVr066O8p6 +pPeboNB3zs6/bCFZs06krb+8EcO3ddNzwhYR1jejMe+2eqQvXyz/xHkxUcof +9j53sg6pWT51njpLyPpHacO+NrVwS9/PnsNdQi47y9OnNV/j26YCaU6lBqGi +A28nTb4EZ3jDmZp4TdI4crIib6IG+TYrNJo9tUjVKaFz98dqFJ8PUaGbaZN3 +0ef9XCarEO98yEFOok3eGiuygxdWYVVf3r345qWkaULNTeNIJTKNsoubHXRI +2diJPw26niOyKjnT4YkOqfM7sn3M+hl2aDgXNOrrEml5s8/ZF0+w3r/OXSVR +l+yeYckN9a9AjqaXPkuiS/Znvj4bp1YO/Zd3rux01yNV+y3dOwYfIdWsxrit +Uo9oKrisj64tg49Y/k2DMUVujNeWO+Y/hBfjs05iCkX2Tt+fNMtl4li049S2 +SxS5+CaA15TNRIhj2bs5aRRpPW074pfBRIIk5GLqFYrk19K+Fl5kosRK+iPj +OkWWb9vtvzacCWn1dOftQoqcy1aOSHBjIrVtTvKrOopQ9qeCuQuYyLp53Deu +gSJRo6biAhUmbgazN9o1UWTIaHOQ91wmHqunfm9i/9rfce8EV56JPjdV3/YO +isTsvE//KmbAkLN44yCHIrN3zFPY2sbA72XntG8NU+ShTXnQAjYDa8/3Sr25 +FFlCyXYNNTCw3fD6Ax6fIgfmpmXEVTMQdFRHWySiCM9Sf6jjAQNh1v+VMsUU +cYePSVERA+fnDr4NllCkwCTweMxdBjJLbyZ9+0aRM3clA5a5DORHydOffqcI +3V2qMu8aA4W7vTeETVEkzrLHmp/BQJlerZbtPxQppu/3rE1joFK8TDo9TZHE +P+wib6Yw8C/RxuJ8 + "]]}, + Annotation[#, "Charting`Private`Tag$30352#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {0., 1.286099589640987}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.896380398649035*^9, 3.8963806719066153`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"caa85144-377b-44c2-ae16-12a353b3bcdb"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes amplitudes", "Subsubsection", + CellChangeTimes->{{3.898187232597003*^9, + 3.898187239799897*^9}},ExpressionUUID->"a7806193-808e-41c3-9eab-\ +b070ee95603c"], + +Cell["\<\ +El par\[AAcute]metro Am es una amplitud que nos dice qu\[EAcute] tanto oscila \ +antes de amortiguarse\ +\>", "Text", + CellChangeTimes->{{3.898187267509201*^9, + 3.898187298979397*^9}},ExpressionUUID->"3b6da3aa-4d44-4c8c-a60f-\ +8b04d5b03258"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{ + "Ap", ",", "Am", ",", "\[Omega]0", ",", "\[Delta]", ",", "\[Beta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Beta]", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ap", "=", + RowBox[{"-", "2"}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"Am", "->", " ", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"Am", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", " ", + RowBox[{"Am", "->", " ", "3"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], " ", + "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896380450611208*^9, 3.896380487875456*^9}, {3.896380691504735*^9, + 3.896380730295944*^9}, {3.898187333243804*^9, + 3.898187333475727*^9}},ExpressionUUID->"8ea55d31-ba65-42e5-8735-\ +8ced4f772c31"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV1Hk81NsbB3Ca3BaRJWtZp1KRtKhUPN+QKLmppEvZbsx0iyiEdFMRItGV +VEQpEWVNUXrGEqEmWRrLYBj7kmVsY77lN78/zuu83v+c8zqf53mOhsv5I64L +REREvgnX//fEf13+2Hw6wsg95aqOqMgYlterW9qqn4Fv9oJjJqZjOF/x8Ya6 +uj+4RyqO7Qkdw0TGbTUx9XBQ9oorcF8yjucMfdxn1B5Al+UmJ5f5ccxr4Dyb +NEmAP/nv3/0ymMC5s5bscVoSiN/PcQi8OIGmX2PWTLOegpW3XN4O7gTWC+ix +Y2rpsGi3+QXdAh76Vqrqjea8hDz+/dpz/TxU/q+hZsQkEzZHLL2arzSJLhsI +yhAtC+iDokZe/pPolyleOMHKBdPHpcryulO4qLVLa0StEILixq5cPT+NTYxi +n+H+Qqgc3Oa9I3YaX6bGlw3lFMHuTcW7tr+bRqsLVo6DJh+gku50VO73NMYt +KYrroyEU7dA1yL02g/mXDly4qMgAu/NtKfzkGUwY3KHEC2RAMb38cTLOoEet +DG1iXwm84IwmKwpmUCbh84JxVinIy01E//pnFgWSBemee8rguaHhvaiQWey+ +lnJ4LLkMUlfYJ8YmzWIB7d/Ho2fKgaw2i1lSN4t2W7ft+in4BJ/GLoU16/HR +JFWj092pAh6NqF2x2c9HHaXlYSPlFVC6wVHir1N8/P17oHH4diXkO86HzYfy +8Ul1kteQWhXckI+JpjTxcTL+zYaOyCrYLVcYFj7MRzNaDbeOXwVzfmc07onM +4TBlxqaovho2804/NNOaw52GVrvCQ7/AmwDfGevzcxghfpoXOPkFLtVXxpoG +zWF7s3+mp/NXUN+vfYUZPYfBvs9VT+xmQq/Kf7uzs+ewNotcoDX6DboTf6d0 +Ds2hDCxxkNCthTVbFBQ+8edw99rYXaGna0GcrjdttUiAUZPpvIDvtcBd18I+ +qSHAbTGNri4Z34FUqXt7x1qADn5OxuzO7zD2zn9b40kBhjoOqR5XrIMHlgxp +Jk2ALRtFmyxC6sD+sXZjR6AAr1brHNjsWA9iytuJjBQBpuW8XZtxrx6KWN5v +8zIFWBdvTFnzpR5KK0JeBLwR4GraiQ+KBg1w8LG0iEWFAK2suPF3zzdAgqI4 +5whTgJf0PXyWpTbA4xSpdeo/BFhNCdYVkW2EXQVpiUt6BDg5KCkeYNEIz1QS +ZNcNC1Cl7kEf72ojHAq/d12SJ0DP5KzkvuFG2Lc8M2mHCInyhq0y3yp+wINc +q18KiiQSq91GzX/9AH0aNfw/FRLPiI/XlG5lwYdP1XodmiR+aP4jpCCZBVH0 +i2GDOiT2MmKc9VgsWKAQsShzM4nL01YZvZRogpNMJrF3O4kuvltmEgOaYG/W +zz8HjUiMPFVcr5DTBGyzo3XzxiS+MTXPjulrgliBCn3YjMTFsg5nQo41Q+kV +77lDViRumevfN3+rGeKjom6UW5No33lR07+kGdzp1gZyNiS+zgpvPafbAkPl +xcrm9iQOygxGHnBuAbX+xVWCUyRq+R4wWhfbAoz+rIloJxKT94g/4fJbIPjI +51FnVxLZSWePlOi0gtSP902PaSQqUb5QkhxbQSV3LR3PkHi3KtLN7lMrrDrp +eeuVO4lMnRGFnbOtEG/poRZ4nkTx6ENVctpsmA3a4ajnRaI571UA7xQbVBRX +f6q+QGLwcUmd79Fs+JpkU33Qm0RGoUfb6zI2BBmW9OT5kPhr1beoyGk2NKUZ +RFIukejLvTO+/2QbhMMGE3t/EnPNxp6uudMG2mK8LacDSBxNP3yMUtoG9LDA +c8cvk6gjkSPWOdkGfh2BdlsCSaR7Sr/9qNUOYkPoOiv0s3oveoJdO1xX15tK +u0Ji5/Y6pYDb7XBQp8Pd9F8SVR9uqbFltIP8OcmtNULb/bobqM9rBzfjHamG +V0mMc+JtlF3bAfMmsloJQteXHe0YO9EBgfBMtk9oKa38aGZEB5xS3/NZNYhE +y1srjDM/dsCDV8FJJkKHjXjzwsc7oH116ISN0C5p/9RtleFAdm6e4nGhRVqU +M55qc+D8536aqdBJ4jU3pPdxIPJwwDYNoY0ML58McuBAQcnO78PC+9ge2vqj +lziQLO1354XQAcmtEg4xHHgfKo/WQivWRfR+ecmBMs8br4eE7ymg7MHd5Rzw +zfv00kfoY/rD91+2ceCP/dfnR4V5TLgleCrNcEA2csGMndAx8ZYWYVKdsDts +V0uBMD+9alJjZn0nHBb7NkYRminInHM16QTD2JXXjIX5L3WUyDTx7QRHJxHN +e8J6pUUXB+fe6YRsI/nCdD8SzUrdT2mkdwJRNPgjW1jfG2uYkvOtnZDW9Tb1 +vrD+mrb/9rlPdUJgWmXjpf/3R5gugy3ZBXLFzJCDF0kkh6K8ivZ2wd/MyuNM +TxJ9cv9s8HnRBZpbrlHMz5K4ons+s5vRBTGZOuHVwn7NlcsOOdrSBd+PiVgb +00n86Se1Y7MEF/wdF/nICPudBt8fDF/ggp9kQ+AuB2H+T6eLWiO4EBbrmOVz +ksT4havY1c+4kKkfRkmzI/FzlZtq+g8u7G178m7iOInrjpFPXXd1A+NRdvnq +P0nsp2tltov2QJJMVNwq4XwH1Vh+/arcA/qtx1XZu4X10L3w88PWHhhJNFG8 +Z/D/+fig98i1B9xXD3B420hMv3LkjW1VD2g5ESvp2iT+c/fKx9roXjBXKdQ1 +VSBxwdTTDkzvhU0W9dFpK0h8aPtZJKu0F2T/GtBcLENi9SpZk9uTvZDIVdle +uIxE7RdplRYn+sCUXP6oR5TE4ff1taVq/cBPZK8PGBKgR896bv7rAfjIdzeW +/yBAjkPz4pKqAcga0Df69E6AR5vCdL92D8BPda19XsL/eGdNn3+P8iDQHv96 +x3gtQErOcyn50EFIcsoQgycCjA/UMLrkOATWKZqJFSECLJFVemAgNQJv2zw4 +DocEuFQjWKtj5xg8FPFO7Wuawyipmg1PnHig926rhL+Ajy6tx5DyZRqWeLat +dJLko9enYJfzWnPg+1vsEejMYo7nsqOKFr/AXZXnpOA0g08unx3UsxUhbBZy +czfemsbrSaT15LAowehVfXmiagpF6jnEhwAKQaMEh96WmcK13m5+xzaIEYvY +dzPJI5PYPXX/uHjxH8TMJrcJp1QeHuj558pdr8WE+gm6UvH4BFp1R2urqi4l +4gS9NwvMJnCwzCXo8ytxguF5WPxF5jjqSv9QMXGUIJxc28IsxMdxKUw5s3mS +hMw3x/vt/mO4f8RuRtNGikj9q/ZsaNkoNpWeFrXTkSYqVBxpYSk/8U1YuYP6 +lDQhtc77pFTyCLqJ+XCYTBlCZk2hyfnoYfz7wuU3yx7KEryZoZmER0O4iabN +tHReQdxcbt8QlTeI32R0xH0M5Ij3UpPZZxkD+P719Uc6FHkiKX7SzKanHy+L +bjj8pU2eMCweb1UU6cel7ABzj3wFYnPal3BprT7sSdWITQpUJNa3NAdG/d2L +seuUFhbaKBGndWoqauN6MPqhW6WzujJh8yHUyrK9G+1iTzGX9SkTjUEyW1w3 +deOs6XN+0seVRN7tVr8Vflzk9hj7lYauInJtLQoG6rrwqeHmlV+dVYhLjEKN +pWu78FWIjzRtoyoR+m1mbsetTgy1+fsgZUqVWHwsrunmNAf12U/SQ7+qEduW +ZcrU2nMwfv2jV18PqhO3nuVhVXIHXmXcjj9YqE6oWic9VLjSjodW2jyvXq1B +mM0QWmP0NtzrUWkvHa5B1M1WMNZ4sjFplcvqL1MaRIxu76aXZ1txddmLOCt7 +TUKjeudIT1ALRm8s3VD3UZNQvKNZ5PC0Gd14C79XbaASzlNxdzYVNqFLzoR6 ++B0q0WBbvUy2j4Xnrh8lD8RQiatD+zv9uCz0OZrPWvYflciQRKKjg4VhUz5R +0XFU4hphlvyqiYWvDfiC+4lUwiHNo+NwNQv5JfM/UjOoRP7D7oM5r1gYXbfs +dnkllTA3nTjY7M3Chynu9JtVwvPOHrA97MXCFG+miXkNlZASXThU6c7CAvno +uRomlUg0tsh458ZCtp0svb6RSky4tUUmn2ChFlfJpItLJQ7cIkrD97BQLz9A +9VkPldCdkj2wxICFu0Ja+a59VGIfTfSvcH0WWmolZg8MUonOiSbxCF0WXjir +rjo+TiUsrPeWxaqzMHDPNX4uj0rcDc+4pqjCwhCJrgbvKSrxZs/tigQlFsZn +pUTMzlKJyEVu3FQZFj4NWkgrmqMS3ORt73WWszDD2tU4kKQSnu/WK+WJszBf +s0LF6DeV8JXf/MtgMQs/8tby5+epRMTN7bSShSz8HwrG8O4= + "]]}, + Annotation[#, "Charting`Private`Tag$30557#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3Ci8ZRMia5MpyhTgxQa3h1dmSpCupJK5ZBIihTCjQyRoS4q +IpqESqQIr6HBkCHkmDlTZMg8HFv57d8f69nP55/17PV9v2spOlw4fHaBgIBA +E7X+/0267rBoy5lbe5oahK8ety8v/tioYGaj4AzrN3g/xvuPcP5z8Q0FhavQ +cOjpmN/FbEwqiZRfqBAGnJGIrc8VSvH8bk/Xafl7UDRh7VwQVI85TT2PJwwS +oanE/Qmea8BZF7OOUUYyLEeB3x37m3BfTcz6KWYqiN7MEhTsY2Ij6XR3RD4d +Zjy0RDQ/dqHXF7nNw9kvoPPNvsBErR5cc6epesggEwwWmq8yFGShgyohNMB4 +Bed8Dhw2jWGjdyYtf4z5Bl7GHb8+GczDxe1slSH5fFDNXuATU9ePLSVFnoN9 ++WBv0j3Xf24AXzxNKB/ILoDb6+49sBcaxIMeB0/0GxQC//rxBxVqQxi3tCCu +l4GQWsAoXWo3jLlXTDwuSZfAptjn0/GsYUzs3yEz7lsCh6X6nlhsHUG3enHG +2N+l4Jn92P5V9giKJ1YsGGWWQSQItB5IHUVSJC/dfVc5zN14kJTWPorcwDTz +kZRyWOI918KWGMM8xvWHw84fweJizZktgWNoq7VN7xf5CRYECDTdOTSOj6qS +Lw7IV4J74qE2C5zAiYS3qt0RlRBoo6HNHpxAQ0Y1p4FfCWn9f2/wk5nEQaFp +64LGKtizPTKNd2ESdXYf1AsL+QpM/eDwebEpvEU7M+478RUGw98NnNaZwq7W +q5nup2pAgjenN3V8CoO8nsgd3VkLUptnCnOfTmH9q7kFKsN1sM0r6sPCTdMo +DkvtV2jWwzs7z3DDQ9O4U/muXsiZekgzXRne6DaNtyfSx699q4eYxgxud8Y0 +bov5ftYh4xscbC5hycnNoL33Sf0O1jcIl14UIac7gyEnBuSOSDfA91Xz5kGW +M9imIdhiHNwATQLu/MibM+hfpW6y5UQjePBcjH7yZvB59jvljP8aQblcO895 +bgYbEvSF1n9thAO/2i84ivNxHeNoobRuE+h/EuZ07eJjlVCQpoDEd9hhKcta +GcHHiX4R2jXj7/CrKkfh3UM+rm241zvu/x0aL5tnDb3mo3vKq5Tewe/AmJc9 +ItbER6nd7eJ1n5uhw8Vju+uqWSTWOQ4b/W6GoKc7fCvXzaIzbbS6TIsJBwqP +WX/SmsXC1kXBeSlMOK/NVUszn0UHr63TSddaQIwjY7vx5ixGHC9qXJ3dAjm9 +zq65sbP4dp/R65jeFiDU5oWGHs7iEgl752CrVtBw85J0zZvFl6/C2s9rtoGv +4embjaxZ7BfvjzA51QYtJUtnTQdmUcXLZM+Gu20QZH2t+ebELKbsoj3i8Nsg +qf6yrtEiEmMrIxxtP7WDx+GQxNUqJNaqD63WmWmHrbEG7qWaJNKiD1SuUusA +C12D5du3kxh0RET9W3QHpKRkXbqxj0QvTtTofrtOcMqTHaiwJ/GN4Ujq+qhO +2OE/QuOcIXE43dxKqKwTiq9FaNWdI9HJXexdsUoX/Fpm+FPBi8THjRedEm27 +wD51SirUh0TW9gaZa5FdIGb6PvxjAIm2v2N9tce7YMBm+7GScBLjTo5rSCh3 +w4HB63qBUSQ2llt2jxztBj87sbNr7pJoFi6pn1ncDUzjZJ+WRBKTadU3xP7u +gTrnAcn4TBL37PaxC7DvgafnRWo0XpPY4aamPXylB94+zNiVmkOidMOtH19f +9IByf26xcgGJeUK7cOfHHsh31VqiU0SilfZg/IvOHrCkuVzZWEJiTIKZcago +C8JqRqVefSJxc9Wc4vRGFtz1T3DaV0HlSWbOnjVgQe4LVCqsInHZiRWZBl4s +OCOnNG1VR+Lz6KKgN1EsoN24LnflG4mGZa7HFdNZcFItt8KvkcQb62tF5ttZ +cCPmyxM9JolKNtd7XSep/Q35DaMtJJaEapZ0iLChQ730SlQbifYFXQmmG9jg +TxbRJDtInBu4fbFgLxto407CAZ0k3l8LJhuPsYH9Tv57YxeJOoeGlRIus+HC +vMbwyh4SPd8cavJ8xgZcc6JAn02iJHc+k1vChhN2kvv0ONR8V70OtmxjwwKV +oxV/cUk033/SvmycDda5z172Uv7lLbpjywoOdDU9tnvIIzHiRcnKFGUOXPKS +2078IFG1w71PhOBAhpBMUg3lihWKpX7/cCAnsXnUsJdEBny7N+jBgUjV7thM +ygKpUwXttzigH9Tg9ptygrBsR9VjDlQJb1i2q4/Km7H3d34RBzp5RvlOlCsq +HeXSmzlgIKtUd4PySfUISBjmwH+L1ZIiKc/czj4ZsoQLf4TOX7pJOXq0OdBL +kQv7u4JS3ChvsJpLPavHhWHVnIuGlEvyFD9aWXIhJ6BlqwjlozL7eQbnubAq +PkDzM/U/Iz7nF2kFcwGMe7PcKId2xagoPeRCv9+fmcWUFfa+MxJ7x4XXE5eO +xFLnfZ/W4SxQzwWCn0cToWy+aMGt4T4uNMz9tvOh8upzUsnsEuRBhJRZZBuV +Z0C1WU3NGh6scPHqUqMsrenxq1CLB/d9NsZcoOZhNF64+cFZHsy1bpKuY5HY +Y822CL/Og29e4DRAzdP7/eJLV+N5kOxkK0Z2k5jud/itTSUP4hPsbSepPuj3 +XGk2ZPMgdDrEtYfqS5t+0rQ2yQOOjmEJtlN9XdKnK6nxA+7oCQvYtZJ4Ltav +uD76B8SYvs0RbSJxwWRqN6b/AIvSgv/SGqh+2VQIvCr7AeX7Vx5Rp/pcJSth +EDnxAzZbSm5WqCVR7dnzL8ZHe0GscK953BcSBz801pfJ94HWznoe6z31vsjx +R7N1+kCBb/tPbx6JsoFyEo8s+uBZzhpTXi51vw2drf1v9MGpU6E61dT9zar/ +07qztw/Yyo5CBs9JdONt5OS+/An3cjsy//xH5WHfuqS08iecj/8nmHGHRMuW +UM0a7k9Yr6nQVRlN9b+69ypvTT9I9H2753OLRKHsJ6JSIf2wqD+0OY56fxJ8 +FfdcOTEACQZuZl+cSSyVkLmnKzoEh4VF+FU6VD6KQSrdOiPw4dyGnsqaWbwt +Wq366OQ4mNPGLoxP89Gh3QqFvk5BHumabreCjxc/BTlcUJkF1xCXneNqM5jt +vtxS2vg3eDsGzfw5MY2PfFz6N9sIEIxijSTl8Cn8N3nOYmJQkJB/EO12pHIS +BRp7iMJrQgRT1qAuQnwSlS87elupLiSaBFO85g5PIHcy/gitaBHhuZhgnXw6 +jia8c36xF5cQ/i2XJYtGx/AgN1pNTm4ZcfKRe3Ce4Rj2lzsEVGTRiAJGy7Jn +maOoKda81uDECkLdvSDUmDaKy2DyVMe4CBFaahXfdXUE9w/ZTitZixJhAlUu +IeXD2FJ2RtBWXYw4ThxnhKb9wrehH+0VJsWImqhLdqIpQ+i40LOntlacmJ55 +b3AhehBPe/i8XX5fgpDsH5hOfDCAmxhqtWanJAlR2rGm2zn9WCeuTvPUXUW4 +rpx47VLyEz+8/PeBupAUoZ0wYWjN60MfQVXzr51ShHzRaLu0QB8u67hm5Ja7 +mtjw/GuYmEov8p4q3k32lSaU21p9b5/+gXc3yAjnW8sQp9WrP9fH8TD6vuOX +UwprCOvCkINmXVy0vXu8dnnvGuJ7gPjWs5u4OLPvCT+5+C8iJ7LdW9Kbgxye +vndZiCzxxsY472cDG1N3b/mr5tRa4kpJvuIyZTZmBXuKMTTkiJC66dkd4SwM +sT5tKjQpRyyximu5OdWD2h2P0kNq5IltyzPF64/1YMLGB1k1pgpE+OMcrEzp +Rv+SyATTfAVCziL5/mq/Ljzwl/WTqnWKhOE0oTLi1Il73b4cEwtTJBpmPpes +d+/AZFmHdV8nFYkYzR+bXri047ryZ3EHjykRilU6Q7yANozWKFNtKFYipKOU +CuxTW9FxXPhbpSqdODUZF7UpvwUdsscUwqLoRJNN1XKJXiae/9dyziSGTvgP +7Gd5c5joaZnLXH6HTmSIINHdzcTQSc/b0XF0IpAwTMlqYeJLXT4Zn0Qn7J+7 +dZtXMZFfOt/8NINO5N7nmmZnMTG6YXnkxy90wmjfmGnrZSbeT3N1ullJ7edi +YmN+kYlpl2sNjKrphKig8MAXVybmSUXPVtfSiSR944z3jkzssJVwavxOJ8Yc +OyNSjjJRhSNjwObQCZNwoixsFxM3516Te8yjE5qTEiZLdZmoF9zOP9tLJ/5m +CP4Tps1EM5Wk1z/76QRrrIV2S5OJHi4KcqOjdMLYYm/5XQUm+u4K5L8ZpxOx +YRmB0muZGLyC3XR5kk683RX5OVGGiQmv0m7NzNCJiMWOnKfiTEwNEGYUzNIJ +Tsq2D+ormZhhcVbfd45OuL/fKJNDY2Ku0ue1e/7QCS+pLb91lzCxeFyZPz9P +J27d3M4oFWbi/wB+Gjay + "]]}, + Annotation[#, "Charting`Private`Tag$30557#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVlnk41dsXxkVJSKYy3IwnKRlSKUqtb0imNEiJEirDpaRSiFK4xoQrScpQ +kaGB4kauJdwKh2ToyHg4kzHzcM639Du/P/azns8/ez37fd+191Zz8z1yTlBA +QGCIv/5fH91wE9Y/G7vHIaY5b+H3ONS2qtocV/WCB8UeJbr2P+D3x8owVdVA +YIdHnlEsHoVHVXdUlqlGQ40X2y7y9hD47PY/P6/yAESeiRwXDWLAmzb60xnT +dKjXX07dtWIAeN423ZMeGbDC163qjww6mDUmaszRsmHNf7zP3RVd0Ep6Jk+o +5IG2cHnhqUNf4eon5c3jRfmQtz0t6HZOIyj+3dYwZloIfnptBy7XfAY3LUJo +xOMVcMbN3zvfroSAQrGyKVox7FWsZHfM38PlXQOaYyplkPenxcz+0K/YUfWv +/+hgGZy6kafe5NiK+TmpNSNF5WDb7huWpd2OtpdsTw+bVkC9w4xKY2kHpqwo +T+F4IDwUY6s6e/Xh22tWly7LV0H+vpRc41t0TB/eoTAdXAVNkXKOy6z68UKz +tMfUvg8QufSNYVzzAEqnfxacpFWDSNtaE+M3LCQlSvMuGtfA8+Rpa78zbGTe +enJoIrMG2kt3bXST5GCpx43H4161YKv3/GKxyyA6bt228wf5H9xQlob07mHM +qs/wG1Gpg3KztRbEgXGcSS3R6ourg6StpjX+neNo7tHAaOHWgfVJdb1zWyZw +VGjevry1HmwCSwrD302g4W7bndGRVOCJJiu9eDuJsWJnp4NnqOBqkmsSNjGJ +vd8DCy+6NoJwWNOC0qYpDL/6TNlhVxOYm5zaU5Y+hc2vfgpqjn+BMFvV1o2X +plEaVjiv1G0Gi8jWX5+eTuOu9ck7I882g7HeDyWHb9MYP5M3HfS1GXbfCBl1 +2z6D2xLbz7kVfIXM+FdiL4dn8Ga9tpX+6Vboe511SHPDHD4v+md9wb1W+Pvl +3FsVmzlsSTUR0qC2wvfVWwyP+M7hOg+HCnmjNtg5Ov/flTdzWC8Urisg0w7b +Ju6uW7N1HmeGJcSCLNvBKKBBx/zwPCq1POBM32wHRxexDuqFebyY+SqTM9oO +0eN3xEdy53HN7i7pLx+/gapGim+19AIS69zHLX59g1aWte/vTQvoJTbZUL2V +Bj3Fo4EFZgtY8V04ojSTBtaC9l+criyg29Ut84+COqBvzb6zno0LGHfq31a5 +og6IiQoV8RpYwBIzi9eJnA4YdaRnjM0toIiMs1fE0e/wwDlAN06Ziy9fRXf5 +6HbCys8iU86eXByWHo6zcu2ExAeim9IDuKh51WrPhuROsKw2Kw+O4mKmsVgW +g9sJ72zVwnRzuZhUF+fu+F8X1Fk8fnmLzsUm7TE5w4UuaKDJfxD+wUWxhAN1 +qzd1Q/6kbdkukovhxyS0vyZ0w+WsZUrvZXl4lXF3cv/JHrDQWfX3djMeFptP +ZGvc7QEz7hjT9SAPx/MOHRWq7oHV59N5+x156HlR6p9KzV6gaVF9LH156Pgr +Kdhguhf8zhtImqbwMMVlWkdmfR+kJQ8fcM/gYWuNXd+EQx+EBN4oPfCchzYx +siaFlX0gxy47fr6MhxliDWFS++ggE3ZyVvw7D/fsvn4y1JkO9+WYny/Qedh9 +YZPB+DU6UDf1DaVzeCjfEsum5tMh+gy7yXWWh6VCxrirlg6LmlnneCQPjxqM +3s/voUP2F7txN0ESE1NtLKMk+6FdOs8uV4LEzfU/1eY39gON60oPlyWxiSzk +nTPtB50PZ2oNFEkUPb2y0PRqP3h2m1JlNUgM02iS+N3VD84E7WmPIYnqx29w +zs/2QwFTq9l7N4lVUbpV3RID8Cz9jVfrXhJ/jsT7le8dgBI50WJ9KxLTlMBq +o9MARIvqVG60JdHw4Lh66pUB4L63mf51mET/4oNt/rkDcEpot9/uEyTKMn8X +MqsGQEf852LeSRKLV7+OsOscgG3cVzB7msQfAZI79FcywNTKxEzLncS4/KpV +mesZUHj35PbVXiRqdV8clCAYwGj7uaPfm0QP+Ppg9BIDssyHnyv7kSiQPVfe +FcuAxcv7dCMuk5i6dG13/VMGsFs/STb7k/i5zl057xsDzJ2yWbJBJLpox0Hq +OANo6dlNq4JJXIgvcokUYYKvpq7gZAiJG47+zD63kwlK5SXKnrf4epSq1R61 +Y8KW1ZfGFm+T6KCwn2Xqw4ROpk1LSDiJE9d9hLdGMGHmnw27WBEkRvUmaqo/ +ZkK8Dvdvg0gSVff+YyH1DxO6njeY+0aR+O5Jt5dAMxPme768T4om8ZCwYOz4 +IBO0DV1OZMaQOOipWdi7hAWBiqLhqbEkhjbYNDYqsoDBu/f4ehyJ8rqXflRs +ZcH+E6tEre6Q+Drh/qpCGxacTqJqLI0n0WK6YvPDcyyIvXv1YD6f6fYDh2Nu +sGDGTpJhfJfEgHfLLwfeZ0Gtx+LOCj5L/qGT7PmaBWw1idcbEkjMCzlScryO +Bcu/Bj+4zWcT+rVv5gMsOFa7aFPP506TR/MGJAvSt31UFkgk8dKzankNWTZo +ScS4ruOzqMigkawOGw6kx7nv4HP2nyudhMzZ8G5NdogRn3c2bgmecmaDu9SO +WS0+t+g5POq/xoZbX44pivP5z6SQyuYENnQGFhn28PsJzmb3YR4b/I2y0x7z +Oe34Z4FX1Wy4st0g+hCft5SPqT3uYoN+sI7NNP889WtlTO/MsKGmWlQrks9u +Nw3PBq/kwCnlVZ7ifOb1n4rwXs8B03tmVmF8fZLMwnIcgQOh6bdlRvl6bsp9 +/snSgQM91y8v28/n2hVNg4Z+HCh68MAlma//SZ/pFRtiOEB9efRsG9+fOP09 +NsIVHPBuCTylw/dvXfKZ87NtHCgJplDN+f5WzEXFM8c4cFFppN2O7//o+9bm +apVB8OmoybL8i8RwZe5kkeEgCCyrbdvCz8/aW8oyWYcHocCzLlySny8bcy/7 +m2GDYCj3a0s+P48vmhe/7+IMQkCBu/9Jfn7Nt64jtQSGIOZXs9k4P9+99yzX +KioMQdTNp5oBgSRKOCU7L1gNQVOn2oDPVRIvsDYy3r4cgiu+1nIcX34+nL+L +fKgbgo37QqgrLpBo1xGl28gcAqddCtfUffjz3cAJZCkOQ4V+TtB2TxKFip5J +rokcBp/L7rk/+PObGqy259rpEaAzyshPB/j+zzWfCQsagUQBfVMXaxJDfEOj +794bAcvskoOTFnw/3PrachtG4I6p1cFFUxK1LR55d+wYhRUaPsxPRiR+kFF4 +YCQ5BqNaL6R2rCNx253Plfs2jUEG58WitxqJOcIBzMPmY3Cw5NCHh8p8/bnf +9P4MHoOJ9vzto/IkHutL/pg2OAYaSZlNditJHM6XnCGrfsArWB1ix79fRdXC +NfsMJ6CnrVuhsJqHn40T9W7smwDqEXp6JvLwL4fHO5SOTMCyzeFDSRU8FEx4 +t9/JewK+ZgRL+pXykLc46kF7NAH676i9svk8HOm2f/5FcBKumrQpL03kITVV +c2MVdRJan7Xk1J7iYbxkg1aWyzT4Or9uOT/DRbeuoyhEnYOzkYvbT4hz0e+/ +cDdfTR6ckfzalcN/n4suitvJW/6CiJerE9in5zHruvfw5uMCREBAQKRKzBze +zvh5eGZ0CRF6UHDr0bpZFGilExVBQsS+7YJycdKzuP6Ke8BRrWVEluYL4ueR +GWTO3j8m9q8wMdmr0OySM41WrD9DkvxEiB6HW6v+nZxCW2bCJmVlUWLDfl5Y +qfkUDte4hX5+IUaUOLuI5hZOoq7UNyXT0yuJhaD7UZZikygKs67d0xKEwFvL ++72BE7h/zHFe3V6S8Mmt8Y6sGceO6rNLHLWliDk3J4+oJz+wJKrWWXVWioid +v3RSMnMM3Zf505uapIlu6jtT34RRPHPpeol4mgxh0D0yn/5wBPU8NjXZuMoS +acJObfFvhvGLtLaYv9FqQkVi5rV31RC+f3n7obbQGqLh/oy5PWsQry/ROkTt +WUMI/DvZJS8wiKLdQRYX3soRKs+p0VKaHGTlqCVnBMsTlM7vwfH8/2nyBoWl +ZfYKxBntho/NKSxMSHP/5KqqSNhXRNra9DLRMflUkzhHkWgPld5yTo+JC2bP +uBmVfxBv7nQFyAYwkMEyCaiOXEsUH7csHWoZwOzd+n80uioR16rK1ETXD+CL +CH8pDx1lIvLLPG9HTD9G2p+xFppVJkSOpnT8NUdHg+6svMhGFWKbeKF0sxMd +Uzc+fNForUrEPH2DdZl9eLPqTqp1mSqhfDgjTS6kFw/8Yf+sfp0aYT5PaE54 +9uDeC5+cpKLViJaFj1UaF7sxY63bOuqsGpGoy9bL9+7CdTW5KbZO6oRaveEY +K7QTE3SqtVoq1Qn5u+rlztnf0X166dc6LQrhOptyV6+sA92KplSj71KItuP1 +4jIcGvrctvtplUghbo7s7w9g0NDf7i1N/G8KUSCBRF8fDaNm/eMTUijELcI8 +80UHDV8accn7jyiE8/MLfYfqacj98PtbTgGFeJvGtC56QcOEFvE7tZ8ohIXZ +lPX3KzRMe3Le8686/n7eVscP+dHwyZUmU4sGCiG5ZOnIp/M0LF2TwGtoohCP +TCwL3rnTsNtRxrO1nUJMuffEZTrQUJOhYDrAoBBWMUR1tDENN78NUn7KohC6 +szJWK4xouDOii3uOQyH2eSw5EW1AQxvNR6+HhilE/1SHWKwuDS95qypPTlII +y8N7a5JVaRhsfItbPE0hkqILbskr0TBi5UDblVkKUWJ852O6Ag1TXz2JXVig +EHHL3Rk50jTMDl3qUc6jEIzMbe+1V9Gw4PA5k+CfFOLiu40Kb8Ro+Fb9o9Ke +RQpxdY3+LyMRGlZOr+f+/k0hYv/a7vFhKQ3/BxqHzWY= + "]]}, + Annotation[#, "Charting`Private`Tag$30557#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-1.7813321080131281`, 0.9999965016070957}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896375366032028*^9, {3.896380461509735*^9, 3.896380488983677*^9}, { + 3.896380703982229*^9, 3.896380730723392*^9}}, + CellLabel-> + "Out[192]=",ExpressionUUID->"5b17cae5-2767-44c3-885a-5c7efbcb36d6"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes amortiguaciones", "Subsubsection", + CellChangeTimes->{{3.898187122863616*^9, + 3.8981871286853933`*^9}},ExpressionUUID->"660bad55-8354-4520-a413-\ +0b1acafb5587"], + +Cell["El par\[AAcute]metro \[Beta] es la amortiguaci\[OAcute]n", "Text", + CellChangeTimes->{{3.898187131566989*^9, + 3.898187148566062*^9}},ExpressionUUID->"70ceac25-56c0-4ed6-91fd-\ +fa7c3b10fe79"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{ + "Ap", ",", "Am", ",", "\[Omega]0", ",", "\[Delta]", ",", "\[Beta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Ap", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Am", "=", + RowBox[{"-", "2"}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", "3"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", "4"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"PlotRange", "->", "All"}]}], " ", "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896380450611208*^9, 3.896380549178166*^9}, {3.896380753230626*^9, + 3.896380790374412*^9}, {3.898187325476409*^9, + 3.8981873270359917`*^9}},ExpressionUUID->"3f35a236-7472-45c4-bc9e-\ +e4eb9cee5929"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV1Hk0ldsbB3BR3ZBCpUmGDpGQbhRF37eUTKkMKRpuyliZbqREAyqlkhQp +IVGGhnPSQK4jZeaYyjye4cXhOMYk4vf+/njXXp+119pr7+f5vo+yk5e1s6iI +iIiA+v6/xgc7zd1w8tY2K3ZE39SMkPmtTsnSXskdaZOXBghLIXOmKC9ESek8 +LkwqlD2LG2DG599WnKMUjqJSjxMvjATM00Z+Z8YVHyFY4/spySd8Zt2kW/Sg +YhrcF4vHbXjPY/oXK+gI6en41M06eF+Jx1xx/3u5wDgT2TUmkp9uc5lOGoRY +n+sbHOOwvuqd4TADMiWzhxsYuN68Rcqf6GL+1cJWEyhmQ3a/6vl012ZmY/5/ +fv092bDSOe6u79vETE+N/dpHz4Gp8QVu1qVGppWv1TG+cS58ip9a2CfXMx+K +5zzsdmWi+O6Scfv5dUzZJyWiQw0FyCk69M/d3BLm5IIPad6GX/FfBWugVa2Y +yb2SvG8w8Sv+dL0Ok4wtZH5wDX4qdP+Gs6ZbOmqvFTAdNupuGZgsxL05fqHi +BtnMpLIEnz7FUqgf1s/5UBHOHI19r9ERUQrtxtl9Q9OHmCau5ZzaiVKwHZY8 ++SgSgn6xcbucujKsC/7+l/e+BOgbWW0Jv16BI6H6wy1WDFS/mRJVE1bBNHDe +Q3ZdAWQhflRKuxphtjRvxfGv2Lomesv1k9UY/Piee1auEHdG00Yu1FTDrPK+ +5GOzYuje++HslFED5iSnXTWkHJfKNM03HKtDzWCFxPPUGrykf1yT8aAO6jMr +yMKVtaiN3SGmWkH517k7VndroeJ6MHeZwXdoPmOEv/SpQ5lYqLbIoh+4VZ4W +Lq7yA3JGLbJVRfXI8Q9OSzRuBKHiIjT9Uw9PpbzDXkmNcJccKi/Y2IDL4QsX +Cv80IrdpbtiHxAbE7U6Tkn3XBCf/v8fjLzQiKmsp135BC16/CW85rd2Msmat +y7si2sCX5UeYH2+GdHCHi0xtG9T8zbepRzfDZtcK6QG5diQaSiZxJpphzQ/9 +xo1vR1RphItDYQt8dRpTFyV1wJ9zd2j34TZIudTFHGV2gmEy+Ez1bhuc1vr8 +cWvphDBtn61YQRuE3rKbpMc74eYt8zFPrR2bfnFyDbS64PAn6qLeSDsyus9l +LHvQhQTJ8hCZXZ2YM1n7YdyGjW1GgYcvH+2Ei6ZKk7UHG62e6/SE5zoRQZCl +jpfZWFZ7i6xIp/aLrPsuZLBxL9bS7IZ0F9TcR/6ZN82GTtmU8vjaLrxNMNzW +L8MBazLzt7NxFzpuG1iEqXIgcUwq09i/C2LD0z7NFhyEqLIWzLR0YX1OUJ36 +Aw5W2wd3nxnrwsy/acqsVA7yb2jnty5gg/nj6KH1nziY6rvjk7OdjVnSnHfq +zRz4MfZ+93vBRpXRgcb5K7lwRc2jfl8Ods6dHbf9Hhciz37mtNziQCe7qOTz +Uy5iZ8u3lj3noCm5sXAmg4uSUheFtHoOErSTXnYXcqFuO/XMeQsXJhXJ8qbj +XOR/UP5ma8PFZ7ypVxbj4eDy3Tzj01xofLuvWbaAhxvt99RWU+dKq6kO31Dl +ocdNLbN9Fg9nv6acZe3j4XK5ZWXlCh5Ccq6laTrysEzbdyB3Iw/zzta1HnHm +wXQkV+cxtV7CLuut53lIC7J+b1/KQ/JzxdeDT3nwiArKq44kYZDvosBg8yA6 +9qyDmUbCfUtQaCCfhzj7EpE3BSQOxD+5pzjMQ5n8IuPboyQcpaQOT4iQWPfi +ZbHZwW6UZn4Mn5En8U2c1aPv042YnUvF02kkDp8eEVe/2Q2rNUVhf2uQiNiw +zXJubjdavWIkOzaR6P9cV12g2AOjKIXldCsSoQoTQ3T9HqxN2uV4wJaE/BWF +RUn7e2B1MiW19RAJSxN3u0shPRBsPFJ2+ySJV9XTTVu7e+DHLlSJCCBhslFl +UkOkF+KXzGOMg0i0PzCTX7G8F22bJFrar5BY4Bh99Jd5L7SG/lEruEnCk7eW +k/W6F4mL/Op3PibRebRp3pfSXuTVTmX6J5CwabyhXcntxXZ60NGbyST0y7vP +81bwIRaY0Hwwg0TGzpiEIT0+zgQecln8hoRCnknhn318DFua7H3HICFGT5GW +u85H0xPR10+ySfhr2G1a/YyPzp9xLd25JHqSZx/W/o+PEbGZH0vzSbAennhh +MsKHaL9vtFoRidiLytvOHesD604gY2ENCYmf1SdCLvThtNnnkpt1JIK8Loff +fdAHvUeJBwQ/SDg5dXx/Ud6H1do6Kz2aSXxvufP7HdmH378sB0NbSey226aU +P6sf7VG/z99oJ6FpGn+qcXM/Kp7atpmzSTz9YnmPa92PSVnWHgkuCZmtUx8G +z/SDbxiQ+I5H4qeWo6j4837U3GcvLOyhcvJCQn0Jsx8bPdRztfgkWpVy9ig3 +90OK88b9Sh+JL4uWPzKQFqCWNtbGF5DQvV2St2udAOUd5lqzhCRS5wZw95sI +YBG49K7YIInll9Ukjh4XYKVy1K5hyhET9es9LgpQfEs5qnKIxLTvNTv/GAH0 +7x99/2CYhE+/XuBVhgDuDDmh+QgJrjMv8U6lAPJhVsECygc6ooviegRoM9qZ +FETltuTgzv5UsQFsWOz7YJLy1toRmXcKA1ifERnjOkbitUXyZqbBAJ56P+J8 +oaxUaH2k3HYAD0ZLsiR+kojaJhrS4DWACoOkXTsoz/lEf8m5OYCU6b4qN8oB +G46zhCkDWDiTGxFMmZ8uPTqZPwD79WezQigfVslfPq91ANNCZnAA5ap4Lywe +H8C9LQmrj1DesVTRWUlWiPriE/UbKGdFsm5qagmxaH1W1U/qPmoSwW/1TYVo +nL5tnEk5LkSrfucJIeZU7Xaxpjz/T+vkvmAhQi3vn+ql3nfJP0L5yCMhfLZd +uuZDeVi4dbd7lhB/hZ3v5VP1Oened9qvSggT2f1FdpQb2HFRV/hC7GvdbMWg +6quqrdpaJDqIztJvdBHK7fypAUvpQYTEjiltp/oR++L7rLpVgxD9T6f8X6pf +Esqhah36g2i87n/r7QBVb8N764N3DULfQaa0nOr/tYNPN6+yHkQbb1ZqSz8J +0chPux1PUeetD2E1UfnJzyjc+/vcIB59PXS8pJdEcHGt/aPQQZRoLF6dSeXt +93S/a0P8ICo2mX20IUl8WvHbyz99EDEh1VVLqXz6b/orYMnHQazcZf+0hkO9 +94zyDZvqQbSP6Xet6SLR12r3skp0CLcH5EIdW0ik/3J667lwCPKP5H9UN5Fw +W+z9SUp+COMaas2GjVSeLG6WWOgNocjzXMDEdyrfOXk9xa5DcIibaziPRaIi +Vm1tfsUQpv7++3x0HombWbobjjUNYbcEz/Mq9X+bVm83mOYNoZyrW+eWQ83H +vw6bGc4MYW7+FQvFDyRy/SPdP20Yhh/rbYreK2qe2U6kvX04jOj4Y97ycSTu +SJdrJP0zghGlE+5uXiSyN696b+U5ArGgQXPr09T9jnphKnAEWu46xze5U3l+ +tcjWPmYEp4x3hAicqPlidjhIijWC7Nqa4eUHSBiHCKrObx3FtazwPUFbSfwa +W+hnLTeGK0opr4Wi1PxosWWKVfzEBnKfEfs6Dz6FoU5ear8RoGHxvPwKF3Tv ++TbLzP7grWdPQ+41DpICT/F17EWIZBMDRflANq4mTO0f7Z9FjJqp9u682QWR +uk4i94IYEVqmWG73shNrzroE2GrMIVzZ7m8NgzvAHYs5IPnfXMJNba5ga1cb +zHkeQVE+84gHf8i/Zxm0woobuU5BQYJ4X7VlruGbZvC/Ol0ueSVJfK23kjOz +aYK2TP0q42NShHmxHdEmaIAExo63jiwgfp0IkZRg1GO3wGF8tZ00IXZoQlPD +8wcaC07OctCUIZhX/83P3/4d7298O6o0JkPsT7oXclC/Di5z/DpZLFninW5Z +a69aLU74Br6fH7eIKJmfyli/uQbrXdexLI8vJhji9vIW9tWoktWU9DNYQpSl +jOwNZrPw+fXVx5picsTN7Jj4KYtKBM7S2FfRJkcECfUaJtLLIdF6wdQzaynx +tN9+lYp6GXipytEJF5cRdSkn+c61JYhWXz472245cUonwvnCv8WIjHMpPq60 +gtg+4cZzMyqCQ/QR1vzuFYTcU6HLjHwhfu1MmUjIW0kUSLul3hr9Cg5vR0DB +dXnixBGvT0kDBXhmtGFl5fFVhLzHgF1T1xe8CvOTcdVSIMTDQz3sR/Nx3e6E +hdiYAqHCkGCdXZoPvdaktOuVisSaK4sdVrrnIXbt41eVFkqE3kfvvaqNubiU +fzvWIluJULFxt+wz/Iw9K+1SylSUCa1XlS7nmdnY7lnsKBOuTCiI6HYHen5C +gryTSsWYMiH6sPD8tcUfofL1xUMrx9VE4mFdxx/s94jUKtCozVtNRIrbb79a +lAWXkdk1pRo04pig6KPNs3dwog8rhd+lEZtn0ke1Ehk4fdVmyvwejfCu8eot +f8yAn01Ww/z7NIJxbhvpEcPAjTG/O5EPaURYkch4xh0GXhtMTMbE0wgp8/2e +W4IYmPgyU5+aQSOcHksH33BgILJ2/u1vxTRigZn/2e4lDMQln3G7VkojTvdo +jqTIMJB8lmVsWk4jqtfu8nWWYuCDXOTvchaNuLsnzbt7NgOtDovc6n7QCB+r +dNfxETrUOMuN2Rwa8ctyocTuWjp0si4oPOfRiGdGH32XsOjYEtYy4dxNIyRo +oo3cUjos1eLf9vJpxF6p+zHXvtDhe0pJYWiIRjTrqnB/vKXjouGVCcYIjdgD +l3WZmXSESbG/nx2jEQ/X+ZwJeUlH7JvkW79+0QiPl2Oduol0PLs82zXnN41w +cJyQWfiEjoz9zjsuTtGI87rNhvwYOrJWF63aNk0jEl2PHC+6T0feyJqJmRka +cXGT6aXku3T8D4PnoOY= + "]]}, + Annotation[#, "Charting`Private`Tag$30696#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVlXk4lN3/x0UrKVuFsk6SJZXyROh9lxLSolKiFEKlVKIkbUq2CE9fyVK2 +RJQUFWGEGusk+z4YY2bum+xJ9PjN749znev1x1mu93l9PkfF8eJBZ2EhISG+ +YPz/HH/Lcf7G0yHbvA3ilk3PDtHL6pUtjyqfReuVkHdze3/SZ78V3VNWvg42 +P3uHbsUgPb44VGmechC6F+jbxqVS9PPGXhcmlZ5CT9V+RD+WS3/f0J0ybhKH +WQenXCq5n/7HzbJjxPU5mM+SZqWyOfSdNRFqv5qTIFnGS3FvYdPrp888HlZK +Rz2Lf2zrsW76VYbihqHsV9BjRhR1zmfR5f9tqBo0ycTfVVsLZh076Y6ahAjl +mgWHLUpz2Bvb6N6ZYnmjze8wP3dk6NqaBvqC9l71QaU8zD70FP/3WQm9pbjQ +a4CXh7nRbjkGysX0V6nRpVR2PkSMX5wat/1M3+ex7yRpUoDc6JTBwfpsetSi +/CiuKx21k4kzRWkWyLlm4XFFthj3IuG9bEkk4sgtcmO+xfi8YnKH4Y1EuNdK +uY7u+oKQaI/a/l9vIRVXLjzSXIJBK4+UPJNiTC/5kH7JqBTvdpzK+0epBH13 +kw8MJ5RCd3qG+DtSig+ut54NnS3D+OS59XNvMWC7afPWn9NfMXzdNFNlMxOJ +lc8vU0oV+PfA0/aOlY0Yj87VZD2sgNInrVXq7Y0wda1i101VgBf71y0mqgkD +IpPW+fWVeO/92W23cAv0jfdtDQqohmHqLofcN20IETs95jtejcyxdZt2WbWj +q/V65iWHGoxuJy6EDLfj/tUXijaGTPDT7t++odaJ2qwZYfWh70jd69gYe44F +KSyyF9epxXsnp97IcRYM1zzeGnC6FvVSNdkdxt0IG08f8/lRC3Lt/nFOcTc2 +RzQ6O2b8wKjpMz3jjz24XaltsfFkPfb6Nts4n2MjLfvjmoz/1UMo5uP7xlg2 +6qJ3iKhV1+O0caDQtmo2VrvaFMgaNEBXmkoT1exDpch9HSHpRmwMFTmzqq0P +4+QSMR/zRvirsbc2inCgUPeUO3a7ET17vglnanNwKSErgTvQiAzWfyVlNzhY +btwu9f1bE5y68tJWSPSDWO0yZPa3CSpqpxz1NvXjrNhIVcmmZrin33wWYd2P +gtb5/h8SmqH5/auHTHQ/HK/qTsb7tCDL4pL7SxkuHp4orF+R3QIHjSfJCrpc +5O40exvBbUF08BfDn/u4WChtf9b/cCvm7/cxy3jAxZusoPbzOm2IN39zgvzJ +BSlFPrRwaIO5h9jxgXk8qF+12Lb2cRvE1y995rGKhwQjsUT2VBt+VNdUy5jx +EFnx0MX2azuUkFtMPeWBqT24Qv93O04r/JS0fM2DWPjeimVaHRB+ZeuyvZiH ++0eWaP8I74Bp0olvo308XGU/Gtl9vBNrU+YYpmjw8c50OEntUScOXKEKuw34 +GEo/cFikpBNuJzO/FJvzceaS5Mci9S58sTg4fPkMH7Z/I331xrow6bf569dE +PqJOja2TXsMC1+iIw54sPupLD7GGbVi4FUUtuFvAh2WwzI7MIhas/Ro2CTfx +8Vys6p7krm4ciatp9JtHYpvxjeN37LsRWJJXliVBosNdS2/oWjd6P0k9ebKS +hGxdSH/1q24MdqxgxW0gERFtaR4o0QOazanw50dJbKicUZnU6MFKTy2br6dI +MKcz/zib9CCleYFL1lkSoifFM02u9uBCjHNigw+Je2rMJbPtPTAc6k++E0NC +9egt7oWJHpT4Ha/hJJIoDtQp7ljSC/fFqXYr0knMUGGX87f3wt4o4yT7A4kY +BVho2PViw4mtL28XktDfP6Qa7dkLf2+3SaqUhNe7/Q1eL3sxRcmv1a8lIdM3 +m9lX3Is/n9l5ck0k3i1763+orReuVQs+MttJ/PSW2LJRXFAHdJbWh34Srvjx +dMCDjY+OE0Xhf0gIJf3Kbw9hI8/p0+DiWRLRc1d1VKawIZzsuuK0CIXyChfF +9CY2zGNUZ16IUTil/RDRQ2zI6coLRS6l8Dss+1TAwj50WwyH20lTWHt4Jsl5 +ax/2mH+qCpKnUPxBpezwoT68TRdLG1KgYCO3m2Nyvg/xunJX9VQoBHZFqKs+ +68PmzjEdJ3UKvDPqmV1zOHBWLPc5okvhTpVlTY08B/nBufZVmynI6nj8LNjE +wfg/E36rt1AwGyvYEOvMgfyuwgf+hhS6rXutgm9xILux50SYMQXvTwuuXH/C +AemSdPomKKTfPJh7tIID70WxLUtNKOzovtZk2suBWoSXds5OCm074if1pjk4 +ssH0JmFKweNFiayaTD/khuwMcndTEF3IM5BZ148F/8nUSJlTSDonbidi2o9K +D27SMQsKW2t0fUft+3Gw8ywteA+Fc5E3i2rD+0FLe12YvpeC8EQSi57ej+js +oOdP91GIOVoulFXSDzU1uwLP/RR08wdVnrX3w/Ze0xXDAxQqV0mbhI7346ju +nNU/Bex4W/+0rzgX26UMNEKtKPzpOeHvtoaLgSHDLtmDFCJ33ku1BRcFjTpx +EQLWepnGMLfhIs3wRf6kgMsWMXn6l7n4tTzt0Z5DFI6fH1u0NpgLucqCi6EC +HmfKaq1I5sJhgnpdKOCHG7dZzi/gYmxteWyHgFc/drow0cBFtLdnECnggl+B +YX2DXMiPvvrKFfDhY2+y6ufzYP6rJL5BwAOf62tLlHhI8fp4IlvA9xWnRrL1 +eeiSWHfgloBX3VWUTrTiIUvBu8hQwDlsk83h53j4Hp40zBfc19L0rPXtezws +rbm8LkjAfWlhV93jeLhocz5fTsC+YjlPTuTyEHiN1R4ryEPGvfWTJVNwXlZf +w1IBv679r9WQK1i/wZXrJcjPdNPqaU0hPpRpGoeZgry7/me+Sl6OD11uua2c +gJfYPbb/bcHHIakAnUDBe6UW5t3mOvGhOnHcK9OSwjZlVkKTLx/0y0HmZYL3 +dedosHPe8LFPM//ud4EP3fatC79U8MEZTZDONKNwqCVQp6aPj0gzKYkbAn/0 +q7jXOfIkztzwsRsR+CaS/UJieQCJ+hkTb1OBn1c1rf9RTSKRuWY0uVDgLy95 +7nEdQR8Q85OGhhEFZpTTS9MxEtecD2R16VOI9lXZdu0kBfX78zLKNwr8/FXr +dM+HQmhoXSh/PYWbF+8EPfqfwDMd1VghHYE/jqyGl1UUuAswK6lJQdss3q1l +ywBmw0aMGYJ6/CIt99RAYhABVpaayYL63hxaXrRLaxAuD7pvGYkL8pjv3Wdl +OoiojvV0pqjAj6mm9ed8ByGnafukax6FI6zH32J4gxAf0g/NmiZBvpIYny7+ +iXcfRZI2CfqPqMp9dZb+MP5uizgU9pFEuVHE+lu7hsF5GnEzN4fEA5tnWxQO +DmPUxDm4NZuEcPin3XZuwzAUexcqm0niz38Drs3xw3APnR69kkCC6rBO+y48 +AvmeNcteB5KojlbXKK4ewbmommY/Qf8Ok6jSTDw1hkfZ7nq8YT4c2w/TRap/ +QUr6UZm1GB+Xv953vKj+B7ZP//G11eIh+9LiQ7LmfxH5K1WdeZKLxBtu5Iaj +QkSwbull2eB++D2fsRofmEN0i3hOWgn6iFB9N1HgI0Lk7P9iHyLFwRpPF+/D +mvOIC3vzRWcO9qFv4skRscL5hPuHsaJTqWxYcM7djLy8kDBqDRUtHOnFvr5w +LUVFUWJ04J7fB9NekKWOd8pfixHZ1rxFLzN7oCPZpGByUpwo8/cMNBfrgSgm +HDrGlhDXUrc96brejd2DtpOq1hLE/n2FbgGlLLSUnJ5jqy1JhPofcw1M7kJu +YJm98oQksfukx3GJhE64zPPqZjKliC8Jn0wuCv5tJ48buYtjpIkjTGoyLrYd +6121mJYOMgRN2K4h7H0bvktpi3kZLCPqFo+/dStuxec3frHaIssJxyfjptac +FtyYo3mgunM50Vsw0i4r1ALRDh8z95wVxPK06iBJ9WZwUlUeP/eVJZTbWn3D +nJrweK3c3DxrOcJRu+pbbVQjwmNcGA7K8oR1QcA+y64G2D4+wVzMlSca70jp +Oq9vwO+dL6aeF60k3oe2e8t414PN2eFdErCKeHfU/AO/rg5JxhtX1jgoENeK +81RE19Thtb+XpOs6RSLg++SfLcE/EGDttEdkQpFYeDiq5cGvWuh1JKYH1CgR +mxdnStXa1SJaI/Z1zR5lIjjlPb0i4TtuF4dG78lTJhStnsesuMnE3pXWLypX +qxCmk4T68JkabHdn2EkGqRB1v78Vq12qxvNVjqurJ1SICJ3+9a/cqrC69GXU +PjtVQqVSf5BzpxLh60o064pUCdlHqvn2SRVwGZv7o0KTRjhMRD1an1cOx+xR +5aBHNKLhaOViaS4D5/0OzVhE0Ijb1O4ebzYDXodymhf/SyMyltAJFouBwAmv +sPAoGnGXME143cLAG4Op6SfxNMI+zZ11oJKBqS+zTakZNCInpm9P9msGwusW +h5YxaITZztE9rZ4MxCRfOPOgQrCfm8XRA5cZSPZkmphV0QiJOXMpxgUGPiwP +/1PFpBHxO8wzPrkw0GErfaa+kUaMunQ+TLBhQJ0tZ9LLphEWwURJkBEDG3J8 +FFM4NEJnQtpikQEDW/3bp5y5NGKX65xjQXoMWKrHv+WTNKJntEUsRIcBDzdl +xZERGmFutb30sTIDvkZ3p96N0YjIoIy7sgoM+Iv3NnhO0Ihco9BvcXIMRGcl +h/z+TSMeLnBhp0oxkHRnrmv+HxrBTtj8WXspAxlWzjt8Z2jEpU8acu/FGMhR +/aaw7T8acXX5xr8GCxkoGlszNTtLI0Ie/OP6ZS4D/weMUmF7 + "]]}, + Annotation[#, "Charting`Private`Tag$30696#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVlnk0ld8Xxg0lhTIlIuEWiqRBk/S80SCpFCIVkVBJETI186U0CEWDaKCU +kkITrilljGuerzty73uTqTKU3/v746yzPmuds845z3723kfb7eSeIxJiYmLd +1Pj/nHTOTWqZe/SGY8rZNqOT/fTSei1rB62jyPC0irIK+0GfLCu4rKUVjMKK +I89+iIvoSYXX50/VugI74yWLdugL6N5mASd+z78LjqW1a1g7h/6ugfl02OIB +1iXXTvd/wKaPHbfuGPBMBnHPbpP6ERZ9U/Wthb+aH2PlqsCSfFkmvX7cK/7n +/HRw4gIFgkPN9MCvmsb9WS8QP9IrK23XSJ8b11ApssjA6DHpsVrberrbYkJS +6JkJM5nTLPefNfSgDJmPg81vkSArJjqQWEi3iuVJDaa8g3VR1OoDfp/oGkFF +dgNHs7GyPFSzrPMdvdDizM/+8RyEhzgLee8f0Ke1s/RE8z/CRffCpViPN2gp +zA8gez9ir52smu1ADl6kJZYIsz4hjUxyeLLvM3b67XQRWOQhtkUzQ51djDvT +P93he9Ihkrd2PRtbhewzVn6nVQshTFNynN1agweC1WpDYYVgKSY050fVwqdW +0XNwcxE66/wX/pfBgOKDbxIDzcXIvO3XopHWhPGZuemn1pfg5dsdNP3bzeBc +fGLzM6UEoV0WnfvOtSDX89zD/qOlcCxalleANjitWLnux/gXXCXT7M0vdcIi +TbvnxKEyPGEH/We6pQuGarOiRKVliKsgdrtN7ca/f32N5PWvEDOpFjWtY+JR +RbKvcH45lttoLU+N6cFwYs7i7mvlqKoK+HWF34MtnpVsxmg59KuLpeauZ4GU +/G3/qb4CGxg6TsFdLKwx27nuSmQV+kyTVlRN5yBaxn0obLgKA6qPM1J3cdDV +GpxxyrUaf87v2Hg/joPwwFRNR9Ma7I4ZD5RV4aI2c0JCr/87vtXOvrhbigdF +THeWM6rFlnrvp44beDDVjV8X6V6L2R/c3Zr9ebgxnD4UUleL6Js+Eu6dPKy8 +1XjE7WUdXJZ7131J4sM56JB5R08dGl+vzEmo4CPSRai5V5WBDHG+l8EvPtqW +iLdsi2BAtjVi5MO2XpyvMLRa5lIPxfQlk5vZvXie9V735e165Ilf3yE+rQ+M +RHPJhVX1sN345P6nRX1Y4OmYp7q2ASapVgUbvftQIRluJKbUiPmvdnru4fVh +WDBTJmRbIzKfem/MlBBgHuMuf+h8Ix5KlAvXaQpwKiUzhU82YrD6gMnwHgFU +zNoVv5c1oXBF+J2z7wQgFnj0W/5tQqsJbZhZLsBRmYHK4hWUDwZtP97rFiCv +VSoiN6UZw6XfRDrTheAV3nI1bm6G6sLumlENIWY919jwQq4F39WfTaw2FsIt +cPnvpJAW8FSjRkbthLh2ML9+TlYLpFwj90d4CJGzyfLNLX4LzOycNkeeEUJa +yflohF0r/CvzKicShHideaXd26gNa1e9eSNbL4RAUXDNyrUNl9WcDn/tFkIv +0GqDfnwbbv67V6RFCpGyXuYRe7QNgqTDzA+SJDqSj+8pMmyH3/YEw4mZJNQk +qySTXdohzzy+nq9GIrb8mofTl3as9/utm29EosZQNGfNn3YYvhnRylhDQiZm +R/lsgw48KCydt92cRPjemYZ1MR34e2RBY4odiUD2zYGtBzqxvEiY0hVA4u2W +n48X3uzE1YYVJy+eJdGfbmMnWdwJcnDaZVY4Ca9TCu8L9LoQrURjcGNJPK33 +9Xrg1AXe1mNa0XdJ9KxiqIVc78L9Hbltw8kknP7GhpkMdaE0QtxWPYPEnUND +S5R0u8Ery2pryyJRX2Lb/dOxG5t0Vrm5vydhfVXZPKOgG8Q2q2dtRSSSZSov +K2xmIifItyqwgcQGs9ADF5yZuH1WZJPeQunjY2DSf4aJi84bQjI7SKgyonlV +L5gw2c+cYsohkSu5nm5ayoTMYt+QYj4JOxMy4UUnE2Opz/K1hSRuJVpvi5Lv +QW6rVczxARLGFRPavxf1oPW2m4TjMKXneMbYEYseeHfSp2n9JjHDRS7DIpBa +n9i6Z8sEiecx+eFvb/Zg2kOrnWn/SGwpPnFQO70HeltfWXLFRLi8sGbmZHsP +7qgXe0tOFUHH4Rz/xEgPhJfdaBwpEQqjjAo7ZrLwsFhuKE1aBOdPXYnb9VlQ +xuk71jNEmBDe8P20kQUNk8KSRhkR7s2D1aL9LFjEfTa0kBNhza5+nUR/FgyW +9Jy7PVOEpgvJ41I3WPDdHHa4epYIAW93NQQ8Y4F7uui8UF4EZc5kBqeQhd1C +vv9PBRHezn4TYdvGgjXNnNmhKILN1kPOxUMsePXZ789SEuFHkPzqZXJs0DuH +Qn2URbj2onBWii4bK5x3NijPFmFxx6nemQQbOpxZQ08p/ianXXR2Hxu5zacO +z1cRwRN1d0k/Ntw6rF+FUyz2+Nen9mg29h7UHaynOHGKRkfFUzbiGMs6Zs0R +wdhz49+P+WzMWhHGWkPxt3IPzfQmNrJTieBdFB8yvIbEfjbeJY4q2FH850bW +oUhpDix8fdW3Uhwz0HQxUJuDA00M8UUU69tNPD6yjqqbiR+MxqjzCnO1S+1s +Odi21mz6Z4od1bZyLbw5eKo849dxin+GekutiODAxcjDQY7iqK5bejoPOfiY +uul6MvU+rY3vLRXec/Cwbs+IDsUfnnQcFavlwHCalDCB0sdGSiK6v5eDLNn0 +r/8o/Xq99DK6xLlwND3KcqD4QqV1dfVcLuR3H455QumtauT3I28FFznDmQtY +VDwsh/KM7x/hwlelxXwtFS+mPWv31XNckKPrj+6h4hn0Ydrp4AQugk01M12o +eKef3ZPjUM7FgK5PgYOsCObMM01bWFw8n6eiYkH5pc086bfJOBfFv4rSaZSf +Zkj3rlVewsMU/qmbX6aJcCz2bEFtDA+XHUI2x0mIIDHyuJuezkOOgUHIUnHK +bw7fxDKLedCvM28pniRRoaFkcX2Yh6/pQeR3yv8Gz55/3ebIx6DbPOMrv0iQ +n+tri+f3wiDSQO1xL1VvNEcHstb0Qs9IX/cbj4TGRU2lR7t7UfdWYlMvlZ/W +W47an7/cC6lfqpZzeki8qv3Xasqn9tuc3LeylYQPdxE7+3UfLhfIrY78RoLp +3CpdVN6Hvo3v1JeWkbBtiTKq5vSBm+S9n1FCYk0lP5g7VwDPKbwTMnQSklmp +8iqRAqwde2+2PYdEYpj2hjMuQvxNWSc19xGJIiW1u//X+TIrcM+dQCq/tcP1 +utf8xB7b9+NXNUjckK9c/OjQENxNU09X+FD9oN2OLln1C8rPkszTqH7j+yXc +7aTeGC78bfgiJyZA1ilZW9Vtf1He2DP2/EAfHoUeFxg7iBHP0tu2TWT24lLy +xO5hUpzIX75oqUixF2L1TCIvRJLYKJTuKAjjQ9ffI8hu8VTCb17Yrn6qP3NG +EvbK5EsR6udyTK/s4MGKe+xsrK800XSu8aJ0Dhc7OTEGmpoziL9x8issaVwI +StwufHslQ8RrB3ZXUb41UmiaZ+EiR6wkYw3LFDmYgRHXjqGZhCWjYqVPHBtb +RU6/dezlCZ/PhYriVJ63FLuLOxkqENtAvI26xkJOVKmz1ogCsaDQKy5vDgse +UwOYNTWKxDPGjEnHBz047BeaI3tPiSienNGtYdiDpZ4GNdauykRc9f5TlYVM +fFc0lAlYO5sYvr6jxG4XE59fX7pvKKlChJVmLbWp7Uao+GKbqk4VIriabuf9 +qwszOkIsfbLnED5F9e+NdLvATdOOTw5TJco236hmeXUiXl9tykd7NUIj+k9u +S0oHYu55fHXVmktcH+Cc6BO0wyn+YI0sfy7x/mZQ28D6dvzZlDqaXKBOVBc0 +l4+Et4HNNQ8qjtQgkjc5Sr/ubMVjs2Xq1a7zCIUY7eK/hq14FRGg4LlEk0j5 +GOppca0FkfaHt0uOaBJy7u6DcYPNMOl4lB5ZPZ9w1I03m2/TjMRF919Vb9ci +bpTZyR/Oa8L5wuuJ2z9qEXyRGOeYVhN2qNunVizQJlTfqp7fH92IjT5f9ytc +0SaWac3pa5FsRLKG24KqEW0id1zPIcO/AQtKnt3ZuV+HWFlVkeA3WI+YJcWL +GQU6RG5Du6YooB4eQ1PqyhfTCFejcnvzQQbcsga1rtykEWKd+TeuhDDgfcl2 +wuoWjUjpdCgIDmIgwDa7WTaORsjKNekfC2QgaiTgRswdGuH/xv31dj8GXq8d +HU9IohF1pkqhCscYGC2abEp7SSPqD44qP9/HQAxD9nrpVxrB4S2dJ76WgXtP +Tnj9V04jpn95/ODPKgae+NdYWFbSiITf+nt/rmQgVyVmrLKGRtictD/DNGag +w0nJq76RRjh6BvuW6DOgx1azYLGp+5RvRjz1rzTODtF8yqURJSLugZsqDKyL +aB89wqcRqvLLs68qM2Ctl/SmT0AjNG5lz7okz4DfcS3NgQEasTzidfBpaQbC +1l8cfTtEI0Jjxw6fkmIgQo7V4D9CI6RW0yNPTGEgMfNJ9J8/NGJXSmKolxgD +jy9M8fw0RiNmxads9/hXh5e7j5iHTdAIpbPT7N0n6pCtUzZvwz8akTZcluA2 +VoeCId3RyUkaIYxvUXL9U4f/ATCpBbY= + "]]}, + Annotation[#, "Charting`Private`Tag$30696#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896375366032028*^9, {3.896380461509735*^9, 3.896380488983677*^9}, { + 3.896380542438208*^9, 3.896380549923717*^9}, {3.896380772596847*^9, + 3.8963807910854197`*^9}}, + CellLabel-> + "Out[203]=",ExpressionUUID->"90419970-bc61-4ca7-8930-155a52e41a89"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n cr\[IAcute]tica", "Subsection", + CellChangeTimes->{{3.898187418097776*^9, + 3.898187426945116*^9}},ExpressionUUID->"d27fab7e-7880-43b7-ab72-\ +955aaaa4a8be"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.898188010224617*^9, + 3.8981880107526693`*^9}},ExpressionUUID->"f35bda0c-8811-4e03-9971-\ +9439a20e928b"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsubsection", + CellChangeTimes->{{3.898187428153458*^9, + 3.898187432819869*^9}},ExpressionUUID->"1273cd7d-7380-4ae6-a979-\ +38bd72ad8e62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x", "[", "t_", "]"}], ":=", + RowBox[{"a", " ", + RowBox[{"(", + RowBox[{"t", "-", "t0"}], ")"}], " ", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "\[Beta]"}], " ", "t"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.8963751493504343`*^9, 3.89637516683323*^9}, { + 3.896380335028994*^9, 3.89638038103598*^9}, {3.8963806170003967`*^9, + 3.896380652743968*^9}, {3.8963808253019323`*^9, + 3.896380843260233*^9}},ExpressionUUID->"cd3c72eb-49f6-4296-92eb-\ +a5a3951adf2b"], + +Cell["Podemos hacer un gr\[AAcute]fico", "Text", + CellChangeTimes->{{3.8981874516175547`*^9, + 3.8981874581607027`*^9}},ExpressionUUID->"830de3dc-cb3e-4e78-9c01-\ +2bfa45873569"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Beta]", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"t0", "=", "21"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.896375180401723*^9, 3.896375234175416*^9}, + 3.89637589596721*^9, {3.896380346069969*^9, 3.896380353900757*^9}, { + 3.896380657087902*^9, 3.896380671455781*^9}, {3.896380849085065*^9, + 3.896380872172309*^9}}, + CellLabel-> + "In[216]:=",ExpressionUUID->"005602e0-9187-40cf-971c-b8b42c4d42dc"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV1Hk0ldsbB3BR3ZBCpUmGDpGQbhRF37eUTKkMKRpuyliZbqREAyqlkhQp +IVGGhnPSQK4jZeaYyjye4cXhOMYk4vf+/njXXp+119pr7+f5vo+yk5e1s6iI +iIiA+v6/xgc7zd1w8tY2K3ZE39SMkPmtTsnSXskdaZOXBghLIXOmKC9ESek8 +LkwqlD2LG2DG599WnKMUjqJSjxMvjATM00Z+Z8YVHyFY4/spySd8Zt2kW/Sg +YhrcF4vHbXjPY/oXK+gI6en41M06eF+Jx1xx/3u5wDgT2TUmkp9uc5lOGoRY +n+sbHOOwvuqd4TADMiWzhxsYuN68Rcqf6GL+1cJWEyhmQ3a/6vl012ZmY/5/ +fv092bDSOe6u79vETE+N/dpHz4Gp8QVu1qVGppWv1TG+cS58ip9a2CfXMx+K +5zzsdmWi+O6Scfv5dUzZJyWiQw0FyCk69M/d3BLm5IIPad6GX/FfBWugVa2Y +yb2SvG8w8Sv+dL0Ok4wtZH5wDX4qdP+Gs6ZbOmqvFTAdNupuGZgsxL05fqHi +BtnMpLIEnz7FUqgf1s/5UBHOHI19r9ERUQrtxtl9Q9OHmCau5ZzaiVKwHZY8 ++SgSgn6xcbucujKsC/7+l/e+BOgbWW0Jv16BI6H6wy1WDFS/mRJVE1bBNHDe +Q3ZdAWQhflRKuxphtjRvxfGv2Lomesv1k9UY/Piee1auEHdG00Yu1FTDrPK+ +5GOzYuje++HslFED5iSnXTWkHJfKNM03HKtDzWCFxPPUGrykf1yT8aAO6jMr +yMKVtaiN3SGmWkH517k7VndroeJ6MHeZwXdoPmOEv/SpQ5lYqLbIoh+4VZ4W +Lq7yA3JGLbJVRfXI8Q9OSzRuBKHiIjT9Uw9PpbzDXkmNcJccKi/Y2IDL4QsX +Cv80IrdpbtiHxAbE7U6Tkn3XBCf/v8fjLzQiKmsp135BC16/CW85rd2Msmat +y7si2sCX5UeYH2+GdHCHi0xtG9T8zbepRzfDZtcK6QG5diQaSiZxJpphzQ/9 +xo1vR1RphItDYQt8dRpTFyV1wJ9zd2j34TZIudTFHGV2gmEy+Ez1bhuc1vr8 +cWvphDBtn61YQRuE3rKbpMc74eYt8zFPrR2bfnFyDbS64PAn6qLeSDsyus9l +LHvQhQTJ8hCZXZ2YM1n7YdyGjW1GgYcvH+2Ei6ZKk7UHG62e6/SE5zoRQZCl +jpfZWFZ7i6xIp/aLrPsuZLBxL9bS7IZ0F9TcR/6ZN82GTtmU8vjaLrxNMNzW +L8MBazLzt7NxFzpuG1iEqXIgcUwq09i/C2LD0z7NFhyEqLIWzLR0YX1OUJ36 +Aw5W2wd3nxnrwsy/acqsVA7yb2jnty5gg/nj6KH1nziY6rvjk7OdjVnSnHfq +zRz4MfZ+93vBRpXRgcb5K7lwRc2jfl8Ods6dHbf9Hhciz37mtNziQCe7qOTz +Uy5iZ8u3lj3noCm5sXAmg4uSUheFtHoOErSTXnYXcqFuO/XMeQsXJhXJ8qbj +XOR/UP5ma8PFZ7ypVxbj4eDy3Tzj01xofLuvWbaAhxvt99RWU+dKq6kO31Dl +ocdNLbN9Fg9nv6acZe3j4XK5ZWXlCh5Ccq6laTrysEzbdyB3Iw/zzta1HnHm +wXQkV+cxtV7CLuut53lIC7J+b1/KQ/JzxdeDT3nwiArKq44kYZDvosBg8yA6 +9qyDmUbCfUtQaCCfhzj7EpE3BSQOxD+5pzjMQ5n8IuPboyQcpaQOT4iQWPfi +ZbHZwW6UZn4Mn5En8U2c1aPv042YnUvF02kkDp8eEVe/2Q2rNUVhf2uQiNiw +zXJubjdavWIkOzaR6P9cV12g2AOjKIXldCsSoQoTQ3T9HqxN2uV4wJaE/BWF +RUn7e2B1MiW19RAJSxN3u0shPRBsPFJ2+ySJV9XTTVu7e+DHLlSJCCBhslFl +UkOkF+KXzGOMg0i0PzCTX7G8F22bJFrar5BY4Bh99Jd5L7SG/lEruEnCk7eW +k/W6F4mL/Op3PibRebRp3pfSXuTVTmX6J5CwabyhXcntxXZ60NGbyST0y7vP +81bwIRaY0Hwwg0TGzpiEIT0+zgQecln8hoRCnknhn318DFua7H3HICFGT5GW +u85H0xPR10+ySfhr2G1a/YyPzp9xLd25JHqSZx/W/o+PEbGZH0vzSbAennhh +MsKHaL9vtFoRidiLytvOHesD604gY2ENCYmf1SdCLvThtNnnkpt1JIK8Loff +fdAHvUeJBwQ/SDg5dXx/Ud6H1do6Kz2aSXxvufP7HdmH378sB0NbSey226aU +P6sf7VG/z99oJ6FpGn+qcXM/Kp7atpmzSTz9YnmPa92PSVnWHgkuCZmtUx8G +z/SDbxiQ+I5H4qeWo6j4837U3GcvLOyhcvJCQn0Jsx8bPdRztfgkWpVy9ig3 +90OK88b9Sh+JL4uWPzKQFqCWNtbGF5DQvV2St2udAOUd5lqzhCRS5wZw95sI +YBG49K7YIInll9Ukjh4XYKVy1K5hyhET9es9LgpQfEs5qnKIxLTvNTv/GAH0 +7x99/2CYhE+/XuBVhgDuDDmh+QgJrjMv8U6lAPJhVsECygc6ooviegRoM9qZ +FETltuTgzv5UsQFsWOz7YJLy1toRmXcKA1ifERnjOkbitUXyZqbBAJ56P+J8 +oaxUaH2k3HYAD0ZLsiR+kojaJhrS4DWACoOkXTsoz/lEf8m5OYCU6b4qN8oB +G46zhCkDWDiTGxFMmZ8uPTqZPwD79WezQigfVslfPq91ANNCZnAA5ap4Lywe +H8C9LQmrj1DesVTRWUlWiPriE/UbKGdFsm5qagmxaH1W1U/qPmoSwW/1TYVo +nL5tnEk5LkSrfucJIeZU7Xaxpjz/T+vkvmAhQi3vn+ql3nfJP0L5yCMhfLZd +uuZDeVi4dbd7lhB/hZ3v5VP1Oened9qvSggT2f1FdpQb2HFRV/hC7GvdbMWg +6quqrdpaJDqIztJvdBHK7fypAUvpQYTEjiltp/oR++L7rLpVgxD9T6f8X6pf +Esqhah36g2i87n/r7QBVb8N764N3DULfQaa0nOr/tYNPN6+yHkQbb1ZqSz8J +0chPux1PUeetD2E1UfnJzyjc+/vcIB59PXS8pJdEcHGt/aPQQZRoLF6dSeXt +93S/a0P8ICo2mX20IUl8WvHbyz99EDEh1VVLqXz6b/orYMnHQazcZf+0hkO9 +94zyDZvqQbSP6Xet6SLR12r3skp0CLcH5EIdW0ik/3J667lwCPKP5H9UN5Fw +W+z9SUp+COMaas2GjVSeLG6WWOgNocjzXMDEdyrfOXk9xa5DcIibaziPRaIi +Vm1tfsUQpv7++3x0HombWbobjjUNYbcEz/Mq9X+bVm83mOYNoZyrW+eWQ83H +vw6bGc4MYW7+FQvFDyRy/SPdP20Yhh/rbYreK2qe2U6kvX04jOj4Y97ycSTu +SJdrJP0zghGlE+5uXiSyN696b+U5ArGgQXPr09T9jnphKnAEWu46xze5U3l+ +tcjWPmYEp4x3hAicqPlidjhIijWC7Nqa4eUHSBiHCKrObx3FtazwPUFbSfwa +W+hnLTeGK0opr4Wi1PxosWWKVfzEBnKfEfs6Dz6FoU5ear8RoGHxvPwKF3Tv ++TbLzP7grWdPQ+41DpICT/F17EWIZBMDRflANq4mTO0f7Z9FjJqp9u682QWR +uk4i94IYEVqmWG73shNrzroE2GrMIVzZ7m8NgzvAHYs5IPnfXMJNba5ga1cb +zHkeQVE+84gHf8i/Zxm0woobuU5BQYJ4X7VlruGbZvC/Ol0ueSVJfK23kjOz +aYK2TP0q42NShHmxHdEmaIAExo63jiwgfp0IkZRg1GO3wGF8tZ00IXZoQlPD +8wcaC07OctCUIZhX/83P3/4d7298O6o0JkPsT7oXclC/Di5z/DpZLFninW5Z +a69aLU74Br6fH7eIKJmfyli/uQbrXdexLI8vJhji9vIW9tWoktWU9DNYQpSl +jOwNZrPw+fXVx5picsTN7Jj4KYtKBM7S2FfRJkcECfUaJtLLIdF6wdQzaynx +tN9+lYp6GXipytEJF5cRdSkn+c61JYhWXz472245cUonwvnCv8WIjHMpPq60 +gtg+4cZzMyqCQ/QR1vzuFYTcU6HLjHwhfu1MmUjIW0kUSLul3hr9Cg5vR0DB +dXnixBGvT0kDBXhmtGFl5fFVhLzHgF1T1xe8CvOTcdVSIMTDQz3sR/Nx3e6E +hdiYAqHCkGCdXZoPvdaktOuVisSaK4sdVrrnIXbt41eVFkqE3kfvvaqNubiU +fzvWIluJULFxt+wz/Iw9K+1SylSUCa1XlS7nmdnY7lnsKBOuTCiI6HYHen5C +gryTSsWYMiH6sPD8tcUfofL1xUMrx9VE4mFdxx/s94jUKtCozVtNRIrbb79a +lAWXkdk1pRo04pig6KPNs3dwog8rhd+lEZtn0ke1Ehk4fdVmyvwejfCu8eot +f8yAn01Ww/z7NIJxbhvpEcPAjTG/O5EPaURYkch4xh0GXhtMTMbE0wgp8/2e +W4IYmPgyU5+aQSOcHksH33BgILJ2/u1vxTRigZn/2e4lDMQln3G7VkojTvdo +jqTIMJB8lmVsWk4jqtfu8nWWYuCDXOTvchaNuLsnzbt7NgOtDovc6n7QCB+r +dNfxETrUOMuN2Rwa8ctyocTuWjp0si4oPOfRiGdGH32XsOjYEtYy4dxNIyRo +oo3cUjos1eLf9vJpxF6p+zHXvtDhe0pJYWiIRjTrqnB/vKXjouGVCcYIjdgD +l3WZmXSESbG/nx2jEQ/X+ZwJeUlH7JvkW79+0QiPl2Oduol0PLs82zXnN41w +cJyQWfiEjoz9zjsuTtGI87rNhvwYOrJWF63aNk0jEl2PHC+6T0feyJqJmRka +cXGT6aXku3T8D4PnoOY= + "]]}, + Annotation[#, "Charting`Private`Tag$30934#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-0.9999985313980433, 0.717592098664208}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896380398649035*^9, 3.8963806719066153`*^9, {3.896380855073552*^9, + 3.896380872633449*^9}}, + CellLabel-> + "Out[219]=",ExpressionUUID->"a13cf0e4-2604-439a-9666-ed174c342b71"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes amplitudes", "Subsubsection", + CellChangeTimes->{{3.898187232597003*^9, + 3.898187239799897*^9}},ExpressionUUID->"638c735d-415c-4140-9361-\ +bba91a9a38ec"], + +Cell["\<\ +El par\[AAcute]metro Am es una amplitud que nos dice qu\[EAcute] tanto oscila \ +antes de amortiguarse\ +\>", "Text", + CellChangeTimes->{{3.898187267509201*^9, + 3.898187298979397*^9}},ExpressionUUID->"a3f33a8e-e7fa-489c-b7ca-\ +285a4ee12cc0"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{ + "Ap", ",", "Am", ",", "\[Omega]0", ",", "\[Delta]", ",", "\[Beta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Beta]", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ap", "=", + RowBox[{"-", "2"}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"Am", "->", " ", "1"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"Am", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", " ", + RowBox[{"Am", "->", " ", "3"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], " ", + "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896380450611208*^9, 3.896380487875456*^9}, {3.896380691504735*^9, + 3.896380730295944*^9}, {3.898187465425872*^9, + 3.898187469129538*^9}},ExpressionUUID->"4894f886-59da-469d-8907-\ +928111f6ebcb"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV1Hk81NsbB3Ca3BaRJWtZp1KRtKhUPN+QKLmppEvZbsx0iyiEdFMRItGV +VEQpEWVNUXrGEqEmWRrLYBj7kmVsY77lN78/zuu83v+c8zqf53mOhsv5I64L +REREvgnX//fEf13+2Hw6wsg95aqOqMgYlterW9qqn4Fv9oJjJqZjOF/x8Ya6 +uj+4RyqO7Qkdw0TGbTUx9XBQ9oorcF8yjucMfdxn1B5Al+UmJ5f5ccxr4Dyb +NEmAP/nv3/0ymMC5s5bscVoSiN/PcQi8OIGmX2PWTLOegpW3XN4O7gTWC+ix +Y2rpsGi3+QXdAh76Vqrqjea8hDz+/dpz/TxU/q+hZsQkEzZHLL2arzSJLhsI +yhAtC+iDokZe/pPolyleOMHKBdPHpcryulO4qLVLa0StEILixq5cPT+NTYxi +n+H+Qqgc3Oa9I3YaX6bGlw3lFMHuTcW7tr+bRqsLVo6DJh+gku50VO73NMYt +KYrroyEU7dA1yL02g/mXDly4qMgAu/NtKfzkGUwY3KHEC2RAMb38cTLOoEet +DG1iXwm84IwmKwpmUCbh84JxVinIy01E//pnFgWSBemee8rguaHhvaiQWey+ +lnJ4LLkMUlfYJ8YmzWIB7d/Ho2fKgaw2i1lSN4t2W7ft+in4BJ/GLoU16/HR +JFWj092pAh6NqF2x2c9HHaXlYSPlFVC6wVHir1N8/P17oHH4diXkO86HzYfy +8Ul1kteQWhXckI+JpjTxcTL+zYaOyCrYLVcYFj7MRzNaDbeOXwVzfmc07onM +4TBlxqaovho2804/NNOaw52GVrvCQ7/AmwDfGevzcxghfpoXOPkFLtVXxpoG +zWF7s3+mp/NXUN+vfYUZPYfBvs9VT+xmQq/Kf7uzs+ewNotcoDX6DboTf6d0 +Ds2hDCxxkNCthTVbFBQ+8edw99rYXaGna0GcrjdttUiAUZPpvIDvtcBd18I+ +qSHAbTGNri4Z34FUqXt7x1qADn5OxuzO7zD2zn9b40kBhjoOqR5XrIMHlgxp +Jk2ALRtFmyxC6sD+sXZjR6AAr1brHNjsWA9iytuJjBQBpuW8XZtxrx6KWN5v +8zIFWBdvTFnzpR5KK0JeBLwR4GraiQ+KBg1w8LG0iEWFAK2suPF3zzdAgqI4 +5whTgJf0PXyWpTbA4xSpdeo/BFhNCdYVkW2EXQVpiUt6BDg5KCkeYNEIz1QS +ZNcNC1Cl7kEf72ojHAq/d12SJ0DP5KzkvuFG2Lc8M2mHCInyhq0y3yp+wINc +q18KiiQSq91GzX/9AH0aNfw/FRLPiI/XlG5lwYdP1XodmiR+aP4jpCCZBVH0 +i2GDOiT2MmKc9VgsWKAQsShzM4nL01YZvZRogpNMJrF3O4kuvltmEgOaYG/W +zz8HjUiMPFVcr5DTBGyzo3XzxiS+MTXPjulrgliBCn3YjMTFsg5nQo41Q+kV +77lDViRumevfN3+rGeKjom6UW5No33lR07+kGdzp1gZyNiS+zgpvPafbAkPl +xcrm9iQOygxGHnBuAbX+xVWCUyRq+R4wWhfbAoz+rIloJxKT94g/4fJbIPjI +51FnVxLZSWePlOi0gtSP902PaSQqUb5QkhxbQSV3LR3PkHi3KtLN7lMrrDrp +eeuVO4lMnRGFnbOtEG/poRZ4nkTx6ENVctpsmA3a4ajnRaI571UA7xQbVBRX +f6q+QGLwcUmd79Fs+JpkU33Qm0RGoUfb6zI2BBmW9OT5kPhr1beoyGk2NKUZ +RFIukejLvTO+/2QbhMMGE3t/EnPNxp6uudMG2mK8LacDSBxNP3yMUtoG9LDA +c8cvk6gjkSPWOdkGfh2BdlsCSaR7Sr/9qNUOYkPoOiv0s3oveoJdO1xX15tK +u0Ji5/Y6pYDb7XBQp8Pd9F8SVR9uqbFltIP8OcmtNULb/bobqM9rBzfjHamG +V0mMc+JtlF3bAfMmsloJQteXHe0YO9EBgfBMtk9oKa38aGZEB5xS3/NZNYhE +y1srjDM/dsCDV8FJJkKHjXjzwsc7oH116ISN0C5p/9RtleFAdm6e4nGhRVqU +M55qc+D8536aqdBJ4jU3pPdxIPJwwDYNoY0ML58McuBAQcnO78PC+9ge2vqj +lziQLO1354XQAcmtEg4xHHgfKo/WQivWRfR+ecmBMs8br4eE7ymg7MHd5Rzw +zfv00kfoY/rD91+2ceCP/dfnR4V5TLgleCrNcEA2csGMndAx8ZYWYVKdsDts +V0uBMD+9alJjZn0nHBb7NkYRminInHM16QTD2JXXjIX5L3WUyDTx7QRHJxHN +e8J6pUUXB+fe6YRsI/nCdD8SzUrdT2mkdwJRNPgjW1jfG2uYkvOtnZDW9Tb1 +vrD+mrb/9rlPdUJgWmXjpf/3R5gugy3ZBXLFzJCDF0kkh6K8ivZ2wd/MyuNM +TxJ9cv9s8HnRBZpbrlHMz5K4ons+s5vRBTGZOuHVwn7NlcsOOdrSBd+PiVgb +00n86Se1Y7MEF/wdF/nICPudBt8fDF/ggp9kQ+AuB2H+T6eLWiO4EBbrmOVz +ksT4havY1c+4kKkfRkmzI/FzlZtq+g8u7G178m7iOInrjpFPXXd1A+NRdvnq +P0nsp2tltov2QJJMVNwq4XwH1Vh+/arcA/qtx1XZu4X10L3w88PWHhhJNFG8 +Z/D/+fig98i1B9xXD3B420hMv3LkjW1VD2g5ESvp2iT+c/fKx9roXjBXKdQ1 +VSBxwdTTDkzvhU0W9dFpK0h8aPtZJKu0F2T/GtBcLENi9SpZk9uTvZDIVdle +uIxE7RdplRYn+sCUXP6oR5TE4ff1taVq/cBPZK8PGBKgR896bv7rAfjIdzeW +/yBAjkPz4pKqAcga0Df69E6AR5vCdL92D8BPda19XsL/eGdNn3+P8iDQHv96 +x3gtQErOcyn50EFIcsoQgycCjA/UMLrkOATWKZqJFSECLJFVemAgNQJv2zw4 +DocEuFQjWKtj5xg8FPFO7Wuawyipmg1PnHig926rhL+Ajy6tx5DyZRqWeLat +dJLko9enYJfzWnPg+1vsEejMYo7nsqOKFr/AXZXnpOA0g08unx3UsxUhbBZy +czfemsbrSaT15LAowehVfXmiagpF6jnEhwAKQaMEh96WmcK13m5+xzaIEYvY +dzPJI5PYPXX/uHjxH8TMJrcJp1QeHuj558pdr8WE+gm6UvH4BFp1R2urqi4l +4gS9NwvMJnCwzCXo8ytxguF5WPxF5jjqSv9QMXGUIJxc28IsxMdxKUw5s3mS +hMw3x/vt/mO4f8RuRtNGikj9q/ZsaNkoNpWeFrXTkSYqVBxpYSk/8U1YuYP6 +lDQhtc77pFTyCLqJ+XCYTBlCZk2hyfnoYfz7wuU3yx7KEryZoZmER0O4iabN +tHReQdxcbt8QlTeI32R0xH0M5Ij3UpPZZxkD+P719Uc6FHkiKX7SzKanHy+L +bjj8pU2eMCweb1UU6cel7ABzj3wFYnPal3BprT7sSdWITQpUJNa3NAdG/d2L +seuUFhbaKBGndWoqauN6MPqhW6WzujJh8yHUyrK9G+1iTzGX9SkTjUEyW1w3 +deOs6XN+0seVRN7tVr8Vflzk9hj7lYauInJtLQoG6rrwqeHmlV+dVYhLjEKN +pWu78FWIjzRtoyoR+m1mbsetTgy1+fsgZUqVWHwsrunmNAf12U/SQ7+qEduW +ZcrU2nMwfv2jV18PqhO3nuVhVXIHXmXcjj9YqE6oWic9VLjSjodW2jyvXq1B +mM0QWmP0NtzrUWkvHa5B1M1WMNZ4sjFplcvqL1MaRIxu76aXZ1txddmLOCt7 +TUKjeudIT1ALRm8s3VD3UZNQvKNZ5PC0Gd14C79XbaASzlNxdzYVNqFLzoR6 ++B0q0WBbvUy2j4Xnrh8lD8RQiatD+zv9uCz0OZrPWvYflciQRKKjg4VhUz5R +0XFU4hphlvyqiYWvDfiC+4lUwiHNo+NwNQv5JfM/UjOoRP7D7oM5r1gYXbfs +dnkllTA3nTjY7M3Chynu9JtVwvPOHrA97MXCFG+miXkNlZASXThU6c7CAvno +uRomlUg0tsh458ZCtp0svb6RSky4tUUmn2ChFlfJpItLJQ7cIkrD97BQLz9A +9VkPldCdkj2wxICFu0Ja+a59VGIfTfSvcH0WWmolZg8MUonOiSbxCF0WXjir +rjo+TiUsrPeWxaqzMHDPNX4uj0rcDc+4pqjCwhCJrgbvKSrxZs/tigQlFsZn +pUTMzlKJyEVu3FQZFj4NWkgrmqMS3ORt73WWszDD2tU4kKQSnu/WK+WJszBf +s0LF6DeV8JXf/MtgMQs/8tby5+epRMTN7bSShSz8HwrG8O4= + "]]}, + Annotation[#, "Charting`Private`Tag$30557#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3Ci8ZRMia5MpyhTgxQa3h1dmSpCupJK5ZBIihTCjQyRoS4q +IpqESqQIr6HBkCHkmDlTZMg8HFv57d8f69nP55/17PV9v2spOlw4fHaBgIBA +E7X+/0267rBoy5lbe5oahK8ety8v/tioYGaj4AzrN3g/xvuPcP5z8Q0FhavQ +cOjpmN/FbEwqiZRfqBAGnJGIrc8VSvH8bk/Xafl7UDRh7VwQVI85TT2PJwwS +oanE/Qmea8BZF7OOUUYyLEeB3x37m3BfTcz6KWYqiN7MEhTsY2Ij6XR3RD4d +Zjy0RDQ/dqHXF7nNw9kvoPPNvsBErR5cc6epesggEwwWmq8yFGShgyohNMB4 +Bed8Dhw2jWGjdyYtf4z5Bl7GHb8+GczDxe1slSH5fFDNXuATU9ePLSVFnoN9 ++WBv0j3Xf24AXzxNKB/ILoDb6+49sBcaxIMeB0/0GxQC//rxBxVqQxi3tCCu +l4GQWsAoXWo3jLlXTDwuSZfAptjn0/GsYUzs3yEz7lsCh6X6nlhsHUG3enHG +2N+l4Jn92P5V9giKJ1YsGGWWQSQItB5IHUVSJC/dfVc5zN14kJTWPorcwDTz +kZRyWOI918KWGMM8xvWHw84fweJizZktgWNoq7VN7xf5CRYECDTdOTSOj6qS +Lw7IV4J74qE2C5zAiYS3qt0RlRBoo6HNHpxAQ0Y1p4FfCWn9f2/wk5nEQaFp +64LGKtizPTKNd2ESdXYf1AsL+QpM/eDwebEpvEU7M+478RUGw98NnNaZwq7W +q5nup2pAgjenN3V8CoO8nsgd3VkLUptnCnOfTmH9q7kFKsN1sM0r6sPCTdMo +DkvtV2jWwzs7z3DDQ9O4U/muXsiZekgzXRne6DaNtyfSx699q4eYxgxud8Y0 +bov5ftYh4xscbC5hycnNoL33Sf0O1jcIl14UIac7gyEnBuSOSDfA91Xz5kGW +M9imIdhiHNwATQLu/MibM+hfpW6y5UQjePBcjH7yZvB59jvljP8aQblcO895 +bgYbEvSF1n9thAO/2i84ivNxHeNoobRuE+h/EuZ07eJjlVCQpoDEd9hhKcta +GcHHiX4R2jXj7/CrKkfh3UM+rm241zvu/x0aL5tnDb3mo3vKq5Tewe/AmJc9 +ItbER6nd7eJ1n5uhw8Vju+uqWSTWOQ4b/W6GoKc7fCvXzaIzbbS6TIsJBwqP +WX/SmsXC1kXBeSlMOK/NVUszn0UHr63TSddaQIwjY7vx5ixGHC9qXJ3dAjm9 +zq65sbP4dp/R65jeFiDU5oWGHs7iEgl752CrVtBw85J0zZvFl6/C2s9rtoGv +4embjaxZ7BfvjzA51QYtJUtnTQdmUcXLZM+Gu20QZH2t+ebELKbsoj3i8Nsg +qf6yrtEiEmMrIxxtP7WDx+GQxNUqJNaqD63WmWmHrbEG7qWaJNKiD1SuUusA +C12D5du3kxh0RET9W3QHpKRkXbqxj0QvTtTofrtOcMqTHaiwJ/GN4Ujq+qhO +2OE/QuOcIXE43dxKqKwTiq9FaNWdI9HJXexdsUoX/Fpm+FPBi8THjRedEm27 +wD51SirUh0TW9gaZa5FdIGb6PvxjAIm2v2N9tce7YMBm+7GScBLjTo5rSCh3 +w4HB63qBUSQ2llt2jxztBj87sbNr7pJoFi6pn1ncDUzjZJ+WRBKTadU3xP7u +gTrnAcn4TBL37PaxC7DvgafnRWo0XpPY4aamPXylB94+zNiVmkOidMOtH19f +9IByf26xcgGJeUK7cOfHHsh31VqiU0SilfZg/IvOHrCkuVzZWEJiTIKZcago +C8JqRqVefSJxc9Wc4vRGFtz1T3DaV0HlSWbOnjVgQe4LVCqsInHZiRWZBl4s +OCOnNG1VR+Lz6KKgN1EsoN24LnflG4mGZa7HFdNZcFItt8KvkcQb62tF5ttZ +cCPmyxM9JolKNtd7XSep/Q35DaMtJJaEapZ0iLChQ730SlQbifYFXQmmG9jg +TxbRJDtInBu4fbFgLxto407CAZ0k3l8LJhuPsYH9Tv57YxeJOoeGlRIus+HC +vMbwyh4SPd8cavJ8xgZcc6JAn02iJHc+k1vChhN2kvv0ONR8V70OtmxjwwKV +oxV/cUk033/SvmycDda5z172Uv7lLbpjywoOdDU9tnvIIzHiRcnKFGUOXPKS +2078IFG1w71PhOBAhpBMUg3lihWKpX7/cCAnsXnUsJdEBny7N+jBgUjV7thM +ygKpUwXttzigH9Tg9ptygrBsR9VjDlQJb1i2q4/Km7H3d34RBzp5RvlOlCsq +HeXSmzlgIKtUd4PySfUISBjmwH+L1ZIiKc/czj4ZsoQLf4TOX7pJOXq0OdBL +kQv7u4JS3ChvsJpLPavHhWHVnIuGlEvyFD9aWXIhJ6BlqwjlozL7eQbnubAq +PkDzM/U/Iz7nF2kFcwGMe7PcKId2xagoPeRCv9+fmcWUFfa+MxJ7x4XXE5eO +xFLnfZ/W4SxQzwWCn0cToWy+aMGt4T4uNMz9tvOh8upzUsnsEuRBhJRZZBuV +Z0C1WU3NGh6scPHqUqMsrenxq1CLB/d9NsZcoOZhNF64+cFZHsy1bpKuY5HY +Y822CL/Og29e4DRAzdP7/eJLV+N5kOxkK0Z2k5jud/itTSUP4hPsbSepPuj3 +XGk2ZPMgdDrEtYfqS5t+0rQ2yQOOjmEJtlN9XdKnK6nxA+7oCQvYtZJ4Ltav +uD76B8SYvs0RbSJxwWRqN6b/AIvSgv/SGqh+2VQIvCr7AeX7Vx5Rp/pcJSth +EDnxAzZbSm5WqCVR7dnzL8ZHe0GscK953BcSBz801pfJ94HWznoe6z31vsjx +R7N1+kCBb/tPbx6JsoFyEo8s+uBZzhpTXi51vw2drf1v9MGpU6E61dT9zar/ +07qztw/Yyo5CBs9JdONt5OS+/An3cjsy//xH5WHfuqS08iecj/8nmHGHRMuW +UM0a7k9Yr6nQVRlN9b+69ypvTT9I9H2753OLRKHsJ6JSIf2wqD+0OY56fxJ8 +FfdcOTEACQZuZl+cSSyVkLmnKzoEh4VF+FU6VD6KQSrdOiPw4dyGnsqaWbwt +Wq366OQ4mNPGLoxP89Gh3QqFvk5BHumabreCjxc/BTlcUJkF1xCXneNqM5jt +vtxS2vg3eDsGzfw5MY2PfFz6N9sIEIxijSTl8Cn8N3nOYmJQkJB/EO12pHIS +BRp7iMJrQgRT1qAuQnwSlS87elupLiSaBFO85g5PIHcy/gitaBHhuZhgnXw6 +jia8c36xF5cQ/i2XJYtGx/AgN1pNTm4ZcfKRe3Ce4Rj2lzsEVGTRiAJGy7Jn +maOoKda81uDECkLdvSDUmDaKy2DyVMe4CBFaahXfdXUE9w/ZTitZixJhAlUu +IeXD2FJ2RtBWXYw4ThxnhKb9wrehH+0VJsWImqhLdqIpQ+i40LOntlacmJ55 +b3AhehBPe/i8XX5fgpDsH5hOfDCAmxhqtWanJAlR2rGm2zn9WCeuTvPUXUW4 +rpx47VLyEz+8/PeBupAUoZ0wYWjN60MfQVXzr51ShHzRaLu0QB8u67hm5Ja7 +mtjw/GuYmEov8p4q3k32lSaU21p9b5/+gXc3yAjnW8sQp9WrP9fH8TD6vuOX +UwprCOvCkINmXVy0vXu8dnnvGuJ7gPjWs5u4OLPvCT+5+C8iJ7LdW9Kbgxye +vndZiCzxxsY472cDG1N3b/mr5tRa4kpJvuIyZTZmBXuKMTTkiJC66dkd4SwM +sT5tKjQpRyyximu5OdWD2h2P0kNq5IltyzPF64/1YMLGB1k1pgpE+OMcrEzp +Rv+SyATTfAVCziL5/mq/Ljzwl/WTqnWKhOE0oTLi1Il73b4cEwtTJBpmPpes +d+/AZFmHdV8nFYkYzR+bXri047ryZ3EHjykRilU6Q7yANozWKFNtKFYipKOU +CuxTW9FxXPhbpSqdODUZF7UpvwUdsscUwqLoRJNN1XKJXiae/9dyziSGTvgP +7Gd5c5joaZnLXH6HTmSIINHdzcTQSc/b0XF0IpAwTMlqYeJLXT4Zn0Qn7J+7 +dZtXMZFfOt/8NINO5N7nmmZnMTG6YXnkxy90wmjfmGnrZSbeT3N1ullJ7edi +YmN+kYlpl2sNjKrphKig8MAXVybmSUXPVtfSiSR944z3jkzssJVwavxOJ8Yc +OyNSjjJRhSNjwObQCZNwoixsFxM3516Te8yjE5qTEiZLdZmoF9zOP9tLJ/5m +CP4Tps1EM5Wk1z/76QRrrIV2S5OJHi4KcqOjdMLYYm/5XQUm+u4K5L8ZpxOx +YRmB0muZGLyC3XR5kk683RX5OVGGiQmv0m7NzNCJiMWOnKfiTEwNEGYUzNIJ +Tsq2D+ormZhhcVbfd45OuL/fKJNDY2Ku0ue1e/7QCS+pLb91lzCxeFyZPz9P +J27d3M4oFWbi/wB+Gjay + "]]}, + Annotation[#, "Charting`Private`Tag$30557#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVlnk41dsXxkVJSKYy3IwnKRlSKUqtb0imNEiJEirDpaRSiFK4xoQrScpQ +kaGB4kauJdwKh2ToyHg4kzHzcM639Du/P/azns8/ez37fd+191Zz8z1yTlBA +QGCIv/5fH91wE9Y/G7vHIaY5b+H3ONS2qtocV/WCB8UeJbr2P+D3x8owVdVA +YIdHnlEsHoVHVXdUlqlGQ40X2y7y9hD47PY/P6/yAESeiRwXDWLAmzb60xnT +dKjXX07dtWIAeN423ZMeGbDC163qjww6mDUmaszRsmHNf7zP3RVd0Ep6Jk+o +5IG2cHnhqUNf4eon5c3jRfmQtz0t6HZOIyj+3dYwZloIfnptBy7XfAY3LUJo +xOMVcMbN3zvfroSAQrGyKVox7FWsZHfM38PlXQOaYyplkPenxcz+0K/YUfWv +/+hgGZy6kafe5NiK+TmpNSNF5WDb7huWpd2OtpdsTw+bVkC9w4xKY2kHpqwo +T+F4IDwUY6s6e/Xh22tWly7LV0H+vpRc41t0TB/eoTAdXAVNkXKOy6z68UKz +tMfUvg8QufSNYVzzAEqnfxacpFWDSNtaE+M3LCQlSvMuGtfA8+Rpa78zbGTe +enJoIrMG2kt3bXST5GCpx43H4161YKv3/GKxyyA6bt228wf5H9xQlob07mHM +qs/wG1Gpg3KztRbEgXGcSS3R6ourg6StpjX+neNo7tHAaOHWgfVJdb1zWyZw +VGjevry1HmwCSwrD302g4W7bndGRVOCJJiu9eDuJsWJnp4NnqOBqkmsSNjGJ +vd8DCy+6NoJwWNOC0qYpDL/6TNlhVxOYm5zaU5Y+hc2vfgpqjn+BMFvV1o2X +plEaVjiv1G0Gi8jWX5+eTuOu9ck7I882g7HeDyWHb9MYP5M3HfS1GXbfCBl1 +2z6D2xLbz7kVfIXM+FdiL4dn8Ga9tpX+6Vboe511SHPDHD4v+md9wb1W+Pvl +3FsVmzlsSTUR0qC2wvfVWwyP+M7hOg+HCnmjNtg5Ov/flTdzWC8Urisg0w7b +Ju6uW7N1HmeGJcSCLNvBKKBBx/zwPCq1POBM32wHRxexDuqFebyY+SqTM9oO +0eN3xEdy53HN7i7pLx+/gapGim+19AIS69zHLX59g1aWte/vTQvoJTbZUL2V +Bj3Fo4EFZgtY8V04ojSTBtaC9l+criyg29Ut84+COqBvzb6zno0LGHfq31a5 +og6IiQoV8RpYwBIzi9eJnA4YdaRnjM0toIiMs1fE0e/wwDlAN06Ziy9fRXf5 +6HbCys8iU86eXByWHo6zcu2ExAeim9IDuKh51WrPhuROsKw2Kw+O4mKmsVgW +g9sJ72zVwnRzuZhUF+fu+F8X1Fk8fnmLzsUm7TE5w4UuaKDJfxD+wUWxhAN1 +qzd1Q/6kbdkukovhxyS0vyZ0w+WsZUrvZXl4lXF3cv/JHrDQWfX3djMeFptP +ZGvc7QEz7hjT9SAPx/MOHRWq7oHV59N5+x156HlR6p9KzV6gaVF9LH156Pgr +Kdhguhf8zhtImqbwMMVlWkdmfR+kJQ8fcM/gYWuNXd+EQx+EBN4oPfCchzYx +siaFlX0gxy47fr6MhxliDWFS++ggE3ZyVvw7D/fsvn4y1JkO9+WYny/Qedh9 +YZPB+DU6UDf1DaVzeCjfEsum5tMh+gy7yXWWh6VCxrirlg6LmlnneCQPjxqM +3s/voUP2F7txN0ESE1NtLKMk+6FdOs8uV4LEzfU/1eY39gON60oPlyWxiSzk +nTPtB50PZ2oNFEkUPb2y0PRqP3h2m1JlNUgM02iS+N3VD84E7WmPIYnqx29w +zs/2QwFTq9l7N4lVUbpV3RID8Cz9jVfrXhJ/jsT7le8dgBI50WJ9KxLTlMBq +o9MARIvqVG60JdHw4Lh66pUB4L63mf51mET/4oNt/rkDcEpot9/uEyTKMn8X +MqsGQEf852LeSRKLV7+OsOscgG3cVzB7msQfAZI79FcywNTKxEzLncS4/KpV +mesZUHj35PbVXiRqdV8clCAYwGj7uaPfm0QP+Ppg9BIDssyHnyv7kSiQPVfe +FcuAxcv7dCMuk5i6dG13/VMGsFs/STb7k/i5zl057xsDzJ2yWbJBJLpox0Hq +OANo6dlNq4JJXIgvcokUYYKvpq7gZAiJG47+zD63kwlK5SXKnrf4epSq1R61 +Y8KW1ZfGFm+T6KCwn2Xqw4ROpk1LSDiJE9d9hLdGMGHmnw27WBEkRvUmaqo/ +ZkK8Dvdvg0gSVff+YyH1DxO6njeY+0aR+O5Jt5dAMxPme768T4om8ZCwYOz4 +IBO0DV1OZMaQOOipWdi7hAWBiqLhqbEkhjbYNDYqsoDBu/f4ehyJ8rqXflRs +ZcH+E6tEre6Q+Drh/qpCGxacTqJqLI0n0WK6YvPDcyyIvXv1YD6f6fYDh2Nu +sGDGTpJhfJfEgHfLLwfeZ0Gtx+LOCj5L/qGT7PmaBWw1idcbEkjMCzlScryO +Bcu/Bj+4zWcT+rVv5gMsOFa7aFPP506TR/MGJAvSt31UFkgk8dKzankNWTZo +ScS4ruOzqMigkawOGw6kx7nv4HP2nyudhMzZ8G5NdogRn3c2bgmecmaDu9SO +WS0+t+g5POq/xoZbX44pivP5z6SQyuYENnQGFhn28PsJzmb3YR4b/I2y0x7z +Oe34Z4FX1Wy4st0g+hCft5SPqT3uYoN+sI7NNP889WtlTO/MsKGmWlQrks9u +Nw3PBq/kwCnlVZ7ifOb1n4rwXs8B03tmVmF8fZLMwnIcgQOh6bdlRvl6bsp9 +/snSgQM91y8v28/n2hVNg4Z+HCh68MAlma//SZ/pFRtiOEB9efRsG9+fOP09 +NsIVHPBuCTylw/dvXfKZ87NtHCgJplDN+f5WzEXFM8c4cFFppN2O7//o+9bm +apVB8OmoybL8i8RwZe5kkeEgCCyrbdvCz8/aW8oyWYcHocCzLlySny8bcy/7 +m2GDYCj3a0s+P48vmhe/7+IMQkCBu/9Jfn7Nt64jtQSGIOZXs9k4P9+99yzX +KioMQdTNp5oBgSRKOCU7L1gNQVOn2oDPVRIvsDYy3r4cgiu+1nIcX34+nL+L +fKgbgo37QqgrLpBo1xGl28gcAqddCtfUffjz3cAJZCkOQ4V+TtB2TxKFip5J +rokcBp/L7rk/+PObGqy259rpEaAzyshPB/j+zzWfCQsagUQBfVMXaxJDfEOj +794bAcvskoOTFnw/3PrachtG4I6p1cFFUxK1LR55d+wYhRUaPsxPRiR+kFF4 +YCQ5BqNaL6R2rCNx253Plfs2jUEG58WitxqJOcIBzMPmY3Cw5NCHh8p8/bnf +9P4MHoOJ9vzto/IkHutL/pg2OAYaSZlNditJHM6XnCGrfsArWB1ix79fRdXC +NfsMJ6CnrVuhsJqHn40T9W7smwDqEXp6JvLwL4fHO5SOTMCyzeFDSRU8FEx4 +t9/JewK+ZgRL+pXykLc46kF7NAH676i9svk8HOm2f/5FcBKumrQpL03kITVV +c2MVdRJan7Xk1J7iYbxkg1aWyzT4Or9uOT/DRbeuoyhEnYOzkYvbT4hz0e+/ +cDdfTR6ckfzalcN/n4suitvJW/6CiJerE9in5zHruvfw5uMCREBAQKRKzBze +zvh5eGZ0CRF6UHDr0bpZFGilExVBQsS+7YJycdKzuP6Ke8BRrWVEluYL4ueR +GWTO3j8m9q8wMdmr0OySM41WrD9DkvxEiB6HW6v+nZxCW2bCJmVlUWLDfl5Y +qfkUDte4hX5+IUaUOLuI5hZOoq7UNyXT0yuJhaD7UZZikygKs67d0xKEwFvL ++72BE7h/zHFe3V6S8Mmt8Y6sGceO6rNLHLWliDk3J4+oJz+wJKrWWXVWioid +v3RSMnMM3Zf505uapIlu6jtT34RRPHPpeol4mgxh0D0yn/5wBPU8NjXZuMoS +acJObfFvhvGLtLaYv9FqQkVi5rV31RC+f3n7obbQGqLh/oy5PWsQry/ROkTt +WUMI/DvZJS8wiKLdQRYX3soRKs+p0VKaHGTlqCVnBMsTlM7vwfH8/2nyBoWl +ZfYKxBntho/NKSxMSHP/5KqqSNhXRNra9DLRMflUkzhHkWgPld5yTo+JC2bP +uBmVfxBv7nQFyAYwkMEyCaiOXEsUH7csHWoZwOzd+n80uioR16rK1ETXD+CL +CH8pDx1lIvLLPG9HTD9G2p+xFppVJkSOpnT8NUdHg+6svMhGFWKbeKF0sxMd +Uzc+fNForUrEPH2DdZl9eLPqTqp1mSqhfDgjTS6kFw/8Yf+sfp0aYT5PaE54 +9uDeC5+cpKLViJaFj1UaF7sxY63bOuqsGpGoy9bL9+7CdTW5KbZO6oRaveEY +K7QTE3SqtVoq1Qn5u+rlztnf0X166dc6LQrhOptyV6+sA92KplSj71KItuP1 +4jIcGvrctvtplUghbo7s7w9g0NDf7i1N/G8KUSCBRF8fDaNm/eMTUijELcI8 +80UHDV8accn7jyiE8/MLfYfqacj98PtbTgGFeJvGtC56QcOEFvE7tZ8ohIXZ +lPX3KzRMe3Le8686/n7eVscP+dHwyZUmU4sGCiG5ZOnIp/M0LF2TwGtoohCP +TCwL3rnTsNtRxrO1nUJMuffEZTrQUJOhYDrAoBBWMUR1tDENN78NUn7KohC6 +szJWK4xouDOii3uOQyH2eSw5EW1AQxvNR6+HhilE/1SHWKwuDS95qypPTlII +y8N7a5JVaRhsfItbPE0hkqILbskr0TBi5UDblVkKUWJ852O6Ag1TXz2JXVig +EHHL3Rk50jTMDl3qUc6jEIzMbe+1V9Gw4PA5k+CfFOLiu40Kb8Ro+Fb9o9Ke +RQpxdY3+LyMRGlZOr+f+/k0hYv/a7vFhKQ3/BxqHzWY= + "]]}, + Annotation[#, "Charting`Private`Tag$30557#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 10}, {-1.7813321080131281`, 0.9999965016070957}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896375366032028*^9, {3.896380461509735*^9, 3.896380488983677*^9}, { + 3.896380703982229*^9, 3.896380730723392*^9}}, + CellLabel-> + "Out[192]=",ExpressionUUID->"13313e39-9dd9-46c4-af2e-e6083d84f78b"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Diferentes amortiguaciones", "Subsubsection", + CellChangeTimes->{{3.898187122863616*^9, + 3.8981871286853933`*^9}},ExpressionUUID->"341d659f-0609-4c33-8455-\ +b884182fbe6d"], + +Cell["El par\[AAcute]metro \[Beta] es la amortiguaci\[OAcute]n", "Text", + CellChangeTimes->{{3.898187131566989*^9, + 3.898187148566062*^9}},ExpressionUUID->"b5f51c8f-8e08-48ab-b3db-\ +6e739021343c"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"Clear", "[", + RowBox[{ + "Ap", ",", "Am", ",", "\[Omega]0", ",", "\[Delta]", ",", "\[Beta]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]0", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Ap", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Am", "=", + RowBox[{"-", "2"}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", "2"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", "3"}]}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", + RowBox[{"\[Beta]", "->", " ", "4"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", + RowBox[{"AxesLabel", "->", " ", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"PlotRange", "->", "All"}]}], " ", "]"}]}], "Input", + CellChangeTimes->{{3.8963753168542557`*^9, 3.896375355310175*^9}, { + 3.896380450611208*^9, 3.896380549178166*^9}, {3.896380753230626*^9, + 3.896380790374412*^9}, {3.898187535688385*^9, + 3.898187537089004*^9}},ExpressionUUID->"d2b678d3-001f-4866-8bcc-\ +0dc6d237808a"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV1Hk0ldsbB3BR3ZBCpUmGDpGQbhRF37eUTKkMKRpuyliZbqREAyqlkhQp +IVGGhnPSQK4jZeaYyjye4cXhOMYk4vf+/njXXp+119pr7+f5vo+yk5e1s6iI +iIiA+v6/xgc7zd1w8tY2K3ZE39SMkPmtTsnSXskdaZOXBghLIXOmKC9ESek8 +LkwqlD2LG2DG599WnKMUjqJSjxMvjATM00Z+Z8YVHyFY4/spySd8Zt2kW/Sg +YhrcF4vHbXjPY/oXK+gI6en41M06eF+Jx1xx/3u5wDgT2TUmkp9uc5lOGoRY +n+sbHOOwvuqd4TADMiWzhxsYuN68Rcqf6GL+1cJWEyhmQ3a/6vl012ZmY/5/ +fv092bDSOe6u79vETE+N/dpHz4Gp8QVu1qVGppWv1TG+cS58ip9a2CfXMx+K +5zzsdmWi+O6Scfv5dUzZJyWiQw0FyCk69M/d3BLm5IIPad6GX/FfBWugVa2Y +yb2SvG8w8Sv+dL0Ok4wtZH5wDX4qdP+Gs6ZbOmqvFTAdNupuGZgsxL05fqHi +BtnMpLIEnz7FUqgf1s/5UBHOHI19r9ERUQrtxtl9Q9OHmCau5ZzaiVKwHZY8 ++SgSgn6xcbucujKsC/7+l/e+BOgbWW0Jv16BI6H6wy1WDFS/mRJVE1bBNHDe +Q3ZdAWQhflRKuxphtjRvxfGv2Lomesv1k9UY/Piee1auEHdG00Yu1FTDrPK+ +5GOzYuje++HslFED5iSnXTWkHJfKNM03HKtDzWCFxPPUGrykf1yT8aAO6jMr +yMKVtaiN3SGmWkH517k7VndroeJ6MHeZwXdoPmOEv/SpQ5lYqLbIoh+4VZ4W +Lq7yA3JGLbJVRfXI8Q9OSzRuBKHiIjT9Uw9PpbzDXkmNcJccKi/Y2IDL4QsX +Cv80IrdpbtiHxAbE7U6Tkn3XBCf/v8fjLzQiKmsp135BC16/CW85rd2Msmat +y7si2sCX5UeYH2+GdHCHi0xtG9T8zbepRzfDZtcK6QG5diQaSiZxJpphzQ/9 +xo1vR1RphItDYQt8dRpTFyV1wJ9zd2j34TZIudTFHGV2gmEy+Ez1bhuc1vr8 +cWvphDBtn61YQRuE3rKbpMc74eYt8zFPrR2bfnFyDbS64PAn6qLeSDsyus9l +LHvQhQTJ8hCZXZ2YM1n7YdyGjW1GgYcvH+2Ei6ZKk7UHG62e6/SE5zoRQZCl +jpfZWFZ7i6xIp/aLrPsuZLBxL9bS7IZ0F9TcR/6ZN82GTtmU8vjaLrxNMNzW +L8MBazLzt7NxFzpuG1iEqXIgcUwq09i/C2LD0z7NFhyEqLIWzLR0YX1OUJ36 +Aw5W2wd3nxnrwsy/acqsVA7yb2jnty5gg/nj6KH1nziY6rvjk7OdjVnSnHfq +zRz4MfZ+93vBRpXRgcb5K7lwRc2jfl8Ods6dHbf9Hhciz37mtNziQCe7qOTz +Uy5iZ8u3lj3noCm5sXAmg4uSUheFtHoOErSTXnYXcqFuO/XMeQsXJhXJ8qbj +XOR/UP5ma8PFZ7ypVxbj4eDy3Tzj01xofLuvWbaAhxvt99RWU+dKq6kO31Dl +ocdNLbN9Fg9nv6acZe3j4XK5ZWXlCh5Ccq6laTrysEzbdyB3Iw/zzta1HnHm +wXQkV+cxtV7CLuut53lIC7J+b1/KQ/JzxdeDT3nwiArKq44kYZDvosBg8yA6 +9qyDmUbCfUtQaCCfhzj7EpE3BSQOxD+5pzjMQ5n8IuPboyQcpaQOT4iQWPfi +ZbHZwW6UZn4Mn5En8U2c1aPv042YnUvF02kkDp8eEVe/2Q2rNUVhf2uQiNiw +zXJubjdavWIkOzaR6P9cV12g2AOjKIXldCsSoQoTQ3T9HqxN2uV4wJaE/BWF +RUn7e2B1MiW19RAJSxN3u0shPRBsPFJ2+ySJV9XTTVu7e+DHLlSJCCBhslFl +UkOkF+KXzGOMg0i0PzCTX7G8F22bJFrar5BY4Bh99Jd5L7SG/lEruEnCk7eW +k/W6F4mL/Op3PibRebRp3pfSXuTVTmX6J5CwabyhXcntxXZ60NGbyST0y7vP +81bwIRaY0Hwwg0TGzpiEIT0+zgQecln8hoRCnknhn318DFua7H3HICFGT5GW +u85H0xPR10+ySfhr2G1a/YyPzp9xLd25JHqSZx/W/o+PEbGZH0vzSbAennhh +MsKHaL9vtFoRidiLytvOHesD604gY2ENCYmf1SdCLvThtNnnkpt1JIK8Loff +fdAHvUeJBwQ/SDg5dXx/Ud6H1do6Kz2aSXxvufP7HdmH378sB0NbSey226aU +P6sf7VG/z99oJ6FpGn+qcXM/Kp7atpmzSTz9YnmPa92PSVnWHgkuCZmtUx8G +z/SDbxiQ+I5H4qeWo6j4837U3GcvLOyhcvJCQn0Jsx8bPdRztfgkWpVy9ig3 +90OK88b9Sh+JL4uWPzKQFqCWNtbGF5DQvV2St2udAOUd5lqzhCRS5wZw95sI +YBG49K7YIInll9Ukjh4XYKVy1K5hyhET9es9LgpQfEs5qnKIxLTvNTv/GAH0 +7x99/2CYhE+/XuBVhgDuDDmh+QgJrjMv8U6lAPJhVsECygc6ooviegRoM9qZ +FETltuTgzv5UsQFsWOz7YJLy1toRmXcKA1ifERnjOkbitUXyZqbBAJ56P+J8 +oaxUaH2k3HYAD0ZLsiR+kojaJhrS4DWACoOkXTsoz/lEf8m5OYCU6b4qN8oB +G46zhCkDWDiTGxFMmZ8uPTqZPwD79WezQigfVslfPq91ANNCZnAA5ap4Lywe +H8C9LQmrj1DesVTRWUlWiPriE/UbKGdFsm5qagmxaH1W1U/qPmoSwW/1TYVo +nL5tnEk5LkSrfucJIeZU7Xaxpjz/T+vkvmAhQi3vn+ql3nfJP0L5yCMhfLZd +uuZDeVi4dbd7lhB/hZ3v5VP1Oened9qvSggT2f1FdpQb2HFRV/hC7GvdbMWg +6quqrdpaJDqIztJvdBHK7fypAUvpQYTEjiltp/oR++L7rLpVgxD9T6f8X6pf +Esqhah36g2i87n/r7QBVb8N764N3DULfQaa0nOr/tYNPN6+yHkQbb1ZqSz8J +0chPux1PUeetD2E1UfnJzyjc+/vcIB59PXS8pJdEcHGt/aPQQZRoLF6dSeXt +93S/a0P8ICo2mX20IUl8WvHbyz99EDEh1VVLqXz6b/orYMnHQazcZf+0hkO9 +94zyDZvqQbSP6Xet6SLR12r3skp0CLcH5EIdW0ik/3J667lwCPKP5H9UN5Fw +W+z9SUp+COMaas2GjVSeLG6WWOgNocjzXMDEdyrfOXk9xa5DcIibaziPRaIi +Vm1tfsUQpv7++3x0HombWbobjjUNYbcEz/Mq9X+bVm83mOYNoZyrW+eWQ83H +vw6bGc4MYW7+FQvFDyRy/SPdP20Yhh/rbYreK2qe2U6kvX04jOj4Y97ycSTu +SJdrJP0zghGlE+5uXiSyN696b+U5ArGgQXPr09T9jnphKnAEWu46xze5U3l+ +tcjWPmYEp4x3hAicqPlidjhIijWC7Nqa4eUHSBiHCKrObx3FtazwPUFbSfwa +W+hnLTeGK0opr4Wi1PxosWWKVfzEBnKfEfs6Dz6FoU5ear8RoGHxvPwKF3Tv ++TbLzP7grWdPQ+41DpICT/F17EWIZBMDRflANq4mTO0f7Z9FjJqp9u682QWR +uk4i94IYEVqmWG73shNrzroE2GrMIVzZ7m8NgzvAHYs5IPnfXMJNba5ga1cb +zHkeQVE+84gHf8i/Zxm0woobuU5BQYJ4X7VlruGbZvC/Ol0ueSVJfK23kjOz +aYK2TP0q42NShHmxHdEmaIAExo63jiwgfp0IkZRg1GO3wGF8tZ00IXZoQlPD +8wcaC07OctCUIZhX/83P3/4d7298O6o0JkPsT7oXclC/Di5z/DpZLFninW5Z +a69aLU74Br6fH7eIKJmfyli/uQbrXdexLI8vJhji9vIW9tWoktWU9DNYQpSl +jOwNZrPw+fXVx5picsTN7Jj4KYtKBM7S2FfRJkcECfUaJtLLIdF6wdQzaynx +tN9+lYp6GXipytEJF5cRdSkn+c61JYhWXz472245cUonwvnCv8WIjHMpPq60 +gtg+4cZzMyqCQ/QR1vzuFYTcU6HLjHwhfu1MmUjIW0kUSLul3hr9Cg5vR0DB +dXnixBGvT0kDBXhmtGFl5fFVhLzHgF1T1xe8CvOTcdVSIMTDQz3sR/Nx3e6E +hdiYAqHCkGCdXZoPvdaktOuVisSaK4sdVrrnIXbt41eVFkqE3kfvvaqNubiU +fzvWIluJULFxt+wz/Iw9K+1SylSUCa1XlS7nmdnY7lnsKBOuTCiI6HYHen5C +gryTSsWYMiH6sPD8tcUfofL1xUMrx9VE4mFdxx/s94jUKtCozVtNRIrbb79a +lAWXkdk1pRo04pig6KPNs3dwog8rhd+lEZtn0ke1Ehk4fdVmyvwejfCu8eot +f8yAn01Ww/z7NIJxbhvpEcPAjTG/O5EPaURYkch4xh0GXhtMTMbE0wgp8/2e +W4IYmPgyU5+aQSOcHksH33BgILJ2/u1vxTRigZn/2e4lDMQln3G7VkojTvdo +jqTIMJB8lmVsWk4jqtfu8nWWYuCDXOTvchaNuLsnzbt7NgOtDovc6n7QCB+r +dNfxETrUOMuN2Rwa8ctyocTuWjp0si4oPOfRiGdGH32XsOjYEtYy4dxNIyRo +oo3cUjos1eLf9vJpxF6p+zHXvtDhe0pJYWiIRjTrqnB/vKXjouGVCcYIjdgD +l3WZmXSESbG/nx2jEQ/X+ZwJeUlH7JvkW79+0QiPl2Oduol0PLs82zXnN41w +cJyQWfiEjoz9zjsuTtGI87rNhvwYOrJWF63aNk0jEl2PHC+6T0feyJqJmRka +cXGT6aXku3T8D4PnoOY= + "]]}, + Annotation[#, "Charting`Private`Tag$30696#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVlXk4lN3/x0UrKVuFsk6SJZXyROh9lxLSolKiFEKlVKIkbUq2CE9fyVK2 +RJQUFWGEGusk+z4YY2bum+xJ9PjN749znev1x1mu93l9PkfF8eJBZ2EhISG+ +YPz/HH/Lcf7G0yHbvA3ilk3PDtHL6pUtjyqfReuVkHdze3/SZ78V3VNWvg42 +P3uHbsUgPb44VGmechC6F+jbxqVS9PPGXhcmlZ5CT9V+RD+WS3/f0J0ybhKH +WQenXCq5n/7HzbJjxPU5mM+SZqWyOfSdNRFqv5qTIFnGS3FvYdPrp888HlZK +Rz2Lf2zrsW76VYbihqHsV9BjRhR1zmfR5f9tqBo0ycTfVVsLZh076Y6ahAjl +mgWHLUpz2Bvb6N6ZYnmjze8wP3dk6NqaBvqC9l71QaU8zD70FP/3WQm9pbjQ +a4CXh7nRbjkGysX0V6nRpVR2PkSMX5wat/1M3+ex7yRpUoDc6JTBwfpsetSi +/CiuKx21k4kzRWkWyLlm4XFFthj3IuG9bEkk4sgtcmO+xfi8YnKH4Y1EuNdK +uY7u+oKQaI/a/l9vIRVXLjzSXIJBK4+UPJNiTC/5kH7JqBTvdpzK+0epBH13 +kw8MJ5RCd3qG+DtSig+ut54NnS3D+OS59XNvMWC7afPWn9NfMXzdNFNlMxOJ +lc8vU0oV+PfA0/aOlY0Yj87VZD2sgNInrVXq7Y0wda1i101VgBf71y0mqgkD +IpPW+fWVeO/92W23cAv0jfdtDQqohmHqLofcN20IETs95jtejcyxdZt2WbWj +q/V65iWHGoxuJy6EDLfj/tUXijaGTPDT7t++odaJ2qwZYfWh70jd69gYe44F +KSyyF9epxXsnp97IcRYM1zzeGnC6FvVSNdkdxt0IG08f8/lRC3Lt/nFOcTc2 +RzQ6O2b8wKjpMz3jjz24XaltsfFkPfb6Nts4n2MjLfvjmoz/1UMo5uP7xlg2 +6qJ3iKhV1+O0caDQtmo2VrvaFMgaNEBXmkoT1exDpch9HSHpRmwMFTmzqq0P +4+QSMR/zRvirsbc2inCgUPeUO3a7ET17vglnanNwKSErgTvQiAzWfyVlNzhY +btwu9f1bE5y68tJWSPSDWO0yZPa3CSpqpxz1NvXjrNhIVcmmZrin33wWYd2P +gtb5/h8SmqH5/auHTHQ/HK/qTsb7tCDL4pL7SxkuHp4orF+R3QIHjSfJCrpc +5O40exvBbUF08BfDn/u4WChtf9b/cCvm7/cxy3jAxZusoPbzOm2IN39zgvzJ +BSlFPrRwaIO5h9jxgXk8qF+12Lb2cRvE1y995rGKhwQjsUT2VBt+VNdUy5jx +EFnx0MX2azuUkFtMPeWBqT24Qv93O04r/JS0fM2DWPjeimVaHRB+ZeuyvZiH ++0eWaP8I74Bp0olvo308XGU/Gtl9vBNrU+YYpmjw8c50OEntUScOXKEKuw34 +GEo/cFikpBNuJzO/FJvzceaS5Mci9S58sTg4fPkMH7Z/I331xrow6bf569dE +PqJOja2TXsMC1+iIw54sPupLD7GGbVi4FUUtuFvAh2WwzI7MIhas/Ro2CTfx +8Vys6p7krm4ciatp9JtHYpvxjeN37LsRWJJXliVBosNdS2/oWjd6P0k9ebKS +hGxdSH/1q24MdqxgxW0gERFtaR4o0QOazanw50dJbKicUZnU6MFKTy2br6dI +MKcz/zib9CCleYFL1lkSoifFM02u9uBCjHNigw+Je2rMJbPtPTAc6k++E0NC +9egt7oWJHpT4Ha/hJJIoDtQp7ljSC/fFqXYr0knMUGGX87f3wt4o4yT7A4kY +BVho2PViw4mtL28XktDfP6Qa7dkLf2+3SaqUhNe7/Q1eL3sxRcmv1a8lIdM3 +m9lX3Is/n9l5ck0k3i1763+orReuVQs+MttJ/PSW2LJRXFAHdJbWh34Srvjx +dMCDjY+OE0Xhf0gIJf3Kbw9hI8/p0+DiWRLRc1d1VKawIZzsuuK0CIXyChfF +9CY2zGNUZ16IUTil/RDRQ2zI6coLRS6l8Dss+1TAwj50WwyH20lTWHt4Jsl5 +ax/2mH+qCpKnUPxBpezwoT68TRdLG1KgYCO3m2Nyvg/xunJX9VQoBHZFqKs+ +68PmzjEdJ3UKvDPqmV1zOHBWLPc5okvhTpVlTY08B/nBufZVmynI6nj8LNjE +wfg/E36rt1AwGyvYEOvMgfyuwgf+hhS6rXutgm9xILux50SYMQXvTwuuXH/C +AemSdPomKKTfPJh7tIID70WxLUtNKOzovtZk2suBWoSXds5OCm074if1pjk4 +ssH0JmFKweNFiayaTD/khuwMcndTEF3IM5BZ148F/8nUSJlTSDonbidi2o9K +D27SMQsKW2t0fUft+3Gw8ywteA+Fc5E3i2rD+0FLe12YvpeC8EQSi57ej+js +oOdP91GIOVoulFXSDzU1uwLP/RR08wdVnrX3w/Ze0xXDAxQqV0mbhI7346ju +nNU/Bex4W/+0rzgX26UMNEKtKPzpOeHvtoaLgSHDLtmDFCJ33ku1BRcFjTpx +EQLWepnGMLfhIs3wRf6kgMsWMXn6l7n4tTzt0Z5DFI6fH1u0NpgLucqCi6EC +HmfKaq1I5sJhgnpdKOCHG7dZzi/gYmxteWyHgFc/drow0cBFtLdnECnggl+B +YX2DXMiPvvrKFfDhY2+y6ufzYP6rJL5BwAOf62tLlHhI8fp4IlvA9xWnRrL1 +eeiSWHfgloBX3VWUTrTiIUvBu8hQwDlsk83h53j4Hp40zBfc19L0rPXtezws +rbm8LkjAfWlhV93jeLhocz5fTsC+YjlPTuTyEHiN1R4ryEPGvfWTJVNwXlZf +w1IBv679r9WQK1i/wZXrJcjPdNPqaU0hPpRpGoeZgry7/me+Sl6OD11uua2c +gJfYPbb/bcHHIakAnUDBe6UW5t3mOvGhOnHcK9OSwjZlVkKTLx/0y0HmZYL3 +dedosHPe8LFPM//ud4EP3fatC79U8MEZTZDONKNwqCVQp6aPj0gzKYkbAn/0 +q7jXOfIkztzwsRsR+CaS/UJieQCJ+hkTb1OBn1c1rf9RTSKRuWY0uVDgLy95 +7nEdQR8Q85OGhhEFZpTTS9MxEtecD2R16VOI9lXZdu0kBfX78zLKNwr8/FXr +dM+HQmhoXSh/PYWbF+8EPfqfwDMd1VghHYE/jqyGl1UUuAswK6lJQdss3q1l +ywBmw0aMGYJ6/CIt99RAYhABVpaayYL63hxaXrRLaxAuD7pvGYkL8pjv3Wdl +OoiojvV0pqjAj6mm9ed8ByGnafukax6FI6zH32J4gxAf0g/NmiZBvpIYny7+ +iXcfRZI2CfqPqMp9dZb+MP5uizgU9pFEuVHE+lu7hsF5GnEzN4fEA5tnWxQO +DmPUxDm4NZuEcPin3XZuwzAUexcqm0niz38Drs3xw3APnR69kkCC6rBO+y48 +AvmeNcteB5KojlbXKK4ewbmommY/Qf8Ok6jSTDw1hkfZ7nq8YT4c2w/TRap/ +QUr6UZm1GB+Xv953vKj+B7ZP//G11eIh+9LiQ7LmfxH5K1WdeZKLxBtu5Iaj +QkSwbull2eB++D2fsRofmEN0i3hOWgn6iFB9N1HgI0Lk7P9iHyLFwRpPF+/D +mvOIC3vzRWcO9qFv4skRscL5hPuHsaJTqWxYcM7djLy8kDBqDRUtHOnFvr5w +LUVFUWJ04J7fB9NekKWOd8pfixHZ1rxFLzN7oCPZpGByUpwo8/cMNBfrgSgm +HDrGlhDXUrc96brejd2DtpOq1hLE/n2FbgGlLLSUnJ5jqy1JhPofcw1M7kJu +YJm98oQksfukx3GJhE64zPPqZjKliC8Jn0wuCv5tJ48buYtjpIkjTGoyLrYd +6121mJYOMgRN2K4h7H0bvktpi3kZLCPqFo+/dStuxec3frHaIssJxyfjptac +FtyYo3mgunM50Vsw0i4r1ALRDh8z95wVxPK06iBJ9WZwUlUeP/eVJZTbWn3D +nJrweK3c3DxrOcJRu+pbbVQjwmNcGA7K8oR1QcA+y64G2D4+wVzMlSca70jp +Oq9vwO+dL6aeF60k3oe2e8t414PN2eFdErCKeHfU/AO/rg5JxhtX1jgoENeK +81RE19Thtb+XpOs6RSLg++SfLcE/EGDttEdkQpFYeDiq5cGvWuh1JKYH1CgR +mxdnStXa1SJaI/Z1zR5lIjjlPb0i4TtuF4dG78lTJhStnsesuMnE3pXWLypX +qxCmk4T68JkabHdn2EkGqRB1v78Vq12qxvNVjqurJ1SICJ3+9a/cqrC69GXU +PjtVQqVSf5BzpxLh60o064pUCdlHqvn2SRVwGZv7o0KTRjhMRD1an1cOx+xR +5aBHNKLhaOViaS4D5/0OzVhE0Ijb1O4ebzYDXodymhf/SyMyltAJFouBwAmv +sPAoGnGXME143cLAG4Op6SfxNMI+zZ11oJKBqS+zTakZNCInpm9P9msGwusW +h5YxaITZztE9rZ4MxCRfOPOgQrCfm8XRA5cZSPZkmphV0QiJOXMpxgUGPiwP +/1PFpBHxO8wzPrkw0GErfaa+kUaMunQ+TLBhQJ0tZ9LLphEWwURJkBEDG3J8 +FFM4NEJnQtpikQEDW/3bp5y5NGKX65xjQXoMWKrHv+WTNKJntEUsRIcBDzdl +xZERGmFutb30sTIDvkZ3p96N0YjIoIy7sgoM+Iv3NnhO0Ihco9BvcXIMRGcl +h/z+TSMeLnBhp0oxkHRnrmv+HxrBTtj8WXspAxlWzjt8Z2jEpU8acu/FGMhR +/aaw7T8acXX5xr8GCxkoGlszNTtLI0Ie/OP6ZS4D/weMUmF7 + "]]}, + Annotation[#, "Charting`Private`Tag$30696#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVlnk0ld8Xxg0lhTIlIuEWiqRBk/S80SCpFCIVkVBJETI186U0CEWDaKCU +kkITrilljGuerzty73uTqTKU3/v746yzPmuds845z3723kfb7eSeIxJiYmLd +1Pj/nHTOTWqZe/SGY8rZNqOT/fTSei1rB62jyPC0irIK+0GfLCu4rKUVjMKK +I89+iIvoSYXX50/VugI74yWLdugL6N5mASd+z78LjqW1a1g7h/6ugfl02OIB +1iXXTvd/wKaPHbfuGPBMBnHPbpP6ERZ9U/Wthb+aH2PlqsCSfFkmvX7cK/7n +/HRw4gIFgkPN9MCvmsb9WS8QP9IrK23XSJ8b11ApssjA6DHpsVrberrbYkJS +6JkJM5nTLPefNfSgDJmPg81vkSArJjqQWEi3iuVJDaa8g3VR1OoDfp/oGkFF +dgNHs7GyPFSzrPMdvdDizM/+8RyEhzgLee8f0Ke1s/RE8z/CRffCpViPN2gp +zA8gez9ir52smu1ADl6kJZYIsz4hjUxyeLLvM3b67XQRWOQhtkUzQ51djDvT +P93he9Ihkrd2PRtbhewzVn6nVQshTFNynN1agweC1WpDYYVgKSY050fVwqdW +0XNwcxE66/wX/pfBgOKDbxIDzcXIvO3XopHWhPGZuemn1pfg5dsdNP3bzeBc +fGLzM6UEoV0WnfvOtSDX89zD/qOlcCxalleANjitWLnux/gXXCXT7M0vdcIi +TbvnxKEyPGEH/We6pQuGarOiRKVliKsgdrtN7ca/f32N5PWvEDOpFjWtY+JR +RbKvcH45lttoLU+N6cFwYs7i7mvlqKoK+HWF34MtnpVsxmg59KuLpeauZ4GU +/G3/qb4CGxg6TsFdLKwx27nuSmQV+kyTVlRN5yBaxn0obLgKA6qPM1J3cdDV +GpxxyrUaf87v2Hg/joPwwFRNR9Ma7I4ZD5RV4aI2c0JCr/87vtXOvrhbigdF +THeWM6rFlnrvp44beDDVjV8X6V6L2R/c3Zr9ebgxnD4UUleL6Js+Eu6dPKy8 +1XjE7WUdXJZ7131J4sM56JB5R08dGl+vzEmo4CPSRai5V5WBDHG+l8EvPtqW +iLdsi2BAtjVi5MO2XpyvMLRa5lIPxfQlk5vZvXie9V735e165Ilf3yE+rQ+M +RHPJhVX1sN345P6nRX1Y4OmYp7q2ASapVgUbvftQIRluJKbUiPmvdnru4fVh +WDBTJmRbIzKfem/MlBBgHuMuf+h8Ix5KlAvXaQpwKiUzhU82YrD6gMnwHgFU +zNoVv5c1oXBF+J2z7wQgFnj0W/5tQqsJbZhZLsBRmYHK4hWUDwZtP97rFiCv +VSoiN6UZw6XfRDrTheAV3nI1bm6G6sLumlENIWY919jwQq4F39WfTaw2FsIt +cPnvpJAW8FSjRkbthLh2ML9+TlYLpFwj90d4CJGzyfLNLX4LzOycNkeeEUJa +yflohF0r/CvzKicShHideaXd26gNa1e9eSNbL4RAUXDNyrUNl9WcDn/tFkIv +0GqDfnwbbv67V6RFCpGyXuYRe7QNgqTDzA+SJDqSj+8pMmyH3/YEw4mZJNQk +qySTXdohzzy+nq9GIrb8mofTl3as9/utm29EosZQNGfNn3YYvhnRylhDQiZm +R/lsgw48KCydt92cRPjemYZ1MR34e2RBY4odiUD2zYGtBzqxvEiY0hVA4u2W +n48X3uzE1YYVJy+eJdGfbmMnWdwJcnDaZVY4Ca9TCu8L9LoQrURjcGNJPK33 +9Xrg1AXe1mNa0XdJ9KxiqIVc78L9Hbltw8kknP7GhpkMdaE0QtxWPYPEnUND +S5R0u8Ery2pryyJRX2Lb/dOxG5t0Vrm5vydhfVXZPKOgG8Q2q2dtRSSSZSov +K2xmIifItyqwgcQGs9ADF5yZuH1WZJPeQunjY2DSf4aJi84bQjI7SKgyonlV +L5gw2c+cYsohkSu5nm5ayoTMYt+QYj4JOxMy4UUnE2Opz/K1hSRuJVpvi5Lv +QW6rVczxARLGFRPavxf1oPW2m4TjMKXneMbYEYseeHfSp2n9JjHDRS7DIpBa +n9i6Z8sEiecx+eFvb/Zg2kOrnWn/SGwpPnFQO70HeltfWXLFRLi8sGbmZHsP +7qgXe0tOFUHH4Rz/xEgPhJfdaBwpEQqjjAo7ZrLwsFhuKE1aBOdPXYnb9VlQ +xuk71jNEmBDe8P20kQUNk8KSRhkR7s2D1aL9LFjEfTa0kBNhza5+nUR/FgyW +9Jy7PVOEpgvJ41I3WPDdHHa4epYIAW93NQQ8Y4F7uui8UF4EZc5kBqeQhd1C +vv9PBRHezn4TYdvGgjXNnNmhKILN1kPOxUMsePXZ789SEuFHkPzqZXJs0DuH +Qn2URbj2onBWii4bK5x3NijPFmFxx6nemQQbOpxZQ08p/ianXXR2Hxu5zacO +z1cRwRN1d0k/Ntw6rF+FUyz2+Nen9mg29h7UHaynOHGKRkfFUzbiGMs6Zs0R +wdhz49+P+WzMWhHGWkPxt3IPzfQmNrJTieBdFB8yvIbEfjbeJY4q2FH850bW +oUhpDix8fdW3Uhwz0HQxUJuDA00M8UUU69tNPD6yjqqbiR+MxqjzCnO1S+1s +Odi21mz6Z4od1bZyLbw5eKo849dxin+GekutiODAxcjDQY7iqK5bejoPOfiY +uul6MvU+rY3vLRXec/Cwbs+IDsUfnnQcFavlwHCalDCB0sdGSiK6v5eDLNn0 +r/8o/Xq99DK6xLlwND3KcqD4QqV1dfVcLuR3H455QumtauT3I28FFznDmQtY +VDwsh/KM7x/hwlelxXwtFS+mPWv31XNckKPrj+6h4hn0Ydrp4AQugk01M12o +eKef3ZPjUM7FgK5PgYOsCObMM01bWFw8n6eiYkH5pc086bfJOBfFv4rSaZSf +Zkj3rlVewsMU/qmbX6aJcCz2bEFtDA+XHUI2x0mIIDHyuJuezkOOgUHIUnHK +bw7fxDKLedCvM28pniRRoaFkcX2Yh6/pQeR3yv8Gz55/3ebIx6DbPOMrv0iQ +n+tri+f3wiDSQO1xL1VvNEcHstb0Qs9IX/cbj4TGRU2lR7t7UfdWYlMvlZ/W +W47an7/cC6lfqpZzeki8qv3Xasqn9tuc3LeylYQPdxE7+3UfLhfIrY78RoLp +3CpdVN6Hvo3v1JeWkbBtiTKq5vSBm+S9n1FCYk0lP5g7VwDPKbwTMnQSklmp +8iqRAqwde2+2PYdEYpj2hjMuQvxNWSc19xGJIiW1u//X+TIrcM+dQCq/tcP1 +utf8xB7b9+NXNUjckK9c/OjQENxNU09X+FD9oN2OLln1C8rPkszTqH7j+yXc +7aTeGC78bfgiJyZA1ilZW9Vtf1He2DP2/EAfHoUeFxg7iBHP0tu2TWT24lLy +xO5hUpzIX75oqUixF2L1TCIvRJLYKJTuKAjjQ9ffI8hu8VTCb17Yrn6qP3NG +EvbK5EsR6udyTK/s4MGKe+xsrK800XSu8aJ0Dhc7OTEGmpoziL9x8issaVwI +StwufHslQ8RrB3ZXUb41UmiaZ+EiR6wkYw3LFDmYgRHXjqGZhCWjYqVPHBtb +RU6/dezlCZ/PhYriVJ63FLuLOxkqENtAvI26xkJOVKmz1ogCsaDQKy5vDgse +UwOYNTWKxDPGjEnHBz047BeaI3tPiSienNGtYdiDpZ4GNdauykRc9f5TlYVM +fFc0lAlYO5sYvr6jxG4XE59fX7pvKKlChJVmLbWp7Uao+GKbqk4VIriabuf9 +qwszOkIsfbLnED5F9e+NdLvATdOOTw5TJco236hmeXUiXl9tykd7NUIj+k9u +S0oHYu55fHXVmktcH+Cc6BO0wyn+YI0sfy7x/mZQ28D6dvzZlDqaXKBOVBc0 +l4+Et4HNNQ8qjtQgkjc5Sr/ubMVjs2Xq1a7zCIUY7eK/hq14FRGg4LlEk0j5 +GOppca0FkfaHt0uOaBJy7u6DcYPNMOl4lB5ZPZ9w1I03m2/TjMRF919Vb9ci +bpTZyR/Oa8L5wuuJ2z9qEXyRGOeYVhN2qNunVizQJlTfqp7fH92IjT5f9ytc +0SaWac3pa5FsRLKG24KqEW0id1zPIcO/AQtKnt3ZuV+HWFlVkeA3WI+YJcWL +GQU6RG5Du6YooB4eQ1PqyhfTCFejcnvzQQbcsga1rtykEWKd+TeuhDDgfcl2 +wuoWjUjpdCgIDmIgwDa7WTaORsjKNekfC2QgaiTgRswdGuH/xv31dj8GXq8d +HU9IohF1pkqhCscYGC2abEp7SSPqD44qP9/HQAxD9nrpVxrB4S2dJ76WgXtP +Tnj9V04jpn95/ODPKgae+NdYWFbSiITf+nt/rmQgVyVmrLKGRtictD/DNGag +w0nJq76RRjh6BvuW6DOgx1azYLGp+5RvRjz1rzTODtF8yqURJSLugZsqDKyL +aB89wqcRqvLLs68qM2Ctl/SmT0AjNG5lz7okz4DfcS3NgQEasTzidfBpaQbC +1l8cfTtEI0Jjxw6fkmIgQo7V4D9CI6RW0yNPTGEgMfNJ9J8/NGJXSmKolxgD +jy9M8fw0RiNmxads9/hXh5e7j5iHTdAIpbPT7N0n6pCtUzZvwz8akTZcluA2 +VoeCId3RyUkaIYxvUXL9U4f/ATCpBbY= + "]]}, + Annotation[#, "Charting`Private`Tag$30696#3"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox[ + TagBox["\"t\"", HoldForm], TraditionalForm], + FormBox[ + TagBox["\"x(t)\"", HoldForm], TraditionalForm]}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.896375366032028*^9, {3.896380461509735*^9, 3.896380488983677*^9}, { + 3.896380542438208*^9, 3.896380549923717*^9}, {3.896380772596847*^9, + 3.8963807910854197`*^9}}, + CellLabel-> + "Out[203]=",ExpressionUUID->"d55831f9-65ab-4daf-9d22-57153de41cff"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +}, Closed]] +}, +WindowSize->{900., 462.75}, +WindowMargins->{{114.75, Automatic}, {Automatic, 45}}, +TaggingRules-><|"TryRealOnly" -> False|>, +Magnification:>1.3 Inherited, +FrontEndVersion->"13.2 para Linux x86 (64-bit) (January 30, 2023)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5186d2a8-2b5e-4c30-9d2c-337b68e309f3" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 171, 3, 127, "Title",ExpressionUUID->"480d5f7d-45fb-40a1-bc21-04aa8b6ee330"], +Cell[CellGroupData[{ +Cell[776, 29, 180, 3, 87, "Section",ExpressionUUID->"26c8bf85-1372-446b-b079-970316fe33f0"], +Cell[959, 34, 158, 3, 60, "Input",ExpressionUUID->"c91e8bd6-e417-4c06-9dd6-851ba2b63b07"], +Cell[CellGroupData[{ +Cell[1142, 41, 164, 3, 70, "Subsection",ExpressionUUID->"1353ed16-eeee-412e-925e-0bbf17dbbaa1"], +Cell[1309, 46, 210, 4, 45, "Text",ExpressionUUID->"4ee2c65e-3a36-4a53-8961-7515486ff50a"], +Cell[1522, 52, 344, 8, 64, "Input",ExpressionUUID->"6fe28919-477b-4f94-84d9-6410c728c11d"], +Cell[1869, 62, 176, 3, 45, "Text",ExpressionUUID->"2491539f-2b90-4e84-8d7c-a232f1b372f0"], +Cell[2048, 67, 298, 7, 91, "Input",ExpressionUUID->"0b7ca561-0a6e-4ede-890a-92d5633f7a24"], +Cell[2349, 76, 198, 3, 45, "Text",ExpressionUUID->"424bbaf8-3774-4416-a217-5a39713c57b3"], +Cell[CellGroupData[{ +Cell[2572, 83, 504, 11, 64, "Input",ExpressionUUID->"343380a0-01e5-4595-9c3b-d1d1625a7f1a"], +Cell[3079, 96, 14689, 262, 312, "Output",ExpressionUUID->"9d3833a2-bbbb-4e23-9df3-2418c1b7131e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[17817, 364, 171, 3, 48, "Subsection",ExpressionUUID->"4dc8a5db-8604-4de9-a0ea-5b9c4af8313b"], +Cell[17991, 369, 198, 3, 45, "Text",ExpressionUUID->"ec2166c3-615c-4169-982a-bf48e7b963e2"], +Cell[CellGroupData[{ +Cell[18214, 376, 1096, 30, 246, "Input",ExpressionUUID->"34b05125-fa79-4697-bb90-518b280af661"], +Cell[19313, 408, 40521, 690, 319, "Output",ExpressionUUID->"1841f7fd-e54f-456c-8ec5-b366b196a4d9"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[59883, 1104, 164, 3, 48, "Subsection",ExpressionUUID->"94d5e20f-274e-4c2b-85f2-a87beafad44e"], +Cell[60050, 1109, 198, 3, 45, "Text",ExpressionUUID->"0fa6729c-0b40-47bd-a7ae-372b402ba015"], +Cell[CellGroupData[{ +Cell[60273, 1116, 1150, 31, 246, "Input",ExpressionUUID->"55997f47-8c50-4b22-ac6b-477e1f06aa51"], +Cell[61426, 1149, 38849, 663, 312, "Output",ExpressionUUID->"babfb7c7-af03-4fda-9ce1-dac18dfd6b21"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[100324, 1818, 172, 3, 48, "Subsection",ExpressionUUID->"b114e5cb-2d36-449a-8a94-9c8ee0ce58a1"], +Cell[100499, 1823, 213, 4, 45, "Text",ExpressionUUID->"66a59f3c-f765-4ac3-b9c8-ec747eea23b6"], +Cell[CellGroupData[{ +Cell[100737, 1831, 1162, 31, 246, "Input",ExpressionUUID->"41edee6c-f3f7-4d4b-a7c2-e6426320961f"], +Cell[101902, 1864, 58137, 978, 312, "Output",ExpressionUUID->"5b1de1fc-15fa-49fa-9808-a0b98d3c826d"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[160088, 2848, 215, 3, 48, "Subsection",ExpressionUUID->"250bdc0d-6476-46fe-88bc-672a94101c02"], +Cell[160306, 2853, 202, 3, 45, "Text",ExpressionUUID->"407811db-97e3-40e5-bc77-d6b54321ef6b"], +Cell[160511, 2858, 391, 9, 91, "Input",ExpressionUUID->"e8f70755-9f82-4cc7-9f82-b2b4fe44ec39"], +Cell[CellGroupData[{ +Cell[160927, 2871, 1017, 30, 169, "Input",ExpressionUUID->"d7435ed1-75ee-4ff4-b312-084b7546b67d"], +Cell[161947, 2903, 2181, 44, 321, "Output",ExpressionUUID->"06f39a84-787e-4a4b-a6c3-b77e10add692"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[164189, 2954, 181, 3, 67, "Section",ExpressionUUID->"18bdb8ea-3807-419d-9ed2-8877c276d422"], +Cell[164373, 2959, 177, 2, 60, "Input",ExpressionUUID->"25127d5f-ac91-4cac-ad58-f1eff2904706"], +Cell[CellGroupData[{ +Cell[164575, 2965, 164, 3, 70, "Subsection",ExpressionUUID->"d33e3dba-fd55-4e08-8eb6-9efdad08a345"], +Cell[164742, 2970, 213, 4, 45, "Text",ExpressionUUID->"82ce54a0-99f7-4e51-aae2-2924a5f8e662"], +Cell[164958, 2976, 515, 13, 64, "Input",ExpressionUUID->"a9cfba56-0b1d-45cf-9ce0-acc624ebc790"], +Cell[165476, 2991, 170, 3, 45, "Text",ExpressionUUID->"bfcf10f6-939d-4cdd-8aeb-0ead3cff57e8"], +Cell[165649, 2996, 485, 11, 117, "Input",ExpressionUUID->"6f6623de-9651-4a35-b0bb-462b71ddb889"], +Cell[166137, 3009, 185, 3, 45, "Text",ExpressionUUID->"3ffa07da-0a73-473c-9559-c8c1812df034"], +Cell[CellGroupData[{ +Cell[166347, 3016, 505, 11, 64, "Input",ExpressionUUID->"829cb72d-95d2-4a5e-82ea-4bf8d7274447"], +Cell[166855, 3029, 14594, 260, 323, "Output",ExpressionUUID->"731c6362-e54e-4c96-8e7b-5785f3f4155e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[181498, 3295, 181, 3, 48, "Subsection",ExpressionUUID->"c683316c-3b06-4a29-973f-77b91c26912a"], +Cell[181682, 3300, 193, 3, 45, "Text",ExpressionUUID->"8ff44419-cfa9-4263-8c17-0517509cef7f"], +Cell[CellGroupData[{ +Cell[181900, 3307, 1502, 42, 298, "Input",ExpressionUUID->"e6f8ca6c-baa1-4235-9b2b-1dafc4054d04"], +Cell[183405, 3351, 25430, 443, 315, "Output",ExpressionUUID->"718a688b-6076-4f42-8993-4ef3342cd428"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[208884, 3800, 183, 3, 48, "Subsection",ExpressionUUID->"93747443-997f-4b6c-ad97-6f28b201f028"], +Cell[209070, 3805, 187, 3, 45, "Text",ExpressionUUID->"48ab0284-248f-4aab-afa1-18112b28dd91"], +Cell[CellGroupData[{ +Cell[209282, 3812, 1370, 35, 272, "Input",ExpressionUUID->"fc96710c-95fb-4a7f-9d3a-8ccdaf80c511"], +Cell[210655, 3849, 59657, 1005, 323, "Output",ExpressionUUID->"9947b953-2f7f-4e46-a22e-cdb05d1a4752"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[270361, 4860, 177, 3, 48, "Subsection",ExpressionUUID->"749650b3-8599-4822-9cfc-3f264659da35"], +Cell[270541, 4865, 183, 3, 45, "Text",ExpressionUUID->"c4ffbc97-c1ef-4b61-8b2d-a7d991aac792"], +Cell[CellGroupData[{ +Cell[270749, 4872, 1305, 35, 272, "Input",ExpressionUUID->"d5a58e24-4340-41c0-80c4-c4ee16b9edf5"], +Cell[272057, 4909, 40364, 688, 319, "Output",ExpressionUUID->"7bab0726-beff-49b3-ba69-e787aa783965"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[312482, 5604, 183, 3, 67, "Section",ExpressionUUID->"2b4b03df-55b9-4e92-b3aa-7dbcbf4fe249"], +Cell[CellGroupData[{ +Cell[312690, 5611, 230, 4, 70, "Subsection",ExpressionUUID->"1d9e30d0-7940-4ba7-a5f5-14308a815e9b"], +Cell[312923, 5617, 155, 3, 60, "Input",ExpressionUUID->"856190d2-a37f-461f-a40a-418fa2c5844e"], +Cell[CellGroupData[{ +Cell[313103, 5624, 167, 3, 57, "Subsubsection",ExpressionUUID->"d1a58aa4-017f-4b83-9061-c149030e3790"], +Cell[313273, 5629, 250, 4, 45, "Text",ExpressionUUID->"62410e80-0b22-4ca2-9c7e-da744e25b814"], +Cell[313526, 5635, 603, 18, 64, "Input",ExpressionUUID->"835cb738-38b8-4afc-bdf1-9ca43bb67dec"], +Cell[314132, 5655, 176, 3, 45, "Text",ExpressionUUID->"4c8b925d-94a9-4adf-aa3d-4e8e18cd80cd"], +Cell[CellGroupData[{ +Cell[314333, 5662, 842, 22, 194, "Input",ExpressionUUID->"c5d9b45a-6b83-4ddc-a87c-2ee5e3e1ee39"], +Cell[315178, 5686, 16565, 293, 308, "Output",ExpressionUUID->"1a880765-a62b-417f-ad6f-ced03c8ad0dd"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[331792, 5985, 174, 3, 45, "Subsubsection",ExpressionUUID->"eda4e1a3-0ed0-4596-8877-57fd702be02e"], +Cell[331969, 5990, 198, 3, 45, "Text",ExpressionUUID->"0e9e744d-3a32-4a29-b193-b49d674b3c36"], +Cell[CellGroupData[{ +Cell[332192, 5997, 1222, 34, 272, "Input",ExpressionUUID->"55d33a37-8b59-435c-a061-abb174ac02a9"], +Cell[333417, 6033, 60452, 1016, 308, "Output",ExpressionUUID->"072975e1-4f07-4e56-951f-8ff1cc06c14c"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[393918, 7055, 179, 3, 45, "Subsubsection",ExpressionUUID->"aa77cda8-c7e7-4688-9de6-8f5ad8dc6972"], +Cell[394100, 7060, 198, 3, 45, "Text",ExpressionUUID->"e86c8cc4-fe4c-4eb5-959e-d6a9f268b64b"], +Cell[CellGroupData[{ +Cell[394323, 7067, 1314, 36, 272, "Input",ExpressionUUID->"bf3c28dd-01b5-4814-8568-f604154f80e3"], +Cell[395640, 7105, 69789, 1171, 315, "Output",ExpressionUUID->"744d0afc-fb94-4b4f-8b50-76085225f3fa"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[465490, 8283, 232, 4, 48, "Subsection",ExpressionUUID->"9c6e96cf-2a83-4ad0-89b1-3031a45a3f02"], +Cell[465725, 8289, 158, 3, 60, "Input",ExpressionUUID->"eb513c10-7b28-4b19-91e4-9aa53b4cba84"], +Cell[CellGroupData[{ +Cell[465908, 8296, 167, 3, 57, "Subsubsection",ExpressionUUID->"afa40f45-0f95-48d0-b3b7-5bb193554952"], +Cell[466078, 8301, 300, 4, 45, "Text",ExpressionUUID->"b6fd2b59-e30d-4c28-8d96-3e9a0f16f131"], +Cell[466381, 8307, 952, 29, 64, "Input",ExpressionUUID->"16d61f6a-15ae-43af-aa2e-359703ba8f9e"], +Cell[467336, 8338, 165, 3, 45, "Text",ExpressionUUID->"eef8f48d-7e28-4dfa-971d-3a0885ef55b5"], +Cell[CellGroupData[{ +Cell[467526, 8345, 962, 25, 220, "Input",ExpressionUUID->"5a4c54da-a22c-4a73-b751-e9e23305ae5d"], +Cell[468491, 8372, 4588, 97, 322, "Output",ExpressionUUID->"caa85144-377b-44c2-ae16-12a353b3bcdb"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[473128, 8475, 172, 3, 45, "Subsubsection",ExpressionUUID->"a7806193-808e-41c3-9eab-b070ee95603c"], +Cell[473303, 8480, 251, 6, 45, "Text",ExpressionUUID->"3b6da3aa-4d44-4c8c-a60f-8b04d5b03258"], +Cell[CellGroupData[{ +Cell[473579, 8490, 1378, 39, 298, "Input",ExpressionUUID->"8ea55d31-ba65-42e5-8735-8ced4f772c31"], +Cell[474960, 8531, 16156, 291, 312, "Output",ExpressionUUID->"5b17cae5-2767-44c3-885a-5c7efbcb36d6"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[491165, 8828, 179, 3, 45, "Subsubsection",ExpressionUUID->"660bad55-8354-4520-a413-0b1acafb5587"], +Cell[491347, 8833, 198, 3, 45, "Text",ExpressionUUID->"70ceac25-56c0-4ed6-91fd-fa7c3b10fe79"], +Cell[CellGroupData[{ +Cell[491570, 8840, 1427, 39, 298, "Input",ExpressionUUID->"3f35a236-7472-45c4-bc9e-e4eb9cee5929"], +Cell[493000, 8881, 16885, 304, 312, "Output",ExpressionUUID->"90419970-bc61-4ca7-8930-155a52e41a89"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[509946, 9192, 180, 3, 48, "Subsection",ExpressionUUID->"d27fab7e-7880-43b7-ab72-955aaaa4a8be"], +Cell[510129, 9197, 158, 3, 60, "Input",ExpressionUUID->"f35bda0c-8811-4e03-9971-9439a20e928b"], +Cell[CellGroupData[{ +Cell[510312, 9204, 167, 3, 57, "Subsubsection",ExpressionUUID->"1273cd7d-7380-4ae6-a979-38bd72ad8e62"], +Cell[510482, 9209, 519, 13, 64, "Input",ExpressionUUID->"cd3c72eb-49f6-4296-92eb-a5a3951adf2b"], +Cell[511004, 9224, 178, 3, 45, "Text",ExpressionUUID->"830de3dc-cb3e-4e78-9c01-2bfa45873569"], +Cell[CellGroupData[{ +Cell[511207, 9231, 880, 23, 168, "Input",ExpressionUUID->"005602e0-9187-40cf-971c-b8b42c4d42dc"], +Cell[512090, 9256, 6919, 136, 312, "Output",ExpressionUUID->"a13cf0e4-2604-439a-9666-ed174c342b71"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[519058, 9398, 172, 3, 45, "Subsubsection",ExpressionUUID->"638c735d-415c-4140-9361-bba91a9a38ec"], +Cell[519233, 9403, 251, 6, 45, "Text",ExpressionUUID->"a3f33a8e-e7fa-489c-b7ca-285a4ee12cc0"], +Cell[CellGroupData[{ +Cell[519509, 9413, 1378, 39, 298, "Input",ExpressionUUID->"4894f886-59da-469d-8907-928111f6ebcb"], +Cell[520890, 9454, 16156, 291, 312, "Output",ExpressionUUID->"13313e39-9dd9-46c4-af2e-e6083d84f78b"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[537095, 9751, 179, 3, 45, "Subsubsection",ExpressionUUID->"341d659f-0609-4c33-8455-b884182fbe6d"], +Cell[537277, 9756, 198, 3, 45, "Text",ExpressionUUID->"b5f51c8f-8e08-48ab-b3db-6e739021343c"], +Cell[CellGroupData[{ +Cell[537500, 9763, 1425, 39, 298, "Input",ExpressionUUID->"d2b678d3-001f-4866-8bcc-0dc6d237808a"], +Cell[538928, 9804, 16885, 304, 312, "Output",ExpressionUUID->"d55831f9-65ab-4daf-9d22-57153de41cff"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +}, Closed]] +} +] +*) + diff --git a/Notebooks/2-DosParticulas.nb b/Notebooks/2-DosParticulas.nb new file mode 100644 index 0000000..74f0837 --- /dev/null +++ b/Notebooks/2-DosParticulas.nb @@ -0,0 +1,970 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 13.2' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 34791, 962] +NotebookOptionsPosition[ 29321, 863] +NotebookOutlinePosition[ 29786, 881] +CellTagsIndexPosition[ 29743, 878] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell["Dos part\[IAcute]culas acopladas", "Title", + CellChangeTimes->{{3.898186241363925*^9, 3.8981862551632557`*^9}, { + 3.898187720916862*^9, + 3.898187725716125*^9}},ExpressionUUID->"480d5f7d-45fb-40a1-bc21-\ +04aa8b6ee330"], + +Cell[CellGroupData[{ + +Cell["Sin rotaci\[OAcute]n", "Section", + CellChangeTimes->{{3.8981879197215033`*^9, + 3.8981879241770906`*^9}},ExpressionUUID->"b974cc17-55a0-4238-9726-\ +89063ea3bdd0"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8981879582410917`*^9, + 3.8981879586966057`*^9}},ExpressionUUID->"42198e70-59cc-4baa-887a-\ +d542477e9c01"], + +Cell[CellGroupData[{ + +Cell["Posici\[OAcute]n", "Subsection", + CellChangeTimes->{{3.89818754854432*^9, 3.8981875523990498`*^9}, { + 3.898187762325726*^9, + 3.898187763579722*^9}},ExpressionUUID->"ee16e0b6-b83f-423c-8a48-\ +c49492382792"], + +Cell["\<\ +Para despejar la posici\[OAcute]n de cada part\[IAcute]cula escribimos la \ +condici\[OAcute]n para que el centro de masas est\[EAcute] en el origen y la \ +ecuaci\[OAcute]n que define \[Delta]x\ +\>", "Text", + CellChangeTimes->{{3.8981877712604923`*^9, + 3.8981878082431*^9}},ExpressionUUID->"13ffddb6-291b-4611-aca3-14e06aae2f1a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ecua", "=", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"x2", "[", "t", "]"}]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",", " ", + RowBox[{ + RowBox[{"\[Delta]x", "[", "t", "]"}], "==", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "-", + RowBox[{"x1", "[", "t", "]"}], "-", "a"}]}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.896457308734207*^9, 3.896457330022421*^9}, { + 3.896457376989176*^9, 3.896457399517359*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"3fdf529b-6ca2-4052-93f5-28cbb9234fe8"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"x2", "[", "t", "]"}]}]}], + RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"\[Delta]x", "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"-", "a"}], "-", + RowBox[{"x1", "[", "t", "]"}], "+", + RowBox[{"x2", "[", "t", "]"}]}]}]}], "}"}]], "Output", + CellChangeTimes->{3.896457414022626*^9, 3.8981885540157557`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"01da35b0-cd67-4fdc-b6bc-e7b684ceae69"] +}, Open ]], + +Cell["\<\ +De donde podemos resolver para las posiciones de cada una de las \ +part\[IAcute]culas\ +\>", "Text", + CellChangeTimes->{{3.8981878131637497`*^9, + 3.898187830834487*^9}},ExpressionUUID->"4f8b2285-0cd8-4343-8c01-\ +3e5e523df48d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Solve", "[", + RowBox[{"Ecua", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", + RowBox[{"x2", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896457416406809*^9, 3.896457426276842*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"26cc42a2-1bd0-4fb4-b7db-245ea00419b1"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], ",", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "\[Rule]", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], "}"}], "}"}]], "Output", + CellChangeTimes->{3.896457427412499*^9, 3.898188555742094*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"2338d8af-ad8a-46a4-b7db-f84f2f6ad291"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"x1", "[", "t_", "]"}], "=", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]}]], "Input", + CellChangeTimes->{{3.896457456940403*^9, 3.8964574636284323`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"f8972876-dd7e-4c11-b1c5-61dc36d9c99e"], + +Cell[BoxData[ + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]], "Output", + CellChangeTimes->{3.896457466398056*^9, 3.898188558024366*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"e7952def-6cf1-4fc0-bbea-43768e8561eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"x2", "[", "t_", "]"}], "=", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]], "Input", + CellChangeTimes->{{3.896457468557444*^9, 3.8964574701165743`*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"58bca70d-f0e6-4a30-946e-1554264bdf22"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]], "Output", + CellChangeTimes->{3.896457470909659*^9, 3.898188558911467*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"1ca25d75-5688-48e8-8112-66809e8d0bc1"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898187847546523*^9, + 3.898187856978285*^9}},ExpressionUUID->"6decf108-24d7-4a03-be4f-\ +0fd59c5e9a16"], + +Cell["La soluci\[OAcute]n para la distancia relativa toma la forma", "Text", + CellChangeTimes->{{3.898187861370549*^9, + 3.8981878704579697`*^9}},ExpressionUUID->"753c7e11-3e39-4276-8b7d-\ +a52d4b4139bd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Delta]x", "[", "t_", "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]0", " ", "t"}], "+", "\[Delta]"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.896457479568157*^9, 3.896457492670999*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"a0a4084c-a24d-48c8-b8f7-daf8e3a9d4a6"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981878752743683`*^9, + 3.898187885345747*^9}},ExpressionUUID->"d1cdfd61-dc32-41f3-abbe-\ +95b4ba474db6"], + +Cell["Para hacer una animaci\[OAcute]n les damos valores a las constantes", \ +"Text", + CellChangeTimes->{{3.898187889658066*^9, + 3.898187898313472*^9}},ExpressionUUID->"a125df6f-4922-45c7-a22c-\ +8a0b91af419d"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", "2"}], " ", ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m1", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m2", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", "5"}], ";"}]}], "Input", + CellChangeTimes->{{3.896375953501997*^9, 3.8963760407089233`*^9}, { + 3.896457513235818*^9, 3.896457539363508*^9}, {3.896457596259014*^9, + 3.8964576439066343`*^9}, {3.896457717649619*^9, 3.896457738249598*^9}, + 3.898187901057806*^9}, + CellLabel->"In[6]:=",ExpressionUUID->"e6917571-3a29-4ce5-93a0-8c8218badcfa"], + +Cell["Con lo cual tenemos", "Text", + CellChangeTimes->{{3.8981879022358093`*^9, + 3.8981879052253113`*^9}},ExpressionUUID->"37c132dd-4c82-458a-9b8e-\ +a777da667b2e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "10"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "5"}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"Orange", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", "0"}], "}"}], ",", + RowBox[{"m1", "/", "5"}]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Red", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], ",", "0"}], "}"}], ",", + RowBox[{"m2", "/", "5"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896375817168126*^9, 3.8963759443904457`*^9}, { + 3.896457552029765*^9, 3.896457576652191*^9}, {3.896457660292104*^9, + 3.896457708378468*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"729a51b4-d4eb-4e4a-af91-f2413b14be68"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 2.7485733032226562`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 10}}, Typeset`size$$ = { + 468., {118., 124.61120000000003`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-10, -5}, {10, 5}}], {Orange, + Disk[{ + $CellContext`x1[$CellContext`t$$], 0}, $CellContext`m1/5]}, { + Red, + Disk[{ + $CellContext`x2[$CellContext`t$$], 0}, $CellContext`m2/5]}}], + "Specifications" :> {{$CellContext`t$$, 0, 10, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {144.861328125, 152.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.896457579444209*^9, 3.896457587248307*^9}, { + 3.896457692080243*^9, 3.896457709211211*^9}, 3.898188567375654*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"b6945712-0de8-46fe-8d19-06a61a6a0d55"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Con rotaci\[OAcute]n", "Section", + CellChangeTimes->{{3.898187945233396*^9, + 3.8981879493847513`*^9}},ExpressionUUID->"7b684eea-f038-4be2-8190-\ +458ab7df58a0"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.898187950586862*^9, 3.898187951048921*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"eed998e3-8ae2-458a-b79d-a508c50d8295"], + +Cell[CellGroupData[{ + +Cell["Posici\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898188599215283*^9, + 3.8981886028680553`*^9}},ExpressionUUID->"ad0106d0-60fc-4834-a536-\ +eeed2b1b7852"], + +Cell["\<\ +Escribiendo la condici\[OAcute]n para que el centro de masas est\[EAcute] en \ +el origen y la definici\[OAcute]n de las coordenadas relativas\ +\>", "Text", + CellChangeTimes->{{3.898188594216194*^9, + 3.8981886310384398`*^9}},ExpressionUUID->"a48ebb11-4795-4b6a-8c4c-\ +fb19b5790f04"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ecua", "=", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"x2", "[", "t", "]"}]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"y1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"y2", "[", "t", "]"}]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",", " ", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "==", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "-", + RowBox[{"x1", "[", "t", "]"}]}]}], ",", " ", + RowBox[{ + RowBox[{"y", "[", "t", "]"}], "==", + RowBox[{ + RowBox[{"y2", "[", "t", "]"}], "-", + RowBox[{"y1", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.896457308734207*^9, 3.896457330022421*^9}, { + 3.896457376989176*^9, 3.896457399517359*^9}, {3.8964578290894203`*^9, + 3.896457836232074*^9}, {3.8964578754157143`*^9, 3.896457890658156*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"0a5af4df-c4be-42e3-b2cb-461bdc1208dc"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"x2", "[", "t", "]"}]}]}], + RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",", + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"y1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"y2", "[", "t", "]"}]}]}], + RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"-", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"x2", "[", "t", "]"}]}]}], ",", + RowBox[{ + RowBox[{"y", "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"-", + RowBox[{"y1", "[", "t", "]"}]}], "+", + RowBox[{"y2", "[", "t", "]"}]}]}]}], "}"}]], "Output", + CellChangeTimes->{3.896457895671381*^9, 3.898188639866578*^9, + 3.8981888871907873`*^9, 3.898188935027437*^9, 3.898189000408153*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"fe913b27-fdef-434e-a15a-ed3491be573a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Solve", "[", + RowBox[{"Ecua", ",", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", + RowBox[{"x2", "[", "t", "]"}], ",", + RowBox[{"y1", "[", "t", "]"}], ",", + RowBox[{"y2", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896457896680479*^9, 3.896457915777026*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"e1532ae4-d773-48d8-a5f5-06b39a8d7a9d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"x", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], ",", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "\[Rule]", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"x", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}], ",", + RowBox[{ + RowBox[{"y1", "[", "t", "]"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"y", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], ",", + RowBox[{ + RowBox[{"y2", "[", "t", "]"}], "\[Rule]", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"y", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], "}"}], "}"}]], "Output", + CellChangeTimes->{3.8964579165905113`*^9, 3.898188640142844*^9, + 3.898188887256571*^9, 3.898188935095272*^9, 3.8981890009189587`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"3e3bea4f-00ad-4cd6-8b26-9a87ed12b68b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x1", "[", "t_", "]"}], ":=", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"x", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}]], "Input", + CellChangeTimes->{{3.896457938972465*^9, 3.896457957054851*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"28868a16-3caf-4152-bbc8-54812671134c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x2", "[", "t_", "]"}], ":=", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"x", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]], "Input", + CellChangeTimes->{{3.8964579468071938`*^9, 3.89645796271911*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"49ee20b9-680b-4600-b0bf-04583f1a93a8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"y1", "[", "t_", "]"}], ":=", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"y", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}]], "Input", + CellChangeTimes->{{3.896457965511003*^9, 3.896457970375597*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"9c5b1b7e-cd32-47dd-b3b4-e715f9d7ba3f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"y2", "[", "t_", "]"}], ":=", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"y", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]], "Input", + CellChangeTimes->{{3.896457974198711*^9, 3.89645797606291*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"1e6b2124-52c1-4df4-9531-f4de460b34e6"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898188650022894*^9, + 3.898188658141952*^9}},ExpressionUUID->"300e363a-6fa3-4506-a28e-\ +0cc805060c32"], + +Cell["La soluci\[OAcute]n se escribe", "Text", + CellChangeTimes->{{3.8981886593983603`*^9, + 3.898188665837881*^9}},ExpressionUUID->"54817b92-b1d0-41b8-ba4d-\ +4f48527812de"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{"r", "[", "t", "]"}], + RowBox[{"Cos", "[", + RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.896458004318989*^9, 3.896458019454575*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"b5d963c6-b4c9-4b23-a357-48cf17309d61"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"y", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{"r", "[", "t", "]"}], + RowBox[{"Sin", "[", + RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"r", "[", "t_", "]"}], ":=", " ", + RowBox[{"rc", "+", + RowBox[{"\[Delta]r", "[", "t", "]"}]}]}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]r", "[", "t_", "]"}], ":=", " ", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]0", " ", "t"}], "+", "\[Delta]"}], "]"}]}]}]}], "Input",\ + + CellChangeTimes->{{3.8964580340308657`*^9, 3.89645803771054*^9}, { + 3.898188679414411*^9, 3.898188685422063*^9}, {3.898188909699025*^9, + 3.8981889113308783`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"114b89ed-032b-4645-8bf0-ec622e8e8b7f"], + +Cell["Donde tenemos que el \[AAcute]ngulo est\[AAcute] dado por", "Text", + CellChangeTimes->{{3.8981886909738703`*^9, 3.89818869567738*^9}, { + 3.898188914218286*^9, + 3.898188918458023*^9}},ExpressionUUID->"313b80ea-ba8c-4d2c-9156-\ +68be22c8d474"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "[", " ", + RowBox[{ + RowBox[{"lz", "/", + RowBox[{"(", + RowBox[{"m", " ", + RowBox[{ + RowBox[{"r", "[", "t", "]"}], "^", "2"}]}], ")"}]}], ",", "t"}], + "]"}], "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.896458076440695*^9, 3.896458091361875*^9}, { + 3.898188700029801*^9, 3.898188710133851*^9}, 3.898188793013299*^9, { + 3.898188904899444*^9, 3.898188922682534*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"c1be3eaf-0440-4a74-8b44-2d77aea22e8b"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"lz", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", "rc", " ", + RowBox[{"ArcTanh", "[", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "A"}], "+", "rc"}], ")"}], " ", + RowBox[{"Tan", "[", + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], ")"}]}], "]"}]}], + SqrtBox[ + RowBox[{ + SuperscriptBox["A", "2"], "-", + SuperscriptBox["rc", "2"]}]]], "]"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["A", "2"], "-", + SuperscriptBox["rc", "2"]}], ")"}], + RowBox[{"3", "/", "2"}]]], "+", + FractionBox[ + RowBox[{"A", " ", + RowBox[{"Sin", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}], + RowBox[{ + RowBox[{"(", + RowBox[{"A", "-", "rc"}], ")"}], " ", + RowBox[{"(", + RowBox[{"A", "+", "rc"}], ")"}], " ", + RowBox[{"(", + RowBox[{"rc", "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}]}], ")"}]}]]}], ")"}]}], + RowBox[{"m", " ", "\[Omega]0"}]]], "Output", + CellChangeTimes->{ + 3.898188793862525*^9, {3.8981889233192043`*^9, 3.898188935541335*^9}, + 3.8981890012595463`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"0b03e658-f1aa-4d7b-9f70-03a8551a57b3"] +}, Open ]], + +Cell["Es decir que", "Text", + CellChangeTimes->{{3.898188943482963*^9, + 3.89818894721768*^9}},ExpressionUUID->"0dd4c4bf-990f-4363-a4d3-\ +5d419d7ac1f9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Theta]", "[", "t_", "]"}], ":=", + FractionBox[ + RowBox[{"lz", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", "rc", " ", + RowBox[{"ArcTanh", "[", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "A"}], "+", "rc"}], ")"}], " ", + RowBox[{"Tan", "[", + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], ")"}]}], "]"}]}], + SqrtBox[ + RowBox[{ + SuperscriptBox["A", "2"], "-", + SuperscriptBox["rc", "2"]}]]], "]"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["A", "2"], "-", + SuperscriptBox["rc", "2"]}], ")"}], + RowBox[{"3", "/", "2"}]]], "+", + FractionBox[ + RowBox[{"A", " ", + RowBox[{"Sin", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}], + RowBox[{ + RowBox[{"(", + RowBox[{"A", "-", "rc"}], ")"}], " ", + RowBox[{"(", + RowBox[{"A", "+", "rc"}], ")"}], " ", + RowBox[{"(", + RowBox[{"rc", "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}]}], ")"}]}]]}], + ")"}]}], + RowBox[{"m", " ", "\[Omega]0"}]]}]], "Input", + CellChangeTimes->{{3.898188939937871*^9, 3.8981889408207903`*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"723d2ab1-2464-4ea3-aa5a-01d47ff4c4bf"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898188730021204*^9, + 3.898188735076913*^9}},ExpressionUUID->"aca16a25-b56d-4c0a-add0-\ +d30b160a349c"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", + RowBox[{"1", "/", "50"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m1", "=", "8"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m2", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"rc", "=", "8"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"lz", "=", "5"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"m", ":=", " ", + RowBox[{"m1", " ", + RowBox[{"m2", "/", + RowBox[{"(", + RowBox[{"m1", "+", "m2"}], ")"}]}]}]}]}], "Input", + CellChangeTimes->{{3.896458282345139*^9, 3.896458283025153*^9}, { + 3.896458345384122*^9, 3.896458369558832*^9}, {3.8964584187654963`*^9, + 3.896458447726945*^9}, {3.898188721141343*^9, 3.89818872182968*^9}, { + 3.8981888104766083`*^9, 3.898188867263801*^9}, {3.898188981521991*^9, + 3.898189076328623*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"82f5f3c4-ae67-41e3-9ca7-f3d813c39c7e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "10"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "5"}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"Orange", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", + RowBox[{"y1", "[", "t", "]"}]}], "}"}], ",", + RowBox[{"m1", "/", "5"}]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Red", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], ",", + RowBox[{"y2", "[", "t", "]"}]}], "}"}], ",", + RowBox[{"m2", "/", "5"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896375817168126*^9, 3.8963759443904457`*^9}, { + 3.896457552029765*^9, 3.896457576652191*^9}, {3.896457660292104*^9, + 3.896457708378468*^9}, {3.8964582591628838`*^9, 3.896458268554235*^9}, { + 3.896458379423952*^9, 3.8964583795688343`*^9}, {3.898189063068075*^9, + 3.898189088240901*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"5ccced87-5f94-4bbd-991f-63eae327c52a"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 22.47868537902832, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 100}}, Typeset`size$$ = { + 468., {118., 124.61120000000003`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-10, -5}, {10, 5}}], {Orange, + Disk[{ + $CellContext`x1[$CellContext`t$$], + $CellContext`y1[$CellContext`t$$]}, $CellContext`m1/5]}, {Red, + Disk[{ + $CellContext`x2[$CellContext`t$$], + $CellContext`y2[$CellContext`t$$]}, $CellContext`m2/5]}}], + "Specifications" :> {{$CellContext`t$$, 0, 100, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {144.861328125, 152.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.896458286998783*^9, {3.8964583310683126`*^9, 3.896458379913609*^9}, + 3.898188750571588*^9, {3.898188806218657*^9, 3.898188869839446*^9}, { + 3.8981889558918657`*^9, 3.898188984122568*^9}, {3.898189063893229*^9, + 3.898189089053257*^9}}, + CellLabel-> + "Out[103]=",ExpressionUUID->"4c953d68-042f-4350-8ed7-100664874395"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +}, +WindowSize->{1200, 627}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +TaggingRules-><|"TryRealOnly" -> False|>, +Magnification:>1.3 Inherited, +FrontEndVersion->"13.2 para Linux x86 (64-bit) (January 30, 2023)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"0d356e19-cbe2-47c8-984e-a5f9b886db41" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 226, 4, 127, "Title",ExpressionUUID->"480d5f7d-45fb-40a1-bc21-04aa8b6ee330"], +Cell[CellGroupData[{ +Cell[831, 30, 169, 3, 87, "Section",ExpressionUUID->"b974cc17-55a0-4238-9726-89063ea3bdd0"], +Cell[1003, 35, 160, 3, 60, "Input",ExpressionUUID->"42198e70-59cc-4baa-887a-d542477e9c01"], +Cell[CellGroupData[{ +Cell[1188, 42, 214, 4, 70, "Subsection",ExpressionUUID->"ee16e0b6-b83f-423c-8a48-c49492382792"], +Cell[1405, 48, 340, 6, 75, "Text",ExpressionUUID->"13ffddb6-291b-4611-aca3-14e06aae2f1a"], +Cell[CellGroupData[{ +Cell[1770, 58, 760, 21, 42, "Input",ExpressionUUID->"3fdf529b-6ca2-4052-93f5-28cbb9234fe8"], +Cell[2533, 81, 638, 18, 65, "Output",ExpressionUUID->"01da35b0-cd67-4fdc-b6bc-e7b684ceae69"] +}, Open ]], +Cell[3186, 102, 237, 6, 45, "Text",ExpressionUUID->"4f8b2285-0cd8-4343-8c01-3e5e523df48d"], +Cell[CellGroupData[{ +Cell[3448, 112, 341, 8, 60, "Input",ExpressionUUID->"26cc42a2-1bd0-4fb4-b7db-245ea00419b1"], +Cell[3792, 122, 754, 22, 65, "Output",ExpressionUUID->"2338d8af-ad8a-46a4-b7db-f84f2f6ad291"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4583, 149, 412, 11, 63, "Input",ExpressionUUID->"f8972876-dd7e-4c11-b1c5-61dc36d9c99e"], +Cell[4998, 162, 350, 9, 65, "Output",ExpressionUUID->"e7952def-6cf1-4fc0-bbea-43768e8561eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5385, 176, 388, 10, 63, "Input",ExpressionUUID->"58bca70d-f0e6-4a30-946e-1554264bdf22"], +Cell[5776, 188, 327, 8, 65, "Output",ExpressionUUID->"1ca25d75-5688-48e8-8112-66809e8d0bc1"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6152, 202, 164, 3, 48, "Subsection",ExpressionUUID->"6decf108-24d7-4a03-be4f-0fd59c5e9a16"], +Cell[6319, 207, 204, 3, 45, "Text",ExpressionUUID->"753c7e11-3e39-4276-8b7d-a52d4b4139bd"], +Cell[6526, 212, 351, 8, 64, "Input",ExpressionUUID->"a0a4084c-a24d-48c8-b8f7-daf8e3a9d4a6"] +}, Closed]], +Cell[CellGroupData[{ +Cell[6914, 225, 167, 3, 48, "Subsection",ExpressionUUID->"d1cdfd61-dc32-41f3-abbe-95b4ba474db6"], +Cell[7084, 230, 211, 4, 45, "Text",ExpressionUUID->"a125df6f-4922-45c7-a22c-8a0b91af419d"], +Cell[7298, 236, 751, 17, 172, "Input",ExpressionUUID->"e6917571-3a29-4ce5-93a0-8c8218badcfa"], +Cell[8052, 255, 165, 3, 45, "Text",ExpressionUUID->"37c132dd-4c82-458a-9b8e-a777da667b2e"], +Cell[CellGroupData[{ +Cell[8242, 262, 1277, 36, 160, "Input",ExpressionUUID->"729a51b4-d4eb-4e4a-af91-f2413b14be68"], +Cell[9522, 300, 2265, 45, 321, "Output",ExpressionUUID->"b6945712-0de8-46fe-8d19-06a61a6a0d55"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[11848, 352, 167, 3, 67, "Section",ExpressionUUID->"7b684eea-f038-4be2-8190-458ab7df58a0"], +Cell[12018, 357, 175, 2, 60, "Input",ExpressionUUID->"eed998e3-8ae2-458a-b79d-a508c50d8295"], +Cell[CellGroupData[{ +Cell[12218, 363, 166, 3, 70, "Subsection",ExpressionUUID->"ad0106d0-60fc-4834-a536-eeed2b1b7852"], +Cell[12387, 368, 293, 6, 45, "Text",ExpressionUUID->"a48ebb11-4795-4b6a-8c4c-fb19b5790f04"], +Cell[CellGroupData[{ +Cell[12705, 378, 1311, 37, 72, "Input",ExpressionUUID->"0a5af4df-c4be-42e3-b2cb-461bdc1208dc"], +Cell[14019, 417, 1114, 33, 70, "Output",ExpressionUUID->"fe913b27-fdef-434e-a15a-ed3491be573a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15170, 455, 430, 10, 64, "Input",ExpressionUUID->"e1532ae4-d773-48d8-a5f5-06b39a8d7a9d"], +Cell[15603, 467, 1090, 32, 70, "Output",ExpressionUUID->"3e3bea4f-00ad-4cd6-8b26-9a87ed12b68b"] +}, Open ]], +Cell[16708, 502, 348, 9, 63, "Input",ExpressionUUID->"28868a16-3caf-4152-bbc8-54812671134c"], +Cell[17059, 513, 327, 8, 63, "Input",ExpressionUUID->"49ee20b9-680b-4600-b0bf-04583f1a93a8"], +Cell[17389, 523, 348, 9, 63, "Input",ExpressionUUID->"9c5b1b7e-cd32-47dd-b3b4-e715f9d7ba3f"], +Cell[17740, 534, 325, 8, 63, "Input",ExpressionUUID->"1e6b2124-52c1-4df4-9531-f4de460b34e6"] +}, Closed]], +Cell[CellGroupData[{ +Cell[18102, 547, 164, 3, 48, "Subsection",ExpressionUUID->"300e363a-6fa3-4506-a28e-0cc805060c32"], +Cell[18269, 552, 174, 3, 45, "Text",ExpressionUUID->"54817b92-b1d0-41b8-ba4d-4f48527812de"], +Cell[18446, 557, 338, 8, 62, "Input",ExpressionUUID->"b5d963c6-b4c9-4b23-a357-48cf17309d61"], +Cell[18787, 567, 844, 23, 169, "Input",ExpressionUUID->"114b89ed-032b-4645-8bf0-ec622e8e8b7f"], +Cell[19634, 592, 249, 4, 45, "Text",ExpressionUUID->"313b80ea-ba8c-4d2c-9156-68be22c8d474"], +Cell[CellGroupData[{ +Cell[19908, 600, 539, 13, 93, "Input",ExpressionUUID->"c1be3eaf-0440-4a74-8b44-2d77aea22e8b"], +Cell[20450, 615, 1632, 49, 70, "Output",ExpressionUUID->"0b03e658-f1aa-4d7b-9f70-03a8551a57b3"] +}, Open ]], +Cell[22097, 667, 153, 3, 45, "Text",ExpressionUUID->"0dd4c4bf-990f-4363-a4d3-5d419d7ac1f9"], +Cell[22253, 672, 1688, 50, 134, "Input",ExpressionUUID->"723d2ab1-2464-4ea3-aa5a-01d47ff4c4bf"] +}, Closed]], +Cell[CellGroupData[{ +Cell[23978, 727, 165, 3, 48, "Subsection",ExpressionUUID->"aca16a25-b56d-4c0a-add0-d30b160a349c"], +Cell[24146, 732, 1109, 28, 250, "Input",ExpressionUUID->"82f5f3c4-ae67-41e3-9ca7-f3d813c39c7e"], +Cell[CellGroupData[{ +Cell[25280, 764, 1508, 41, 110, "Input",ExpressionUUID->"5ccced87-5f94-4bbd-991f-63eae327c52a"], +Cell[26791, 807, 2478, 50, 321, "Output",ExpressionUUID->"4c953d68-042f-4350-8ed7-100664874395"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +} +] +*) + diff --git a/Notebooks/3-TresParticulasEnLinea.nb b/Notebooks/3-TresParticulasEnLinea.nb new file mode 100644 index 0000000..d747c54 --- /dev/null +++ b/Notebooks/3-TresParticulasEnLinea.nb @@ -0,0 +1,3639 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 13.2' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 139683, 3631] +NotebookOptionsPosition[ 127288, 3424] +NotebookOutlinePosition[ 127753, 3442] +CellTagsIndexPosition[ 127710, 3439] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell["Dos part\[IAcute]culas acopladas", "Title", + CellChangeTimes->{{3.898186241363925*^9, 3.8981862551632557`*^9}, { + 3.898187720916862*^9, + 3.898187725716125*^9}},ExpressionUUID->"480d5f7d-45fb-40a1-bc21-\ +04aa8b6ee330"], + +Cell[CellGroupData[{ + +Cell["Sin rotaci\[OAcute]n", "Section", + CellChangeTimes->{{3.8981879197215033`*^9, + 3.8981879241770906`*^9}},ExpressionUUID->"b974cc17-55a0-4238-9726-\ +89063ea3bdd0"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8981879582410917`*^9, + 3.8981879586966057`*^9}},ExpressionUUID->"42198e70-59cc-4baa-887a-\ +d542477e9c01"], + +Cell[CellGroupData[{ + +Cell["Posici\[OAcute]n", "Subsection", + CellChangeTimes->{{3.89818754854432*^9, 3.8981875523990498`*^9}, { + 3.898187762325726*^9, + 3.898187763579722*^9}},ExpressionUUID->"ee16e0b6-b83f-423c-8a48-\ +c49492382792"], + +Cell["\<\ +Para despejar la posici\[OAcute]n de cada part\[IAcute]cula escribimos la \ +condici\[OAcute]n para que el centro de masas est\[EAcute] en el origen y la \ +ecuaci\[OAcute]n que define \[Delta]x\ +\>", "Text", + CellChangeTimes->{{3.8981877712604923`*^9, + 3.8981878082431*^9}},ExpressionUUID->"13ffddb6-291b-4611-aca3-14e06aae2f1a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ecua", "=", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"x2", "[", "t", "]"}]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",", " ", + RowBox[{ + RowBox[{"\[Delta]x", "[", "t", "]"}], "==", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "-", + RowBox[{"x1", "[", "t", "]"}], "-", "a"}]}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.896457308734207*^9, 3.896457330022421*^9}, { + 3.896457376989176*^9, 3.896457399517359*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"3fdf529b-6ca2-4052-93f5-28cbb9234fe8"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"x2", "[", "t", "]"}]}]}], + RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"\[Delta]x", "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"-", "a"}], "-", + RowBox[{"x1", "[", "t", "]"}], "+", + RowBox[{"x2", "[", "t", "]"}]}]}]}], "}"}]], "Output", + CellChangeTimes->{3.896457414022626*^9, 3.8981885540157557`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"01da35b0-cd67-4fdc-b6bc-e7b684ceae69"] +}, Open ]], + +Cell["\<\ +De donde podemos resolver para las posiciones de cada una de las \ +part\[IAcute]culas\ +\>", "Text", + CellChangeTimes->{{3.8981878131637497`*^9, + 3.898187830834487*^9}},ExpressionUUID->"4f8b2285-0cd8-4343-8c01-\ +3e5e523df48d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Solve", "[", + RowBox[{"Ecua", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", + RowBox[{"x2", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896457416406809*^9, 3.896457426276842*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"26cc42a2-1bd0-4fb4-b7db-245ea00419b1"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], ",", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "\[Rule]", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], "}"}], "}"}]], "Output", + CellChangeTimes->{3.896457427412499*^9, 3.898188555742094*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"2338d8af-ad8a-46a4-b7db-f84f2f6ad291"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"x1", "[", "t_", "]"}], "=", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]}]], "Input", + CellChangeTimes->{{3.896457456940403*^9, 3.8964574636284323`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"f8972876-dd7e-4c11-b1c5-61dc36d9c99e"], + +Cell[BoxData[ + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]], "Output", + CellChangeTimes->{3.896457466398056*^9, 3.898188558024366*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"e7952def-6cf1-4fc0-bbea-43768e8561eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"x2", "[", "t_", "]"}], "=", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]}]], "Input", + CellChangeTimes->{{3.896457468557444*^9, 3.8964574701165743`*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"58bca70d-f0e6-4a30-946e-1554264bdf22"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"(", + RowBox[{"a", "+", + RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}], + RowBox[{"m1", "+", "m2"}]]], "Output", + CellChangeTimes->{3.896457470909659*^9, 3.898188558911467*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"1ca25d75-5688-48e8-8112-66809e8d0bc1"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898187847546523*^9, + 3.898187856978285*^9}},ExpressionUUID->"6decf108-24d7-4a03-be4f-\ +0fd59c5e9a16"], + +Cell["La soluci\[OAcute]n para la distancia relativa toma la forma", "Text", + CellChangeTimes->{{3.898187861370549*^9, + 3.8981878704579697`*^9}},ExpressionUUID->"753c7e11-3e39-4276-8b7d-\ +a52d4b4139bd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Delta]x", "[", "t_", "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]0", " ", "t"}], "+", "\[Delta]"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.896457479568157*^9, 3.896457492670999*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"a0a4084c-a24d-48c8-b8f7-daf8e3a9d4a6"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981878752743683`*^9, + 3.898187885345747*^9}},ExpressionUUID->"d1cdfd61-dc32-41f3-abbe-\ +95b4ba474db6"], + +Cell["Para hacer una animaci\[OAcute]n les damos valores a las constantes", \ +"Text", + CellChangeTimes->{{3.898187889658066*^9, + 3.898187898313472*^9}},ExpressionUUID->"a125df6f-4922-45c7-a22c-\ +8a0b91af419d"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", "2"}], " ", ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m1", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m2", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", "5"}], ";"}]}], "Input", + CellChangeTimes->{{3.896375953501997*^9, 3.8963760407089233`*^9}, { + 3.896457513235818*^9, 3.896457539363508*^9}, {3.896457596259014*^9, + 3.8964576439066343`*^9}, {3.896457717649619*^9, 3.896457738249598*^9}, + 3.898187901057806*^9}, + CellLabel->"In[6]:=",ExpressionUUID->"e6917571-3a29-4ce5-93a0-8c8218badcfa"], + +Cell["Con lo cual tenemos", "Text", + CellChangeTimes->{{3.8981879022358093`*^9, + 3.8981879052253113`*^9}},ExpressionUUID->"37c132dd-4c82-458a-9b8e-\ +a777da667b2e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "10"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "5"}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"Orange", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", "0"}], "}"}], ",", + RowBox[{"m1", "/", "5"}]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Red", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], ",", "0"}], "}"}], ",", + RowBox[{"m2", "/", "5"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896375817168126*^9, 3.8963759443904457`*^9}, { + 3.896457552029765*^9, 3.896457576652191*^9}, {3.896457660292104*^9, + 3.896457708378468*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"729a51b4-d4eb-4e4a-af91-f2413b14be68"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 2.7485733032226562`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 10}}, Typeset`size$$ = { + 468., {118., 124.61120000000003`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-10, -5}, {10, 5}}], {Orange, + Disk[{ + $CellContext`x1[$CellContext`t$$], 0}, $CellContext`m1/5]}, { + Red, + Disk[{ + $CellContext`x2[$CellContext`t$$], 0}, $CellContext`m2/5]}}], + "Specifications" :> {{$CellContext`t$$, 0, 10, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {144.861328125, 152.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.896457579444209*^9, 3.896457587248307*^9}, { + 3.896457692080243*^9, 3.896457709211211*^9}, 3.898188567375654*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"b6945712-0de8-46fe-8d19-06a61a6a0d55"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Con rotaci\[OAcute]n", "Section", + CellChangeTimes->{{3.898187945233396*^9, + 3.8981879493847513`*^9}},ExpressionUUID->"7b684eea-f038-4be2-8190-\ +458ab7df58a0"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.898187950586862*^9, 3.898187951048921*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"eed998e3-8ae2-458a-b79d-a508c50d8295"], + +Cell[CellGroupData[{ + +Cell["Posici\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898188599215283*^9, + 3.8981886028680553`*^9}},ExpressionUUID->"ad0106d0-60fc-4834-a536-\ +eeed2b1b7852"], + +Cell["\<\ +Escribiendo la condici\[OAcute]n para que el centro de masas est\[EAcute] en \ +el origen y la definici\[OAcute]n de las coordenadas relativas\ +\>", "Text", + CellChangeTimes->{{3.898188594216194*^9, + 3.8981886310384398`*^9}},ExpressionUUID->"a48ebb11-4795-4b6a-8c4c-\ +fb19b5790f04"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ecua", "=", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"x2", "[", "t", "]"}]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"y1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"y2", "[", "t", "]"}]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",", " ", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "==", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "-", + RowBox[{"x1", "[", "t", "]"}]}]}], ",", " ", + RowBox[{ + RowBox[{"y", "[", "t", "]"}], "==", + RowBox[{ + RowBox[{"y2", "[", "t", "]"}], "-", + RowBox[{"y1", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.896457308734207*^9, 3.896457330022421*^9}, { + 3.896457376989176*^9, 3.896457399517359*^9}, {3.8964578290894203`*^9, + 3.896457836232074*^9}, {3.8964578754157143`*^9, 3.896457890658156*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"0a5af4df-c4be-42e3-b2cb-461bdc1208dc"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"x2", "[", "t", "]"}]}]}], + RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",", + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"m1", " ", + RowBox[{"y1", "[", "t", "]"}]}], "+", + RowBox[{"m2", " ", + RowBox[{"y2", "[", "t", "]"}]}]}], + RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"-", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"x2", "[", "t", "]"}]}]}], ",", + RowBox[{ + RowBox[{"y", "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"-", + RowBox[{"y1", "[", "t", "]"}]}], "+", + RowBox[{"y2", "[", "t", "]"}]}]}]}], "}"}]], "Output", + CellChangeTimes->{3.896457895671381*^9, 3.898188639866578*^9, + 3.8981888871907873`*^9, 3.898188935027437*^9, 3.898189000408153*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"fe913b27-fdef-434e-a15a-ed3491be573a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Solve", "[", + RowBox[{"Ecua", ",", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", + RowBox[{"x2", "[", "t", "]"}], ",", + RowBox[{"y1", "[", "t", "]"}], ",", + RowBox[{"y2", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896457896680479*^9, 3.896457915777026*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"e1532ae4-d773-48d8-a5f5-06b39a8d7a9d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"x", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], ",", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "\[Rule]", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"x", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}], ",", + RowBox[{ + RowBox[{"y1", "[", "t", "]"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"y", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], ",", + RowBox[{ + RowBox[{"y2", "[", "t", "]"}], "\[Rule]", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"y", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}], "}"}], "}"}]], "Output", + CellChangeTimes->{3.8964579165905113`*^9, 3.898188640142844*^9, + 3.898188887256571*^9, 3.898188935095272*^9, 3.8981890009189587`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"3e3bea4f-00ad-4cd6-8b26-9a87ed12b68b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x1", "[", "t_", "]"}], ":=", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"x", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}]], "Input", + CellChangeTimes->{{3.896457938972465*^9, 3.896457957054851*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"28868a16-3caf-4152-bbc8-54812671134c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x2", "[", "t_", "]"}], ":=", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"x", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]], "Input", + CellChangeTimes->{{3.8964579468071938`*^9, 3.89645796271911*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"49ee20b9-680b-4600-b0bf-04583f1a93a8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"y1", "[", "t_", "]"}], ":=", + RowBox[{"-", + FractionBox[ + RowBox[{"m2", " ", + RowBox[{"y", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]}]], "Input", + CellChangeTimes->{{3.896457965511003*^9, 3.896457970375597*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"9c5b1b7e-cd32-47dd-b3b4-e715f9d7ba3f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"y2", "[", "t_", "]"}], ":=", + FractionBox[ + RowBox[{"m1", " ", + RowBox[{"y", "[", "t", "]"}]}], + RowBox[{"m1", "+", "m2"}]]}]], "Input", + CellChangeTimes->{{3.896457974198711*^9, 3.89645797606291*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"1e6b2124-52c1-4df4-9531-f4de460b34e6"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898188650022894*^9, + 3.898188658141952*^9}},ExpressionUUID->"300e363a-6fa3-4506-a28e-\ +0cc805060c32"], + +Cell["La soluci\[OAcute]n se escribe", "Text", + CellChangeTimes->{{3.8981886593983603`*^9, + 3.898188665837881*^9}},ExpressionUUID->"54817b92-b1d0-41b8-ba4d-\ +4f48527812de"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{"r", "[", "t", "]"}], + RowBox[{"Cos", "[", + RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.896458004318989*^9, 3.896458019454575*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"b5d963c6-b4c9-4b23-a357-48cf17309d61"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"y", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{"r", "[", "t", "]"}], + RowBox[{"Sin", "[", + RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"r", "[", "t_", "]"}], ":=", " ", + RowBox[{"rc", "+", + RowBox[{"\[Delta]r", "[", "t", "]"}]}]}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]r", "[", "t_", "]"}], ":=", " ", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]0", " ", "t"}], "+", "\[Delta]"}], "]"}]}]}]}], "Input",\ + + CellChangeTimes->{{3.8964580340308657`*^9, 3.89645803771054*^9}, { + 3.898188679414411*^9, 3.898188685422063*^9}, {3.898188909699025*^9, + 3.8981889113308783`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"114b89ed-032b-4645-8bf0-ec622e8e8b7f"], + +Cell["Donde tenemos que el \[AAcute]ngulo est\[AAcute] dado por", "Text", + CellChangeTimes->{{3.8981886909738703`*^9, 3.89818869567738*^9}, { + 3.898188914218286*^9, + 3.898188918458023*^9}},ExpressionUUID->"313b80ea-ba8c-4d2c-9156-\ +68be22c8d474"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "[", " ", + RowBox[{ + RowBox[{"lz", "/", + RowBox[{"(", + RowBox[{"m", " ", + RowBox[{ + RowBox[{"r", "[", "t", "]"}], "^", "2"}]}], ")"}]}], ",", "t"}], + "]"}], "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.896458076440695*^9, 3.896458091361875*^9}, { + 3.898188700029801*^9, 3.898188710133851*^9}, 3.898188793013299*^9, { + 3.898188904899444*^9, 3.898188922682534*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"c1be3eaf-0440-4a74-8b44-2d77aea22e8b"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"lz", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", "rc", " ", + RowBox[{"ArcTanh", "[", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "A"}], "+", "rc"}], ")"}], " ", + RowBox[{"Tan", "[", + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], ")"}]}], "]"}]}], + SqrtBox[ + RowBox[{ + SuperscriptBox["A", "2"], "-", + SuperscriptBox["rc", "2"]}]]], "]"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["A", "2"], "-", + SuperscriptBox["rc", "2"]}], ")"}], + RowBox[{"3", "/", "2"}]]], "+", + FractionBox[ + RowBox[{"A", " ", + RowBox[{"Sin", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}], + RowBox[{ + RowBox[{"(", + RowBox[{"A", "-", "rc"}], ")"}], " ", + RowBox[{"(", + RowBox[{"A", "+", "rc"}], ")"}], " ", + RowBox[{"(", + RowBox[{"rc", "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}]}], ")"}]}]]}], ")"}]}], + RowBox[{"m", " ", "\[Omega]0"}]]], "Output", + CellChangeTimes->{ + 3.898188793862525*^9, {3.8981889233192043`*^9, 3.898188935541335*^9}, + 3.8981890012595463`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"0b03e658-f1aa-4d7b-9f70-03a8551a57b3"] +}, Open ]], + +Cell["Es decir que", "Text", + CellChangeTimes->{{3.898188943482963*^9, + 3.89818894721768*^9}},ExpressionUUID->"0dd4c4bf-990f-4363-a4d3-\ +5d419d7ac1f9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Theta]", "[", "t_", "]"}], ":=", + FractionBox[ + RowBox[{"lz", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", "rc", " ", + RowBox[{"ArcTanh", "[", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "A"}], "+", "rc"}], ")"}], " ", + RowBox[{"Tan", "[", + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], ")"}]}], "]"}]}], + SqrtBox[ + RowBox[{ + SuperscriptBox["A", "2"], "-", + SuperscriptBox["rc", "2"]}]]], "]"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["A", "2"], "-", + SuperscriptBox["rc", "2"]}], ")"}], + RowBox[{"3", "/", "2"}]]], "+", + FractionBox[ + RowBox[{"A", " ", + RowBox[{"Sin", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}], + RowBox[{ + RowBox[{"(", + RowBox[{"A", "-", "rc"}], ")"}], " ", + RowBox[{"(", + RowBox[{"A", "+", "rc"}], ")"}], " ", + RowBox[{"(", + RowBox[{"rc", "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}]}], ")"}]}]]}], + ")"}]}], + RowBox[{"m", " ", "\[Omega]0"}]]}]], "Input", + CellChangeTimes->{{3.898188939937871*^9, 3.8981889408207903`*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"723d2ab1-2464-4ea3-aa5a-01d47ff4c4bf"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898188730021204*^9, + 3.898188735076913*^9}},ExpressionUUID->"aca16a25-b56d-4c0a-add0-\ +d30b160a349c"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", + RowBox[{"1", "/", "50"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m1", "=", "8"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m2", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"rc", "=", "8"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"lz", "=", "5"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"m", ":=", " ", + RowBox[{"m1", " ", + RowBox[{"m2", "/", + RowBox[{"(", + RowBox[{"m1", "+", "m2"}], ")"}]}]}]}]}], "Input", + CellChangeTimes->{{3.896458282345139*^9, 3.896458283025153*^9}, { + 3.896458345384122*^9, 3.896458369558832*^9}, {3.8964584187654963`*^9, + 3.896458447726945*^9}, {3.898188721141343*^9, 3.89818872182968*^9}, { + 3.8981888104766083`*^9, 3.898188867263801*^9}, {3.898188981521991*^9, + 3.898189076328623*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"82f5f3c4-ae67-41e3-9ca7-f3d813c39c7e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "10"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "5"}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"Orange", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", + RowBox[{"y1", "[", "t", "]"}]}], "}"}], ",", + RowBox[{"m1", "/", "5"}]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Red", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], ",", + RowBox[{"y2", "[", "t", "]"}]}], "}"}], ",", + RowBox[{"m2", "/", "5"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896375817168126*^9, 3.8963759443904457`*^9}, { + 3.896457552029765*^9, 3.896457576652191*^9}, {3.896457660292104*^9, + 3.896457708378468*^9}, {3.8964582591628838`*^9, 3.896458268554235*^9}, { + 3.896458379423952*^9, 3.8964583795688343`*^9}, {3.898189063068075*^9, + 3.898189088240901*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"5ccced87-5f94-4bbd-991f-63eae327c52a"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 42.94211387634277, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 100}}, Typeset`size$$ = { + 468., {118., 124.61120000000003`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-10, -5}, {10, 5}}], {Orange, + Disk[{ + $CellContext`x1[$CellContext`t$$], + $CellContext`y1[$CellContext`t$$]}, $CellContext`m1/5]}, {Red, + Disk[{ + $CellContext`x2[$CellContext`t$$], + $CellContext`y2[$CellContext`t$$]}, $CellContext`m2/5]}}], + "Specifications" :> {{$CellContext`t$$, 0, 100, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {155.861328125, 163.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.896458286998783*^9, {3.8964583310683126`*^9, 3.896458379913609*^9}, + 3.898188750571588*^9, {3.898188806218657*^9, 3.898188869839446*^9}, { + 3.8981889558918657`*^9, 3.898188984122568*^9}, {3.898189063893229*^9, + 3.898189089053257*^9}}, + CellLabel-> + "Out[103]=",ExpressionUUID->"4c953d68-042f-4350-8ed7-100664874395"] +}, Open ]] +}, Open ]] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Tres part\[IAcute]culas en l\[IAcute]nea", "Title", + CellChangeTimes->{{3.8981891240672903`*^9, + 3.898189144502944*^9}},ExpressionUUID->"e8855943-34d6-4c26-b222-\ +0f6ddfd6c0eb"], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "x1", ",", "x2", ",", "\[Omega]0", ",", "A", ",", "m1", ",", "m2", ",", + "\[Delta]", ",", "m"}], "]"}]], "Input", + CellChangeTimes->{{3.896465810473068*^9, 3.896465834306896*^9}, { + 3.896466207804522*^9, 3.896466208010026*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"610c3a71-e66a-4b15-a70d-249d847ba2db"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ecua", "=", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"mO", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"mC", " ", + RowBox[{"x2", "[", "t", "]"}]}], " ", "+", " ", + RowBox[{"mO", " ", + RowBox[{"x3", "[", "t", "]"}]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "m0"}], "+", "mC"}], ")"}]}], "==", "0"}], ",", + RowBox[{ + RowBox[{"u", "[", "t", "]"}], "==", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "-", + RowBox[{"x1", "[", "t", "]"}], "-", "a"}]}], ",", + RowBox[{ + RowBox[{"v", "[", "t", "]"}], "==", + RowBox[{ + RowBox[{"x3", "[", "t", "]"}], "-", + RowBox[{"x2", "[", "t", "]"}], "-", "a"}]}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.8964658073612757`*^9, 3.89646580915353*^9}, { + 3.8964658449531727`*^9, 3.896465952399041*^9}, {3.896465989391653*^9, + 3.8964659903346786`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"01c9dddd-8f50-481a-b053-ad6b5cba4aa5"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"mO", " ", + RowBox[{"x1", "[", "t", "]"}]}], "+", + RowBox[{"mC", " ", + RowBox[{"x2", "[", "t", "]"}]}], "+", + RowBox[{"mO", " ", + RowBox[{"x3", "[", "t", "]"}]}]}], + RowBox[{ + RowBox[{"2", " ", "m0"}], "+", "mC"}]], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"u", "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"-", "a"}], "-", + RowBox[{"x1", "[", "t", "]"}], "+", + RowBox[{"x2", "[", "t", "]"}]}]}], ",", + RowBox[{ + RowBox[{"v", "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"-", "a"}], "-", + RowBox[{"x2", "[", "t", "]"}], "+", + RowBox[{"x3", "[", "t", "]"}]}]}]}], "}"}]], "Output", + CellChangeTimes->{3.896465992142009*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"8752d520-7aae-4789-8300-eeadc5fc0d28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Solve", "[", + RowBox[{"Ecua", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", + RowBox[{"x2", "[", "t", "]"}], ",", + RowBox[{"x3", "[", "t", "]"}]}], "}"}]}], "]"}], " ", "//", + "Simplify"}]], "Input", + CellChangeTimes->{{3.8964659931918373`*^9, 3.896466017807691*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"d87f75df-edc0-45ad-95c5-0899e883051e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{ + RowBox[{"a", " ", + RowBox[{"(", + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"mC", "+", "mO"}], ")"}], " ", + RowBox[{"u", "[", "t", "]"}]}], "+", + RowBox[{"mO", " ", + RowBox[{"v", "[", "t", "]"}]}]}], + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}]]}]}], ",", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], "\[Rule]", + FractionBox[ + RowBox[{"mO", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"u", "[", "t", "]"}], "-", + RowBox[{"v", "[", "t", "]"}]}], ")"}]}], + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}]]}], ",", + RowBox[{ + RowBox[{"x3", "[", "t", "]"}], "\[Rule]", + FractionBox[ + RowBox[{ + RowBox[{"a", " ", + RowBox[{"(", + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}], ")"}]}], "+", + RowBox[{"mO", " ", + RowBox[{"u", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"mC", "+", "mO"}], ")"}], " ", + RowBox[{"v", "[", "t", "]"}]}]}], + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}]]}]}], "}"}], "}"}]], "Output", + CellChangeTimes->{{3.896466010398193*^9, 3.896466018405561*^9}}, + CellLabel-> + "Out[140]=",ExpressionUUID->"97d7f797-1cf0-47b6-b40d-c4f36841e303"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x1", "[", "t_", "]"}], ":=", + RowBox[{"-", + FractionBox[ + RowBox[{ + RowBox[{"a", " ", + RowBox[{"(", + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"mC", "+", "mO"}], ")"}], " ", + RowBox[{"u", "[", "t", "]"}]}], "+", + RowBox[{"mO", " ", + RowBox[{"v", "[", "t", "]"}]}]}], + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}]]}]}]], "Input", + CellChangeTimes->{{3.896466032519013*^9, 3.8964660514299717`*^9}}, + CellLabel-> + "In[160]:=",ExpressionUUID->"fecb16ea-8cd0-40c1-816d-07e456aae014"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x2", "[", "t_", "]"}], ":=", + FractionBox[ + RowBox[{"mO", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"u", "[", "t", "]"}], "-", + RowBox[{"v", "[", "t", "]"}]}], ")"}]}], + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}]]}]], "Input", + CellChangeTimes->{{3.896466036670145*^9, 3.896466055645743*^9}, + 3.896466444376399*^9}, + CellLabel-> + "In[161]:=",ExpressionUUID->"9401939a-48fd-4c65-a3a4-104183b35748"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"x3", "[", "t_", "]"}], ":=", + FractionBox[ + RowBox[{ + RowBox[{"a", " ", + RowBox[{"(", + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}], ")"}]}], "+", + RowBox[{"mO", " ", + RowBox[{"u", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"mC", "+", "mO"}], ")"}], " ", + RowBox[{"v", "[", "t", "]"}]}]}], + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}]]}]], "Input", + CellChangeTimes->{{3.896466047862411*^9, 3.896466059622033*^9}}, + CellLabel-> + "In[162]:=",ExpressionUUID->"0c927a51-d467-4029-9bab-911cb405e75d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"u", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{"A1", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]1", " ", "t"}], "+", "\[Delta]1"}], "]"}]}], "+", + RowBox[{"A2", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]2", " ", "t"}], "+", "\[Delta]2"}], + "]"}]}]}]}]], "Input", + CellChangeTimes->{{3.896466078198612*^9, 3.8964660816375513`*^9}, { + 3.8964661131890383`*^9, 3.896466138357229*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"1551db4a-1b61-4204-9cb3-43367532d8c6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"v", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"-", "A1"}], " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]1", " ", "t"}], "+", "\[Delta]1"}], "]"}]}], "+", + RowBox[{"A2", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Omega]2", " ", "t"}], "+", "\[Delta]2"}], + "]"}]}]}]}]], "Input", + CellChangeTimes->{{3.896466142237874*^9, 3.896466153749095*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"d6b27062-68a5-411c-a6aa-0ad0b301c509"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"m", "=", + RowBox[{"mO", " ", + RowBox[{"mC", " ", "/", " ", + RowBox[{"(", + RowBox[{"mO", "+", "mC"}], ")"}]}]}]}]], "Input", + CellChangeTimes->{{3.8964662504036827`*^9, 3.896466259315775*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"e4cabb10-84e8-4eba-88b9-4a587f388c02"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"mC", " ", "mO"}], + RowBox[{"mC", "+", "mO"}]]], "Output", + CellChangeTimes->{3.896466260147415*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"26bb5e29-4734-46b0-be78-272cc6598458"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"\[Omega]1", " ", "=", " ", + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"k", "/", "m"}], " ", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", "mO"}], "+", "mC"}], ")"}], "/", + RowBox[{"(", + RowBox[{"mC", "+", "mO"}], ")"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.896466264995545*^9, 3.896466274755899*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"c260966e-4170-4f96-990e-0954d0023ec8"], + +Cell[BoxData[ + SqrtBox[ + FractionBox[ + RowBox[{"k", " ", + RowBox[{"(", + RowBox[{"mC", "+", + RowBox[{"2", " ", "mO"}]}], ")"}]}], + RowBox[{"mC", " ", "mO"}]]]], "Output", + CellChangeTimes->{3.896466292340008*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"5f929b07-df7a-474f-bf82-b76c075c7126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"\[Omega]2", " ", "=", " ", + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"k", "/", "m"}], " ", + RowBox[{"mC", "/", + RowBox[{"(", + RowBox[{"mC", "+", "mO"}], ")"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.896466169821315*^9, 3.896466225604034*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"bb725d3d-7790-406d-b367-1485ddff751a"], + +Cell[BoxData[ + SqrtBox[ + FractionBox["k", "mO"]]], "Output", + CellChangeTimes->{3.8964662942276278`*^9}, + CellLabel-> + "Out[149]=",ExpressionUUID->"89cbf8de-be64-4cf8-ace4-c8eb5d6181b5"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"mO", "=", "16"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"mC", "=", "12"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", "4"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A1", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A2", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]1", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]2", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"k", "=", "1"}], ";"}]}], "Input", + CellChangeTimes->{{3.896466310891921*^9, 3.896466369754278*^9}, { + 3.896466459631918*^9, 3.8964664778955297`*^9}, {3.896466517753235*^9, + 3.896466519406209*^9}, {3.8964665535896883`*^9, 3.896466601268578*^9}}, + CellLabel-> + "In[215]:=",ExpressionUUID->"7962cabd-1925-4615-973e-ce48b024238d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "10"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "5"}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"Orange", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x1", "[", "t", "]"}], ",", "0"}], "}"}], ",", "1"}], + "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Red", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x2", "[", "t", "]"}], ",", "0"}], "}"}], ",", "1"}], + "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Orange", ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x3", "[", "t", "]"}], ",", "0"}], "}"}], ",", "1"}], + "]"}]}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.8964663988351297`*^9, 3.896466419465828*^9}, + 3.896466491873114*^9, 3.896466535120387*^9, {3.896466565903591*^9, + 3.896466566006496*^9}}, + CellLabel-> + "In[198]:=",ExpressionUUID->"63923443-a520-4e9f-b88d-7688acffd857"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 33.94275665283203, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 50}}, Typeset`size$$ = { + 468., {118., 124.61120000000003`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-10, -5}, {10, 5}}], {Orange, + Disk[{ + $CellContext`x1[$CellContext`t$$], 0}, 1]}, {Red, + Disk[{ + $CellContext`x2[$CellContext`t$$], 0}, 1]}, {Orange, + Disk[{ + $CellContext`x3[$CellContext`t$$], 0}, 1]}}], + "Specifications" :> {{$CellContext`t$$, 0, 50, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {144.861328125, 152.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.89646642616704*^9, 3.896466451885272*^9}, + 3.896466492422591*^9, 3.8964665352759647`*^9, 3.896466566244445*^9}, + CellLabel-> + "Out[198]=",ExpressionUUID->"6df792b1-9d7d-4206-bbf7-56375dd92800"] +}, Open ]], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.896981875196876*^9, 3.8969818757803297`*^9}}, + CellLabel->"In[56]:=",ExpressionUUID->"a1e50851-356a-46af-8eb3-95b619cbc946"], + +Cell[BoxData[ + RowBox[{"tab", ":=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a", ",", "t"}], "]"}], ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.896967540636846*^9, 3.8969675634013147`*^9}, { + 3.8969676264622393`*^9, 3.896967627893523*^9}, 3.896967659403421*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"06067cb5-9bd2-479e-8b80-5b1390f34d40"], + +Cell[CellGroupData[{ + +Cell[BoxData["tab"], "Input", + CellChangeTimes->{{3.896980374163293*^9, 3.8969803744426823`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"ac56e44d-a928-4c99-9436-f0ab9506bc09"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"0", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"1", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"2", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"3", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"4", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"5", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"6", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"7", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"8", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"9", ",", "t"}], "]"}]}], "}"}]], "Output", + CellChangeTimes->{3.896980376017908*^9, 3.897053558413403*^9, + 3.897056117617526*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"a8f095b2-e768-403f-8884-289d73c72b9b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Do", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a_", ",", "t_"}], "]"}], ":=", " ", + RowBox[{ + RowBox[{"b", " ", "a"}], " ", "+", " ", + RowBox[{"\[Delta]x", "[", + RowBox[{"a", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "\[IndentingNewLine]", + "]"}]], "Input", + CellChangeTimes->{{3.89696758283634*^9, 3.89696765001157*^9}, + 3.896970145766357*^9, 3.896980476623335*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"4051fdbf-3e6b-480f-b3dc-60463a93ab8e"], + +Cell[CellGroupData[{ + +Cell[BoxData["tab"], "Input", + CellChangeTimes->{{3.896980436880673*^9, 3.896980437183235*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"33c56382-adbe-4d41-848f-ef936e210a0d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Delta]x", "[", + RowBox[{"0", ",", "t"}], "]"}], ",", + RowBox[{"b", "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"1", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"2", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"3", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"4", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"5", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"6", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"7", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"8", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"9", ",", "t"}], "]"}]}]}], "}"}]], "Output", + CellChangeTimes->{{3.896980438149284*^9, 3.896980503616301*^9}, + 3.897053595399106*^9, 3.897056149145746*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"a3fe5894-97ac-445e-a145-5bf7e95e43a8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]_", "]"}], ":=", " ", + RowBox[{"2", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + RowBox[{"\[Kappa]", " ", + RowBox[{"b", "/", "2"}]}], "]"}]}]}], " ", ";"}]], "Input", + CellChangeTimes->{{3.896967760672062*^9, 3.8969677970916986`*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"4a6c8d23-d41d-47d4-ba77-51fb3e36ea0a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"\[Delta]x", "[", + RowBox[{"a_", ",", "t_"}], "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "+", + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "+", "\[Delta]"}], + "]"}]}]}], ";"}]], "Input", + CellChangeTimes->{{3.8969677035368767`*^9, 3.896967758139599*^9}, { + 3.8969678050130577`*^9, 3.896967810203188*^9}, {3.897053650348673*^9, + 3.897053650603285*^9}, 3.897057033734136*^9}, + CellLabel->"In[49]:=",ExpressionUUID->"f09094eb-ca3f-41a8-a85f-022b4943bee4"], + +Cell[CellGroupData[{ + +Cell[BoxData["tab"], "Input", + CellChangeTimes->{{3.896967812224346*^9, 3.896967813497026*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"9a639527-d595-4a40-95cb-e18b63b71f54"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], ",", + RowBox[{"b", "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}]}], + "}"}]], "Output", + CellChangeTimes->{3.896967814143569*^9, 3.8969805507239428`*^9, + 3.897053654418146*^9, 3.897056214841854*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"85b74624-2bbd-4f60-8ea7-0e4d4830a185"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"tabp", "=", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"{", "Orange", "}"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a", ",", "t"}], "]"}], ",", "0"}], "}"}], ",", "1"}], + "]"}], ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.896967850134481*^9, 3.896967874846192*^9}, { + 3.896980562877956*^9, 3.8969805835102673`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"88f7a14b-13fb-480f-bdda-9db721358a7d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + TemplateBox[<|"color" -> RGBColor[1, 0.5, 0]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"b", "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",", + "0"}], "}"}], ",", "1"}], "]"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.896967876761869*^9, 3.896970178868383*^9, 3.8969702905398617`*^9, { + 3.896980574300589*^9, 3.896980583928383*^9}, 3.89705366102934*^9, + 3.897056219496977*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7c3fcd2c-1039-4b08-b990-4b038231e129"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", + RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Kappa]", "=", " ", + RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", "3"}], ";"}]}], "Input", + CellChangeTimes->{{3.8969679176014833`*^9, 3.896967954435062*^9}, { + 3.896967994429302*^9, 3.89696800633785*^9}, {3.896968072142446*^9, + 3.8969681026919622`*^9}, 3.896968179989766*^9, 3.8969682136760263`*^9, { + 3.896969189879067*^9, 3.8969692301007442`*^9}, {3.896980612726336*^9, + 3.896980613613016*^9}, {3.8969807619403563`*^9, 3.896980764578993*^9}, { + 3.896980800547594*^9, 3.8969808006182203`*^9}, {3.89698083773923*^9, + 3.896980838913813*^9}, 3.8969809325171213`*^9, {3.8970537070829353`*^9, + 3.897053729066731*^9}, {3.897056233181769*^9, 3.8970562365411882`*^9}, { + 3.897056287092618*^9, 3.8970562962523193`*^9}, {3.897056624433226*^9, + 3.897056626567359*^9}, {3.897056657855568*^9, 3.89705668005437*^9}, + 3.897056975891984*^9, + 3.897057007082261*^9},ExpressionUUID->"f413e5bf-b5dd-4906-a212-\ +ac3158ded337"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "5"}], "}"}]}], "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + TemplateBox[<|"color" -> RGBColor[1, 0.5, 0]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"b", "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "-", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], + ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}]}], "}"}], "]"}], + ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896967892226446*^9, 3.896967935843163*^9}, { + 3.8969679795988398`*^9, 3.8969679890490627`*^9}, {3.896968060196245*^9, + 3.896968061299532*^9}, {3.896970300581212*^9, 3.896970334254909*^9}, { + 3.8969703664491673`*^9, 3.896970381594178*^9}, {3.896980630159478*^9, + 3.896980700588657*^9}, {3.89698078802908*^9, 3.8969807890104227`*^9}, { + 3.896980855036306*^9, 3.896980855317944*^9}, 3.8969809478217688`*^9, { + 3.8970536773325253`*^9, 3.89705367848533*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"ae2b648e-9fdd-421d-8563-6e8cc77a7288"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 49.716820031774205`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 50}}, Typeset`size$$ = { + 468., {70., 76.3369142857143}}, Typeset`update$$ = 0, Typeset`initDone$$, + Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-5, -5}, {30, 5}}], { + RGBColor[1, 0.5, 0], + + Disk[{$CellContext`A + Cos[$CellContext`\[Delta] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{$CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + $CellContext`b $CellContext`\[Kappa] - \ +((2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{2 $CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + ( + 2 $CellContext`b) $CellContext`\[Kappa] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{3 $CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + ( + 3 $CellContext`b) $CellContext`\[Kappa] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{4 $CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + ( + 4 $CellContext`b) $CellContext`\[Kappa] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{5 $CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + ( + 5 $CellContext`b) $CellContext`\[Kappa] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{6 $CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + ( + 6 $CellContext`b) $CellContext`\[Kappa] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{7 $CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + ( + 7 $CellContext`b) $CellContext`\[Kappa] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{8 $CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + ( + 8 $CellContext`b) $CellContext`\[Kappa] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1], + + Disk[{9 $CellContext`b + $CellContext`A + Cos[$CellContext`\[Delta] + ( + 9 $CellContext`b) $CellContext`\[Kappa] - (( + 2 $CellContext`t$$) $CellContext`\[Omega]0) + Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1]}}], + "Specifications" :> {{$CellContext`t$$, 0, 50, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {96.861328125, 104.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.89697031837705*^9, 3.896970349146681*^9}, + 3.8969703841315327`*^9, 3.8969806379504957`*^9, {3.8969806758034773`*^9, + 3.896980702615971*^9}, {3.8969807900190372`*^9, 3.896980804497095*^9}, + 3.896980856822782*^9, 3.896980949775291*^9, 3.8970536871348352`*^9, + 3.897056246284544*^9, 3.897056631208324*^9, {3.897056662560657*^9, + 3.897056683906067*^9}, 3.897056980315922*^9, 3.897057042653612*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"d389c265-bf38-4a2b-9cea-fdb3a3d46619"] +}, Open ]], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8969818947643843`*^9, 3.8969818952997837`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"c333ccc6-362e-4ffd-b0c2-ade6f08e9dd2"], + +Cell[BoxData[ + RowBox[{"tab", ":=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a", ",", "t"}], "]"}], ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.896967540636846*^9, 3.8969675634013147`*^9}, { + 3.8969676264622393`*^9, 3.896967627893523*^9}, 3.896967659403421*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"a2ba17f4-a3a7-4550-8563-a979150a963e"], + +Cell[CellGroupData[{ + +Cell[BoxData["tab"], "Input", + CellChangeTimes->{{3.896980374163293*^9, 3.8969803744426823`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"a747cc67-ae8b-416a-b031-1961c7df8ea3"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"0", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"1", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"2", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"3", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"4", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"5", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"6", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"7", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"8", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"9", ",", "t"}], "]"}]}], "}"}]], "Output", + CellChangeTimes->{3.896980376017908*^9, 3.896981923084919*^9, + 3.896983959169297*^9, 3.897058311100162*^9, 3.897059112557844*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"aefdd241-fce2-4d87-8123-94e1b96fe72a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Do", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a_", ",", "t_"}], "]"}], ":=", " ", + RowBox[{ + RowBox[{"b", " ", "a"}], " ", "+", " ", + RowBox[{"\[Delta]x", "[", + RowBox[{"a", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "\[IndentingNewLine]", + "]"}]], "Input", + CellChangeTimes->{{3.89696758283634*^9, 3.89696765001157*^9}, + 3.896970145766357*^9, 3.896980476623335*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"9dc85bc9-1a41-4776-88c9-8de1071d5c22"], + +Cell[CellGroupData[{ + +Cell[BoxData["tab"], "Input", + CellChangeTimes->{{3.896980436880673*^9, 3.896980437183235*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"d7ad13c5-dbc3-4eb4-bb87-e65c5bee11a6"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Delta]x", "[", + RowBox[{"0", ",", "t"}], "]"}], ",", + RowBox[{"b", "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"1", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"2", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"3", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"4", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"5", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"6", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"7", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"8", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"9", ",", "t"}], "]"}]}]}], "}"}]], "Output", + CellChangeTimes->{{3.896980438149284*^9, 3.896980503616301*^9}, + 3.8969819312944*^9, 3.896983962048533*^9, 3.8970583151539288`*^9, + 3.897059116576997*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4d03953b-bdc5-42ec-b266-5670f23ba589"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]_", "]"}], ":=", " ", + RowBox[{"2", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + RowBox[{"\[Kappa]", " ", + RowBox[{"b", "/", "2"}]}], "]"}]}]}], " ", ";"}]], "Input", + CellChangeTimes->{{3.896967760672062*^9, 3.8969677970916986`*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"098c8de5-fd8e-4930-b6c8-59465ea214b4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"\[Delta]x", "[", + RowBox[{"a_", ",", "t_"}], "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "-", + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "-", "\[Delta]"}], + "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "+", + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "+", "\[Delta]"}], + "]"}]}], ")"}]}]}], ";"}]], "Input", + CellChangeTimes->{{3.8969677035368767`*^9, 3.896967758139599*^9}, { + 3.8969678050130577`*^9, 3.896967810203188*^9}, {3.897058319600478*^9, + 3.897058329048204*^9}, {3.89705912302897*^9, 3.897059139764065*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"c1c67e6f-2166-4b2c-ad1e-2afa8fcb15a3"], + +Cell[CellGroupData[{ + +Cell[BoxData["tab"], "Input", + CellChangeTimes->{{3.896967812224346*^9, 3.896967813497026*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"bbff060f-9685-4e2f-be9c-7701fb4d8cc2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"b", "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}]}], "}"}]], "Output", + CellChangeTimes->{3.896967814143569*^9, 3.8969805507239428`*^9, + 3.896981937140533*^9, 3.896983968758008*^9, 3.897058342698185*^9, + 3.897059145697693*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"f0f028fe-e799-4c0b-8e78-7b5d13c6ef50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"tabp", "=", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"{", "Orange", "}"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a", ",", "t"}], "]"}], ",", "0"}], "}"}], ",", "1"}], + "]"}], ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.896967850134481*^9, 3.896967874846192*^9}, { + 3.896980562877956*^9, 3.8969805835102673`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"778c1995-6484-41ee-9250-54db059ba188"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + TemplateBox[<|"color" -> RGBColor[1, 0.5, 0]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"b", "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}]], "Output",\ + + CellChangeTimes->{ + 3.896967876761869*^9, 3.896970178868383*^9, 3.8969702905398617`*^9, { + 3.896980574300589*^9, 3.896980583928383*^9}, 3.896981942943769*^9, + 3.896983972426125*^9, 3.896984060140828*^9, 3.897058344658846*^9, + 3.897059151729889*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"9d6ba0ed-099d-40bd-a59a-5f88602a0f7c"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", + RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", + RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Kappa]", "=", + RowBox[{ + RowBox[{"\[Pi]", "/", + RowBox[{"(", + RowBox[{"b", " ", "9"}], ")"}]}], " ", "7"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", "3"}], ";"}]}], "Input", + CellChangeTimes->{{3.8969679176014833`*^9, 3.896967954435062*^9}, { + 3.896967994429302*^9, 3.89696800633785*^9}, {3.896968072142446*^9, + 3.8969681026919622`*^9}, 3.896968179989766*^9, 3.8969682136760263`*^9, { + 3.896969189879067*^9, 3.8969692301007442`*^9}, {3.896980612726336*^9, + 3.896980613613016*^9}, {3.8969807619403563`*^9, 3.896980764578993*^9}, { + 3.896980800547594*^9, 3.8969808006182203`*^9}, {3.89698083773923*^9, + 3.896980838913813*^9}, 3.8969809325171213`*^9, {3.8969819587555637`*^9, + 3.8969819983465567`*^9}, 3.896982028394356*^9, {3.896982063161879*^9, + 3.8969820636256437`*^9}, {3.89698405227217*^9, 3.896984052631715*^9}, { + 3.897058396191249*^9, 3.89705842050231*^9}, {3.897059172499297*^9, + 3.8970591751705303`*^9}, {3.8970592158206797`*^9, 3.897059284537736*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"9a6f9ae2-ace2-4ee3-abee-b1fb7490c34f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "5"}], "}"}]}], "}"}], "]"}], ",", " ", + RowBox[{"{", + RowBox[{ + TemplateBox[<|"color" -> RGBColor[1, 0.5, 0]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"b", "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], + "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"2", " ", "t", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + FractionBox[ + RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], + ")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}]}], + "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.896967892226446*^9, 3.896967935843163*^9}, { + 3.8969679795988398`*^9, 3.8969679890490627`*^9}, {3.896968060196245*^9, + 3.896968061299532*^9}, {3.896970300581212*^9, 3.896970334254909*^9}, { + 3.8969703664491673`*^9, 3.896970381594178*^9}, {3.896980630159478*^9, + 3.896980700588657*^9}, {3.89698078802908*^9, 3.8969807890104227`*^9}, { + 3.896980855036306*^9, 3.896980855317944*^9}, 3.8969809478217688`*^9, { + 3.896982011269656*^9, 3.8969820405096617`*^9}, {3.896982080483683*^9, + 3.896982100747919*^9}, {3.8969839901226873`*^9, 3.896984027202508*^9}, + 3.896984068060305*^9, {3.897058357226432*^9, 3.897058358996797*^9}, + 3.897058437649188*^9, {3.897059165948509*^9, 3.897059166869648*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"9aab4d60-2971-4ed3-9cd9-2cb167c8e2aa"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 4.238409996032715, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 50}}, Typeset`size$$ = { + 468., {70., 76.3369142857143}}, Typeset`update$$ = 0, Typeset`initDone$$, + Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-5, -5}, {30, 5}}], { + RGBColor[1, 0.5, 0], + Disk[{0, 0}, 1], + + Disk[{$CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - $CellContext`b \ +$CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + $CellContext`b \ +$CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1], + + Disk[{2 $CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - + 2 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + + 2 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1], + + Disk[{3 $CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - + 3 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + + 3 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1], + + Disk[{4 $CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - + 4 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + + 4 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1], + + Disk[{5 $CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - + 5 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + + 5 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1], + + Disk[{6 $CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - + 6 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + + 6 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1], + + Disk[{7 $CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - + 7 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + + 7 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1], + + Disk[{8 $CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - + 8 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + + 8 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1], + + Disk[{9 $CellContext`b + $CellContext`A ( + Cos[$CellContext`\[Delta] - + 9 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]] - + Cos[$CellContext`\[Delta] + + 9 $CellContext`b $CellContext`\[Kappa] + + 2 $CellContext`t$$ $CellContext`\[Omega]0 + Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1]}}], + "Specifications" :> {{$CellContext`t$$, 0, 50, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {96.861328125, 104.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.89697031837705*^9, 3.896970349146681*^9}, + 3.8969703841315327`*^9, 3.8969806379504957`*^9, {3.8969806758034773`*^9, + 3.896980702615971*^9}, {3.8969807900190372`*^9, 3.896980804497095*^9}, + 3.896980856822782*^9, 3.896980949775291*^9, {3.896982013398593*^9, + 3.8969820416122217`*^9}, {3.89698208259657*^9, 3.8969821017037086`*^9}, { + 3.896984008323372*^9, 3.896984028057538*^9}, 3.89698407019971*^9, { + 3.897058386800404*^9, 3.8970584396275578`*^9}, 3.897059191004683*^9, { + 3.89705923146852*^9, 3.897059277064404*^9}}, + CellLabel->"Out[37]=",ExpressionUUID->"1cd0a908-6910-4678-8daa-eb36615892e2"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", "\[Kappa]", "]"}]], "Input", + CellChangeTimes->{{3.8970571507458553`*^9, 3.897057154131201*^9}}, + CellLabel->"In[51]:=",ExpressionUUID->"fb8a053c-12eb-46e6-9122-e3601704c1ef"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"\[Pi]", "/", "b"}]], "Input", + CellChangeTimes->{{3.8970571908957567`*^9, 3.897057192663074*^9}}, + CellLabel->"In[54]:=",ExpressionUUID->"2e0a4e46-fc9a-458b-8408-319037f06f58"], + +Cell[BoxData[ + FractionBox["\[Pi]", "3"]], "Output", + CellChangeTimes->{3.897057193367929*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"a43980f0-8b13-4ea0-82e7-8da47cedfa22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "/", "\[Kappa]"}], ",", + RowBox[{"{", + RowBox[{"\[Kappa]", ",", + RowBox[{ + RowBox[{"-", "\[Pi]"}], "/", "b"}], ",", + RowBox[{"\[Pi]", "/", "b"}]}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.8970571451003227`*^9, 3.8970572035837*^9}}, + CellLabel->"In[55]:=",ExpressionUUID->"e5815e8c-d63c-4132-adbe-188dbd89b906"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV0Xk8FHgfB/DqybE9GuX6OTcm0qESbaJ99CNRKbk9jqRyVa4Ku+QYxSKb +Sq6UHCMh4RG5fc3EYzRoxop1zbqSI5lIjBz72z++r+/r/d/n9fmoXPS1dNuw +bt26KHL//H7NMg1LBh+0Ux9XseIpOGS7VWZJPR8+Se34mviQgpVkZiXFa/lw +1uhcp0sqBTt/3/+d/ZoPr8bUoxayKHio6UXL8UI+uH6KpSuXU/CYA91dN4UP +3Xvdiy70UfBMZEKmsjcfRG3UOtPVxfGGHj+pGVk+SJcuqs7Xi+NkPzO5xsbP +YOl+S5ZN24Ir1bcP9vlOQ4N1r0iF5Facu3o4ma7yCTa6vz06n7EV9xwz9EYV +k7CUE5ZwU1sCP4l4JV/nOgH2NjSRyEoJnLNXdoLy7SOwDXeyjI5J4iBBXe6W ++DFItrU5WdAkiXl1bD0j/Q/gYCHU2qorhWP4rTPbO0bA7dC6dO//SWGmwqGb +P4UNQ4tcgMmUvDRucR+c/6Y5BHuKN+WZhkjjXXiZ2hL/Fyg3Pw6b4UnjQbqI +iOinfpCzqh7dc1AGq4wKNDK29MLTaJEHkzEy+PslnwPJht0Q3oaHd3bK4PnO +0mF+TicEafx4TVwS4SAq7z29nQs/rLfX3XcWYX9xZ02xRi6s8Fm3V4l9lgfu ++FdxIUAn3LbdHGHXroGjx3O48OfOzEQvS4TN7gzkjwVxYbcu7zrdBmHqbH/o +LjUulFsXlSw5Isxm9KkV3+TABr+MFTNPhPWYpVP+Fu3QZ2RiejccYak/GBdp +eu3Q2u5lakZDeHqE0xO3vR2y947XUiIQzhSaac6ebwNvWZi7ewth4ZN7cjiP +2sC/QagkKgph7ju6k8ZwKyyEsh0d4hD2HEhsG7nOhtcpaidSkxFOWgwstkxk +QUwbq9n1BcJeCsFqLaEs6I2v27hGbKgf+vioBwuutTu8Ti1E+PPt29Eaeix4 +qxTwy9uXCBuL3z8vPNgMsymBfuolCC+q5YtX72mG14Mah5vLEHay6vNVedME +QR4pc+l1CGsF8j6kFDbB78qPq3bUIyz6aMiRktwEdXJRc0XE5byPJt89m8Dy +3/PMOkCYcuXrtveUJnCdzH3XyUAYaJs5MQ6NwG0IeDzeRPosOqrJ/8IEA0+x +7tw2hCPM899M9DPBCwYkZdoRHpyVsBtpZsIWZ42uSOIMnbHQrnQmfLQ9MOXy +DmFFxu/s2pNM0PG/YivJRVims8c9NosB4h927bvQifAPSzfSqRYN0PGXKSuz +l/T3ZEBT8ecGYJ0983JdH8IsfZNGafUGiC+2Qi7EYiI/dW1dAih0vhCs1E/2 +kL91jWcB4GOrHJIwgLDgqGLeL+vroUhb76rbIMkXZy5d4FID6R8PDhV9QNhD +37BBQrsGNmfIUoXHSN987as3hWqAQ5njOhEv2yDG6YJqoBuHhol+RFhWmec1 +M1cF/6+jbbIfR9i87GrjwehKGP6v2hRvEuFu93O+6faVcGuxUW7vFMLOcmfl +hTUq4fIAtSKY2CtMy6+bUwF0bTF9qU8Ix5wQKATLV0B4km4InkaY0f/bDXhZ +DmalOhWhMwifuPfrjztp5TD9RI/DJOYYXGm5b1kO0vdb7ET4CPNyz2y7uFAG +Ab3hpfHES35S7I0GZXDBbSUp+QvZXyibeqqzFLT4bIm4OYSPOwbT8+eLQbkm +mCu8gPCv9Qs+0ZnFYLdj2eEQcYFKgJ6baTHY1F5xcyOmjPtylbOKoNpDdIVB +3OXvtpZy+iVEgrROwCLZJ97c8Td6AYwrir5/I0A47UvbDlezApCaeug1Rdxq +bTprIMiHh8JzkRJLCGsqGMeumOWDgbXa4fPEgudHKvyXnkNHmlbeLPEdxg7J +SxbP4MUU4+X6ZYRrVXN4eDkHFnoHLFSIP0erFPz4PAfGFisCMbGlmaJB7zId +NLZlG4YSK/Rt9bXIy4bWsn0jfGIz/Xt6+62y4WKK4l2xFYRpWWLCm1ezQHYI +KtSJRz1E0llWWWCXSb3nRGw/IUgKX82AvKT/GDcQ1xd/1ThinQEudjXz3cTU +wJk33/KfQtX4mNoM8eSGD1+8bdKBJWokqriKcIgi54xTYRrs3rfW6Us8OPx2 +FG1IA7sjnbG3iY3ym27+YfcIqkvMIZl486Ga/FP/SoWmpZ8La4ifns0V0nVI +gsOqnLtrxOPPDBJPv0oEdseCgLKGsPZyP9VFLBE2VZdPKRGz8iRxdH0CrG2d +Pa9HLLFW1J6GEsAj1HfYhPiczalzRX4PYEgmYtKaeHZ9RPB76n2oFDjHeRMH +lRyW6FiIhymX3apBxJRzvvsF+Xeh60CMYSSx7uv+yyaUOHgXIhB/RNx+UTLa +pyEWuDpikE3sKn4qJ+l6DATziudeEMd7VvBGuqLga2bedC3xdunP3zfFRgJP +eaW0kbiSoSqndeQ2ZFsPrbCJz/g4HrKfjgBDgXV7B/GwfIIVLYMGGhw71R7i +z/EPhszoYaCZMbHGI5YdX1VIFwmBSM1NF0aJDQ28bKeuBgHTsspkgtg7ree+ +LicQhv/89mqaOGXOmB190B9OpzGffSFmnC4T6kq9Bo3XFZXmibtMj9FOLHmD +v+FG+UXiPatK86NMT+BPBz1ZIg4vWbwcEXcJ1JxDc5aJnzfl1h3Jc4IbNIrW +KrH5bqfn/rqWkGC89/ga8Zuv8XyX4eOwsS239h//DQZbRsI= + "]], LineBox[CompressedData[" +1:eJwV1Hk01VsbB3CZinKO+Zepa7q4htRL8kae3VuGSpMiY+lUosF0NFyzKyeX +QhkTUhlDmU7GpEzHEBkyZMiQseKHkvF4d3/stddnrb32etZ6vs8jR3Mxu8jJ +wcHBwOf3XfUjjLQfNgTu92nl6+sE0nLZcmH3oj3Us4VvrWEPlO+cidd0gKMO +gdkr2CH8pz3ZDlegLTjAYQlbSr2Cc+cxV9DwEkhbwJ5tO84annKHbAvlK/PY +tX+P3ItiXId53RbmDHaC7I2TRvK3QOwAD+MrtnvdJonF157wT1J97xi2ifOj +gUwrHxCiSxcNYW8T255i89MP1sk1og972W6wkGESANOHndkfsT9w0z11vwSC +ns+qDQtbz1LfTug/QdD6QbK9EjstiwdN+TGgY4XVUoztbRbHkyD1L/Rydlql +Y4+nnpvwcAoBHb9d44nYZkuqjUeKQoEporQcia2c/Dpi3SwMNi+U5fpiP5hn +0LuTw+HCRtopOravgkqW5c0I6CiK97mEPXlj9t7OmvtwIKfG/ij2G5nbJ0fs +o8BwhHJZ/Pf/gi6FS2LR8GW8bYoHe4zTWkywMRo2VQb1/mATaMuEZpf+rlhg +tJVuacW2zO+1juGLB4rqrRf/YH9NqS3LrogHxUOsF9ewfWPzpKvoj0A0S+AP +S+wU7zsDM/0JUNHjdUwNmzTSoh3MfwxqYxxkwxqB3kmHD73USobAATHXPOzN +MdzCemHJoMOvYh+LnRQ8435i/xO46WgScQ67+lqNtm/OU5AKe7hjZpVAgrpu +xV0BqZDZH+k+s0Ig67yxCVpfKqjbC8w3YT9TtZWY1kkD2ZC4kUxsHRljT+5v +aSBVOylKw7bllNHfaZEBV5ufFjcuEyijifUmRDULJMM/8dxeItCcoQEpFpQF +Ui4awZbYem8KZJ98zoIhn2xPdezmvKSAoqhskEvSyW1bJNCPGI/9X9g5kPp3 +rt1W7OQdESNJTrkgsmmlKngB53l6DQ1E5oIpTLacxq7NupIkU5EL+ev5Z5Sw +vyoZWyUI50HBxUHudz9/18tufliWB7JNnfT5HwRq4rtaGiVQAG4HhvoN5gl0 +tq6H6NhdAH46V7fyYs/dNr4uQiuAzu+zH5vmCERwKOx48KoAdkgv9Fhi0xZ6 +UsPPFsK7OzK8V2YJtDhsfD8kjwka6t3kzRkChSYzp+t7mVBJFbfdjb3tjIIp +H+8riLzrfmhhmkD7e9i8wdav4P54RK47dlgL0zuIqwjE9dKfXvxOIMVyBUd/ +82KwUrwsq/2VQMei1w1uLJXCwlxRFH2MQJKjR7ci5TLgSRt/Lo39RTtpls+8 +DNTWGrbXjBLoVod+SmJuGeiUlPmJYieLePLVXCqH6wW5RtkjOD/3f7SLdL6G +xtLTVysHCXSwzqPQ0qoS1lTstLw+EWi7i/STva6VEP64aaMwtihRfU/+TiVo +szwOZfTg/eEgculbYSVw3QyQbO/G886bL+Ev+Bb2JQqMyXURKN5wxje97i1o +7xHUTGnH/ahyOriwqwr2OG3I0msiUIeVzG5X0ypw3pB2/10jgcpnPihO0apg +seXcNxPsu1K6HAPhVTBxQot9sgHXQ+ctqpmsAvWVpsjzLAK5yj9TjE6shl3e +DqGO1Tgv/n3rWjy10G/wppWvnEDsvcdeuXWwQKPHcfl5JoHsTiUwHCdZsEV+ +JlICu/zypMVZNgueNbEL72QQyCs28JepSj0wz7fco6XjfpJFuire9XDDvCFe +OBXn4Zls2YBCA+jRepVsk/F+4Zt7c5jeCHzHpzWiY/C++hhV/6dwM8QVKO5J +DiDQYWZb15BKM0zkzAoM++N8RgmOJUIzhPazzBWwy0/e5RS/1gxipq/2pfji +eWkN1ONlNYNmuVvoYy8C+b93zxnzaQGu1eTvXtcJFEfLYLV7fIBfUKfc5Egg +Y2tGdtRgK4zyv7BrOkKgIEv3uvw7HfBkM100VYxAqkQfl5tcF9Q8GAxw7RJH +Rktn2J3zPaC/ztcldlcc7ZsSMu2J7gObYz/lIw3EUT67/3Sg62dQaVccHRsW +QxuErvVeEBiC1jk26yRDDPVzPpfqthmGoV8aBXv/FEMejPk9j2tHYLUhVUqS +KYq8hD4GakuMAiOXMmhsJIr2bq/KkgkeA/Wqdr6aOhGkpeb6xYIch4On3/bR +DEVQnCbT6AyaBKleF/V/a4VRSQ1vcEn2FPBUlfkn7xZGB8+Tc8Mc3+Ctj06r +d44QEhiKc7Y9+h0sbAOk5+SE0F3ySP1fxdPwV8/xS4cYguh14Pu0YW4Scrie +mlQPU5H7ttELHRtJULbQoAf2U5FSyap8LT8Jp2xMtv2vm4rCptUeZwqSoFZG +/Hr9norsrUJiXaVJ8HO9XfKymIq4NY2D2VokpJVOFHqFUZHpp0onyfMkuLWf +kCv6LxVxXO9W3uJAQonFwxYHbSpiUsnRNUcSwKeBR1yTirYZ/kEbcibBgquT +n65IReRLH+sMT/x+eZOvMpWKooL2HNZ5QAJf5DN9zy8UZCJrxqcSTcJEukGQ +/GcKWit1qpOIIyH27A2rhh4KciDj9q8lkvBzNSN1awsF6dr80qvOJME8Pa79 +ZQkFfftJWWZmkyDpGuN3qpCCnkQoFae/xPXWbS5ZfEFB/LXm2qFMEmr7D32E +FAqqsL82511MQk9gaPFwEgXRV27nOpeRkMDYqRr0kIJUYhKc7StIyKTdUlWO +oqC+HYXqZm9J0Ip7VMIKo6D/A8ZGCLk= + "]]}, + Annotation[#, "Charting`Private`Tag$5849#1"]& ], {}}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 3.819718790112378}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange-> + NCache[{{Rational[-1, 3] Pi, Rational[1, 3] Pi}, {3.8197187901123697`, + 5.999998996430126}}, {{-1.0471975511965976`, 1.0471975511965976`}, { + 3.8197187901123697`, 5.999998996430126}}], + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.897057155884897*^9, 3.897057204551734*^9}}, + CellLabel->"Out[55]=",ExpressionUUID->"6f6ada20-c267-468c-99b8-dc9e8e73b05a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b", ",", "x"}], "]"}]], "Input", + CellChangeTimes->{{3.897065888959359*^9, 3.8970658905664186`*^9}, { + 3.897066004341474*^9, 3.897066004813036*^9}}, + CellLabel->"In[55]:=",ExpressionUUID->"1e348821-12b6-4dbb-b5cd-4f7e2e3df661"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"Series", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "+", "b"}], ",", "y"}], "}"}], "/", + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"b", "^", "2"}], "+", + RowBox[{"2", "b", " ", "x"}], "+", + RowBox[{"x", "^", "2"}], "+", + RowBox[{"y", "^", "2"}]}], "]"}]}], + RowBox[{"(", + RowBox[{ + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"b", "^", "2"}], "+", + RowBox[{"2", "b", " ", "x"}], "+", + RowBox[{"x", "^", "2"}], "+", + RowBox[{"y", "^", "2"}]}], "]"}], "-", "b"}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "0", ",", "2"}], "}"}]}], "]"}], ")"}], "//", + "PowerExpand"}], "//", "Expand"}], "//", "Normal"}], "//", + "Expand"}]], "Input", + CellChangeTimes->{{3.89706579254504*^9, 3.897065865449572*^9}, { + 3.897065896926681*^9, 3.897065905806693*^9}, {3.8970660138956127`*^9, + 3.897066126685153*^9}, {3.897066354281601*^9, 3.8970663550252028`*^9}}, + CellLabel->"In[66]:=",ExpressionUUID->"7c43a354-c26c-462d-8b7b-0a73fe9e4217"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "+", + FractionBox[ + SuperscriptBox["y", "2"], + RowBox[{"2", " ", "b"}]], "-", + FractionBox[ + RowBox[{"x", " ", + SuperscriptBox["y", "2"]}], + SuperscriptBox["b", "2"]], "+", + FractionBox[ + RowBox[{"3", " ", + SuperscriptBox["x", "2"], " ", + SuperscriptBox["y", "2"]}], + RowBox[{"2", " ", + SuperscriptBox["b", "3"]}]]}], ",", + RowBox[{ + FractionBox[ + RowBox[{"x", " ", "y"}], "b"], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["x", "2"], " ", "y"}], + SuperscriptBox["b", "2"]]}]}], "}"}]], "Output", + CellChangeTimes->{{3.897066046893485*^9, 3.897066060877616*^9}, { + 3.8970661047759657`*^9, 3.897066127196508*^9}, 3.897066399529684*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"c402c2cc-27eb-4b5b-ab52-6079cb82d866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Series", "[", + RowBox[{ + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"b", "^", "2"}], "+", + RowBox[{"2", "b", " ", "\[Epsilon]", " ", "x"}], "+", + RowBox[{ + RowBox[{"\[Epsilon]", "^", "2"}], " ", + RowBox[{"x", "^", "2"}]}], "+", + RowBox[{ + RowBox[{"\[Epsilon]", "^", "2"}], + RowBox[{"y", "^", "2"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Epsilon]", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.8970676430061274`*^9, 3.897067733484735*^9}}, + CellLabel->"In[70]:=",ExpressionUUID->"c94abc51-199d-4812-ba18-9e0f899cfe4b"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{ + SqrtBox[ + SuperscriptBox["b", "2"]], "+", + FractionBox[ + RowBox[{ + SqrtBox[ + SuperscriptBox["b", "2"]], " ", "x", " ", "\[Epsilon]"}], "b"], "+", + FractionBox[ + RowBox[{ + SuperscriptBox["y", "2"], " ", + SuperscriptBox["\[Epsilon]", "2"]}], + RowBox[{"2", " ", + SqrtBox[ + SuperscriptBox["b", "2"]]}]], "+", + InterpretationBox[ + SuperscriptBox[ + RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"], + SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1], + Editable->False]}], + SeriesData[$CellContext`\[Epsilon], + 0, {($CellContext`b^2)^ + Rational[1, 2], $CellContext`b^(-1) ($CellContext`b^2)^ + Rational[1, 2] $CellContext`x, + Rational[1, 2] ($CellContext`b^2)^Rational[-1, 2] $CellContext`y^2}, 0, 3, + 1], + Editable->False]], "Output", + CellChangeTimes->{3.897067689869812*^9, 3.8970677341695642`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"4d0e42bd-4f0e-4168-9782-035007c489b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"PowerExpand", "[", "%", "]"}], "//", "Normal"}], ")"}], "/.", + " ", + RowBox[{"\[Epsilon]", "->", " ", "1"}]}]], "Input", + CellChangeTimes->{{3.897067692061687*^9, 3.89706775350828*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"80d8afaf-4aa6-4c33-995c-27a2ff281f33"], + +Cell[BoxData[ + RowBox[{"b", "+", "x", "+", + FractionBox[ + SuperscriptBox["y", "2"], + RowBox[{"2", " ", "b"}]]}]], "Output", + CellChangeTimes->{{3.897067696565785*^9, 3.897067703998959*^9}, { + 3.897067736012952*^9, 3.897067754388975*^9}}, + CellLabel->"Out[73]=",ExpressionUUID->"12e1e320-411c-4fad-94dd-d48b9451766f"] +}, Open ]] +}, Open ]] +}, +WindowSize->{1200, 627}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +TaggingRules-><|"TryRealOnly" -> False|>, +Magnification:>1.3 Inherited, +FrontEndVersion->"13.2 para Linux x86 (64-bit) (January 30, 2023)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3e87b72b-1397-4036-9e9c-f248933bd9b4" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 226, 4, 127, "Title",ExpressionUUID->"480d5f7d-45fb-40a1-bc21-04aa8b6ee330"], +Cell[CellGroupData[{ +Cell[831, 30, 169, 3, 87, "Section",ExpressionUUID->"b974cc17-55a0-4238-9726-89063ea3bdd0"], +Cell[1003, 35, 160, 3, 60, "Input",ExpressionUUID->"42198e70-59cc-4baa-887a-d542477e9c01"], +Cell[CellGroupData[{ +Cell[1188, 42, 214, 4, 70, "Subsection",ExpressionUUID->"ee16e0b6-b83f-423c-8a48-c49492382792"], +Cell[1405, 48, 340, 6, 75, "Text",ExpressionUUID->"13ffddb6-291b-4611-aca3-14e06aae2f1a"], +Cell[CellGroupData[{ +Cell[1770, 58, 760, 21, 42, "Input",ExpressionUUID->"3fdf529b-6ca2-4052-93f5-28cbb9234fe8"], +Cell[2533, 81, 638, 18, 65, "Output",ExpressionUUID->"01da35b0-cd67-4fdc-b6bc-e7b684ceae69"] +}, Open ]], +Cell[3186, 102, 237, 6, 45, "Text",ExpressionUUID->"4f8b2285-0cd8-4343-8c01-3e5e523df48d"], +Cell[CellGroupData[{ +Cell[3448, 112, 341, 8, 60, "Input",ExpressionUUID->"26cc42a2-1bd0-4fb4-b7db-245ea00419b1"], +Cell[3792, 122, 754, 22, 65, "Output",ExpressionUUID->"2338d8af-ad8a-46a4-b7db-f84f2f6ad291"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4583, 149, 412, 11, 63, "Input",ExpressionUUID->"f8972876-dd7e-4c11-b1c5-61dc36d9c99e"], +Cell[4998, 162, 350, 9, 65, "Output",ExpressionUUID->"e7952def-6cf1-4fc0-bbea-43768e8561eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5385, 176, 388, 10, 63, "Input",ExpressionUUID->"58bca70d-f0e6-4a30-946e-1554264bdf22"], +Cell[5776, 188, 327, 8, 65, "Output",ExpressionUUID->"1ca25d75-5688-48e8-8112-66809e8d0bc1"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6152, 202, 164, 3, 48, "Subsection",ExpressionUUID->"6decf108-24d7-4a03-be4f-0fd59c5e9a16"], +Cell[6319, 207, 204, 3, 45, "Text",ExpressionUUID->"753c7e11-3e39-4276-8b7d-a52d4b4139bd"], +Cell[6526, 212, 351, 8, 64, "Input",ExpressionUUID->"a0a4084c-a24d-48c8-b8f7-daf8e3a9d4a6"] +}, Closed]], +Cell[CellGroupData[{ +Cell[6914, 225, 167, 3, 48, "Subsection",ExpressionUUID->"d1cdfd61-dc32-41f3-abbe-95b4ba474db6"], +Cell[7084, 230, 211, 4, 45, "Text",ExpressionUUID->"a125df6f-4922-45c7-a22c-8a0b91af419d"], +Cell[7298, 236, 751, 17, 172, "Input",ExpressionUUID->"e6917571-3a29-4ce5-93a0-8c8218badcfa"], +Cell[8052, 255, 165, 3, 45, "Text",ExpressionUUID->"37c132dd-4c82-458a-9b8e-a777da667b2e"], +Cell[CellGroupData[{ +Cell[8242, 262, 1277, 36, 160, "Input",ExpressionUUID->"729a51b4-d4eb-4e4a-af91-f2413b14be68"], +Cell[9522, 300, 2265, 45, 321, "Output",ExpressionUUID->"b6945712-0de8-46fe-8d19-06a61a6a0d55"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[11848, 352, 167, 3, 67, "Section",ExpressionUUID->"7b684eea-f038-4be2-8190-458ab7df58a0"], +Cell[12018, 357, 175, 2, 60, "Input",ExpressionUUID->"eed998e3-8ae2-458a-b79d-a508c50d8295"], +Cell[CellGroupData[{ +Cell[12218, 363, 166, 3, 70, "Subsection",ExpressionUUID->"ad0106d0-60fc-4834-a536-eeed2b1b7852"], +Cell[12387, 368, 293, 6, 45, "Text",ExpressionUUID->"a48ebb11-4795-4b6a-8c4c-fb19b5790f04"], +Cell[CellGroupData[{ +Cell[12705, 378, 1311, 37, 72, "Input",ExpressionUUID->"0a5af4df-c4be-42e3-b2cb-461bdc1208dc"], +Cell[14019, 417, 1114, 33, 70, "Output",ExpressionUUID->"fe913b27-fdef-434e-a15a-ed3491be573a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15170, 455, 430, 10, 64, "Input",ExpressionUUID->"e1532ae4-d773-48d8-a5f5-06b39a8d7a9d"], +Cell[15603, 467, 1090, 32, 70, "Output",ExpressionUUID->"3e3bea4f-00ad-4cd6-8b26-9a87ed12b68b"] +}, Open ]], +Cell[16708, 502, 348, 9, 63, "Input",ExpressionUUID->"28868a16-3caf-4152-bbc8-54812671134c"], +Cell[17059, 513, 327, 8, 63, "Input",ExpressionUUID->"49ee20b9-680b-4600-b0bf-04583f1a93a8"], +Cell[17389, 523, 348, 9, 63, "Input",ExpressionUUID->"9c5b1b7e-cd32-47dd-b3b4-e715f9d7ba3f"], +Cell[17740, 534, 325, 8, 63, "Input",ExpressionUUID->"1e6b2124-52c1-4df4-9531-f4de460b34e6"] +}, Closed]], +Cell[CellGroupData[{ +Cell[18102, 547, 164, 3, 48, "Subsection",ExpressionUUID->"300e363a-6fa3-4506-a28e-0cc805060c32"], +Cell[18269, 552, 174, 3, 45, "Text",ExpressionUUID->"54817b92-b1d0-41b8-ba4d-4f48527812de"], +Cell[18446, 557, 338, 8, 62, "Input",ExpressionUUID->"b5d963c6-b4c9-4b23-a357-48cf17309d61"], +Cell[18787, 567, 844, 23, 169, "Input",ExpressionUUID->"114b89ed-032b-4645-8bf0-ec622e8e8b7f"], +Cell[19634, 592, 249, 4, 45, "Text",ExpressionUUID->"313b80ea-ba8c-4d2c-9156-68be22c8d474"], +Cell[CellGroupData[{ +Cell[19908, 600, 539, 13, 93, "Input",ExpressionUUID->"c1be3eaf-0440-4a74-8b44-2d77aea22e8b"], +Cell[20450, 615, 1632, 49, 70, "Output",ExpressionUUID->"0b03e658-f1aa-4d7b-9f70-03a8551a57b3"] +}, Open ]], +Cell[22097, 667, 153, 3, 45, "Text",ExpressionUUID->"0dd4c4bf-990f-4363-a4d3-5d419d7ac1f9"], +Cell[22253, 672, 1688, 50, 134, "Input",ExpressionUUID->"723d2ab1-2464-4ea3-aa5a-01d47ff4c4bf"] +}, Closed]], +Cell[CellGroupData[{ +Cell[23978, 727, 165, 3, 48, "Subsection",ExpressionUUID->"aca16a25-b56d-4c0a-add0-d30b160a349c"], +Cell[24146, 732, 1109, 28, 250, "Input",ExpressionUUID->"82f5f3c4-ae67-41e3-9ca7-f3d813c39c7e"], +Cell[CellGroupData[{ +Cell[25280, 764, 1508, 41, 110, "Input",ExpressionUUID->"5ccced87-5f94-4bbd-991f-63eae327c52a"], +Cell[26791, 807, 2478, 50, 343, "Output",ExpressionUUID->"4c953d68-042f-4350-8ed7-100664874395"] +}, Open ]] +}, Open ]] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[29342, 865, 185, 3, 127, "Title",ExpressionUUID->"e8855943-34d6-4c26-b222-0f6ddfd6c0eb"], +Cell[29530, 870, 365, 8, 60, "Input",ExpressionUUID->"610c3a71-e66a-4b15-a70d-249d847ba2db"], +Cell[CellGroupData[{ +Cell[29920, 882, 1085, 31, 42, "Input",ExpressionUUID->"01c9dddd-8f50-481a-b053-ad6b5cba4aa5"], +Cell[31008, 915, 901, 28, 75, "Output",ExpressionUUID->"8752d520-7aae-4789-8300-eeadc5fc0d28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31946, 948, 435, 12, 62, "Input",ExpressionUUID->"d87f75df-edc0-45ad-95c5-0899e883051e"], +Cell[32384, 962, 1564, 49, 142, "Output",ExpressionUUID->"97d7f797-1cf0-47b6-b40d-c4f36841e303"] +}, Open ]], +Cell[33963, 1014, 645, 20, 74, "Input",ExpressionUUID->"fecb16ea-8cd0-40c1-816d-07e456aae014"], +Cell[34611, 1036, 467, 14, 72, "Input",ExpressionUUID->"9401939a-48fd-4c65-a3a4-104183b35748"], +Cell[35081, 1052, 611, 19, 74, "Input",ExpressionUUID->"0c927a51-d467-4029-9bab-911cb405e75d"], +Cell[35695, 1073, 562, 16, 64, "Input",ExpressionUUID->"1551db4a-1b61-4204-9cb3-43367532d8c6"], +Cell[36260, 1091, 529, 16, 64, "Input",ExpressionUUID->"d6b27062-68a5-411c-a6aa-0ad0b301c509"], +Cell[CellGroupData[{ +Cell[36814, 1111, 312, 8, 42, "Input",ExpressionUUID->"e4cabb10-84e8-4eba-88b9-4a587f388c02"], +Cell[37129, 1121, 223, 6, 66, "Output",ExpressionUUID->"26bb5e29-4734-46b0-be78-272cc6598458"] +}, Open ]], +Cell[CellGroupData[{ +Cell[37389, 1132, 454, 13, 64, "Input",ExpressionUUID->"c260966e-4170-4f96-990e-0954d0023ec8"], +Cell[37846, 1147, 315, 10, 86, "Output",ExpressionUUID->"5f929b07-df7a-474f-bf82-b76c075c7126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[38198, 1162, 377, 10, 64, "Input",ExpressionUUID->"bb725d3d-7790-406d-b367-1485ddff751a"], +Cell[38578, 1174, 188, 5, 70, "Output",ExpressionUUID->"89cbf8de-be64-4cf8-ace4-c8eb5d6181b5"] +}, Open ]], +Cell[38781, 1182, 864, 21, 222, "Input",ExpressionUUID->"7962cabd-1925-4615-973e-ce48b024238d"], +Cell[CellGroupData[{ +Cell[39670, 1207, 1486, 45, 189, "Input",ExpressionUUID->"63923443-a520-4e9f-b88d-7688acffd857"], +Cell[41159, 1254, 2307, 47, 321, "Output",ExpressionUUID->"6df792b1-9d7d-4206-bbf7-56375dd92800"] +}, Open ]], +Cell[43481, 1304, 177, 2, 60, "Input",ExpressionUUID->"a1e50851-356a-46af-8eb3-95b619cbc946"], +Cell[43661, 1308, 445, 10, 60, "Input",ExpressionUUID->"06067cb5-9bd2-479e-8b80-5b1390f34d40"], +Cell[CellGroupData[{ +Cell[44131, 1322, 175, 2, 37, "Input",ExpressionUUID->"ac56e44d-a928-4c99-9436-f0ab9506bc09"], +Cell[44309, 1326, 860, 25, 70, "Output",ExpressionUUID->"a8f095b2-e768-403f-8884-289d73c72b9b"] +}, Open ]], +Cell[45184, 1354, 614, 15, 148, "Input",ExpressionUUID->"4051fdbf-3e6b-480f-b3dc-60463a93ab8e"], +Cell[CellGroupData[{ +Cell[45823, 1373, 173, 2, 37, "Input",ExpressionUUID->"33c56382-adbe-4d41-848f-ef936e210a0d"], +Cell[45999, 1377, 1399, 42, 77, "Output",ExpressionUUID->"a3fe5894-97ac-445e-a145-5bf7e95e43a8"] +}, Open ]], +Cell[47413, 1422, 402, 9, 64, "Input",ExpressionUUID->"4a6c8d23-d41d-47d4-ba77-51fb3e36ea0a"], +Cell[47818, 1433, 626, 15, 64, "Input",ExpressionUUID->"f09094eb-ca3f-41a8-a85f-022b4943bee4"], +Cell[CellGroupData[{ +Cell[48469, 1452, 173, 2, 37, "Input",ExpressionUUID->"9a639527-d595-4a40-95cb-e18b63b71f54"], +Cell[48645, 1456, 3741, 102, 272, "Output",ExpressionUUID->"85b74624-2bbd-4f60-8ea7-0e4d4830a185"] +}, Open ]], +Cell[CellGroupData[{ +Cell[52423, 1563, 657, 19, 60, "Input",ExpressionUUID->"88f7a14b-13fb-480f-bdda-9db721358a7d"], +Cell[53083, 1584, 5465, 155, 532, "Output",ExpressionUUID->"7c3fcd2c-1039-4b08-b990-4b038231e129"] +}, Open ]], +Cell[58563, 1742, 1262, 25, 145, "Input",ExpressionUUID->"f413e5bf-b5dd-4906-a212-ac3158ded337"], +Cell[CellGroupData[{ +Cell[59850, 1771, 6996, 175, 922, "Input",ExpressionUUID->"ae2b648e-9fdd-421d-8563-6e8cc77a7288"], +Cell[66849, 1948, 5268, 103, 225, "Output",ExpressionUUID->"d389c265-bf38-4a2b-9cea-fdb3a3d46619"] +}, Open ]], +Cell[72132, 2054, 179, 2, 60, "Input",ExpressionUUID->"c333ccc6-362e-4ffd-b0c2-ade6f08e9dd2"], +Cell[72314, 2058, 445, 10, 60, "Input",ExpressionUUID->"a2ba17f4-a3a7-4550-8563-a979150a963e"], +Cell[CellGroupData[{ +Cell[72784, 2072, 175, 2, 37, "Input",ExpressionUUID->"a747cc67-ae8b-416a-b031-1961c7df8ea3"], +Cell[72962, 2076, 904, 25, 70, "Output",ExpressionUUID->"aefdd241-fce2-4d87-8123-94e1b96fe72a"] +}, Open ]], +Cell[73881, 2104, 614, 15, 148, "Input",ExpressionUUID->"9dc85bc9-1a41-4776-88c9-8de1071d5c22"], +Cell[CellGroupData[{ +Cell[74520, 2123, 173, 2, 37, "Input",ExpressionUUID->"d7ad13c5-dbc3-4eb4-bb87-e65c5bee11a6"], +Cell[74696, 2127, 1447, 43, 77, "Output",ExpressionUUID->"4d03953b-bdc5-42ec-b266-5670f23ba589"] +}, Open ]], +Cell[76158, 2173, 402, 9, 64, "Input",ExpressionUUID->"098c8de5-fd8e-4930-b6c8-59465ea214b4"], +Cell[76563, 2184, 920, 23, 64, "Input",ExpressionUUID->"c1c67e6f-2166-4b2c-ad1e-2afa8fcb15a3"], +Cell[CellGroupData[{ +Cell[77508, 2211, 173, 2, 37, "Input",ExpressionUUID->"bbff060f-9685-4e2f-be9c-7701fb4d8cc2"], +Cell[77684, 2215, 6844, 185, 567, "Output",ExpressionUUID->"f0f028fe-e799-4c0b-8e78-7b5d13c6ef50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[84565, 2405, 657, 19, 60, "Input",ExpressionUUID->"778c1995-6484-41ee-9250-54db059ba188"], +Cell[85225, 2426, 8849, 230, 744, "Output",ExpressionUUID->"9d6ba0ed-099d-40bd-a59a-5f88602a0f7c"] +}, Open ]], +Cell[94089, 2659, 1411, 29, 147, "Input",ExpressionUUID->"9a6f9ae2-ace2-4ee3-abee-b1fb7490c34f"], +Cell[CellGroupData[{ +Cell[95525, 2692, 11057, 260, 1308, "Input",ExpressionUUID->"9aab4d60-2971-4ed3-9cd9-2cb167c8e2aa"], +Cell[106585, 2954, 7161, 138, 225, "Output",ExpressionUUID->"1cd0a908-6910-4678-8daa-eb36615892e2"] +}, Open ]], +Cell[113761, 3095, 212, 3, 60, "Input",ExpressionUUID->"fb8a053c-12eb-46e6-9122-e3601704c1ef"], +Cell[CellGroupData[{ +Cell[113998, 3102, 200, 3, 37, "Input",ExpressionUUID->"2e0a4e46-fc9a-458b-8408-319037f06f58"], +Cell[114201, 3107, 173, 3, 56, "Output",ExpressionUUID->"a43980f0-8b13-4ea0-82e7-8da47cedfa22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[114411, 3115, 448, 11, 60, "Input",ExpressionUUID->"e5815e8c-d63c-4132-adbe-188dbd89b906"], +Cell[114862, 3128, 7494, 142, 315, "Output",ExpressionUUID->"6f6ada20-c267-468c-99b8-dc9e8e73b05a"] +}, Open ]], +Cell[122371, 3273, 277, 5, 60, "Input",ExpressionUUID->"1e348821-12b6-4dbb-b5cd-4f7e2e3df661"], +Cell[CellGroupData[{ +Cell[122673, 3282, 1363, 36, 114, "Input",ExpressionUUID->"7c43a354-c26c-462d-8b7b-0a73fe9e4217"], +Cell[124039, 3320, 862, 26, 75, "Output",ExpressionUUID->"c402c2cc-27eb-4b5b-ab52-6079cb82d866"] +}, Open ]], +Cell[CellGroupData[{ +Cell[124938, 3351, 623, 16, 64, "Input",ExpressionUUID->"c94abc51-199d-4812-ba18-9e0f899cfe4b"], +Cell[125564, 3369, 999, 29, 77, "Output",ExpressionUUID->"4d0e42bd-4f0e-4168-9782-035007c489b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[126600, 3403, 333, 8, 62, "Input",ExpressionUUID->"80d8afaf-4aa6-4c33-995c-27a2ff281f33"], +Cell[126936, 3413, 324, 7, 71, "Output",ExpressionUUID->"12e1e320-411c-4fad-94dd-d48b9451766f"] +}, Open ]] +}, Open ]] +} +] +*) + diff --git a/Notebooks/4-CadenaDeOsciladores.nb b/Notebooks/4-CadenaDeOsciladores.nb new file mode 100644 index 0000000..049e523 --- /dev/null +++ b/Notebooks/4-CadenaDeOsciladores.nb @@ -0,0 +1,975 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 13.2' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 35675, 967] +NotebookOptionsPosition[ 31915, 888] +NotebookOutlinePosition[ 32380, 906] +CellTagsIndexPosition[ 32337, 903] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell["Cadena de osciladores", "Title", + CellChangeTimes->{{3.898189426701078*^9, + 3.8981894362684717`*^9}},ExpressionUUID->"d14c2b00-a4d4-4941-8b3f-\ +1fb29f47131c"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.896981875196876*^9, 3.8969818757803297`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"a1e50851-356a-46af-8eb3-95b619cbc946"], + +Cell[CellGroupData[{ + +Cell["Cadena infinita", "Section", + CellChangeTimes->{{3.898189838057465*^9, + 3.8981898430164423`*^9}},ExpressionUUID->"db3435a5-ec8f-440a-b482-\ +d159dad01f48"], + +Cell[BoxData["quit"], "Input", + CellChangeTimes->{{3.898190863293729*^9, + 3.898190865299613*^9}},ExpressionUUID->"9d75e468-85f8-4e41-9fe1-\ +527029cde8f4"], + +Cell[CellGroupData[{ + +Cell["Posici\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981896291631527`*^9, + 3.898189635986691*^9}},ExpressionUUID->"1c36d814-8bc4-450f-adc5-\ +20e2fcf4d0cb"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"tab", ":=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a", ",", "t"}], "]"}], ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", "tab"}], "Input", + CellChangeTimes->{{3.896967540636846*^9, 3.8969675634013147`*^9}, { + 3.8969676264622393`*^9, 3.896967627893523*^9}, 3.896967659403421*^9, { + 3.898189850512991*^9, 3.89818985272077*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"06067cb5-9bd2-479e-8b80-5b1390f34d40"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"0", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"1", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"2", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"3", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"4", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"5", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"6", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"7", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"8", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"9", ",", "t"}], "]"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.898189869718911*^9, 3.8981899102537813`*^9, 3.8981900603129*^9, { + 3.898190115258012*^9, 3.8981901290626717`*^9}, 3.8981902193273487`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"86d13259-e442-4d0c-814f-2ced23ec2658"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"Do", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a_", ",", "t_"}], "]"}], ":=", " ", + RowBox[{ + RowBox[{"b", " ", "a"}], " ", "+", " ", + RowBox[{"\[Delta]x", "[", + RowBox[{"a", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "\[IndentingNewLine]", + "]"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", "tab"}], "Input", + CellChangeTimes->{{3.89696758283634*^9, 3.89696765001157*^9}, + 3.896970145766357*^9, 3.896980476623335*^9, {3.89818985849691*^9, + 3.898189860272627*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"4051fdbf-3e6b-480f-b3dc-60463a93ab8e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Delta]x", "[", + RowBox[{"0", ",", "t"}], "]"}], ",", + RowBox[{"b", "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"1", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"2", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"3", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"4", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"5", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"6", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"7", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"8", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"9", ",", "t"}], "]"}]}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.898189871902272*^9, 3.898189910314497*^9, 3.898190060369315*^9, { + 3.8981901153217793`*^9, 3.898190129118561*^9}, 3.8981902193817883`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"6f35d23d-a584-49a9-85d5-1c12c0a4f994"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898189874297193*^9, + 3.8981898768389177`*^9}},ExpressionUUID->"6a82e6d3-61c4-49c1-b485-\ +60d47094a57d"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"\[Delta]x", "[", + RowBox[{"a_", ",", "t_"}], "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "+", + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "+", "\[Delta]"}], + "]"}]}]}], ";"}], "\[IndentingNewLine]", "tab"}], "Input", + CellChangeTimes->{{3.8969677035368767`*^9, 3.896967758139599*^9}, { + 3.8969678050130577`*^9, 3.896967810203188*^9}, {3.897053650348673*^9, + 3.897053650603285*^9}, 3.897057033734136*^9, {3.898189880800672*^9, + 3.898189881304631*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"f09094eb-ca3f-41a8-a85f-022b4943bee4"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ",", + RowBox[{"b", "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}]}], + "}"}]], "Output", + CellChangeTimes->{{3.898189882378446*^9, 3.898189911903243*^9}, + 3.898190061938931*^9, {3.898190115333956*^9, 3.898190129127049*^9}, + 3.898190219406131*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"bde30bb3-958d-4382-afc9-800dde4405f0"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898189887072125*^9, + 3.8981898892976522`*^9}},ExpressionUUID->"41180d3a-f981-4025-a677-\ +c0fa28061952"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", + RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Kappa]", "=", " ", + RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"b", "=", "3"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "=", " ", + RowBox[{"2", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + RowBox[{"\[Kappa]", " ", + RowBox[{"b", "/", "2"}]}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"tabp", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"{", "Orange", "}"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a", ",", "t"}], "]"}], ",", "0"}], "}"}], ",", "1"}], + "]"}], ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], "]"}], " ", "//", + "N"}]}], ";"}], "\[IndentingNewLine]"}], "Input", + CellChangeTimes->{{3.8969679176014833`*^9, 3.896967954435062*^9}, { + 3.896967994429302*^9, 3.89696800633785*^9}, {3.896968072142446*^9, + 3.8969681026919622`*^9}, 3.896968179989766*^9, 3.8969682136760263`*^9, { + 3.896969189879067*^9, 3.8969692301007442`*^9}, {3.896980612726336*^9, + 3.896980613613016*^9}, {3.8969807619403563`*^9, 3.896980764578993*^9}, { + 3.896980800547594*^9, 3.8969808006182203`*^9}, {3.89698083773923*^9, + 3.896980838913813*^9}, 3.8969809325171213`*^9, {3.8970537070829353`*^9, + 3.897053729066731*^9}, {3.897056233181769*^9, 3.8970562365411882`*^9}, { + 3.897056287092618*^9, 3.8970562962523193`*^9}, {3.897056624433226*^9, + 3.897056626567359*^9}, {3.897056657855568*^9, 3.89705668005437*^9}, + 3.897056975891984*^9, 3.897057007082261*^9, {3.898189663338439*^9, + 3.898189663915093*^9}, {3.8981897086584*^9, 3.89818971039482*^9}, { + 3.898189804554688*^9, 3.898189818178281*^9}, 3.8981899943685427`*^9, { + 3.898190028961454*^9, 3.898190046687601*^9}, 3.8981900956623497`*^9, { + 3.898190174101582*^9, 3.898190205973226*^9}, 3.898190954450697*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"f413e5bf-b5dd-4906-a212-ac3158ded337"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "5"}], "}"}]}], "}"}], "]"}], ",", " ", + RowBox[{"tabp", "[", "t", "]"}]}], " ", "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.898190132009942*^9, 3.898190162301826*^9}, { + 3.898190209134244*^9, 3.898190210068904*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"a0d867f7-f6eb-4ce2-a5cf-78cffb9fd7c1"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 27.360916137695312`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 50}}, Typeset`size$$ = { + 468., {70., 76.3369142857143}}, Typeset`update$$ = 0, Typeset`initDone$$, + Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-5, -5}, {30, 5}}], + $CellContext`tabp[$CellContext`t$$]}], + "Specifications" :> {{$CellContext`t$$, 0, 50, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {96.861328125, 104.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.898189892708777*^9, 3.898189921496675*^9}, + 3.8981899952017117`*^9, 3.898190069130842*^9, {3.89819010633807*^9, + 3.898190177883396*^9}, 3.8981902244027233`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"faac998e-16eb-4fe8-af22-96a36caa85f0"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Cadena finita", "Section", + CellChangeTimes->{{3.898190284716926*^9, 3.898190287680686*^9}, { + 3.8981908393883543`*^9, 3.8981908414357986`*^9}, {3.89819106028913*^9, + 3.89819106221673*^9}},ExpressionUUID->"27d5fa20-6a59-4c09-aa61-\ +aa0c3d262773"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8969818947643843`*^9, 3.8969818952997837`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"c333ccc6-362e-4ffd-b0c2-ade6f08e9dd2"], + +Cell[CellGroupData[{ + +Cell["Posici\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981896291631527`*^9, + 3.898189635986691*^9}},ExpressionUUID->"26a56441-74dc-4dcb-ae7a-\ +3f313551af13"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"tab", ":=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a", ",", "t"}], "]"}], ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", "tab"}], "Input", + CellChangeTimes->{{3.896967540636846*^9, 3.8969675634013147`*^9}, { + 3.8969676264622393`*^9, 3.896967627893523*^9}, 3.896967659403421*^9, { + 3.898189850512991*^9, 3.89818985272077*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"777ca69f-a76b-4682-8925-d5cb3b1c2faa"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"0", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"1", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"2", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"3", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"4", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"5", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"6", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"7", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"8", ",", "t"}], "]"}], ",", + RowBox[{"x", "[", + RowBox[{"9", ",", "t"}], "]"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.898189869718911*^9, 3.8981899102537813`*^9, 3.8981900603129*^9, { + 3.898190115258012*^9, 3.8981901290626717`*^9}, 3.8981902193273487`*^9, + 3.8981910138476877`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"f493a7c9-a868-4f5a-b517-cadc825ccb5f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"Do", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a_", ",", "t_"}], "]"}], ":=", " ", + RowBox[{ + RowBox[{"b", " ", "a"}], " ", "+", " ", + RowBox[{"\[Delta]x", "[", + RowBox[{"a", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "\[IndentingNewLine]", + "]"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", "tab"}], "Input", + CellChangeTimes->{{3.89696758283634*^9, 3.89696765001157*^9}, + 3.896970145766357*^9, 3.896980476623335*^9, {3.89818985849691*^9, + 3.898189860272627*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"88478d08-bf05-4559-a79c-c7186149f8e5"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Delta]x", "[", + RowBox[{"0", ",", "t"}], "]"}], ",", + RowBox[{"b", "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"1", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"2", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"3", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"4", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"5", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"6", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"7", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"8", ",", "t"}], "]"}]}], ",", + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"\[Delta]x", "[", + RowBox[{"9", ",", "t"}], "]"}]}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.898189871902272*^9, 3.898189910314497*^9, 3.898190060369315*^9, { + 3.8981901153217793`*^9, 3.898190129118561*^9}, 3.8981902193817883`*^9, + 3.898191013905608*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"9a01dc44-5958-4cb3-86eb-a7ac17acbbdf"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898189874297193*^9, + 3.8981898768389177`*^9}},ExpressionUUID->"96c7d6d6-8736-4881-80ed-\ +acfea4afeb24"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"\[Delta]x", "[", + RowBox[{"a_", ",", "t_"}], "]"}], ":=", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "-", + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "-", "\[Delta]"}], + "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "+", + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "+", "\[Delta]"}], + "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "tab"}], "Input", + CellChangeTimes->{{3.8969677035368767`*^9, 3.896967758139599*^9}, { + 3.8969678050130577`*^9, 3.896967810203188*^9}, {3.897053650348673*^9, + 3.897053650603285*^9}, 3.897057033734136*^9, {3.898189880800672*^9, + 3.898189881304631*^9}, 3.898190930844493*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"503e194c-3aa0-4d36-ab1a-dd1535450d28"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"b", "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}], + ",", + RowBox[{ + RowBox[{"2", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}], + ",", + RowBox[{ + RowBox[{"3", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}], + ",", + RowBox[{ + RowBox[{"4", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}], + ",", + RowBox[{ + RowBox[{"5", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}], + ",", + RowBox[{ + RowBox[{"6", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}], + ",", + RowBox[{ + RowBox[{"7", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}], + ",", + RowBox[{ + RowBox[{"8", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}], + ",", + RowBox[{ + RowBox[{"9", " ", "b"}], "+", + RowBox[{"A", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "-", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"\[Delta]", "+", + RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+", + RowBox[{"t", " ", + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], + ")"}]}]}]}], "}"}]], "Output", + CellChangeTimes->{{3.898189882378446*^9, 3.898189911903243*^9}, + 3.898190061938931*^9, {3.898190115333956*^9, 3.898190129127049*^9}, + 3.898190219406131*^9, 3.898191013914915*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"00d565ec-ad49-4797-bc70-a0e8660d2503"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898189887072125*^9, + 3.8981898892976522`*^9}},ExpressionUUID->"bb82b19d-2246-4407-a1e6-\ +e33d2ba5cef6"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Omega]0", "=", + RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"A", "=", + RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Kappa]", "=", " ", + RowBox[{ + RowBox[{"\[Pi]", "/", + RowBox[{"(", + RowBox[{"b", " ", "9"}], ")"}]}], " ", "7"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"b", "=", "3"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "=", " ", + RowBox[{"2", " ", "\[Omega]0", " ", + RowBox[{"Sin", "[", + RowBox[{"\[Kappa]", " ", + RowBox[{"b", "/", "2"}]}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"tabp", "[", "t_", "]"}], ":=", + RowBox[{ + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"{", "Orange", "}"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Disk", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", + RowBox[{"a", ",", "t"}], "]"}], ",", "0"}], "}"}], ",", "1"}], + "]"}], ",", + RowBox[{"{", + RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], "]"}], " ", "//", + "N"}]}], ";"}]}], "Input", + CellChangeTimes->{{3.8969679176014833`*^9, 3.896967954435062*^9}, { + 3.896967994429302*^9, 3.89696800633785*^9}, {3.896968072142446*^9, + 3.8969681026919622`*^9}, 3.896968179989766*^9, 3.8969682136760263`*^9, { + 3.896969189879067*^9, 3.8969692301007442`*^9}, {3.896980612726336*^9, + 3.896980613613016*^9}, {3.8969807619403563`*^9, 3.896980764578993*^9}, { + 3.896980800547594*^9, 3.8969808006182203`*^9}, {3.89698083773923*^9, + 3.896980838913813*^9}, 3.8969809325171213`*^9, {3.8969819587555637`*^9, + 3.8969819983465567`*^9}, 3.896982028394356*^9, {3.896982063161879*^9, + 3.8969820636256437`*^9}, {3.89698405227217*^9, 3.896984052631715*^9}, { + 3.897058396191249*^9, 3.89705842050231*^9}, {3.897059172499297*^9, + 3.8970591751705303`*^9}, {3.8970592158206797`*^9, 3.897059284537736*^9}, { + 3.898190981434123*^9, 3.898190982163364*^9}, {3.898191068594631*^9, + 3.898191089929871*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"9a6f9ae2-ace2-4ee3-abee-b1fb7490c34f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Polygon", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "5"}], "}"}]}], "}"}], "]"}], ",", " ", + RowBox[{"tabp", "[", "t", "]"}]}], " ", "}"}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.898190132009942*^9, 3.898190162301826*^9}, { + 3.898190209134244*^9, 3.898190210068904*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"a96c13f0-6e31-48b0-a52a-625c927208e0"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 33.460283279418945`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], 0, 50}}, Typeset`size$$ = { + 468., {70., 76.3369142857143}}, Typeset`update$$ = 0, Typeset`initDone$$, + Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Graphics[{ + Polygon[{{-5, -5}, {30, 5}}], + $CellContext`tabp[$CellContext`t$$]}], + "Specifications" :> {{$CellContext`t$$, 0, 50, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {96.861328125, 104.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.89697031837705*^9, 3.896970349146681*^9}, + 3.8969703841315327`*^9, 3.8969806379504957`*^9, {3.8969806758034773`*^9, + 3.896980702615971*^9}, {3.8969807900190372`*^9, 3.896980804497095*^9}, + 3.896980856822782*^9, 3.896980949775291*^9, {3.896982013398593*^9, + 3.8969820416122217`*^9}, {3.89698208259657*^9, 3.8969821017037086`*^9}, { + 3.896984008323372*^9, 3.896984028057538*^9}, 3.89698407019971*^9, { + 3.897058386800404*^9, 3.8970584396275578`*^9}, 3.897059191004683*^9, { + 3.89705923146852*^9, 3.897059277064404*^9}, 3.8981910421021442`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"f7aaa2af-e568-4f81-a410-1d600d5c3710"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +}, +WindowSize->{1200, 627}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +TaggingRules-><|"TryRealOnly" -> False|>, +Magnification:>1.3 Inherited, +FrontEndVersion->"13.2 para Linux x86 (64-bit) (January 30, 2023)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8807e77d-9565-49ec-8d4d-2c97f33a22ca" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 166, 3, 127, "Title",ExpressionUUID->"d14c2b00-a4d4-4941-8b3f-1fb29f47131c"], +Cell[749, 27, 177, 2, 60, "Input",ExpressionUUID->"a1e50851-356a-46af-8eb3-95b619cbc946"], +Cell[CellGroupData[{ +Cell[951, 33, 162, 3, 87, "Section",ExpressionUUID->"db3435a5-ec8f-440a-b482-d159dad01f48"], +Cell[1116, 38, 156, 3, 37, "Input",ExpressionUUID->"9d75e468-85f8-4e41-9fe1-527029cde8f4"], +Cell[CellGroupData[{ +Cell[1297, 45, 166, 3, 70, "Subsection",ExpressionUUID->"1c36d814-8bc4-450f-adc5-20e2fcf4d0cb"], +Cell[CellGroupData[{ +Cell[1488, 52, 596, 14, 115, "Input",ExpressionUUID->"06067cb5-9bd2-479e-8b80-5b1390f34d40"], +Cell[2087, 68, 936, 26, 43, "Output",ExpressionUUID->"86d13259-e442-4d0c-814f-2ced23ec2658"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3060, 99, 775, 19, 200, "Input",ExpressionUUID->"4051fdbf-3e6b-480f-b3dc-60463a93ab8e"], +Cell[3838, 120, 1450, 43, 77, "Output",ExpressionUUID->"6f35d23d-a584-49a9-85d5-1c12c0a4f994"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5337, 169, 166, 3, 48, "Subsection",ExpressionUUID->"6a82e6d3-61c4-49c1-b485-60d47094a57d"], +Cell[CellGroupData[{ +Cell[5528, 176, 707, 16, 93, "Input",ExpressionUUID->"f09094eb-ca3f-41a8-a85f-022b4943bee4"], +Cell[6238, 194, 2974, 83, 106, "Output",ExpressionUUID->"bde30bb3-958d-4382-afc9-800dde4405f0"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[9261, 283, 167, 3, 48, "Subsection",ExpressionUUID->"41180d3a-f981-4025-a677-c0fa28061952"], +Cell[9431, 288, 2483, 56, 302, "Input",ExpressionUUID->"f413e5bf-b5dd-4906-a212-ac3158ded337"], +Cell[CellGroupData[{ +Cell[11939, 348, 741, 20, 64, "Input",ExpressionUUID->"a0d867f7-f6eb-4ce2-a5cf-78cffb9fd7c1"], +Cell[12683, 370, 2152, 42, 225, "Output",ExpressionUUID->"faac998e-16eb-4fe8-af22-96a36caa85f0"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[14896, 419, 255, 4, 67, "Section",ExpressionUUID->"27d5fa20-6a59-4c09-aa61-aa0c3d262773"], +Cell[15154, 425, 178, 2, 60, "Input",ExpressionUUID->"c333ccc6-362e-4ffd-b0c2-ade6f08e9dd2"], +Cell[CellGroupData[{ +Cell[15357, 431, 166, 3, 70, "Subsection",ExpressionUUID->"26a56441-74dc-4dcb-ae7a-3f313551af13"], +Cell[CellGroupData[{ +Cell[15548, 438, 596, 14, 115, "Input",ExpressionUUID->"777ca69f-a76b-4682-8925-d5cb3b1c2faa"], +Cell[16147, 454, 964, 27, 70, "Output",ExpressionUUID->"f493a7c9-a868-4f5a-b517-cadc825ccb5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17148, 486, 775, 19, 200, "Input",ExpressionUUID->"88478d08-bf05-4559-a79c-c7186149f8e5"], +Cell[17926, 507, 1476, 44, 70, "Output",ExpressionUUID->"9a01dc44-5958-4cb3-86eb-a7ac17acbbdf"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[19451, 557, 166, 3, 48, "Subsection",ExpressionUUID->"96c7d6d6-8736-4881-80ed-acfea4afeb24"], +Cell[CellGroupData[{ +Cell[19642, 564, 1003, 24, 93, "Input",ExpressionUUID->"503e194c-3aa0-4d36-ab1a-dd1535450d28"], +Cell[20648, 590, 5298, 149, 70, "Output",ExpressionUUID->"00d565ec-ad49-4797-bc70-a0e8660d2503"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[25995, 745, 167, 3, 48, "Subsection",ExpressionUUID->"bb82b19d-2246-4407-a1e6-e33d2ba5cef6"], +Cell[26165, 750, 2384, 59, 276, "Input",ExpressionUUID->"9a6f9ae2-ace2-4ee3-abee-b1fb7490c34f"], +Cell[CellGroupData[{ +Cell[28574, 813, 741, 20, 64, "Input",ExpressionUUID->"a96c13f0-6e31-48b0-a52a-625c927208e0"], +Cell[29318, 835, 2545, 47, 225, "Output",ExpressionUUID->"f7aaa2af-e568-4f81-a410-1d600d5c3710"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +} +] +*) + diff --git a/Notebooks/5-OndasEnUnaDimension.nb b/Notebooks/5-OndasEnUnaDimension.nb new file mode 100644 index 0000000..7ace686 --- /dev/null +++ b/Notebooks/5-OndasEnUnaDimension.nb @@ -0,0 +1,2851 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 13.2' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 135097, 2843] +NotebookOptionsPosition[ 126812, 2684] +NotebookOutlinePosition[ 127235, 2701] +CellTagsIndexPosition[ 127192, 2698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell["Ondas en una dimensi\[OAcute]n", "Title", + CellChangeTimes->{{3.8981911148840227`*^9, + 3.898191121624124*^9}},ExpressionUUID->"3b52c642-4207-4cdf-bcb3-\ +2f6a2e20aca2"], + +Cell[CellGroupData[{ + +Cell["Cuerda infinita", "Section", + CellChangeTimes->{{3.898191125464287*^9, + 3.8981911354478607`*^9}},ExpressionUUID->"6408f118-07fb-4e89-bc3b-\ +b3700fa14a9c"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.898191217383078*^9, + 3.898191217862883*^9}},ExpressionUUID->"933505bf-9343-4c96-83d4-\ +c02490946a66"], + +Cell[CellGroupData[{ + +Cell["Modo hacia la derecha", "Subsection", + CellChangeTimes->{{3.898191153143958*^9, 3.898191187631179*^9}, { + 3.898191329181638*^9, 3.898191331237507*^9}, {3.898191373295086*^9, + 3.8981913787009573`*^9}},ExpressionUUID->"8f3381a1-e334-4ec0-8b8f-\ +fd462b83d0f0"], + +Cell["En t\[EAcute]rminos de una funci\[OAcute]n cualquiera", "Text", + CellChangeTimes->{{3.898191380741803*^9, + 3.8981913889943533`*^9}},ExpressionUUID->"fcdefcc8-7771-458d-836e-\ +557c6d7fcef0"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"fp", "[", "u_", "]"}], ":=", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{"u", "^", "2"}]}], ")"}]}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"fp", "[", "u", "]"}], ",", + RowBox[{"{", + RowBox[{"u", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, { + 3.898191290942535*^9, 3.898191292239201*^9}, {3.8981913532387238`*^9, + 3.898191356574024*^9}, {3.898191780898335*^9, 3.8981917842249517`*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"0b822ae7-398a-485f-9c1a-0cabac4e7c3f"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw1WWc413/Utvcmq4UfQkJIA52PhJQkSaWNJMm/VFJE40eUyB5R9t4k+/ux +Za/snWx+skd4eq7reV6d677uc785L865z3WLmv5neIeGioqqg5qK6n/ry7Gz +89vbJEzqHnq1qk2GUQf+pZ6/JOwg90Xw1Fky6HMNrHxfI2Eys2t4yAUyiBx9 +uPnfAgnfOSTiduoWGUrf+zANjpJw/8PyiarnZGCS69iD6//xhQn+xilk8Hty +68yrzyQcrmTUivldIIn6cTTVYRJeM8mjObLgAvR3dBSFrothLSnF5WVqN+Dt +rLCO9BbFmV5n7hkpvQfDshAz6RoRXPa5aJ91nAc4UNStP/3aiw90yHOa5XlB +7rMQq7Rze3Bh1aucNVdv0Pe5KLIVvAs3Pbrg2h3tCzphRfqnpoUxzwIn/avd +ATD3sfcv3agwfn1g+JPfvgAIcdpILBkQxmMPvJfSDgbA9M2jjKqtwvjuu4Om +G1oB4CP2jTiQL4wLaWPsftsEQH9csgKvmzBmU2zhYysNALvMzzz9JGF8ZOP2 +WNODQIitet7++KoQrg6/Y457gyBY0U4zwUgIl7Z6L5ZNBIFHmG16/1khfMv2 +TkLzchDYPr7/XhcJ4fHY8URW7mBQ33v9+F4JIdwUFnRoQysY2uxQbM2sIPZ8 +/LCzOSMYaCQZ7UTfCOJ2C7mcJO8QuEH229EYL4CrbOP0vj8JhQZYZrSPFMAq +JleIT29DATYurYuECmBO7f25T31CQcR254CtlwCuViPfN00PheGbkfH8dgJ4 +d0TSvurpULBQTVe9oSmAT2UZhTXeDQOb+drbM338+AGDJdW+u1/A6RZtKisv +P47S+ii0rh0O6Y06nm1s/LjwKH9437lwGD7uYRPGwI93pjJcq74cDtq7d8jL +r+/AIk9ofbOswoGjWzLdcGgHnqT70zHkGQ5fLpzODE7bgefddmdHd4YDoe2d +s09vB7buFInZfBQBVAf2EpoufDiTr/XNfFEkOPJr3HBx4sMtPIwS7T8iYWXb +dLPyGR/OuEe7XP4zEmZbYlVPW/HhPpr2q+UzkdBjL5drcI4Pn47ixWf2REFO +uXrGdSE+/CiZy9H9dRQ8uHYt6lkKLxbm+L4qfT4axrWcTuTF8mLqcx/+et2I +BnP58KH1r7zYlzaan9Y6GkxoRvY6+fBiD2HaZq530XAq/n4o+Rkvvhy9qlpX +FA3iiy/8vTV48er2iELLgRjo/hD8LuknDxaf80sJEYyF1gqR5FuNPPhxSFlH +iWQs1G3HNe34wYOpXkdaLSvHQvHjHKFXhTx47dNZdrfzsRB5tTXJKIoHKzPT +iJz7EAtW+9mbNh/yYCte3y8O1HGwUfNK0ICNBwu+TCutW42DRTomdXoGHqy1 +wWFWxhQPs8e9budvc2OnvofffwjGw2BmWKL4AjcuH7Gqpz8aD+Uh+WprXdy4 +65b/jPqLePCwWrwVGfePTzSxwNvxsIvFMmHxBDc+VkL2iRdIhBvFdR5iatz4 +RSSLstb+RIiwPfjQ4BA3FnGS8Fs5ngiSPesqyfu48dLDCI4vFokgn/yx3IyN +Gyvx1dos5STCCf2sgZafXBgJ+yRNXk2Cez5bOzIsufCSSg5p+HsyJGubrfXf +5sKmxuiMfUMyzK5X9bJd5cKVKzohUr+TwdbMO8ryLBfeGLY+28mTAo7K4gdF +FLmwWddrG/v/UmBPim/QnhVOfHrErXrgQCrcPyRD37OLE+dilWRHnAa29Hlx +dpyceNf2O1f57jR48VPnNA8NJy47XTxLtZgG75/e8dId48DeW+d4qfjSIfFb +uFBuBgf2vyRfmH8qHSYOCcj5a3NgE9/0F0rf0uGuCt2lcw/Z8UaV+8ZESAbY +MPiuTZr+w8M8ZX0JGWDXLhrqepEdB2XOSIzkZoCrHQwVHWPH7EGKKtIdGRCb +8+K+LD07FuxV7Q7ky4TfKn+cmUPYcF91VpmYbyaYHe6PLytjxbfp5Bi6vmaB +RfxhY+3vrNhfPBUU0rPASsib9kciK7454nH5M86ChxuaNxq8WTE9T31MylAW +OBIJvF03WfGk8xnpSvFs8NN56jS7wYLZ6R7Z/UrNhspLbEZCyiw46OF/gSWt +3+BH9R3q0H0s2Jb54P720W9Qd5RI3bOTBbdUxtHTrn+Dlp22zOI0LHja30Au +ViQHBgY6iuWamDGd774i/v9yYPVulPRJa2ZcErLjfAXXd5CxP7ZtE82EncUF +Nz9a5gLu05f5FcCEJ66vXBh9lQvGmmYXL7kz4avHavtuB+fCGw6PJLBhwkde +snwqq8mFrui+S1xHmPBW90TOEfk8cGt+lZ5Ry4hvdH5Qk9zOg1GZqtuL8wxY +eKD0MVdRATh+6vGw/M2ApTSmra90FwDPMuV7bwcDNvJgWG1YKYDjJYIcFYUM +uFXefo+GUiH4X7LK93dlwD8zlwzOJBfCSTI772FhBvyalcKvE1cEEX0Xyp9r +0OOUnsz378oIUBxRXG9Tpsf+FgUNeSMElE9yKyhI0WODncl9HLQYRlcaP49y +0OPkWxy0xeIYZHj0Hl/opcMph7et9O9hyNQ+KXbgGR2uHpIeNF3BUJ6m/Gow +mRbfUGFUqpUqhYs5vDmq4bS4dPdTtmG1UhgtnJ8K8KXFDOxDjwTPlwJTTfql +sy9ocSKy6xx5XgpnR2Tl83VosZWE8xpNfSm0C0r0+w7T4AfcDu8/Pi+Dsdc7 +1HQEaXBnndiusplyYHmZRvFlocGtHPkm15kqQM5eN2rwLzVmvXpcYB+pAuxs +XrK8GKLGmjgw6fSVCmC4+rszOZEat7PcHOmrqgBx5W9PedSpcYxBAod/aiWc +kj8nfVOeGqsulx8xqasEa5mJ3iRRajzUoTpwcbISskV2n9RioMarnJOu85JV +oMnuwmPfSIVlpLJ+NERWgemoUVrfbSoskPnx5NuYanAdmjWVMaLCN+osvaYq +qyGx143/mTYV7sqJf+YzXg3zLYUvufZT4Ws+B42+yP4AGmfdINfxbWLzxNyf +ou8/AA5ONJ9n3yYO/tnT8KW7BvL9pbTGjTcJTdVlKY1L9cB0dcyMWm2TOLnP +sH3oVT0Yi8S+ERbdJKTNB+61JNbDfCIJ6039JYaDLzPFbteDNN6jmuH8l0h4 +8KBdJqUBgib5Dr6I3yBaVm0CJdmaYDSt9Zzvxw2i6JG/XASpCZSf+tgk224Q +J8ZQkK5qEzRucyb3q20QXssiTyXuNwHDDtZ9ms3rhPePXEe++iZ4CtS72dbX +iFvF7x/uD2mGUjqsKjGwRrx3hZ9Z2c3AVeNkcrx8jYD9yokPG5sh2ehv4EPP +NWLkVMgdd/oWGLm3wvNTbI3YUhDy1HzSAoZ+M0xfzqwSd2X9FNC1VlCY6FqU +D1smTK73SsZe+QlP5g5IC5CXiYIHGT2Xnv+E3JXX17eslomuWOHLJ4N/ggaD +TGXdkWViuSBQu7HrJxiSXgTea1siWihcl3Kvt8PT68LHoliXiAalRUnFRx2Q +32zizP9igajhCh3+9KMLtjpTszZvLRBNFzUMTf90wYlBmvERnQXCeIZd0EGo +G2pnEw2ydiwQl2/5s5GtuqGXdUPUIGOe6BCK2rPJ2QPbWp/L3cf/EJrOrbta +LXvhZH4P86bxHCH65kpJ/4UBSE2MOVqlOkdcPZPaZ+A+AIKf/7vnLTJHiLXe +fbaXGID2FQafM20UgpqQJE3sGAQJB2OusPVZgv5MzVIleRBKXy+xIZ0Z4o/3 +Wqbo/SH466nE4Do4QeyhSkScV37Bw4S0VW7eX8QZlbeUW6FjoMBh8/bE4DBx +k8Fi4lrRGPyxleV4nDJMRMpdqLzaPwa2agmkNp1h4u3QQ/trIuPwtDFSP8Bx +iBAQfy6BosdhYXK/7qG6AeJAl1GidOIEPMmOvxFgMUDwSE97BdVMwPJLiScr +VAOErszpv5TJCVjl2vs171A/0cHwpdJg/yT8VeFZUv/aS5B+du+LSpwEhrer +4dq2XQQ5W2F/ccQUvNN7mhPH1kWMCyR1lhJTwMQ/X8sU10nwaJonePZNAUvC +1HJNTwexPVEfbys4DZyN/XrntNqJntEYAdkP0/Ap6Kpp+sBP4j/F7UXpuGng +Me18xv3iJ/G9l9mvt3Qa+JaaI1tT24jbPm9KjdemQXBnxeolwVai/e+k83XT +GQge0eDIy2whpCzf82GHGRBOLSYJn20htrF/ZbnfDOzWyNXvfd1MsJ+OP51U +MQOaDca6Je2NxOGt5K1ksVnQvm3w5C1rI0Hj0hM2eGQWTi3qftVCDURkRLJe +tP4s6AmrL/1IqCOi1aWUWu1nwdiCFNHi+IMI/VIu5Vc1C+8fPXbz+VZNhF/f ++yqjaxaKHMv+M5ytIm7scrx/YWoWxH3NjrfcrCS+umW172anwOUvWRI+QRXE +60PePSd2U+BDAi27YXM54el73vm3LAXmiaie5hNlhPObVFLYaQpI1i6UejuU +Eqf3XKVOu0yBK+2aieezS4gbHB1HjlhQAE//sm+WwMQtPcOVRGcKjFPuYrGi +YiLuiAL2/kCBcwxMXpFyRYTM6Qt3JwMosEfplGwkdz7x/hNYTydRwEV3fF30 +bS5heOWIo+83yr//w+1HxGIOAR5PGuOKKXDBTipI1OIbMfA7zVyqigL5HtUW +ER1ZhPWEymm+RgqIRlkeEtXNJIR1pb9YtVPALY+JLiI/nZBXy/WU6aNA/9fz +MRqXUwmmqFsmF35RIKXO+4SGahKBekQMRsYp4LDWPID2xBOiUomNvTMU0JXk +eYmoY4hx/4+6avMUELhgKIxGIghDZA40yxSo3Rb/z9kzjAgYm9eUW6OA5ZWY +BCejQIKj5NQGsUEBuiyJkZfC3sTdx13C3zcpgIT01NexCxGo4HOPd5sCc0HB +5n+CbYmw4Qmi7R92pPGr0D5yBbRNpxk3/mG5ELMqPhVnOJuJ1F3/4X6hjFlW +Tg9QV5V5YLf1bx5KnYWuGn6QwuiSU/uXAjldl968cwiBLJoiXdd1CrDjKVK5 +STioqGPL2BUKgG+Sa/mzKHisMW0hu0iBRxb3J8r9/vlop+V4wTkKRB7dr1eR +kQD9HY3R96co0MY2lVrxz3eG3ns7JDFKAYbBRO7KqTTI8uJa0RmkQOiVQ8fM +yBlgoIM8W7oocEjT//4vnizw2Xp6q7KFAg2yS6FmEdlATDkcFq+lABXVt22z +4u9AW9JwXzSfAsETfAdH9PLgeWh0cmk6BRRbn5ia9+SDPdGR2xxLAfNY5Qrz +1SLwVfkTqe5NgU0vv+URVwK4lp/0hbr8m7/aum/mewxOyrOfbZ7/65c0qVAU +KgVx7oVVm5sUUNjJ0m87WAq6/Wxm4ef/6TnzlzPjyiBi18sxXU0KBKwJSSmp +VEBUauptVgkKVNV1vVe6UA3xL8UDng7PgqV9d9XV/f/uKOnLAkvjLDCJ99CR +aWugJ03tIlfBLJx26HVqy6oF6mdcyU+8Z6FOesD2KV8jtH04UT9++J9e0zal +Z7IF5liP51c8mIEjwfO1FONWcHde2vIwnAEmiu0kbVkrsLq81J9VmYGEkMf7 +ZD+3wfkDf06835qGyT9PIhzPtMPvPaIkO/dpsA5/5r87uQtclpMKvD5Ngdry +StZBwW6gyrzXq/1wCtj07Fu0yN1wLobxXPm5KUhZsee0udYDgj7sObs4pmBW +/4V7MVsfjJOtZz64TUKuU3FxmsogiHWkyXnaTcCxAyWZBoG/4Mm6JMdX7TE4 +1NYeUPzjF7h26vevSPzb/w7TL2T//oLfEeFuV+jHQPKHgCbT7RH4nKF0XK18 +FHjv2LQSMr+BqyJX6+uJUZgO3bkoVzwKx8b5tctP/IavbHaH2H9PgGu6ILOp +8S8Iyfog5CAwCewREhBz5BcEmERsjutOQsHGkRyWnb/AI76uojx1Eo5H2dEd +HxwG+5MkY0f7KeC+t/e2gfUwGDo22U2xzkDlvIvD3Q9DQGO3o9dcaA6M5PX9 +b9QPgMmtxJZc5TlIscvlUgscgMzT8IPNYA5GQpW77W4PgOneeznZrnOgiKX4 +6Vb6obS68BPd4hz4DLQrvJDsh7c7zbWiG/7A5SRrz+SAXuilX1NdnfgDK8qf +YvUsekF57qOiHv08fPyxp1lbpRdGyr/vXVSdh7fknbSnOnrgpA3rumbCPNCf +3F34eHcP0JVkpv56uwBYJ0RaIL8LriXpxBz+ugCiB7rOyXh1QbZ/7+cP+QtA +z/hs85N5F5hbMbgr/VmA3cvWzJe4uqCC18Ts7Y1F+DXcdjn3fie4WlALko4u +AX18ksqtgx3AyGbw2nR2GXLzn2gkLLbB5X0mWIV5BbKXXFYbWtsg8YT5Nov4 +CrAa37Y6lNUG+s/tX2ZdWYHjo/7upbZtEDAa/pyuYgWONnkJNC22gmTJn0ex +n1eBtyFqUI+uFex7N9Jf5KyCXSyX5cmxFqhZoZ/Tb16FfOI709OaFrCRE7ZZ +YViDl7wphLN3C+R8PmF1ynYN1uPT9eTEWkDLztd08tQ6tJXQ6nqcbYYA77CI +YrN1OH3HPmpAqRnGk+MGfZzWIfNnM8sd4Wbw+FVwQzV7HUpLz1+kG2+CNoMR +E4+9G6DdunHR3aUJzPcfuiC3vAEFshuRsT6N8HawXdM2ahPON0fFvRqug/68 +Mw/sCzehjF32WF9hHRzzxQFOPzch6Gy6hGNgHcxpJU68Z9yC6kHBSaezdXAj +6aVX1P0tMDtB+LkX1sIxO/GeNqVtkI611TgRWwNr9EfzdppSIV4diY/T0dUQ +a7tQ/8WGCj1oKD0X4VoNRgMpw6IOVCg9TNba3bIa0nPF2KT8qFC3Mh/PvGw1 +WNxnu6lcSYUcz8wMCuVWQVvTAN1ZGWpkORNSb91RCemfXQ2c5qnRUKlYod/h +CqjldR3jpKJBEkbbpeO7KmD0g4tTBDsNYvB2SblPUwG7HMnJ5VI0SPlEXsjf ++nJwu/aGifUmDcodUGdAd8vh1m4nHFhLgwxMBcPXIsqA6+tThYxoWiR9K7+2 ++lAp7Bd4WnUikxYpDoQ3aIuUgrbXkxttBC0Svb9VMs5SCo7Ojz1WumlRTz1x +LnCwBMZvPhpX56ZDdJL69IEfSwCLPAiveUmHXnXarw7PYPgv0pxrxJge6VsO +jBd9IMDzeXCopxk9KlWiqqS6T0CqQYPU0Yf06MZPOfEnpwmY3Tqs4elOjxKs +z6xPMhNgfZXV9kghPdrm0jfm/FAMVnyZrR6iDOioQfLrMf8isHDdDjg0zYBO +ti/+/VpbAK7XlUmDqwxIrvTbm/PpBRCrfC/tPT0jsutI9ZP2L4Dfwy1VA3sY +0Wc5HV29mwVgDrGr7ucZ0fG8PDejpXwwXdUz6c9hRA0N1HUqUvlwwypk97vX +TIhFd5nZOy4XNrqYG/58ZEK654Vo2LxzIUj3udO1ECZ0bfBKRvSLXGiWujxw +MIsJFXJsWMvp58LJsR0RvSNMyKSUfSls+TtIm3uLK55iRkIuKffK9L7D4nW3 +/X0cLKihzrhuii0HPtWv9OjsZEGpT5ljy9a+wQH1ux6Z+1jQSC93TNboN7DY +pT3zDrGgyFeTdj34G3R106Yp2rIgR8E4ZW27b1B8yVnR7ee/frazt+7+zgb3 +83ZHlUJZEVPM9Y3B1n93uE7GOjmBFf1aIz/gKc2CUJ2BLxLfWVFyScu+q+lZ +kK5+ik6whRUZumx1HPyYBZ3Swo1/GdmQ7e+cGYpOFkjRFJtXPmZD1MVq4p4l +mVCZSf/pyhl2NHMo/NLV8gxoOpBf2nKZHZXVHjeW/5YB3fE2S2cs2FHycQUN +/tgMmP3SYXL8NTuS5aDc3uWWAfwfEiRI39mRqienC8PZDLhjdrZgWowDNZbU +4yPd6UDH5z/qvM6BEj9WFlygTgeeWScOHkZOFKS/LGYymQai1ZYq0bycaPxD +YNu+ljQ47qjmWi3Lic7ecE7ljUyD5yO/JLhvciKPiFxGac00mM1WvBNZxono +1i1eSb9PhWmZ8Uem2lzIskOPyU0mBRYF+lyS9LiQeLhThtGOFNigawleNORC +rZGVa4epUoBloKDE9SYXqnm9NqHRngz7fL24k+y5UOBjkd833yaD6YZKxkIi +FxLd/bk5YSgJOmpd5sic3Gg2onE5KSUR/I6HaV3k50ZeW2QBcnAiGGZkh0js +5kZLY2Ohti6J0BDw62SlDDcaJq9f8LmeCJW3NYIZtbmRTEr6QidHIuSs/NV4 +78iNLrZyZd19mgABpCe+XhPcCCs09xWcjwejgA/jN+e4Ec27C4QEigce5ih1 +hRVu5HCY6nqkXDx4zjaPNdHxoDmyl3krazy45smr8YjwIPoJpTbuqjiwOzc1 +4mfMg34wRqJJFAcXHUxVQsp40FNrG35TjVgICONjWPnBg7rdCxTWFGOhnaj8 +eaGJB/GJX+L8Ih4LxnT7n7L3/ePxlzYupli4/HEh69UyD2IbVYoKaowBk6/k +g3eleVFkHF2Z2O0YuFUWK6vsxYuKjA3SMj5GgzXrlFiDCR96eCXQy505Cqae +59Ox3uZDGjFXXxhuRYLVuPuozl0+5H53SEZiIRLuVkglljzmQ0fZndLHeiPB +1Nni4DcPPhRW9UZwMD0SriwMQWgxHzo/azDsZxIJ2j2d16zEdqCtz0eDKrIj +YG9SZQDD5A6k9HxNWuZNOBh9zc2rmduBLFxnFw3sw+G9b2Kv58oONK3/6skr +m3BYdPAUE6DnR/tSqe+t/fPRNXrGqftE+NGYvAmnoXI42M3+rjhlzI8CAl1f +7m/+CvUH6Zfel/Kj+yN383RTv4BDruYFzs8CKLtGsmjNLxQUrzXN3YwQQMwo +ZkbUNRQmt695pscJIB2jGc+Lz0LBRMfux/lsATTLZrbUfyUUjrXHg1+9ADp8 +vZHz+d5QWF1glxWiEkSKtvVBOPkz2Ml30pHuCKLdtpvFBo0h8DDWOkdFXgj1 +173xVlcMhv7Gnf4cKkKoaLkgY0w8GM6u1TweVRNCv+XL9UMFgkFGT/pgwGkh +ZBZW3Cq+GQQjf34nLd0RQievNvVkVAfBJfWbEdmhQmh1sTc683YQHG8776HI +IoxeqFo1M34OBDaaw6Zyv4URW2Loy1mpAMh7RnthdEoY9asffLd7TwBYzDRq +fpkXRp9f6dw34g0A3GkpwUG1EyUzdEd3bfrD47SQ8RnhnWj8UAabRqs/dF/b +skkx2IlyefNPvnT2h/jvFQ6yhTvRxWgn4nmfH2g9MPKX8d2FerR5ZLhSfUEw +b/d/WuJ7kJL+6KGCXG/wsXXzVujYi6Ion46nNnuBoeu5A2E5IkjRecMsbsID +ZK6SL0a/FEVGbMWZ/jbvoX2UOdL3ohgyavZ7YbvDDRpMf2vw7CWhIBKLXJa0 +KwzRxa36i5HQ4Es93VhRV1iMtUwTkiShY5o+pWFCriA0NbVL9AAJ1Z8JKA1m +dgXzx/Mr8qoktCYrGlEx4QLrb7dTzl4iodfONyUnE11AMkZI2N2LhDg+iBic +V3CBozo9TWy+JFSh0HmqRsoF9CZC330KIKHDSrJIR9QFHh0QWQoMI6H/0u/t +PcvjAoXfJJtik0hoaoTB0G2RDIaVSq7lVSS0LULak59HhjuWS2qnaknIcq9K +9qNMMtizfF+obSChoxXbuw4kkSFM/9jt1p8k9MyR61paKBnG25Ha8C8SyqwU +1h5yJsO6Pc3CnTESKuqt2PfdngzsO8sTJiZJ6NIe/qpPj8igeFNH4M8fErri +cEr5nBkZtKiZG54skVD2ZepNpWtkuBxVQ15dJSHKINvzXRfJYKXloer4l4SE +qXtjmPTJ8H/5Kvr/fPV/AF0he+I= + "]]}, + Annotation[#, "Charting`Private`Tag$291006#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.898178518004966*^9, 3.8981785277450314`*^9}, + 3.898191295206668*^9, 3.898191357300709*^9, 3.898191784974062*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"2409da52-2ca7-4077-bcd4-d75592298c18"] +}, Open ]], + +Cell["Podemos animar seg\[UAcute]n", "Text", + CellChangeTimes->{{3.898191315254592*^9, 3.898191337581568*^9}, { + 3.898191393397159*^9, + 3.898191396389042*^9}},ExpressionUUID->"f15db67b-3409-4d51-9df4-\ +639aaaf4e8fc"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"c", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"fp", "[", + RowBox[{"x", "+", + RowBox[{"c", " ", "t"}]}], " ", "]"}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{"All", ",", + RowBox[{"{", + RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", + RowBox[{"Axes", "->", " ", + RowBox[{"{", + RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178533337009*^9, 3.89817856142127*^9}, { + 3.898178611949658*^9, 3.898178676394897*^9}, {3.898191306766424*^9, + 3.898191310270533*^9}, 3.8981913602862663`*^9, {3.8981917633827353`*^9, + 3.898191808432724*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"03ff5230-00eb-43a0-8c6f-7afc3ca92899"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 13.093133926391602`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -15, 15}}, Typeset`size$$ = { + 468., {150., 156.4998681001722}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -15}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Plot[ + $CellContext`fp[$CellContext`x + $CellContext`c $CellContext`t$$], \ +{$CellContext`x, -10, 10}, PlotRange -> {All, {0, 1}}, Axes -> {True, False}], + "Specifications" :> {{$CellContext`t$$, -15, 15, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {176.861328125, 184.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.898178564768065*^9, {3.898178615109125*^9, 3.898178677017771*^9}, { + 3.898191344043911*^9, 3.898191361067409*^9}, {3.89819176988326*^9, + 3.898191809218013*^9}}, + CellLabel->"Out[45]=",ExpressionUUID->"aa4c2849-e6fa-45d4-8b58-010e2cf61fde"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Modo hacia la derecha", "Subsection", + CellChangeTimes->{{3.898191404253745*^9, + 3.8981914077990227`*^9}},ExpressionUUID->"38fd7ad5-6523-4fd1-9971-\ +38a68ad88be4"], + +Cell["En t\[EAcute]rminos de una funci\[OAcute]n cualquiera", "Text", + CellChangeTimes->{{3.8981914146452713`*^9, 3.8981914209408903`*^9}, + 3.898191597762928*^9},ExpressionUUID->"23b0d7be-f17f-4ccc-82c1-\ +463a84f33f03"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"fm", "[", "u_", "]"}], ":=", + RowBox[{ + RowBox[{"1", "/", "4"}], + RowBox[{"Chop", "[", + FractionBox["1", + RowBox[{"1", "+", + RowBox[{ + SuperscriptBox["u", "2"], + RowBox[{"(", + RowBox[{ + SuperscriptBox["u", "2"], "-", "1"}], ")"}]}]}]], "]"}]}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"fm", "[", "u", "]"}], ",", + RowBox[{"{", + RowBox[{"u", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, { + 3.898178919640772*^9, 3.89817892694945*^9}, {3.898179002261174*^9, + 3.898179008205229*^9}, {3.8981914243731728`*^9, 3.898191463341125*^9}, { + 3.898191509613262*^9, 3.8981915263970737`*^9}, {3.898191556827965*^9, + 3.898191571387702*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"f5f4597d-d33a-4dc1-ac68-0770b8ad7943"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw1m3c4V2/4x22y994jInuUjPsYESF7Jlt2QkZGJSGjjBAq65stQkLlnEhm +fKxSZvbKyB7x87uu3++vc72v+37OeZ7zvJ/rft1/PHyOt4xdCPDw8PQI8fD+ +9xk+r//35EQAe0Olb/4v5EB1LpR5e+RIAKsg6nBojDtQNaCd2H2/L4B9rB4r +j8o+UOVV9P13a1MAG3l5RU7t04Fqc1wK2eScAKZ1EOZlg3+oSibxgxv7JoBt +bNAN8iQcqj4LsL96P1sA+84qxahVfqRahu//H94FAexR4XacCPuJ6kWTUpJM +WQHsk/E4xXWpE9Wv//12k5YSwC4/+OpcoHWiOqltKO54TgBj0t/b9PY/UWV+ +Il7XwiGAOcaETG99O1GNZF9oi8YTwKR4+l75aOCBpaztMmUnP0b7TqvGhggf +iF20Zdhs+bGgAbHlvWIC6L8hbbFsxY+R33u59u8dAbyy5Aj7ZM6PxUQqm1K3 +EICC3lqrgyE/1v141NtojABcZTOsSjX4MSrDQTlHekJox5+/ryTKj/FfcBis +jyCEhFfRvba7fBirWHhOqj0RMAy3euUn82Fv6XsV8fRIABPLi416woctTUjX +bNqQgNe9sP9c4/mwa+JKQdueJPD1rOyo6CM+TJx8kVMwgQTu3sm9WhPMh8W9 +jU+R/EYCU/Shol/s+DBbnVESKmNSqNaXWpgV58MenSTrmt0kA7s8CqJ2UT7M +KZ8pQDqEDCi353hKhfmw1AvFR1zxZOD64qWFDx8fVrmh4i9SSQbsy+RtO4x8 +WO4u/zbRHhlExs6+Jj3ixdr1a5JXEs6AcUuW07lOXmxpSM77Xws5CA7OjLd9 +5cXSbPDEm36Sw86MhLVrCy9mxCpAn7ZGDpkkLYYFH3mxtUjShkccFDCps6zC +VcmLWXKR3b0TQAHeOCVWume8mCBzmlGRKCXEjo1279nyYnw/m7n5SqjAevXs +lQxrXgxGGIXGP1PB+RPfFnkLXoxmO5Xo3S8q6OUlbvQz5MWmKOT7qiipgdlZ +vGhFnRf7/vvypZnb1FCwFP5gUpgXex5ZXWehRgOhaypeSdM8mGpFTHrNXVp4 +4XBhARnjwYr8Aj0nYmjh44CU88Z3Hqwv+o0vaxotHL8XuG7cyYM5uz+/Wl1J +C5H3z+gxvuXB3iw+JY6ZpYU4uiGx5xE8mBar/nyzCR1kyXot57DxYHVtdDJH +l+jhw2uXm4YMPNjVz/nZqzr0MMpiN41HxYOdOK/YrVvSA/eR0YgDHg+mYFWk +yR9ED/lfLnQJzHNjk+G1z9Vq6aHEjLCsqJYbOya1yrgnzQD1QVkelde4sabG +FZPYi4zA73z79fAVbmxFJzz1QJcREg2vTOKrc2PB02aLD2wZwfHcjpmpHDeG +/aDQw0UyAsWIkdo+Kzc2mH1G6FYPI9xQPcOqMcWFndP9F9HrzgSExMGt3wO4 +MEHF+PXdt8zgs2GAh+fDhUWS0f6+0sYMw2NCSuducmFcujSL1aPMUF43UBVq +xYVR4n596ydlAXM3yRe8qlwYDZXE6GU7FijumvPzIOXC/E007dgYWMEgxYz3 +OJMTU9/7U/joKRvclaHR0U7lxP5m3DHoLWKDwv7220kJnBh7P+e0PMYGx/TK +Lfz3OLFYwbEQ6w02qEjld9V25sT+lB/sEJuxA2XaWlmSBCcmNv9ykYKfAzoz +Hl8QaOHAmBzslmgHOWHngoa910cO7L2pPaPBOifwDx/FvnvHgdXd0l2uoOSC +u6y+v7SLObCbvELe3y9zwblM83CvRA5suyzmNq6BC2KzBFreWXBgQpGD4hnF +3KD98pPBlRV2rOYsoUWYES+sJ44eEc2xY1HB2kHj9ryQFXFY+nmCHftGXt1q +7MsLK3aKpEoD7FhZZrKp31NeSOF/h4o3smN4TBxsST28MF5ULsUQy461yBB9 +sTXkg8DqbPpxAXbsuPalPakTP/AWNGJZXOxYa8pxz0wAP3Sk/vSxYDnV3hN4 +w9H8wHmHpQtHzo7dbj+UwCvjh+YLqQ9bNtiwqoVSsNniB+pPcVvFKBsm/O6r +plW8ABS2hXz3t2HDRor5n7t3CUKmTKBGiSkb9p+EEhHxlCAkvPSrGtdnw9xs +8TXQPUHw8/eM00HYsHfrJoTJZ4VAhcdWlUeIDSsmrJSsfCgEg4FIYecqK0Yz +8ymaSPMsEJwlDeSLZMUs4w5CsseFYTuJcNo8lBV748nGErovDAuHJ9cSAlix +p3i3i+4zikBP3965XVdW7Gq883/HuiKQGb401n2VFSPjXVH51iACUkPfLgcz +sWJJUa5s66/OwY2oZ0y9xSzYVrdDufpjMeiBHdLgfBastbKpX6NIDODQ4oD3 +BQumyBNz5N0qBrx+HBN+T0/zxX67qRKchym7/GLmQBbsSwSb8I/w8+CqVKV0 +Q4MF+27LRno2XBx8/nY5/BljxrQS7m1pvpKE8Qpx0/QfzJgrXytu87MkXHN/ +qgV9zNg5vXXZoVlJkJo0Fkv+woyl2gkFsLJIwd9vP7fkypixFANhXKm9FASW +zMeEBTNj5H87i/v2pCDCnvANBQMzthRVqhekKgNVvdpPBimZsTExc8zFRAam +VBN8XpIwYyzua+Z+bjKgxcUkKXnAhPX6OTTNpcgA9a+zVca/mTCVv2va6osy +8MpEtzqzkgljEJxQ3sqWBVQruU5YjwnjaCKwGmGXh7/vhtLXLzNhLE1yREey +8iAoxB7UAEzY8eE9ZXV9eYglLLhwVZYJK4DrTsh9eTDEaut92JmweulQeooF +eZhUHG58t8CIYee9eVhRBcAT50E1HjFi4WJhUfyJFyGMWe3GowhG7LXP51z2 +Nxdh98Tx39cgRkxR6IeJbu9FWO0vVNL1YMQ2v+lpGNMrwkiwRL3hNUbsVfKn +GdpsRaj7ovLWlo0RY6ESev/2/SXwvn69IKiCAXMR6fQj5FOBhcsR6g2FDNhH +/SDtCR0VcJbM/X2Qw4C1G84zE/qrgDXBDE9ECgNmybhELvRVBa4Ue76ICmLA +5rjibadvqYLg1t20ZLXT/DrNkB99AL/iM2PKhuixmHTLb9IeajDQyltu30uP +UV8SeU0RqQbdJ0U4pg567Id+yiPqLDVo8q9ju/+RHvuN7/0uqVMN8m0GykwL +6LGnASEmSeLq4CFGhfvnS4+99zvv0HWoDoed91kNKemxeNNxhh8fNGGLiEyF +mIQes89RHYn5qQmrqk8dGk/osNqeNWqfXU2YrH5ZKrhJh93vOZMwKnsZvmQ1 +Ku//pMNstyoHDCovQ4LHln1+ER0GuEaNrSot4CR3K9lSp8OG5NN5Z6auwI2m +7gR+ZTqM6qUAtwOFDuT5SfsaytNhkY1Fi1JyOnB25EChXJgOayNZ5+qO1gHJ +8sQvTpR0mE/21CyplC6oG9RM9A/RYjl1G5qmqVchioC1Ba+XFpv6Wibk9Pkq +tNWFFUq002K/o7aa+teugh6PlndcIy0Wr8Xx94e+HpivDx+o5dBi1fTOo2nU ++uCecsz01o0WU5E6LG0tMIByLaf9cQdaTLYryNtq2ABWD9pGKW1oMTVPqv9u +UF0DP6fkAjd9WixwOpi6OfgahMkJSvPK0GIBuNuEMaKGwF2R+px7lwaTimvn +cKM3Ak95UeIRThrs9c2/NgiTCfgRNxQF0tBg232v49QvmMDdIW1degIarNws +cyfJygTi7rg81ZmnxpTJP31myjGB0ne5bPVvqTGyugDz7+KmsCjPIpGmRY0p +vm1a3rY2g3XiQpyUIjUWvXv3Dn+kGewNyfl3i1FjeJP8biUlZkAWaFxPSEeN +iXXk3u3cNwORukR1vxEqTHOtoezOK3O4qUBkcc2XCjMy9pG4cWABPiSp+0uO +VNh8mcKbN8KWEPid70W0GRWGqxpc9zCzhOhA+P3pEhVm/aQhQ6zaEgrr7nqe +J6bCVJ5paqz7WsGswsa9M1mUGF0oPl45kQ04XRgvbmmhwBhEvVuon94A1+IL +5lrvKbBowrc1tu03wIMtmbCjlALjLAqclyWwA99DjRs9yRRY7lqeQFiQHYSh +JQw/7SiwjDbzEhM5e3imfSdi9ZAck6+Tfekh6wAZ9T1it9fIMXP5TfVyUwfI +Oifyc3OKHONREx5WDXSAXIoR2f0OckxkcTLOutEBKnqRRcLn5JiYytJotJYj +fLWgNGWTI8dMn81+fHbLCTraXfBfCJNjuqbl3NfTnaBbEX3DzUGOJby0n4/6 +5AT9HH5nBAnIsTieYIMTSmeYmPjRJIE7g23MxjXXVznD3s2Cc5peZ7Dwf09Y +LChdQTT40onPf2RYyecWUxJud8DGDESn08kwypFURm5LdzDXcDKzeEyGlfeV +E0+kuEMkdUIZ+JBhn1CVXhdyD/j535gF7UUyTFGJ170T3xNi++5Xve0ixZyT +d8fOM3oD94W0EaEmUkxhSz2JyNobal+UkGRVkWLo+XcRlbneMHmz/3pkGin2 +sW3ybLyUD1w4FjhjYkeKfYgZ5n1rfQvmRNsctv6SYB9uURfg/vhCWNJIgtss +CSbOQbjAxnob6HfW3o/+IMHWLOtEF9Rvg+pnVurWjyQYd2dvCkfWbUiz8GhM +iybBqjT01Fmu+YFmFBXDBXYS7Ebuf+NXh/zh1yKfahklCVZkI/tuliwAfK8p +uPOcEGMFsX/iRFQCIJvdDiWdIcZwZ9+V1hQFwN+qKs/hCmIsMiOiWOzRHcgb +M/kSokaMLSj+N3/eOQhkZmQOBuWIsX7/uHz3nCD4skQnJSVCjNFcYWN1GgmC +ud3e7DlqYsw8Ni8xwywYROn1/E1GibDQUboVS5MQqNbS5BcPIsKEauxbjwJD +QUNfwDLWgwhL+Dj6+Q4aCoMmBE+mbYmwucTnUhNkYbBjj+1nahJhPLkxvimv +wkApVLmPhJ4I00mYLZsfCocvlXL3J8sJsUuL++YHSvfBrI6hTimXEPtH+tah +0u0+zH38u5yeSohpPTJlPkm7D2SdVRb6dwkxmeX6pOC/90F/5rxkozYhRtuw +ScBV8wC+swqNp04RYIJneeZyzR7CTR4ixrUhAuxMaFGtTuJD2BOa1tHtIMCS +hiTjP7Q+BHbZvHd4VQRYwaW+LVLFKLihz5XoHU6AdZrGEhadewTzD5iUtVkJ +sPrmZU0zhRggD69cSyUnwOArU6ZMZAxIBOsUTB7hY/dKv0Vr9cZAoE84+d3f ++FjGxgciUe9YILGZHS4vxcfyPo59T6x/DKLm9xL2X+Bjqh/2XL9Rx4GBERui +9RQfcyN37Ap0jYM0bf2iCX98rCfqwh0B9ngQlHt3h14FH2uptmesTU2AK5LX +ztlJ4mNSirUEdDsJ4CW6OFrGh48pZj+eYLROhFpeLs3LJPhY9ZSykazwE9Cg +ekQf3IuH2SxbxLd8fwqOc6aVYw54GMhHjAx0JEP071VHUVM87E2cBb4PeQqU +jsYyB2nhYZI3OUnP66XA3/6P4bRieFh3nDPv+YEUILin8zx64QRV7bJ+t7aW +Crp3wk94vp2g/b/KGG0uPYNkz7euDW9PUILtt8w80c+A15JNfuXuCfqGLN+3 +hy8NQHqxz4jqBKVIS/LJ90iHaGEuxeWNYzSV4UdlCZYOPVxGuVHfj9FhIhkp +HdYMuEHe4PM+5xh1EHrsF9CdAWHTsRRcMsfoxhOpd/d1MqExTeTygvk/1HOS +T8g65wWQ2cw74Sv/Q+nnDn+60L0Ec97CSHa+fygHan791aOX8LdUANNbPkIn +yTX6vwa8gnMYt9Lbe0fovqdb4psLuRD4aMyq0/kILYh8fYf9bi580X0RPK1z +hCbPP6zu+5QL9kNsdUyMp+Ofe74GnTx4vsQofbf4ELURoLq/4ZsPc5UD11IT +T/Uto4MnTfkgdyfFp9zvEFUxWrV+T1UAvSc05ePKh+jcZxnB7qoCIGGiENbo +O0B7Vg39yChewx3A56I82EcjyruvprIWQzMRpiQ0sY8WY5y6fg+LgbYzwlr1 +yz5qaat4PXK9GMpNjzJ8n+yjeEK15jf7SmDGfZd+iH8f9fkz9bqisgxkJOuk +V0n30b09z6Qw8XK4vxVgSPpnD93Dz5KcqygHjnt/ExXf76HXMi/StdRVgPGz +P2Svru6hzFrSbzSWKiHXqlz4vdQeSuMv6KQBVbDK7amFY9pDf28rrq7GVUFc +ycJDgsldtPQ6xQMi4bfwuWn62DVgF71L9wKl968GqcWfW5Ivd1DjBC83Xcd3 +ELAufo4lagfN/bMGDM3voH73ge2xxw5Kzj+qWiZQB2okol+7L+6ghlk5BS4r +dWAscDfDfXAbjdT/s971rB7SRXu6DD9so+NLIztDhA0wIs2PdzF/Gx1Ns7We +D2gAZ6TTjcR3G20gdTC+ZNsId2zZLxVQbKMHR48j9bU/QqOzj0/c3y2UM3wY +g7aPcOzZnH/75xZ6JllF2E3nE0Tf9aBAirZQAWLiQm/TJnie0Tg6qr6FErhk +1v5Sx6Cxz/oe891NNNctkD6wrBmOh9/U/LPfRFfJnsrU/WsG9UmChRntTdSa +jWOZxagFulZLDWuYNlGJsHg1+cMWGKU45DN8+xd9U/Iq/Nb1Vji5nP3l8cIG +en998lunfjtoNo6c+We+jnKFL37ay+2BN6WvFduU1lErrzFhS5peYM2+5Z7M +u47uCuaIqob3wvddkpSrg2uoW91zgzQxHAiFmtO+PFhFD56khQng9cGezdIt +6S+rqFrJfA9Otg+6lSN6WxNX0bnR4bOdrn0QcPz6ySrvKjp4oD7q3NkHzQ+2 +KRHtP6ieVg1zXnQ/pDs+9hqk/YOS/shiYarpB3cNrm63XyuohUxMj9N4P9AS +X45P9l5B+2nlfe2lB2BmdnhJ6MIKOkWkY7trOQD1X710G/FWUI9JPU6lewNg +F/vszHTqMspzlSQqv20AZNxF3INsl9HVuLX22sUBINH92E4hvIy6cpmIGJEP +whuKmRi5xiX0vSmrDbX2IESuBM23P1xC3XrNnQWdBsHsG4W2rf4S6sn5++BN ++CAcPZEliZ5cRP/UcM4wvRkE3K02F/bSRVSPSDZotWUQCgxtWt/4L6LuZX+Y +5IYHIVB6TVBDZRF99k2DZn5pEHTpH0b9IFlEhYyexJMdDQL3JvOMJ24BPQy/ +F5NFMQR/B0o18LIW0BQ/wZ4ctiH4Wqta8MxpAZ3xJvjLcXYIMtP6Cc6JL6C+ +QU6XGaSHwCvQ1fHTzjx69/x8X9ylIUAsDj4bYfNohof3tVj1IWC8+IRv7vE8 +aiF7m51eZwgWWPkf3DWZRxXDl85JGgzBx/13k9Rc8+jAu29E80ZD8PSXDlIw +N4fOP4T3aqZD4PhhLOdC1Rx6eTqlTdtsCBRe3D7pCplDzxELixGcavJwYjt7 +jTn0Q5ii0l2TIRizzWzaopxD+SWxkgbDIahSFed+/H0WVb5iG9ipNwRRPJ/D +uXJn0fs8EdN12kNgiWc29tZ9FuWKr/V8rDYE538vKGvJzqJvci3f652uB685 +7MWvoxnUwOpeCoXMEAzk0x75fJ1BRfCNpnEiQ1D48D8bwqQZtPJbe24R9xDc +db74IcNqBmW/NduRxTAE/Gft72Ir0yjJfpQRweEg7JBs/TStm0Y14nwSE/4M +Qsd8jOLivWm0RvvZ7xsTg+BbUrlHxzCNiumeu0fyeRCkqH0eqk9OoXxCP7xI +qgdhw+88tX/FFPo0xf/4cf4g+CmXCAxqT6HmIuGlypGDcKc33yA97DcqZLOk +KKYyCJtLYjry3ROoS1XdK/eiAQioLb6R7jqBXvE8OGJ+NgA74UIBu3gT6DZP +0Frt/QHYo+XJaZAfRxOfSfR9txqAIwX6bZWcUZTdTPu6POWpfx/u5Wr5/UR5 +LW4K/wrohxi9O3VFlD/R9YUrzYmO/UDG/LeLrGgYPex8Qelj2A/kJcs7nSM/ +0Fp1XaWm8/1A0zuud+3yd1QZJCeG5/sg6bmNY9XEEDrCPtMlcdrQ0jsOB9Hd +HUKZjSzdP3/tA8btvvyBN4OoCv6Pt/mFfcDK0bpnwTqACg5y3rzr3geZM2rU +DdX9qO9Zr9AR6z5gf9MkwK7fjy7F4ZM/1OsDLrV6g9EHfajeRRumEqk+0Ogx +1/n8vRdVddyldz3CgZaDYcBDil7Ut3g7j3YdB1e2dHIuIz2ol9r8RdIZHOix +q2x3lHSjLF+bbX9148DcVSCvP6wDNTWLSRTIx0Hcbf/YlHftaIaib7vHcxx8 +Cmu5Zbzahj69zjDw7wkOBFOdVPvtvqLjx+TiZOE4sHxVI5TyvBX1+M36614A +DuJLCKmM+76gHTZMDJpeOPiLFoz0qbegd9v/VFdfx8HZrs3m5NBm9Nc3EzNb +MxxYfdcoNar9jFLkWR+aGuDg1FvBfUIYKqdJWyimhoOFtZsY/6cmVLvn5Bu5 +Eg6ukZA9zZf4hOJ4kpAL8jjglr1yPp+uET1opZcLFsXBI52FA76H9aiy+GJb +ghAOVuxiO/K26lD3nbjuVV4cmASKPOdzfYd2XpzTfsWJg8aEdte8HzVog3OP +ajYrDvgK3OT5dKpRv5v872YZcRDbQEaU11iFavatVYTT4WA8x+i1muUbNJsm +VcyJGgcV3cnqakplKFvXoGQ6BQ5C9/smEO5iNCWY6CPzGRzonKUPR/Bfo8mi +tH0zJDhgMTFmR2by0KjKzFt4xDjoOhG8de/JSzSP9Mxzd0IcuFm9LokwzUAP +lV7o8hLggKhGaCacPRmVzAmIEcTHAcKmp3KAPULDI/IMAvFwsP4803kj0w+l +1RHJZTrVYQTPWrUuWkGeNHkYwamWyHJqY1S4B4n62lPKp3qc7e0qBU0CbMpM +9H851Saywx+j1Z6BFHOvftbp++t+WkTGhGZBqwuVyafT71NhywJfrHMBmYqc +EifCAaSWRX8JKoBMCfyj5dP533b1XPzyrBC2BxRydklxkK8optf6tgQSq3O7 +DMlxMEi5/Ka1pxxYh4Pv71LigGSylO7rciV8qc7/uEyDgxdW8pecot6CX/qz +CHEGHMhrpHlO09dAcazql4/MOOg5v/3CKa8WrmqtxmWy4wAP792JU9N7+L72 +JkFJAAeZi4zSM3oNsMNL2YQnggOZgQBH55FGmDb6cJ1BHAfOhXKtznufwNj0 +D8Z7EQf/nj7bmYlGoZrk120O1dP/r3yQWh2Hgc5/0a5Omqf5Z61bZdiagaS/ +b+SXEQ6kOMjH/SabIfZzugK51el4msad6qIWyKaYi422x0H6PpuIrEIrRNnf +L3LxxUFb9884WZN2mEFr8RpTT/cz+FebjVgHmFPvj/K+wgGZ4AhRFGEnHByt +tk8W40A3dDRisKYL+kSFIjxQHHSfm/C7w9gLKXZe+Fmn59draKLy5Uov7Onr +yDb9w0E04rvj6IgD02aqpgsUfSC84isbf6kP9Nyf0ooI94Gbhl/FyFI/uIU4 +eMw59sHFzL9da+YDEB0sEfnKrw/I1vyWCFsGwF+D+PF/kX1QkuUvfD57EPaa +EgTSCvpgaSMgL+zqd/ilN8ExvtAHXrlBaVzlP+F2AoOtxb1+UN7ZrZFm/QVj +K++6GVL7gVIvuP9y1C+Isnn7/aCwHyp2g2l8ro/Aheuanpd6+2HV4O7jJsox +aBlE5Gj5TvkioqmpUmESXidePfrdOgC5JcffGrwmgdSCtlrk1wDEDqqOteRP +QvfzuSWt1QGwFEUPf1D/BvO1uwErTIOwP4RexJv/DWupkVInDoMwhYd3hZxr +CohivEWFAwahUwyxYDSZgtw1HcbZR4OQ9QC7I4JOgTPvjav/ik55pBzvkcz2 +FHDnfLTUrB8Ejx/IM2WxaRh9MDp60DYIl8Q/VxtmTIOmfOj7xNlBkB/8nt7U +MQ33bFtcbv09rV+hK3fPH03DL9RrpPJ4EMT4CeyyJGZAs5c7SIt8CM52sGiQ +OczAR2K7WFGmIeDzFRcOTJ0BfxczUxOeIeBk0aCYaZ0BWsFp9vrTesvaZLlm +tDcD6WTknIan/MHg4jOAis6CkFH+S3rFIaCmjHovbjsLNy5e39iBUz6oyczO +fjoLjz3PhG5dHgJi68p7Z5pn4cvWufcEV0/rO36rU9DWLORdea/Gdm0IDot+ +ac+enYM714THJI2HYMdgXczEag7a3HNDVE95ZGObmPZz/BzIPTdXVjnlj5UX +HFsSTXOQwnEmRvBUz2tID79YnwNK5oyTlVMemVrS+kguMA9vNnMznp7yzXjy +9dxgs3kwLhd7RnzKPz8v+kXNxcxDsd6ltCunfDQ4EeNm2jgPzv8ZvTTWGAJc +9Eu95pV5eB3xk5VbeQi6xGukpHgW4IWnwexr2VM+G2xnfGW0ALa/FSxnzw3B +59DxPYqoBRi17Lk8fMojH/m3RkPqFuAJlRVpKP0QvO8483l+YQGKxBgedBIN +QbUvz2szjkXwiHoj/GV7ECpY5B+36C/CuJExsevpfhY36XpL318EjfN0TW8G +BiGHMlCeanYRlo083GXKT/1SE88WyrIELDQxrd7pg5BunfdvQWcJbB5pDRre +G4SE4u7WL2+WwOB2whGT/iDEXJsqkfm9BB3GWm//SZ/6a2c3MZdhGZRNqvWf +n/o1WFPAPCx4GZrCJOP3hk/P3fLFS0uly/B63X+6vX4AfFIMuC3HliFJwi/O +IWMAXCZD5mTVVyDklvonUqMBMA7DBS5T/AGmwKjMM+/7QV9gztpK9Q+0RF7Z +2U/shyudh6ptvn/A+XC1dtepH1RZhUkLhv5AH0fYymWqfhCrDc+wzlkF0kFF +/JvmfUAQyDTqzLYOjrLh6zxZvWBtX9pfL7cO2R4mHTNivVCtCx2UhusQJHr9 +vfCnHnDkca+rjV4H018U85nj36C5/WMS0dY6HKlXRwrzdsNDDufL//VsQKiN +y/Z4dTuMEu8r7S1uAEPPHnLpSjvIrSfK6BH/hcOlbyEh420w8+U9z5bSX3Cy +WRAboWoDTR+KA42Sv6C27f82JKQViD5Xv5l+uAlc1bVtr+Ob4XqZ9usLOZuQ +MDYL47LNUJs2mh3fuAknQsXB/mOfwdmD5LHsxibgxA30G+Q+QyuDtdPDG1vQ ++o/BN2AeBe7jVasfIVvA8WiPr0MfhcCFh4ZiaVsg9q771kBdE5z9VKEy0LUF +RcJUx7tJp/2kKz6rgOI2rFQ7/1py/gDjhunUQabboDxabmQz2QgKSmLEXbe2 +IT67QMz4RiPM0Zj99SvchlfNj+prHBpAq6G4u5lhB9JXe0euP3oPpJSGDxxX +d8DqKHLB72ItWApbYwpndsGc9kRs72cNlKo7n5AL7gI3kVCpY3gNGIQEh9dY +7cKmeSLLl45qSJ/LDSFq3QX2JzoUrUFvYQG/rH544jRf6qzG/dP+/RLXu93y +g10wcZefGBmugnGTjjtmUnuQn6frboJUwdnPG7cLs/fAZf+capv6GwgePay6 +W7cHMWtVJpGNFdC5S7xu0LcH8wSFDnjyFeAjwe6zS7IPAyr7I+Qy5VCXre5x +xW8f9v7lsn/TLYXLgamOS1cOIOE/bUr/5UJIT36Z1+R0APduj9URPC6EhfKi +yZSIA7iJJ+0ZI1IICdMfbijVHkBFdlCHpvdrGDScsU7gOYQsbXrMm/I/OOu1 +mml/6RDMrmiGRdYXQHDM3rCc2SGE/OZ5reRaAJxNlBZjcYfQEaj9J/BrPjiL +yZtI7ByCzK3Ms9yZeVCnBSkEdEeAd33vPwejPCBz1On7LnYEf9US14gp8qD8 +ue21ew5H8JsrPdk4Mhe2iKOv4rqPoOKHBIcjXg48nPyu4VfwD8z1/vnfcM2G +8Yar3sEf/8HXra6BLMJsuJSKpUcM/YNAq5Oxx/lZsH65dDGO9BiOrkR02M5m +wo2y8KcFnscgGne0tRv+HBqj/taXRB0Dl3+gzrTwc2C6cXOq8uUxVNvdjFEb +yIBuWiP5j73H8KRjjPCSRAZcChQcGZQ9AbxbMwbWW2mQfi2TaETvBNZ61rk5 +StJgQ4Ra4rfLCegSjcuy2aVB8cju/T8ZJ2ARLXRU2/MMmNW6zpIcnYCYSmFr ++4dU2CdWbDhdGGJLTrv0tj0ZCv02v73ywUN2GAq7qp4kg+lExRRfKB6yGPm4 +ONMsGarq+SlFnuEhkVL3OVnnksDVk9JO7iseEh+aYGJKlwSMw1/93/fjIQQW +k9m2H59Cs+aD2EsTeEjPYwWuQounwMW98xbZw0MsOr3zBlOewCBugkhfFB9R +0P6xPM2eCJEqWWw4BXxk70GAmy+WAFKlphImGvgIrz7+lNXNBIh/2GFhdR0f +cfX8wCDWEA/qCjWlLk/wERzTf9q8XnFQlR1tGPEXH2HTz62JIo+FLoboeRo8 +AkQ4t+InfIqBufhHEXlUBMjl1PscUrdjgDMsqvyLCAHyZ/+CcOZoNMRejySj +sCNA5hU1/bewR1Aw+CDnhRcB8jvzY3FT2CNo0nugIHGXALFbj3ZKVXwEW8r3 +nY3SCJAPqz/O69RFgT1XBJbRRYBMGN9bcP7wEELTwi3O/SRAIDjPFf/eQ0in +Cl9tnCNA+BwlfaI0HkL3v1DOcXxChMK6HSfeGwkXx0OCBS8SIrx8h0G56w+A +NueO1Nv/CBGOlpXyn5b3QYzlTpt6NSGSOfRchufcfdB6GnBjECVESH8p5Att +3YOwe/4Ju78IkTUpId4NpXuwYHd7QYWOCKmYd0wa+xUOGK93bmc4EcJ0ZsPF +1ygURp57XbgeT4S0hT+sliMOhR1ar54/z4mQDIIcOsLGu3Ae3/OItpYIWWNv +aS4/exee/3aztFgiQtb55RNQihC4le9MO2NOjGRsdYZE4AfBk5DMF0+ciJFJ +LDeSuT0Q3hj2iCj6EiO1bvuTDk8DYfX4gtqTx8RIduUncTLeQPCyofC7+JEY +OS8s6KKncwc8GKsHEvhIEPbEtpLcBn+IW56zuyBBgowYc67pxvlDaTPHyu9L +JIgul1L4Qxt/WPR9RHTBlAQhcboUknHiB27fLOV/R5MgtvUzU4wGfuAafZIu +v0KCnI1Sj+0huA3RtnICk3skSEuohm7EiC8UyrlXxhGTIvJ972Zzan1hdqq/ +bYKbFFFLGLsv4+YLzlC499iIFJnZjKD+UXwLHPf0rMfrSJHL9T9eTd/zhsje +B3OxLaSIeGaKhpCqN+QX1vnJ4k7jhGgi9z8v+G3KGx+7SIooXbQLkwj3Avu3 +mx9kOMmQc1HGFZGPPOGGRxZXzAMyRPzO9+u079zh8OeZno1EMsTvenr8YIQ7 +PNcJibieRYbcgLeiIjru0CdiOSFdQ4ZclBzLC5xwA815przRGTLkMEtD4T69 +G5xzThaUuXIGeXDscWE4yRW+DuANvTA9gyR1ltzrcnQFRw3fR6QOZxDfwR9Z +cvKu8IL/2txoyBmk/6ZEoeOIC1D/piyOKTuDOFyMrCAVd4Et21ixMWpyxIB2 +attoxgmSvu2OaHOQI6/8z4gTfnICcZWbCdXC5IiOgmEHU7oTuHJq/YlByJFi +HEWFtY4T/PxFWCnjR47Edy9e16x1hCaLezKxQ+SIetkV84osB3hsFKgo+4IC +iZPkyfbUsoOUblGv8hIKZCXohqs9qR280J54JfSeAvHvt4jaar8BVSpXiFj7 +KRALL2nJTf0bMHyOvfeIlBKJ8yHdYLazBRGCJuev/pRIQcUE+L2wAZlwvwx4 +QIk0x+5px7jagPLe2c76J5QI1xD/NV5pGzBcfSpZVkKJ/Pi3rz/cZg1BvxwO +nk5QIo0EtoMKh1bwtZo4yeoqFUKtv60ZEGx5yg2Nzf2WVEi6yzwet64l/Cr2 +2b7qSoUMOSd9kOe0hNVXP6xVH1AhC/GeOqWfLYA5vkRI4D0Vsvgs9FY0nQW4 +OOl/WOGnRqZU9DHKL2ZAxJg2d++AGumWYE5m9TYB+tUIanpSGkRObi6nQc8E ++NrdFP5joEGoFxP0X503AdUw5ej28zTI15e/JyT/GEPIzLQQnR0NElL0s9Xh +tjGs1sq45LfQIKmab7vvPDKCf084E+VwNEjVT10gdjcCSneSd19HaZD9b0dP +evSM4BzXL6LlbRqk+vJOEiWTEVQ3I/1sjLRIF30jsXCxIayILtx21KJFDh9s +5bVUXYMtlrFHZXq0yOSvh4y5EdfgkKg/c8uYFuG+2bw1oXcNyCc+fI62o0U0 +psP1opcMQDj1KV1ZMC2iw71LbipqAI6HCm83S2kRc8YkW+kPevCj69F6FA0d +MqTHYW/BqQvPVF9eNmOmQ3a617kbNnTA+G1tlhAXHSLL+4nUr00HetKnNb+K +0iGFvYZ4c/468NVBLZNUiw5R89t9i+KuQN3ukVpcGB2Cf8OpLi5TGwI8GDOs +H9IhI/nZJSf+2iAzJrYiGkeHvNV/cRs10IY3zdbpXRl0iD1TcS0nsTYUJtYv +UdbQIfqOsjOX7mhBukBA6tNFOsTVPm7Vz/EymKbHL9it0yHcTLxwWe0y0J8p +UJHapUOkmTKoLHkvw5PVvnkcET1ClrfVqTyhCdENksr0vPSIZNZc5V87TQi8 +tjzzzJwemU4ScX/mpQFmoY4KWS30iML2beCsVIP0l4wkux30iJnF99KqdDX4 +jn4dMsHRI0nurGa3ItTAnEjsDtUYPaL0PpvUw0ANLBM3a+7v0CP4kB12dR0B +65wo6ZvnGBDylnrCQCUE7FsKz8s9ZUB+mmRKZ/xSgdxZy6OkNAYkPHPmEluN +Cvwmpej+k82AHC+jNaPxKuCod8uzqJgBma7DXxFSVQGnoQul7M0MyOAj83s1 +r5XBdb5dGH+bATFMFpC8dl8JvCiW+XusGZEoKvZoe3tFWA5pJKJwYEQOCirC +OxFF8Fh4PKd9kxGZ+WBU7cKnCDdbRUo/+zMiSaTxjhLTF8Hxnqv0uwRG5ElN +096x20Ww2vwNL5oYkRCM/4ph+AXQGhm+7sHPhMRn+Gj5f5WHVp1i1SIRJsTy +T5Gjfbk8aNYH8c5IMCEf5sIzAlLkQS2NecZWiQlxScWk6ezkQfmaqaeRKRNS +SUHxnOFADmRaekMuRjMhrDnLdwkuyAFP2dd0kiUmhAhfqaqnUwZMc+obOteZ +kK8f5lX1amQgLrV09MkuE6JkOpezmi0DW6FP+FmImRG1GZUvud4y0Kln/kaY +lxnxfsoiXEMvA4Grs61XzJmR4QCFD+ZO0vBNmng7rpkZeboZErvAKQUEZ3dZ +rnUwI92fuMajzkjBRfbFSww4ZuSVUHZf2Iok5BN8u589xow4PM96RpsrCcED +zyjL95iRka0evukzkiB4R1DwmwQL8oAx6+rovDiE1muY0GSzIBIdX0hjO8VA +5jpu3S6PBZmyir1/p1wMlk6uP6kqYkGYX3C+i38iBtbagR1GtSzIOP4ZHWkT +Mbj0vRiefWNBioYjD6zGRWFvk+o8Gx4r8oIogXTp8BwESg4TCbiwIh3WY6n2 +xiIgMeCc7+/JijgmstCuXhSBucAN+HKbFVGIj5p4wSMCZk3koS4RrAiL4ctC +2z/CIKevslGUwYoUDapIu8YJw6ZH/tj5TlbEjvDK5ZudZ8G30KtOQZINMRdP +3BuxF4LxXo40agU2xIjershVRwj09zv955TZEBqCpAQ6GSEQ1Tsnna7LhnS3 +LQu1EQrBzMZs2bYLGzJ9/+tYWbEgWKjY5dW+YEPEy/rXJPYEQHXQKEGGnB2p +9VhFusr5ofwfnic5HTvy/eZz+n/P+YFDuEpnioUdOWtTdV7nET/shVCTpgix +I6k8MymSN/ihmqfrwQbCjqg727yWouMHIU/NoKogdkSJtqBjMpQPKAkuOErM +siN6pLvbq4680BBEaDK3zI7oFHuHexnzguufXo1Xf9mRgfGdwWM1XsCG3YSo +8TgQNRHPQAc+XvCvzFr4w86BfEuUUVZo5oFf1499Kgw5kCKZSub4dm4oft8a +ev4jB0L9dD7IZoMTzMRTvGaaOZCxSM+brEOcQFBww/ZFBweyScoxvlvPCdef +7KpS/uBAau5UpHM94AQal3MEKxsciO7wVfSYnhMC6RNjy4Q5kUTuTIs/yhxw +2ds0TTSVE2mXeWx/oZgNAlI+4N3K5ET+FldoxyWzwX/v+b1qcjiR9+Obajt3 +2YCAYENduZwTySudXWI1YAMsPXFdv5UT6b2UEfhomxUuYV+v3t7lRM7GPbaZ +uMIKEgyKBPU2XMhPNykPFI8FbC/meh85cCG4id8LuyvMkGBL+hNx40JEBdLe +XP7JDMtFQ5UdAVyIa6ZCHm81MxQr+9mOJHIhXZfGxfqcmUHAtaz+GOVClEba +XxH3MAFrA9ety4LciNkJeo68khGOnYo46MS4kSnPORfNF4wwQy3dPirNjSxE +cP1NfcwIVc6afAHAjVQK1UT7OTOCNq3nQL41N2J+WzVClIMRAm/WX8BL5kZI +SkRFvBMYYIjJBO/DP26kmutQLTKcHhqx0fJoIh5kPykkVtqbHnI9Xa2MKXiQ +c8TfcX+v04PX55DqRVYexP3LMGmZMj0Qeec6s8rxIK8zf4auHdGB3Jc/7Xc8 +eBCFRGbL2vt0kOIXmyz1gwfhDGvCpT6jhYPu8vrYMR5E16QY0YmhBUfhvonJ +aR6kk8eSiPIuLciOskkkr/MgesQbWg12tLCUbza7R8SLiOJr/KsSo4UEyvkH +Vty8iJN6kRRNAg30TJz5wG7Ei4R6uFn3k1KDcfQ18Zd1p/GgmtgddQootFrX +aWg4jU8EKCZLUMD++WTXoY+8iAM1JR6wU0DuQH8OVQsv0m9JHzKwQQ5/eM3p +I3p5kc83D9rH8sgh9sP13RsLvEjPN543LsTk0LTu/pmXnQ8pzCrzqPtJBqI2 +UWb/hfMh2hSR4VdrSMDqdh090QM+ZIke4a7JI4HYmIVepyg+ZMVM+ZtYEgnM +1ujpCsTzIbrehSSG3iSQS8kE+c/5kOkArmYHERJganotklvDh5j9q4vNzCMG +PL62w+xFPqQ6YW51OIcIvs+dyU8140eoA23O/mwjgK+mj180WPIjI9Nc6zON +BFDXTJYxYcOPhJFYzR1WEED6K9IEMUd+hJXl5NzVZwRgZk4c2OLDj3gQhn/z +diCAwVY83c0YfkS4tKqi4R8+9P+3u2HcyI8woz3dPKr40OM4q0bPI4Co/KXa +Gnl/ovqbqGgvjV8AyS5JbA3IPVHdKnSrZDsrgDg/DpEQeHyiyra8zMknLoB4 +FtLcxKxPVJ39/+5KKgkg9ewaY/vHx6oHD08q9C0EENVZ8WTTq8eqZ1+zsT9+ +KoB8m3pfSrl5pKqoPYKjTBVATJium54fP1LVW3wRk5QugNCQ/MDd6DhSvS3O +u53xUgApufxn/TDnSPXju7O4wjIBRBEvJJPR4EjV+Kts9Jc2AWT/9y2VNxWH +qi5u28pXugQQCzIqdCPzUDWY/P1mV48A0pmq+1Mr+lD1pcElh4EhASR00jNB +yO5QdeE7ojw1LYAskbdPV9Mdqh4EE2y6zAsg/MXqvA+OD1SpOL6ULC4JILFD +Gg72yweqMnbaLBsbAsje+L1io9YD1cv4Z3oCtgWQ8wOtcU7VB6qWBZ1Re3sC +iPaV4nPROQeqHpcTlMKOBBDM1Nm/IeFA9f/uKyH/f1/pfwCKLNPP + "]]}, + Annotation[#, "Charting`Private`Tag$117211#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.898191457005766*^9, 3.898191463786951*^9}, { + 3.898191510737247*^9, 3.898191520718318*^9}, 3.898191572622909*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"8fdde79b-7cb2-4938-aa07-ca700dfe15bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"c", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"fm", "[", + RowBox[{"x", "-", + RowBox[{"c", " ", "t"}]}], " ", "]"}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{"All", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", + RowBox[{"Axes", "->", " ", + RowBox[{"{", + RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178533337009*^9, 3.89817856142127*^9}, { + 3.898178611949658*^9, 3.898178676394897*^9}, {3.898178937216487*^9, + 3.8981789549528513`*^9}, {3.898179022321972*^9, 3.898179022949939*^9}, { + 3.898191583189148*^9, 3.8981915854034653`*^9}, {3.898191662756349*^9, + 3.8981917444178553`*^9}, {3.898191824490272*^9, 3.898191826039283*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"f813551b-a717-4883-80c7-c49eecca6d24"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = -3.0965795516967773`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -15, 15}}, Typeset`size$$ = { + 468., {141., 146.59986810017216`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -15}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Plot[ + $CellContext`fm[$CellContext`x - $CellContext`c $CellContext`t$$], \ +{$CellContext`x, -10, 10}, PlotRange -> {All, {-1, 1}}, + Axes -> {True, False}], + "Specifications" :> {{$CellContext`t$$, -15, 15, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {167.861328125, 175.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.898191745221869*^9, 3.898191830468207*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"a5146ef2-3316-4e18-8009-2db77880d1ba"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n general", "Subsection", + CellChangeTimes->{{3.898191614512085*^9, + 3.898191619193075*^9}},ExpressionUUID->"eba8f49a-e87f-4b5a-85c3-\ +518eb74adaad"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"c", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"fp", "[", + RowBox[{"x", "+", + RowBox[{"c", " ", "t"}]}], " ", "]"}], "+", + RowBox[{"fm", "[", + RowBox[{"x", "-", + RowBox[{"c", " ", "t"}]}], " ", "]"}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{"All", ",", + RowBox[{"{", + RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", + RowBox[{"Axes", "->", " ", + RowBox[{"{", + RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8981790467876377`*^9, 3.898179065063031*^9}, { + 3.898191627090581*^9, 3.8981916464878483`*^9}, {3.898191724042563*^9, + 3.8981917285539513`*^9}, {3.898191839889669*^9, 3.898191855288638*^9}, + 3.898191888257699*^9}, + CellLabel->"In[52]:=",ExpressionUUID->"ada0eeb3-31b6-419e-b2e6-4e79efecd8a0"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = -3.3113765716552734`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -15, 15}}, Typeset`size$$ = { + 468., {150., 156.4998681001722}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -15}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> + Plot[$CellContext`fp[$CellContext`x + $CellContext`c $CellContext`t$$] + \ +$CellContext`fm[$CellContext`x - $CellContext`c $CellContext`t$$], \ +{$CellContext`x, -10, 10}, PlotRange -> {All, {0, 2}}, Axes -> {True, False}], + "Specifications" :> {{$CellContext`t$$, -15, 15, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {176.861328125, 184.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.898191631636272*^9, 3.898191646793857*^9}, + 3.898191729093204*^9, {3.898191846408287*^9, 3.898191855864077*^9}, + 3.898191888851077*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"9b46934c-9ea3-4f91-90a9-051cd5169129"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Cuerda con un extremo fijo (Dirichlet)", "Section", + CellChangeTimes->{{3.898191125464287*^9, 3.8981911354478607`*^9}, { + 3.898191918769053*^9, + 3.898191929510745*^9}},ExpressionUUID->"d8d4ceb2-775e-4b2c-9a07-\ +91203b1cb705"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8981919393750973`*^9, 3.8981919398631897`*^9}}, + CellLabel->"In[54]:=",ExpressionUUID->"8e51095c-9496-40dc-b1f3-9affa349b1f7"], + +Cell[CellGroupData[{ + +Cell["Modos que se mueven hacia la izquierda y hacia la derecha", "Subsection", + CellChangeTimes->{{3.8981922124594803`*^9, + 3.8981922250584927`*^9}},ExpressionUUID->"fa480deb-86bf-4685-876e-\ +bef381c186b5"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"fp", "[", "u_", "]"}], ":=", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{"u", "^", "2"}]}], ")"}]}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"fp", "[", "u", "]"}], ",", + RowBox[{"{", + RowBox[{"u", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, { + 3.898191290942535*^9, 3.898191292239201*^9}, {3.8981913532387238`*^9, + 3.898191356574024*^9}, {3.898191780898335*^9, 3.8981917842249517`*^9}, { + 3.8981919827823353`*^9, 3.898191984009453*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"7f77ffcb-aba2-4fe7-8bbd-e75510a72259"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw1WWc413/Utvcmq4UfQkJIA52PhJQkSaWNJMm/VFJE40eUyB5R9t4k+/ux +Za/snWx+skd4eq7reV6d677uc785L865z3WLmv5neIeGioqqg5qK6n/ry7Gz +89vbJEzqHnq1qk2GUQf+pZ6/JOwg90Xw1Fky6HMNrHxfI2Eys2t4yAUyiBx9 +uPnfAgnfOSTiduoWGUrf+zANjpJw/8PyiarnZGCS69iD6//xhQn+xilk8Hty +68yrzyQcrmTUivldIIn6cTTVYRJeM8mjObLgAvR3dBSFrothLSnF5WVqN+Dt +rLCO9BbFmV5n7hkpvQfDshAz6RoRXPa5aJ91nAc4UNStP/3aiw90yHOa5XlB +7rMQq7Rze3Bh1aucNVdv0Pe5KLIVvAs3Pbrg2h3tCzphRfqnpoUxzwIn/avd +ATD3sfcv3agwfn1g+JPfvgAIcdpILBkQxmMPvJfSDgbA9M2jjKqtwvjuu4Om +G1oB4CP2jTiQL4wLaWPsftsEQH9csgKvmzBmU2zhYysNALvMzzz9JGF8ZOP2 +WNODQIitet7++KoQrg6/Y457gyBY0U4zwUgIl7Z6L5ZNBIFHmG16/1khfMv2 +TkLzchDYPr7/XhcJ4fHY8URW7mBQ33v9+F4JIdwUFnRoQysY2uxQbM2sIPZ8 +/LCzOSMYaCQZ7UTfCOJ2C7mcJO8QuEH229EYL4CrbOP0vj8JhQZYZrSPFMAq +JleIT29DATYurYuECmBO7f25T31CQcR254CtlwCuViPfN00PheGbkfH8dgJ4 +d0TSvurpULBQTVe9oSmAT2UZhTXeDQOb+drbM338+AGDJdW+u1/A6RZtKisv +P47S+ii0rh0O6Y06nm1s/LjwKH9437lwGD7uYRPGwI93pjJcq74cDtq7d8jL +r+/AIk9ofbOswoGjWzLdcGgHnqT70zHkGQ5fLpzODE7bgefddmdHd4YDoe2d +s09vB7buFInZfBQBVAf2EpoufDiTr/XNfFEkOPJr3HBx4sMtPIwS7T8iYWXb +dLPyGR/OuEe7XP4zEmZbYlVPW/HhPpr2q+UzkdBjL5drcI4Pn47ixWf2REFO +uXrGdSE+/CiZy9H9dRQ8uHYt6lkKLxbm+L4qfT4axrWcTuTF8mLqcx/+et2I +BnP58KH1r7zYlzaan9Y6GkxoRvY6+fBiD2HaZq530XAq/n4o+Rkvvhy9qlpX +FA3iiy/8vTV48er2iELLgRjo/hD8LuknDxaf80sJEYyF1gqR5FuNPPhxSFlH +iWQs1G3HNe34wYOpXkdaLSvHQvHjHKFXhTx47dNZdrfzsRB5tTXJKIoHKzPT +iJz7EAtW+9mbNh/yYCte3y8O1HGwUfNK0ICNBwu+TCutW42DRTomdXoGHqy1 +wWFWxhQPs8e9budvc2OnvofffwjGw2BmWKL4AjcuH7Gqpz8aD+Uh+WprXdy4 +65b/jPqLePCwWrwVGfePTzSxwNvxsIvFMmHxBDc+VkL2iRdIhBvFdR5iatz4 +RSSLstb+RIiwPfjQ4BA3FnGS8Fs5ngiSPesqyfu48dLDCI4vFokgn/yx3IyN +Gyvx1dos5STCCf2sgZafXBgJ+yRNXk2Cez5bOzIsufCSSg5p+HsyJGubrfXf +5sKmxuiMfUMyzK5X9bJd5cKVKzohUr+TwdbMO8ryLBfeGLY+28mTAo7K4gdF +FLmwWddrG/v/UmBPim/QnhVOfHrErXrgQCrcPyRD37OLE+dilWRHnAa29Hlx +dpyceNf2O1f57jR48VPnNA8NJy47XTxLtZgG75/e8dId48DeW+d4qfjSIfFb +uFBuBgf2vyRfmH8qHSYOCcj5a3NgE9/0F0rf0uGuCt2lcw/Z8UaV+8ZESAbY +MPiuTZr+w8M8ZX0JGWDXLhrqepEdB2XOSIzkZoCrHQwVHWPH7EGKKtIdGRCb +8+K+LD07FuxV7Q7ky4TfKn+cmUPYcF91VpmYbyaYHe6PLytjxbfp5Bi6vmaB +RfxhY+3vrNhfPBUU0rPASsib9kciK7454nH5M86ChxuaNxq8WTE9T31MylAW +OBIJvF03WfGk8xnpSvFs8NN56jS7wYLZ6R7Z/UrNhspLbEZCyiw46OF/gSWt +3+BH9R3q0H0s2Jb54P720W9Qd5RI3bOTBbdUxtHTrn+Dlp22zOI0LHja30Au +ViQHBgY6iuWamDGd774i/v9yYPVulPRJa2ZcErLjfAXXd5CxP7ZtE82EncUF +Nz9a5gLu05f5FcCEJ66vXBh9lQvGmmYXL7kz4avHavtuB+fCGw6PJLBhwkde +snwqq8mFrui+S1xHmPBW90TOEfk8cGt+lZ5Ry4hvdH5Qk9zOg1GZqtuL8wxY +eKD0MVdRATh+6vGw/M2ApTSmra90FwDPMuV7bwcDNvJgWG1YKYDjJYIcFYUM +uFXefo+GUiH4X7LK93dlwD8zlwzOJBfCSTI772FhBvyalcKvE1cEEX0Xyp9r +0OOUnsz378oIUBxRXG9Tpsf+FgUNeSMElE9yKyhI0WODncl9HLQYRlcaP49y +0OPkWxy0xeIYZHj0Hl/opcMph7et9O9hyNQ+KXbgGR2uHpIeNF3BUJ6m/Gow +mRbfUGFUqpUqhYs5vDmq4bS4dPdTtmG1UhgtnJ8K8KXFDOxDjwTPlwJTTfql +sy9ocSKy6xx5XgpnR2Tl83VosZWE8xpNfSm0C0r0+w7T4AfcDu8/Pi+Dsdc7 +1HQEaXBnndiusplyYHmZRvFlocGtHPkm15kqQM5eN2rwLzVmvXpcYB+pAuxs +XrK8GKLGmjgw6fSVCmC4+rszOZEat7PcHOmrqgBx5W9PedSpcYxBAod/aiWc +kj8nfVOeGqsulx8xqasEa5mJ3iRRajzUoTpwcbISskV2n9RioMarnJOu85JV +oMnuwmPfSIVlpLJ+NERWgemoUVrfbSoskPnx5NuYanAdmjWVMaLCN+osvaYq +qyGx143/mTYV7sqJf+YzXg3zLYUvufZT4Ws+B42+yP4AGmfdINfxbWLzxNyf +ou8/AA5ONJ9n3yYO/tnT8KW7BvL9pbTGjTcJTdVlKY1L9cB0dcyMWm2TOLnP +sH3oVT0Yi8S+ERbdJKTNB+61JNbDfCIJ6039JYaDLzPFbteDNN6jmuH8l0h4 +8KBdJqUBgib5Dr6I3yBaVm0CJdmaYDSt9Zzvxw2i6JG/XASpCZSf+tgk224Q +J8ZQkK5qEzRucyb3q20QXssiTyXuNwHDDtZ9ms3rhPePXEe++iZ4CtS72dbX +iFvF7x/uD2mGUjqsKjGwRrx3hZ9Z2c3AVeNkcrx8jYD9yokPG5sh2ehv4EPP +NWLkVMgdd/oWGLm3wvNTbI3YUhDy1HzSAoZ+M0xfzqwSd2X9FNC1VlCY6FqU +D1smTK73SsZe+QlP5g5IC5CXiYIHGT2Xnv+E3JXX17eslomuWOHLJ4N/ggaD +TGXdkWViuSBQu7HrJxiSXgTea1siWihcl3Kvt8PT68LHoliXiAalRUnFRx2Q +32zizP9igajhCh3+9KMLtjpTszZvLRBNFzUMTf90wYlBmvERnQXCeIZd0EGo +G2pnEw2ydiwQl2/5s5GtuqGXdUPUIGOe6BCK2rPJ2QPbWp/L3cf/EJrOrbta +LXvhZH4P86bxHCH65kpJ/4UBSE2MOVqlOkdcPZPaZ+A+AIKf/7vnLTJHiLXe +fbaXGID2FQafM20UgpqQJE3sGAQJB2OusPVZgv5MzVIleRBKXy+xIZ0Z4o/3 +Wqbo/SH466nE4Do4QeyhSkScV37Bw4S0VW7eX8QZlbeUW6FjoMBh8/bE4DBx +k8Fi4lrRGPyxleV4nDJMRMpdqLzaPwa2agmkNp1h4u3QQ/trIuPwtDFSP8Bx +iBAQfy6BosdhYXK/7qG6AeJAl1GidOIEPMmOvxFgMUDwSE97BdVMwPJLiScr +VAOErszpv5TJCVjl2vs171A/0cHwpdJg/yT8VeFZUv/aS5B+du+LSpwEhrer +4dq2XQQ5W2F/ccQUvNN7mhPH1kWMCyR1lhJTwMQ/X8sU10nwaJonePZNAUvC +1HJNTwexPVEfbys4DZyN/XrntNqJntEYAdkP0/Ap6Kpp+sBP4j/F7UXpuGng +Me18xv3iJ/G9l9mvt3Qa+JaaI1tT24jbPm9KjdemQXBnxeolwVai/e+k83XT +GQge0eDIy2whpCzf82GHGRBOLSYJn20htrF/ZbnfDOzWyNXvfd1MsJ+OP51U +MQOaDca6Je2NxOGt5K1ksVnQvm3w5C1rI0Hj0hM2eGQWTi3qftVCDURkRLJe +tP4s6AmrL/1IqCOi1aWUWu1nwdiCFNHi+IMI/VIu5Vc1C+8fPXbz+VZNhF/f ++yqjaxaKHMv+M5ytIm7scrx/YWoWxH3NjrfcrCS+umW172anwOUvWRI+QRXE +60PePSd2U+BDAi27YXM54el73vm3LAXmiaie5hNlhPObVFLYaQpI1i6UejuU +Eqf3XKVOu0yBK+2aieezS4gbHB1HjlhQAE//sm+WwMQtPcOVRGcKjFPuYrGi +YiLuiAL2/kCBcwxMXpFyRYTM6Qt3JwMosEfplGwkdz7x/hNYTydRwEV3fF30 +bS5heOWIo+83yr//w+1HxGIOAR5PGuOKKXDBTipI1OIbMfA7zVyqigL5HtUW +ER1ZhPWEymm+RgqIRlkeEtXNJIR1pb9YtVPALY+JLiI/nZBXy/WU6aNA/9fz +MRqXUwmmqFsmF35RIKXO+4SGahKBekQMRsYp4LDWPID2xBOiUomNvTMU0JXk +eYmoY4hx/4+6avMUELhgKIxGIghDZA40yxSo3Rb/z9kzjAgYm9eUW6OA5ZWY +BCejQIKj5NQGsUEBuiyJkZfC3sTdx13C3zcpgIT01NexCxGo4HOPd5sCc0HB +5n+CbYmw4Qmi7R92pPGr0D5yBbRNpxk3/mG5ELMqPhVnOJuJ1F3/4X6hjFlW +Tg9QV5V5YLf1bx5KnYWuGn6QwuiSU/uXAjldl968cwiBLJoiXdd1CrDjKVK5 +STioqGPL2BUKgG+Sa/mzKHisMW0hu0iBRxb3J8r9/vlop+V4wTkKRB7dr1eR +kQD9HY3R96co0MY2lVrxz3eG3ns7JDFKAYbBRO7KqTTI8uJa0RmkQOiVQ8fM +yBlgoIM8W7oocEjT//4vnizw2Xp6q7KFAg2yS6FmEdlATDkcFq+lABXVt22z +4u9AW9JwXzSfAsETfAdH9PLgeWh0cmk6BRRbn5ia9+SDPdGR2xxLAfNY5Qrz +1SLwVfkTqe5NgU0vv+URVwK4lp/0hbr8m7/aum/mewxOyrOfbZ7/65c0qVAU +KgVx7oVVm5sUUNjJ0m87WAq6/Wxm4ef/6TnzlzPjyiBi18sxXU0KBKwJSSmp +VEBUauptVgkKVNV1vVe6UA3xL8UDng7PgqV9d9XV/f/uKOnLAkvjLDCJ99CR +aWugJ03tIlfBLJx26HVqy6oF6mdcyU+8Z6FOesD2KV8jtH04UT9++J9e0zal +Z7IF5liP51c8mIEjwfO1FONWcHde2vIwnAEmiu0kbVkrsLq81J9VmYGEkMf7 +ZD+3wfkDf06835qGyT9PIhzPtMPvPaIkO/dpsA5/5r87uQtclpMKvD5Ngdry +StZBwW6gyrzXq/1wCtj07Fu0yN1wLobxXPm5KUhZsee0udYDgj7sObs4pmBW +/4V7MVsfjJOtZz64TUKuU3FxmsogiHWkyXnaTcCxAyWZBoG/4Mm6JMdX7TE4 +1NYeUPzjF7h26vevSPzb/w7TL2T//oLfEeFuV+jHQPKHgCbT7RH4nKF0XK18 +FHjv2LQSMr+BqyJX6+uJUZgO3bkoVzwKx8b5tctP/IavbHaH2H9PgGu6ILOp +8S8Iyfog5CAwCewREhBz5BcEmERsjutOQsHGkRyWnb/AI76uojx1Eo5H2dEd +HxwG+5MkY0f7KeC+t/e2gfUwGDo22U2xzkDlvIvD3Q9DQGO3o9dcaA6M5PX9 +b9QPgMmtxJZc5TlIscvlUgscgMzT8IPNYA5GQpW77W4PgOneeznZrnOgiKX4 +6Vb6obS68BPd4hz4DLQrvJDsh7c7zbWiG/7A5SRrz+SAXuilX1NdnfgDK8qf +YvUsekF57qOiHv08fPyxp1lbpRdGyr/vXVSdh7fknbSnOnrgpA3rumbCPNCf +3F34eHcP0JVkpv56uwBYJ0RaIL8LriXpxBz+ugCiB7rOyXh1QbZ/7+cP+QtA +z/hs85N5F5hbMbgr/VmA3cvWzJe4uqCC18Ts7Y1F+DXcdjn3fie4WlALko4u +AX18ksqtgx3AyGbw2nR2GXLzn2gkLLbB5X0mWIV5BbKXXFYbWtsg8YT5Nov4 +CrAa37Y6lNUG+s/tX2ZdWYHjo/7upbZtEDAa/pyuYgWONnkJNC22gmTJn0ex +n1eBtyFqUI+uFex7N9Jf5KyCXSyX5cmxFqhZoZ/Tb16FfOI709OaFrCRE7ZZ +YViDl7wphLN3C+R8PmF1ynYN1uPT9eTEWkDLztd08tQ6tJXQ6nqcbYYA77CI +YrN1OH3HPmpAqRnGk+MGfZzWIfNnM8sd4Wbw+FVwQzV7HUpLz1+kG2+CNoMR +E4+9G6DdunHR3aUJzPcfuiC3vAEFshuRsT6N8HawXdM2ahPON0fFvRqug/68 +Mw/sCzehjF32WF9hHRzzxQFOPzch6Gy6hGNgHcxpJU68Z9yC6kHBSaezdXAj +6aVX1P0tMDtB+LkX1sIxO/GeNqVtkI611TgRWwNr9EfzdppSIV4diY/T0dUQ +a7tQ/8WGCj1oKD0X4VoNRgMpw6IOVCg9TNba3bIa0nPF2KT8qFC3Mh/PvGw1 +WNxnu6lcSYUcz8wMCuVWQVvTAN1ZGWpkORNSb91RCemfXQ2c5qnRUKlYod/h +CqjldR3jpKJBEkbbpeO7KmD0g4tTBDsNYvB2SblPUwG7HMnJ5VI0SPlEXsjf ++nJwu/aGifUmDcodUGdAd8vh1m4nHFhLgwxMBcPXIsqA6+tThYxoWiR9K7+2 ++lAp7Bd4WnUikxYpDoQ3aIuUgrbXkxttBC0Svb9VMs5SCo7Ojz1WumlRTz1x +LnCwBMZvPhpX56ZDdJL69IEfSwCLPAiveUmHXnXarw7PYPgv0pxrxJge6VsO +jBd9IMDzeXCopxk9KlWiqqS6T0CqQYPU0Yf06MZPOfEnpwmY3Tqs4elOjxKs +z6xPMhNgfZXV9kghPdrm0jfm/FAMVnyZrR6iDOioQfLrMf8isHDdDjg0zYBO +ti/+/VpbAK7XlUmDqwxIrvTbm/PpBRCrfC/tPT0jsutI9ZP2L4Dfwy1VA3sY +0Wc5HV29mwVgDrGr7ucZ0fG8PDejpXwwXdUz6c9hRA0N1HUqUvlwwypk97vX +TIhFd5nZOy4XNrqYG/58ZEK654Vo2LxzIUj3udO1ECZ0bfBKRvSLXGiWujxw +MIsJFXJsWMvp58LJsR0RvSNMyKSUfSls+TtIm3uLK55iRkIuKffK9L7D4nW3 +/X0cLKihzrhuii0HPtWv9OjsZEGpT5ljy9a+wQH1ux6Z+1jQSC93TNboN7DY +pT3zDrGgyFeTdj34G3R106Yp2rIgR8E4ZW27b1B8yVnR7ee/frazt+7+zgb3 +83ZHlUJZEVPM9Y3B1n93uE7GOjmBFf1aIz/gKc2CUJ2BLxLfWVFyScu+q+lZ +kK5+ik6whRUZumx1HPyYBZ3Swo1/GdmQ7e+cGYpOFkjRFJtXPmZD1MVq4p4l +mVCZSf/pyhl2NHMo/NLV8gxoOpBf2nKZHZXVHjeW/5YB3fE2S2cs2FHycQUN +/tgMmP3SYXL8NTuS5aDc3uWWAfwfEiRI39mRqienC8PZDLhjdrZgWowDNZbU +4yPd6UDH5z/qvM6BEj9WFlygTgeeWScOHkZOFKS/LGYymQai1ZYq0bycaPxD +YNu+ljQ47qjmWi3Lic7ecE7ljUyD5yO/JLhvciKPiFxGac00mM1WvBNZxono +1i1eSb9PhWmZ8Uem2lzIskOPyU0mBRYF+lyS9LiQeLhThtGOFNigawleNORC +rZGVa4epUoBloKDE9SYXqnm9NqHRngz7fL24k+y5UOBjkd833yaD6YZKxkIi +FxLd/bk5YSgJOmpd5sic3Gg2onE5KSUR/I6HaV3k50ZeW2QBcnAiGGZkh0js +5kZLY2Ohti6J0BDw62SlDDcaJq9f8LmeCJW3NYIZtbmRTEr6QidHIuSs/NV4 +78iNLrZyZd19mgABpCe+XhPcCCs09xWcjwejgA/jN+e4Ec27C4QEigce5ih1 +hRVu5HCY6nqkXDx4zjaPNdHxoDmyl3krazy45smr8YjwIPoJpTbuqjiwOzc1 +4mfMg34wRqJJFAcXHUxVQsp40FNrG35TjVgICONjWPnBg7rdCxTWFGOhnaj8 +eaGJB/GJX+L8Ih4LxnT7n7L3/ePxlzYupli4/HEh69UyD2IbVYoKaowBk6/k +g3eleVFkHF2Z2O0YuFUWK6vsxYuKjA3SMj5GgzXrlFiDCR96eCXQy505Cqae +59Ox3uZDGjFXXxhuRYLVuPuozl0+5H53SEZiIRLuVkglljzmQ0fZndLHeiPB +1Nni4DcPPhRW9UZwMD0SriwMQWgxHzo/azDsZxIJ2j2d16zEdqCtz0eDKrIj +YG9SZQDD5A6k9HxNWuZNOBh9zc2rmduBLFxnFw3sw+G9b2Kv58oONK3/6skr +m3BYdPAUE6DnR/tSqe+t/fPRNXrGqftE+NGYvAmnoXI42M3+rjhlzI8CAl1f +7m/+CvUH6Zfel/Kj+yN383RTv4BDruYFzs8CKLtGsmjNLxQUrzXN3YwQQMwo +ZkbUNRQmt695pscJIB2jGc+Lz0LBRMfux/lsATTLZrbUfyUUjrXHg1+9ADp8 +vZHz+d5QWF1glxWiEkSKtvVBOPkz2Ml30pHuCKLdtpvFBo0h8DDWOkdFXgj1 +173xVlcMhv7Gnf4cKkKoaLkgY0w8GM6u1TweVRNCv+XL9UMFgkFGT/pgwGkh +ZBZW3Cq+GQQjf34nLd0RQievNvVkVAfBJfWbEdmhQmh1sTc683YQHG8776HI +IoxeqFo1M34OBDaaw6Zyv4URW2Loy1mpAMh7RnthdEoY9asffLd7TwBYzDRq +fpkXRp9f6dw34g0A3GkpwUG1EyUzdEd3bfrD47SQ8RnhnWj8UAabRqs/dF/b +skkx2IlyefNPvnT2h/jvFQ6yhTvRxWgn4nmfH2g9MPKX8d2FerR5ZLhSfUEw +b/d/WuJ7kJL+6KGCXG/wsXXzVujYi6Ion46nNnuBoeu5A2E5IkjRecMsbsID +ZK6SL0a/FEVGbMWZ/jbvoX2UOdL3ohgyavZ7YbvDDRpMf2vw7CWhIBKLXJa0 +KwzRxa36i5HQ4Es93VhRV1iMtUwTkiShY5o+pWFCriA0NbVL9AAJ1Z8JKA1m +dgXzx/Mr8qoktCYrGlEx4QLrb7dTzl4iodfONyUnE11AMkZI2N2LhDg+iBic +V3CBozo9TWy+JFSh0HmqRsoF9CZC330KIKHDSrJIR9QFHh0QWQoMI6H/0u/t +PcvjAoXfJJtik0hoaoTB0G2RDIaVSq7lVSS0LULak59HhjuWS2qnaknIcq9K +9qNMMtizfF+obSChoxXbuw4kkSFM/9jt1p8k9MyR61paKBnG25Ha8C8SyqwU +1h5yJsO6Pc3CnTESKuqt2PfdngzsO8sTJiZJ6NIe/qpPj8igeFNH4M8fErri +cEr5nBkZtKiZG54skVD2ZepNpWtkuBxVQ15dJSHKINvzXRfJYKXloer4l4SE +qXtjmPTJ8H/5Kvr/fPV/AF0he+I= + "]]}, + Annotation[#, "Charting`Private`Tag$3516#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.898192034299303*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"855ed7b1-986b-4073-a0f4-10103ad78ef2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"fm", "[", "u_", "]"}], ":=", + RowBox[{"-", + RowBox[{"fp", "[", + RowBox[{"-", "u"}], "]"}]}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"fm", "[", "u", "]"}], ",", + RowBox[{"{", + RowBox[{"u", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, { + 3.898178919640772*^9, 3.89817892694945*^9}, {3.898179002261174*^9, + 3.898179008205229*^9}, {3.8981914243731728`*^9, 3.898191463341125*^9}, { + 3.898191509613262*^9, 3.8981915263970737`*^9}, {3.898191556827965*^9, + 3.898191571387702*^9}, {3.898191965103423*^9, 3.89819199225441*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"badeb665-1b7d-47ba-bc02-c071e3bf6be6"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw1WWc013/Ytvcmq4UfQkJIA30/ElKSJJU2JUn+pZIiGj9CIntE2XuT7Ptj +y17ZO9n8ZI/w9JzzPK/uc53rut5cL+77XOcWNf3P8C4NFRVVBzUV1f/OV2Nn +57e3SZjUPfR6VZsMo/b8Sz1/Sdhe7ovgqbNk0OcaWPm+RsJkZpfwkAtkEDn6 +aPO/BRK+e0jE9dQtMpS6+zANjpJw/6PyiaoXZGCS69iD6//xhQn+xilk8Ht6 +68zrzyQcrmTUivmdIYn6STTVYRJeM8mjObLgDPR3dRSFrothLSnF5WVqV+Dt +rLCK9BbFmV5n7hspuYNhWYiZdI0ILvtctM8qzgPsKepWn37txQc65DnN8rwg +93mIZdq5Pbiw6nXOmos36PtcFNkK3oWbHl9w6Y72BZ2wIv1T08KYZ4GT/vXu +AJj72PuXblQYvzkw/MlvXwCEOG4klgwI47GH3ktpBwNg+uZRRtVWYXzv/UHT +Da0A8BH7BgfyhXEhbYztb+sA6I9LVuB1FcZsii18bKUBYJv5maefJIyPbNwe +a3oYCLFVL9qfXBXC1eF37+DeIAhWtNVMMBLCpa3ei2UTQeARZpPef1YI37K5 +m9C8HAQ2Tx646yIhPB47nsjKHQzqe68f3yshhJvCgg5taAVDmy2KrZkVxJ5P +HnU2ZwQDjSSjrehbQdxuLpeT5B0CN8h+OxrjBXCVTZze96eh0EAsM9pFCmAV +kyvw6V0oEBuX1kVCBTCn9v7cZz6hIGKzc8DGSwBXq5EfmKaHwvDNyHh+WwG8 +OyJpX/V0KJirpqve0BTAp7KMwhrvhYH1fO3tmT5+/JDBgmrfvS/geIs2lZWX +H0dpfRRa1w6H9EYdzzY2flx4lD+871w4DB/3sA5j4Mc7UxmuVV8OB+3dO+Tl +13dgkae0vlmW4cDRLZluOLQDT9L96RjyDIcvF05nBqftwPOuu7OjO8MBtL1z +9untwFadIjGbjyOA6sBe0HTmw5l8rW/niyLBgV/jhrMjH27hYZRo/xEJK9um +m5XP+XDGfdrl8p+RMNsSq3rakg/30bRfLZ+JhB47uVyDc3z4dBQvPrMnCnLK +1TOuC/Hhx8lcDm5vouDhtWtRz1N4sTDH91Xp89EwruV4Ii+WF1Of+/DX60Y0 +3JEPH1r/yot9aaP5aa2iwYRmZK+jDy/2EKZt5nofDafiH4SSn/Piy9GrqnVF +0SC++NLfW4MXr26PKLQciIHuD8Hvk37yYPE5v5QQwVhorRBJvtXIg5+ElHWU +SMZC3XZc044fPJjqTaTlsnIsFD/JEXpdyIPXPp1ldz0fC5FXW5OMoniwMjON +yLkPsWC5n71p8xEPtuT1/WJPHQcbNa8FDdh4sOCrtNK61ThYpGNSp2fgwVob +HGZlTPEwe9zrdv42N3bse/T9h2A8DGaGJYovcOPyEct6+qPxUB6Sr7bWxY27 +bvnPqL+MBw/LxVuRcf/4RBNzvB0Pu1gsEhZPcONjJWSfeIFEuFFc5yGmxo1f +RrIoa+1PhAibg48MDnFjEUcJv5XjiSDZs66SvI8bLz2K4PhingjyyR/Lzdi4 +sRJfrfVSTiKc0M8aaPnJhZGwT9Lk1SS477O1I8OCCy+p5JCGvydDsrbZWv9t +LmxqjM7YNSTD7HpVL9tVLly5ohMi9TsZbMy8oyzOcuGNYauznTwp4KAsflBE +kQubdb2xtvsvBfak+AbtWeHEp0dcqwcOpMKDQzL0Pbs4cS5WSXbAaWBDnxdn +y8mJd22/d5HvToOXP3VO89Bw4rLTxbNUi2ng/uyul+4YB/beOsdLxZcOid/C +hXIzOLD/JfnC/FPpMHFIQM5fmwOb+Ka/VPqWDvdU6C6de8SON6rcNiZCMsCa +wXdt0vQfHuYp60vIANt20VCXi+w4KHNGYiQ3A1xsiaGiY+yYPUhRRbojA2Jz +Xj6QpWfHgr2q3YF8mfBb5Y8Tcwgb7qvOKhPzzQSzw/3xZWWs+DadHEPX1yww +jz9srP2dFfuLpxIK6VlgKeRN+yORFd8c8bj8GWfBow3NGw3erJiepz4mZSgL +HCCBt+smK550OiNdKZ4NfjrPHGc3WDA73WPbX6nZUHmJzUhImQUHPfovsKT1 +G/yovksduo8F2zAf3N8++g3qjkLqnp0suKUyjp52/Ru07LRhFqdhwdP+BnKx +IjkwMNBRLNfEjOl89xXx/5cDq/eipE9aMeOSkB3nK7i+g4zdsW3raCbsJC64 ++dEiF3CfvsyvACY8cX3lwujrXDDWNLt4yY0JXz1W23c7OBfecngkEdZM+Mgr +lk9lNbnQFd13iesIE97qnsg5Ip8Hrs2v0zNqGfGNzg9qktt5MCpTdXtxngEL +D5Q+4SoqAIdPPR4WvxmwlMa01ZXuAuBZpnzv7WDARh4Mqw0rBXC8RJCjopAB +t8rb7dFQKgT/S5b5/i4M+GfmksGZ5EI4SWbnPSzMgN+wUvh14oogou9C+QsN +epzSk+n+vgxAcURxvU2ZHvubFzTkjQCUT3IrKEjRY4OdyX0ctBhGVxo/j3LQ +4+RbHLTF4hhkePSeXOilwymHty3172PI1D4pduA5Ha4ekh40XcFQnqb8ejCZ +Ft9QYVSqlSqFizm8OarhtLh09zO2YbVSGC2cnwrwpcUM7EOPBc+XAlNN+qWz +L2lxIrLtHHlRCmdHZOXzdWixpYTTGk19KbQLSvT7DtPgh9z27h9flMHYmx1q +OoI0uLNObFfZTDmwvEqj+LLQ4FaOfJPrTBUgZ6cbNfiXGrNePS6wj1QBttav +WF4OUWNNHJh0+koFMFz93ZmcSI3bWW6O9FVVgLjyt2c86tQ4xiCBwz+1Ek7J +n5O+KU+NVZfLj5jUVYKVzERvkig1HupQHbg4WQnZIrtPajFQ41XOSZd5ySrQ +ZHfmsWukwjJSWT8aIqvAdNQore82FRbI/HjyXUw1uAzNmsoYUeEbdRZeU5XV +kNjryv9cmwp35cQ/9xmvhvmWwldc+6nwNZ+DRl9kfwCNk26Qy/g2bJ6Y+1P0 +/QcQByeaz7Nvw8E/exq+dNdAvr+U1rjxJmiqLktpXKoHpqtjZtRqm3Byn2H7 +0Ot6MBaJfSssugnSdwbutyTWw3wiCetN/YXh4MtMsdv1II33qGY4/YWEhw/b +ZVIaIGiS7+DL+A1oWbUOlGRrgtG01nO+Hzeg6LG/XASpCZSf+Vgn22zAiTEU +pKvaBI3bnMn9ahvgtSzyTOJBEzDsYN2n2bwO3j9yHfjqm+AZQb2bbX0NbhW7 +P9of0gyldFhVYmAN3F2In1nZzcBV42hyvHwNiP3KiY8amyHZ6G/gI881GDkV +cteNvgVG7q/w/BRbgy0FIU/Npy1g6DfD9OXMKtyT9VNA11pBYaJrUT5sGUyu +90rGXvkJT+cOSAuQl6HgYUbPpRc/IXflzfUty2XoihW+fDL4J2gwyFTWHVmG +5YJA7caun2BIehl4v20JWihcl3Kvt8Oz68LHoliXoEFpUVLxcQfkN5s48b9c +gBqu0OFPP7pgqzM1a/PWAjRd1DA0/dMFJwZpxkd0FsB4hl3QXqgbamcTDbJ2 +LMDlW/5sZMtu6GXdEDXImIcOoag9m5w9sK31udxt/A9oOrXuarXohZP5Pcyb +xnMg+vZKSf+FAUhNjDlapToHV8+k9hm4DYDg5//ue4vMgVjrved7YQDaVxh8 +zrRRgBokSRM7BkHC3pgrbH0W6M/ULFWSB6H0zRIb0pmBP95rmaIPhuCvpxKD +y+AE7KFKRJxXfsGjhLRVbt5fcEblHeVW6BgocFi/OzE4DDcZzCeuFY3BHxtZ +jicpwxApd6Hyav8Y2KglkNp0huHd0CO7ayLj8KwxUj/AYQgExF9IoOhxWJjc +r3uobgAOdBklSidOwNPs+BsB5gPAIz3tFVQzAcuvJJ6uUA2Arszpv5TJCVjl +2vs171A/dDB8qTTYPwl/VXiW1L/2Auln976oxElgeLcarm3TBeRshf3FEVPw +Xu9ZThxbF4wLJHWWwhQw8c/XMsV1Ao/mnQTPvilgSZharunpgO2J+ngbwWng +bOzXO6fVDj2jMQKyH6bhU9BV0/SBn/Cf4vaidNw08Jh2Pud++RO+9zL79ZZO +A99Sc2Rrahvc9nlbarw2DYI7K1YvCbZC+99Jp+umMxA8osGRl9kCUhbufNh+ +BoRTi0nCZ1tgG/tXlvvNwG6NXP3eN83Afjr+dFLFDGg2GOuWtDfC4a3krWSx +WdC+bfD0HWsj0Dj3hA0emYVTi7pftVADREYk60Xrz4KesPrSj4Q6iFaXUmq1 +mwVjc1JEi8MPCP1SLuVXNQvuj5+4+nyrhvDre19ndM1CkUPZf4azVXBjl8OD +C1OzIO5rdrzlZiV8dc1q381OgctfsiR8girgzSHvnhO7KfAhgZbdsLkcPH3P +O/2WpcA8RPU0nygDp7eppLDTFJCsXSj1ti+F03uuUqddpsCVds3E89klcIOj +48gRcwrg6V92zRIYbukZriQ6UWCccg+LFRVD3BEF7P2BAucYmLwi5YpA5vSF +e5MBFNijdEo2kjsf3D8RVtNJFHDWHV8XfZcLhleOOPh+o/zrH64/IhZzgPB4 +2hhXTIELtlJBoubfYOB32h2pKgrke1SbR3RkgdWEymm+RgqIRlkcEtXNBGFd +6S+W7RRwzWOii8hPB3m1XE+ZPgr0fz0fo3E5FZiibplc+EWBlDrvExqqSYB6 +RAxGxilgv9Y8gPbEg6hUYmPvDAV0JXleIeoYGPf/qKs2TwGBC4bCaCQCDNEd +gmaZArXb4v85eYZBwNi8ptwaBSyuxCQ4GgUCR8mpDdigAF2WxMgrYW+496RL ++PsmBZCQnvo6doZABZ/7vNsUmAsKvvMn2AbChieg7R92oPGr0D5yhdA2nWbc ++IflQsyq+FSciLOZSN3lH+4Xyphl5fQg1FVlHtpu/ctDqbPQRcOPSGF0zqn9 +S4Gcrktv39uHEFk0Rbou6xRgx1OkcpNwQkUdW8SuUIDwTXIpfx5FPNGYNpdd +pMBj8wcT5X6xhKXjcrzgHAUij+7Xq8hIIPo7GqMfTFGgjW0qtaIhmQi9/25I +YpQCDIOJ3JVTaUSWF9eKziAFQq8cOmZGziAMdJBnSxcFDmn6P/jFk0X4bD27 +VdlCgQbZpVCziGwCpuwPi9dSgIrq27ZZ8XeCtqThgWg+BYIn+A6O6OURL0Kj +k0vTKaDY+tT0Tk8+YQcduc2xFLgTq1xxZ7WI8FX5E6nuTYFNL7/lERcguJaf +9oU6/8tfbd030x0Tjsqzn61f/NNLmlQoCpUS4twLq9Y3KaCwk6XfZrCU0O1n +Mws//8/Pmb+cGVdGROx6NaarSYGANSEpJZUKIio19TarBAWq6rrclS5UE/Gv +xAOeDc+ChV131dX9PwiC9GWBpXEWmMR76Mi0NURPmtpFroJZOG3f69iWVUtQ +P+dKfuo9C3XSAzbP+BqJtg8n6scP//Nr2qT0TLYQc6zH8ysezsCR4PlainEr +4ea0tOVhOANMFJtJ2rJWgtX5lf6sygwkhDzZJ/u5jTh/4M8J961pmPzzNMLh +TDvxe48oydZtGqzCn/vvTu4inJeTCrw+TYHa8krWQcFugirzfq/2oylg07Nr +0SJ3E+diGM+Vn5uClBU7TutrPYSgD3vOLo4pmNV/6VbM1keMk61mPrhOQq5j +cXGayiAh1pEm52k7AccOlGQaBP4inq5LcnzVHoNDbe0BxT9+ES6d+v0rEv/2 +v/30S9m/v4jfEeGuV+jHQPKHgCbT7RHic4bScbXyUeC9a90KMr8Jropcra8n +RmE6dOeiXPEocWycX7v8xG/4ymZ7iP33BOGSLshsavwLQrI+CNkLTBLsERJE +zJFfEGASsTmuO0kUbBzJYdn5Czzi6yrKUyeJ41G2dMf/3R27kyRjB7spgvv+ +3tsGVsNg6NBkO8U6Q1TOO9vf+zAENLY7eu8IzRFG8vr+N+oHwORWYkuu8hyR +YpvLpRY4AJmniR9sBnPESKhyt+3tATDdez8n22WOUMRS/HQr/VBaXfiJbnGO +8BloV3gp2Q/vdt7Rim74Q1xOsvJMDuiFXvo11dWJP8SK8qdYPfNeUJ77qKhH +P098/LGnWVulF0bKv+9dVJ0n3pF30p7q6IGT1qzrmgnzBP3J3YVPdvcAXUlm +6q93CwTWCZEWyO+Ca0k6MYe/LhCiB7rOyXh1QbZ/7+cP+QsEPePzzU93uuCO +JYOb0p8FYveyFfMlri6o4DUxe3djkfg13HY590EnuJhTC5KOLhH08Ukqtw52 +ACObwRvT2WUiN/+pRsJiG1zeZ4JVmFeI7CXn1YbWNkg8cWebRXyFYDW+bXko +qw30X9i9yrqyQhwf9XcrtWmDgNHwF3QVK8TRJi+BpsVWkCz58zj28yrB2xA1 +qEfXCna9G+kvc1YJ21gui5NjLVCzQj+n37xK5MN3pmc1LWAtJ2y9wrBGvOJN +ASfvFsj5fMLylM0asR6fricn1gJatr6mk6fWibYSWl2Ps80Q4B0WUWy2Tpy+ +axc1oNQM48lxgz6O60Tmz2aWu8LN4PGr4IZq9jpRWnr+It14E7QZjJh47N0g +tFs3Lro5N8Gd/YcuyC1vEAWyG5GxPo3wbrBd0yZqkzjfHBX3ergO+vPOPLQr +3CTK2GWP9RXWwTFfHOD4c5MIOpsu4RBYB3NaiRPujFtE9aDgpOPZOriR9Mor +6sEWYXYC/NwKa+GYrXhPm9I2IR1ro3EitgbW6I/m7TSlQrw6Eh+no6sh1mah +/os1FXrYUHouwqUajAZShkXtqVB6mKyVm0U1pOeKsUn5UaFuZT6eedlqMH/A +dlO5kgo5nJkZFMqtgramAbqzMtTIYiak3qqjEtI/uxg4zlOjoVKxQr/DFVDL +6zLGSUWDJIy2S8d3VcDoB2fHCHYaxODtnPKApgJ2OZCTy6VokPKJvJC/9eXg +eu0tE+tNGpQ7oM6A7pXDrd2OOLCWBhmYCoavRZQB19dnChnRtEj6Vn5t9aFS +2C/wrOpEJi1SHAhv0BYpBW2vpzfagBaJPtgqGWcpBQenJx4r3bSopx7OBQ6W +wPjNx+Pq3HSITlKfPvBjCWCRh+E1r+jQ60671eEZDP9F3uEaMaZH+hYD40Uf +ADxfBId6mtGjUiWqSqoHAKkGDVJHH9GjGz/lxJ+eBpjdOqzh6UaPEqzOrE8y +A1hdZbU5UkiPtrn0jTk/FIMlX2arhygDOmqQ/GbMvwjMXbYDDk0zoJPti3+/ +1haAy3Vl0uAqA5Ir/fb2fHoBxCrfT3OnZ0S2Hal+0v4F8Hu4pWpgDyP6LKej +q3ezAO4Qsatu5xnR8bw8V6OlfDBd1TPpz2FEDQ3UdSpS+XDDMmT3+zdMiEV3 +mdk7Lhc2upgb/nxkQrrnhWjYvHMhSPeF47UQJnRt8EpG9MtcaJa6PHAwiwkV +cmxYyennwsmxHRG9I0zIpJR9KWz5+78e5S2ueIoZCTmn3C/T+w6L113393Gw +oIY647opthz4VL/So7OTBaU+Y44tW/sGB9TveWTuY0EjvdwxWaPfwHyX9sx7 +xIIiX0/a9uBv0NVNm6Zow4IcBOOUtW2/QfElJ0XXn//0bGdv3fudDW7nbY8q +hbIippjrG4OtWeBTJ2OVnMCKfq2RH/KUZkGozsAXie+sKLmkZd/V9CxIVz9F +J9jCigydtzoOfsyCTmnhxr+MbMjmd84MRScLpGiK71Q+YUPUxWriniWZUJlJ +/+nKGXY0cyj80tXyDGg6kF/acpkdldUeN5b/lgHd8dZLZ8zZUfJxBQ3+2AyY +/dJhcvwNO5LloNze5ZoB/B8SJEjf2ZGqJ6czw9kMuGt2tmBajAM1ltTjI93p +QMfnP+q0zoESP1YWXKBOB55ZRw4eRk4UpL8sZjKZBqLVFirRvJxo/ENg276W +NDjuoOZSLcuJzt5wSuWNTIMXI78kuG9yIo+IXEZpzTSYzVa8G1nGiejWzV9L +u6fCtMz4Y1NtLmTRocfkKpMCiwJ9zkl6XEg83DHDaEcKbNC1BC8acqHWyMq1 +w1QpwDJQUOJykwvVvFmb0GhPhn2+XtxJdlwo8InI75vvksF0QyVjIZELie7+ +3JwwlAQdtc5zZE5uNBvRuJyUkgh+x8O0LvJzI68tsgA5OBEMM7JDJHZzo6Wx +sVAb50RoCPh1slKGGw2T1y/4XE+EytsawYza3EgmJX2hkyMRclb+arg7cKOL +rVxZ954lQADpqa/XBDfCCs19BefjwSjgw/jNOW5E8/4CSKB44GGOUldY4Ub2 +h6muR8rFg+ds81gTHQ+aI3vdaWWNB5c8eTUeER5EP6HUxl0VB7bnpkb8jHnQ +D8ZINIni4KK9qUpIGQ96ZmXNb6oRCwFhfAwrP3hQt1uBwppiLLRD5c8LTTyI +T/wS5xfxWDCm2/+Mve8fj7+0cTHFwuWPC1mvl3kQ26hSVFBjDJh8JR+8J82L +IuPoysRux8CtslhZZS9eVGRskJbxMRqsWKfEGkz40KMrgV5uzFEw9SKfjvU2 +H9KIufrScCsSLMfdRnXu8SG3e0MyEguRcK9CKrHkCR86yu6YPtYbCaZO5ge/ +efChsKq3goPpkXBlYYgILeZD52cNhv1MIkG7p/OapdgOtPX5aFBFdgTsTaoM +YJjcgZRerEnLvA0Ho6+5eTVzO5C5y+yigV04uPsm9nqu7EDT+q+fvrYOh0V7 +TzEBen60L5X6/ppJONToGafuE+FHY/ImnIbK4WA7+7vilDE/Cgh0ebW/+SvU +H6Rfci/lRw9G7uXppn4B+1zNC5yfBVB2jWTRml8oKF5rmrsZIYCYUcyMqEso +TG5f80yPE0A6RjOeF5+HgomO7Y/z2QJols1sqf9KKBxrjyf86gXQ4euNnC/2 +hsLqArusEJUgUrSpD8LJn8FWvpOOdFcQ7bbZLDZoDIFHsVY5KvJCqL/urbe6 +YjD0N+7051ARQkXLBRlj4sFwdq3myaiaEPotX64fKhAMMnrSBwNOCyGzsOJW +8c0gGPnzO2nprhA6ebWpJ6M6CC6p34zIDhVCq4u90Zm3g+B423kPRRZh9FLV +spnxcyCw0Rw2lfstjNgSQ1/NSgVA3nPaC6NTwqhf/eD73XsCwHymUfPLvDD6 +/FrngRFvAOBOCwkOqp0omaE7umvTH56khYzPCO9E44cy2DRa/aH72pZ1isFO +lMubf/KVkz/Ef6+wly3ciS5GO8KLPj/QemjkL+O7C/Vo88hwpfqCYN7u/7TE +9yAl/dFDBbne4GPj6q3QsRdFUT4dT232AkOXcwfCckSQotOGWdyEB8hcJV+M +fiWKjNiKM/2t3aF9lDnS96IYMmr2e2mzwxUaTH9r8OwloSASi1yWtAsM0cWt ++ouR0OArPd1YURdYjLVIE5IkoWOaPqVhQi4gNDW1S/QACdWfCSgNZnaBO0/m +V+RVSWhNVjSiYsIZ1t9tp5y9REJvnG5KTiY6g2SMkLCbFwlxfBAxOK/gDEd1 +eprYfEmoQqHzVI2UM+hNhL7/FEBCh5VkkY6oMzw+ILIUGEZC/6Xf33uWxxkK +v0k2xSaR0NQIg6HrIhkMK5VcyqtIaFuEtCc/jwx3LZbUTtWSkMVelezHmWSw +Y/m+UNtAQkcrtncdSCJDmP6x260/Sei5A9e1tFAyjLcjteFfJJRZKaw95ESG +dTuahbtjJFTUW7Hvux0Z2HeWJ0xMktClPfxVnx6TQfGmjsCfPyR0xf6U8jkz +MmhRMzc8XSKh7MvUm0rXyHA5qoa8ukpClEG2F7suksFSy0PV4S8JCVP3xjDp +k+H//qvo//+r/wP7XWdx + "]]}, + Annotation[#, "Charting`Private`Tag$4211#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.898192035744974*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2e6b4832-feeb-46f0-ac22-0b945bf66557"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898192229785335*^9, + 3.898192231543243*^9}},ExpressionUUID->"da922d42-93fc-4b70-a9ce-\ +b282b65993b3"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"c", "=", "1"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"fp", "[", + RowBox[{"x", "+", + RowBox[{"c", " ", "t"}]}], " ", "]"}], "+", + RowBox[{"fm", "[", + RowBox[{"x", "-", + RowBox[{"c", " ", "t"}]}], " ", "]"}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "20"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", + RowBox[{"Axes", "->", " ", + RowBox[{"{", + RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "25"}], ",", "25"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178973693942*^9, 3.89817897918531*^9}, { + 3.898179032473754*^9, 3.8981790330343733`*^9}, {3.8981790703170977`*^9, + 3.898179071723257*^9}, {3.8981794463865957`*^9, 3.898179468000723*^9}, { + 3.8981920043821383`*^9, 3.898192023632134*^9}, {3.898192069391204*^9, + 3.898192133857958*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"cf2a2431-90a5-4c83-a072-3a8bb305f782"], + +Cell[BoxData["1"], "Output", + CellChangeTimes->{ + 3.898178979956296*^9, 3.898179034211294*^9, {3.898179067188308*^9, + 3.898179072260508*^9}, {3.8981794391495953`*^9, 3.898179468590567*^9}, + 3.89819203740875*^9, {3.8981920705481167`*^9, 3.898192134749393*^9}}, + CellLabel->"Out[15]=",ExpressionUUID->"40ae767d-9515-4926-9884-e0c00e809657"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = -21.17128849029541, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -25, 25}}, Typeset`size$$ = { + 468., {138., 144.66726011631175`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -25}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> + Plot[$CellContext`fp[$CellContext`x + $CellContext`c $CellContext`t$$] + \ +$CellContext`fm[$CellContext`x - $CellContext`c $CellContext`t$$], \ +{$CellContext`x, 0, 20}, PlotRange -> {{0, 20}, {-1, 1}}, + Axes -> {True, False}], + "Specifications" :> {{$CellContext`t$$, -25, 25, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {164.861328125, 172.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.898178979956296*^9, 3.898179034211294*^9, {3.898179067188308*^9, + 3.898179072260508*^9}, {3.8981794391495953`*^9, 3.898179468590567*^9}, + 3.89819203740875*^9, {3.8981920705481167`*^9, 3.8981921347656717`*^9}}, + CellLabel->"Out[16]=",ExpressionUUID->"5f2282d1-439e-4191-9111-a278b56b1b11"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Cuerda con un extremo libre (Neumann)", "Section", + CellChangeTimes->{{3.898192171421978*^9, + 3.898192184160554*^9}},ExpressionUUID->"3ecbab6f-3c69-4080-9e75-\ +a3c44ffbd2a9"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8981919393750973`*^9, 3.8981919398631897`*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"c01d6a4e-ebbe-4763-b976-8a59c89818e2"], + +Cell[CellGroupData[{ + +Cell["Modos que se mueven hacia la izquierda y hacia la derecha", "Subsection", + CellChangeTimes->{{3.8981922124594803`*^9, + 3.8981922250584927`*^9}},ExpressionUUID->"0b562953-4f64-4d2b-969d-\ +e8ea6b7ddf98"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"fp", "[", "u_", "]"}], ":=", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{"u", "^", "2"}]}], ")"}]}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"fp", "[", "u", "]"}], ",", + RowBox[{"{", + RowBox[{"u", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, { + 3.898191290942535*^9, 3.898191292239201*^9}, {3.8981913532387238`*^9, + 3.898191356574024*^9}, {3.898191780898335*^9, 3.8981917842249517`*^9}, { + 3.8981919827823353`*^9, 3.898191984009453*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"f6a80da5-3470-4e41-b056-29dc2551d4f0"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw1WWc413/Utvcmq4UfQkJIA52PhJQkSaWNJMm/VFJE40eUyB5R9t4k+/ux +Za/snWx+skd4eq7reV6d677uc785L865z3WLmv5neIeGioqqg5qK6n/ry7Gz +89vbJEzqHnq1qk2GUQf+pZ6/JOwg90Xw1Fky6HMNrHxfI2Eys2t4yAUyiBx9 +uPnfAgnfOSTiduoWGUrf+zANjpJw/8PyiarnZGCS69iD6//xhQn+xilk8Hty +68yrzyQcrmTUivldIIn6cTTVYRJeM8mjObLgAvR3dBSFrothLSnF5WVqN+Dt +rLCO9BbFmV5n7hkpvQfDshAz6RoRXPa5aJ91nAc4UNStP/3aiw90yHOa5XlB +7rMQq7Rze3Bh1aucNVdv0Pe5KLIVvAs3Pbrg2h3tCzphRfqnpoUxzwIn/avd +ATD3sfcv3agwfn1g+JPfvgAIcdpILBkQxmMPvJfSDgbA9M2jjKqtwvjuu4Om +G1oB4CP2jTiQL4wLaWPsftsEQH9csgKvmzBmU2zhYysNALvMzzz9JGF8ZOP2 +WNODQIitet7++KoQrg6/Y457gyBY0U4zwUgIl7Z6L5ZNBIFHmG16/1khfMv2 +TkLzchDYPr7/XhcJ4fHY8URW7mBQ33v9+F4JIdwUFnRoQysY2uxQbM2sIPZ8 +/LCzOSMYaCQZ7UTfCOJ2C7mcJO8QuEH229EYL4CrbOP0vj8JhQZYZrSPFMAq +JleIT29DATYurYuECmBO7f25T31CQcR254CtlwCuViPfN00PheGbkfH8dgJ4 +d0TSvurpULBQTVe9oSmAT2UZhTXeDQOb+drbM338+AGDJdW+u1/A6RZtKisv +P47S+ii0rh0O6Y06nm1s/LjwKH9437lwGD7uYRPGwI93pjJcq74cDtq7d8jL +r+/AIk9ofbOswoGjWzLdcGgHnqT70zHkGQ5fLpzODE7bgefddmdHd4YDoe2d +s09vB7buFInZfBQBVAf2EpoufDiTr/XNfFEkOPJr3HBx4sMtPIwS7T8iYWXb +dLPyGR/OuEe7XP4zEmZbYlVPW/HhPpr2q+UzkdBjL5drcI4Pn47ixWf2REFO +uXrGdSE+/CiZy9H9dRQ8uHYt6lkKLxbm+L4qfT4axrWcTuTF8mLqcx/+et2I +BnP58KH1r7zYlzaan9Y6GkxoRvY6+fBiD2HaZq530XAq/n4o+Rkvvhy9qlpX +FA3iiy/8vTV48er2iELLgRjo/hD8LuknDxaf80sJEYyF1gqR5FuNPPhxSFlH +iWQs1G3HNe34wYOpXkdaLSvHQvHjHKFXhTx47dNZdrfzsRB5tTXJKIoHKzPT +iJz7EAtW+9mbNh/yYCte3y8O1HGwUfNK0ICNBwu+TCutW42DRTomdXoGHqy1 +wWFWxhQPs8e9budvc2OnvofffwjGw2BmWKL4AjcuH7Gqpz8aD+Uh+WprXdy4 +65b/jPqLePCwWrwVGfePTzSxwNvxsIvFMmHxBDc+VkL2iRdIhBvFdR5iatz4 +RSSLstb+RIiwPfjQ4BA3FnGS8Fs5ngiSPesqyfu48dLDCI4vFokgn/yx3IyN +Gyvx1dos5STCCf2sgZafXBgJ+yRNXk2Cez5bOzIsufCSSg5p+HsyJGubrfXf +5sKmxuiMfUMyzK5X9bJd5cKVKzohUr+TwdbMO8ryLBfeGLY+28mTAo7K4gdF +FLmwWddrG/v/UmBPim/QnhVOfHrErXrgQCrcPyRD37OLE+dilWRHnAa29Hlx +dpyceNf2O1f57jR48VPnNA8NJy47XTxLtZgG75/e8dId48DeW+d4qfjSIfFb +uFBuBgf2vyRfmH8qHSYOCcj5a3NgE9/0F0rf0uGuCt2lcw/Z8UaV+8ZESAbY +MPiuTZr+w8M8ZX0JGWDXLhrqepEdB2XOSIzkZoCrHQwVHWPH7EGKKtIdGRCb +8+K+LD07FuxV7Q7ky4TfKn+cmUPYcF91VpmYbyaYHe6PLytjxbfp5Bi6vmaB +RfxhY+3vrNhfPBUU0rPASsib9kciK7454nH5M86ChxuaNxq8WTE9T31MylAW +OBIJvF03WfGk8xnpSvFs8NN56jS7wYLZ6R7Z/UrNhspLbEZCyiw46OF/gSWt +3+BH9R3q0H0s2Jb54P720W9Qd5RI3bOTBbdUxtHTrn+Dlp22zOI0LHja30Au +ViQHBgY6iuWamDGd774i/v9yYPVulPRJa2ZcErLjfAXXd5CxP7ZtE82EncUF +Nz9a5gLu05f5FcCEJ66vXBh9lQvGmmYXL7kz4avHavtuB+fCGw6PJLBhwkde +snwqq8mFrui+S1xHmPBW90TOEfk8cGt+lZ5Ry4hvdH5Qk9zOg1GZqtuL8wxY +eKD0MVdRATh+6vGw/M2ApTSmra90FwDPMuV7bwcDNvJgWG1YKYDjJYIcFYUM +uFXefo+GUiH4X7LK93dlwD8zlwzOJBfCSTI772FhBvyalcKvE1cEEX0Xyp9r +0OOUnsz378oIUBxRXG9Tpsf+FgUNeSMElE9yKyhI0WODncl9HLQYRlcaP49y +0OPkWxy0xeIYZHj0Hl/opcMph7et9O9hyNQ+KXbgGR2uHpIeNF3BUJ6m/Gow +mRbfUGFUqpUqhYs5vDmq4bS4dPdTtmG1UhgtnJ8K8KXFDOxDjwTPlwJTTfql +sy9ocSKy6xx5XgpnR2Tl83VosZWE8xpNfSm0C0r0+w7T4AfcDu8/Pi+Dsdc7 +1HQEaXBnndiusplyYHmZRvFlocGtHPkm15kqQM5eN2rwLzVmvXpcYB+pAuxs +XrK8GKLGmjgw6fSVCmC4+rszOZEat7PcHOmrqgBx5W9PedSpcYxBAod/aiWc +kj8nfVOeGqsulx8xqasEa5mJ3iRRajzUoTpwcbISskV2n9RioMarnJOu85JV +oMnuwmPfSIVlpLJ+NERWgemoUVrfbSoskPnx5NuYanAdmjWVMaLCN+osvaYq +qyGx143/mTYV7sqJf+YzXg3zLYUvufZT4Ws+B42+yP4AGmfdINfxbWLzxNyf +ou8/AA5ONJ9n3yYO/tnT8KW7BvL9pbTGjTcJTdVlKY1L9cB0dcyMWm2TOLnP +sH3oVT0Yi8S+ERbdJKTNB+61JNbDfCIJ6039JYaDLzPFbteDNN6jmuH8l0h4 +8KBdJqUBgib5Dr6I3yBaVm0CJdmaYDSt9Zzvxw2i6JG/XASpCZSf+tgk224Q +J8ZQkK5qEzRucyb3q20QXssiTyXuNwHDDtZ9ms3rhPePXEe++iZ4CtS72dbX +iFvF7x/uD2mGUjqsKjGwRrx3hZ9Z2c3AVeNkcrx8jYD9yokPG5sh2ehv4EPP +NWLkVMgdd/oWGLm3wvNTbI3YUhDy1HzSAoZ+M0xfzqwSd2X9FNC1VlCY6FqU +D1smTK73SsZe+QlP5g5IC5CXiYIHGT2Xnv+E3JXX17eslomuWOHLJ4N/ggaD +TGXdkWViuSBQu7HrJxiSXgTea1siWihcl3Kvt8PT68LHoliXiAalRUnFRx2Q +32zizP9igajhCh3+9KMLtjpTszZvLRBNFzUMTf90wYlBmvERnQXCeIZd0EGo +G2pnEw2ydiwQl2/5s5GtuqGXdUPUIGOe6BCK2rPJ2QPbWp/L3cf/EJrOrbta +LXvhZH4P86bxHCH65kpJ/4UBSE2MOVqlOkdcPZPaZ+A+AIKf/7vnLTJHiLXe +fbaXGID2FQafM20UgpqQJE3sGAQJB2OusPVZgv5MzVIleRBKXy+xIZ0Z4o/3 +Wqbo/SH466nE4Do4QeyhSkScV37Bw4S0VW7eX8QZlbeUW6FjoMBh8/bE4DBx +k8Fi4lrRGPyxleV4nDJMRMpdqLzaPwa2agmkNp1h4u3QQ/trIuPwtDFSP8Bx +iBAQfy6BosdhYXK/7qG6AeJAl1GidOIEPMmOvxFgMUDwSE97BdVMwPJLiScr +VAOErszpv5TJCVjl2vs171A/0cHwpdJg/yT8VeFZUv/aS5B+du+LSpwEhrer +4dq2XQQ5W2F/ccQUvNN7mhPH1kWMCyR1lhJTwMQ/X8sU10nwaJonePZNAUvC +1HJNTwexPVEfbys4DZyN/XrntNqJntEYAdkP0/Ap6Kpp+sBP4j/F7UXpuGng +Me18xv3iJ/G9l9mvt3Qa+JaaI1tT24jbPm9KjdemQXBnxeolwVai/e+k83XT +GQge0eDIy2whpCzf82GHGRBOLSYJn20htrF/ZbnfDOzWyNXvfd1MsJ+OP51U +MQOaDca6Je2NxOGt5K1ksVnQvm3w5C1rI0Hj0hM2eGQWTi3qftVCDURkRLJe +tP4s6AmrL/1IqCOi1aWUWu1nwdiCFNHi+IMI/VIu5Vc1C+8fPXbz+VZNhF/f ++yqjaxaKHMv+M5ytIm7scrx/YWoWxH3NjrfcrCS+umW172anwOUvWRI+QRXE +60PePSd2U+BDAi27YXM54el73vm3LAXmiaie5hNlhPObVFLYaQpI1i6UejuU +Eqf3XKVOu0yBK+2aieezS4gbHB1HjlhQAE//sm+WwMQtPcOVRGcKjFPuYrGi +YiLuiAL2/kCBcwxMXpFyRYTM6Qt3JwMosEfplGwkdz7x/hNYTydRwEV3fF30 +bS5heOWIo+83yr//w+1HxGIOAR5PGuOKKXDBTipI1OIbMfA7zVyqigL5HtUW +ER1ZhPWEymm+RgqIRlkeEtXNJIR1pb9YtVPALY+JLiI/nZBXy/WU6aNA/9fz +MRqXUwmmqFsmF35RIKXO+4SGahKBekQMRsYp4LDWPID2xBOiUomNvTMU0JXk +eYmoY4hx/4+6avMUELhgKIxGIghDZA40yxSo3Rb/z9kzjAgYm9eUW6OA5ZWY +BCejQIKj5NQGsUEBuiyJkZfC3sTdx13C3zcpgIT01NexCxGo4HOPd5sCc0HB +5n+CbYmw4Qmi7R92pPGr0D5yBbRNpxk3/mG5ELMqPhVnOJuJ1F3/4X6hjFlW +Tg9QV5V5YLf1bx5KnYWuGn6QwuiSU/uXAjldl968cwiBLJoiXdd1CrDjKVK5 +STioqGPL2BUKgG+Sa/mzKHisMW0hu0iBRxb3J8r9/vlop+V4wTkKRB7dr1eR +kQD9HY3R96co0MY2lVrxz3eG3ns7JDFKAYbBRO7KqTTI8uJa0RmkQOiVQ8fM +yBlgoIM8W7oocEjT//4vnizw2Xp6q7KFAg2yS6FmEdlATDkcFq+lABXVt22z +4u9AW9JwXzSfAsETfAdH9PLgeWh0cmk6BRRbn5ia9+SDPdGR2xxLAfNY5Qrz +1SLwVfkTqe5NgU0vv+URVwK4lp/0hbr8m7/aum/mewxOyrOfbZ7/65c0qVAU +KgVx7oVVm5sUUNjJ0m87WAq6/Wxm4ef/6TnzlzPjyiBi18sxXU0KBKwJSSmp +VEBUauptVgkKVNV1vVe6UA3xL8UDng7PgqV9d9XV/f/uKOnLAkvjLDCJ99CR +aWugJ03tIlfBLJx26HVqy6oF6mdcyU+8Z6FOesD2KV8jtH04UT9++J9e0zal +Z7IF5liP51c8mIEjwfO1FONWcHde2vIwnAEmiu0kbVkrsLq81J9VmYGEkMf7 +ZD+3wfkDf06835qGyT9PIhzPtMPvPaIkO/dpsA5/5r87uQtclpMKvD5Ngdry +StZBwW6gyrzXq/1wCtj07Fu0yN1wLobxXPm5KUhZsee0udYDgj7sObs4pmBW +/4V7MVsfjJOtZz64TUKuU3FxmsogiHWkyXnaTcCxAyWZBoG/4Mm6JMdX7TE4 +1NYeUPzjF7h26vevSPzb/w7TL2T//oLfEeFuV+jHQPKHgCbT7RH4nKF0XK18 +FHjv2LQSMr+BqyJX6+uJUZgO3bkoVzwKx8b5tctP/IavbHaH2H9PgGu6ILOp +8S8Iyfog5CAwCewREhBz5BcEmERsjutOQsHGkRyWnb/AI76uojx1Eo5H2dEd +HxwG+5MkY0f7KeC+t/e2gfUwGDo22U2xzkDlvIvD3Q9DQGO3o9dcaA6M5PX9 +b9QPgMmtxJZc5TlIscvlUgscgMzT8IPNYA5GQpW77W4PgOneeznZrnOgiKX4 +6Vb6obS68BPd4hz4DLQrvJDsh7c7zbWiG/7A5SRrz+SAXuilX1NdnfgDK8qf +YvUsekF57qOiHv08fPyxp1lbpRdGyr/vXVSdh7fknbSnOnrgpA3rumbCPNCf +3F34eHcP0JVkpv56uwBYJ0RaIL8LriXpxBz+ugCiB7rOyXh1QbZ/7+cP+QtA +z/hs85N5F5hbMbgr/VmA3cvWzJe4uqCC18Ts7Y1F+DXcdjn3fie4WlALko4u +AX18ksqtgx3AyGbw2nR2GXLzn2gkLLbB5X0mWIV5BbKXXFYbWtsg8YT5Nov4 +CrAa37Y6lNUG+s/tX2ZdWYHjo/7upbZtEDAa/pyuYgWONnkJNC22gmTJn0ex +n1eBtyFqUI+uFex7N9Jf5KyCXSyX5cmxFqhZoZ/Tb16FfOI709OaFrCRE7ZZ +YViDl7wphLN3C+R8PmF1ynYN1uPT9eTEWkDLztd08tQ6tJXQ6nqcbYYA77CI +YrN1OH3HPmpAqRnGk+MGfZzWIfNnM8sd4Wbw+FVwQzV7HUpLz1+kG2+CNoMR +E4+9G6DdunHR3aUJzPcfuiC3vAEFshuRsT6N8HawXdM2ahPON0fFvRqug/68 +Mw/sCzehjF32WF9hHRzzxQFOPzch6Gy6hGNgHcxpJU68Z9yC6kHBSaezdXAj +6aVX1P0tMDtB+LkX1sIxO/GeNqVtkI611TgRWwNr9EfzdppSIV4diY/T0dUQ +a7tQ/8WGCj1oKD0X4VoNRgMpw6IOVCg9TNba3bIa0nPF2KT8qFC3Mh/PvGw1 +WNxnu6lcSYUcz8wMCuVWQVvTAN1ZGWpkORNSb91RCemfXQ2c5qnRUKlYod/h +CqjldR3jpKJBEkbbpeO7KmD0g4tTBDsNYvB2SblPUwG7HMnJ5VI0SPlEXsjf ++nJwu/aGifUmDcodUGdAd8vh1m4nHFhLgwxMBcPXIsqA6+tThYxoWiR9K7+2 ++lAp7Bd4WnUikxYpDoQ3aIuUgrbXkxttBC0Svb9VMs5SCo7Ojz1WumlRTz1x +LnCwBMZvPhpX56ZDdJL69IEfSwCLPAiveUmHXnXarw7PYPgv0pxrxJge6VsO +jBd9IMDzeXCopxk9KlWiqqS6T0CqQYPU0Yf06MZPOfEnpwmY3Tqs4elOjxKs +z6xPMhNgfZXV9kghPdrm0jfm/FAMVnyZrR6iDOioQfLrMf8isHDdDjg0zYBO +ti/+/VpbAK7XlUmDqwxIrvTbm/PpBRCrfC/tPT0jsutI9ZP2L4Dfwy1VA3sY +0Wc5HV29mwVgDrGr7ucZ0fG8PDejpXwwXdUz6c9hRA0N1HUqUvlwwypk97vX +TIhFd5nZOy4XNrqYG/58ZEK654Vo2LxzIUj3udO1ECZ0bfBKRvSLXGiWujxw +MIsJFXJsWMvp58LJsR0RvSNMyKSUfSls+TtIm3uLK55iRkIuKffK9L7D4nW3 +/X0cLKihzrhuii0HPtWv9OjsZEGpT5ljy9a+wQH1ux6Z+1jQSC93TNboN7DY +pT3zDrGgyFeTdj34G3R106Yp2rIgR8E4ZW27b1B8yVnR7ee/frazt+7+zgb3 +83ZHlUJZEVPM9Y3B1n93uE7GOjmBFf1aIz/gKc2CUJ2BLxLfWVFyScu+q+lZ +kK5+ik6whRUZumx1HPyYBZ3Swo1/GdmQ7e+cGYpOFkjRFJtXPmZD1MVq4p4l +mVCZSf/pyhl2NHMo/NLV8gxoOpBf2nKZHZXVHjeW/5YB3fE2S2cs2FHycQUN +/tgMmP3SYXL8NTuS5aDc3uWWAfwfEiRI39mRqienC8PZDLhjdrZgWowDNZbU +4yPd6UDH5z/qvM6BEj9WFlygTgeeWScOHkZOFKS/LGYymQai1ZYq0bycaPxD +YNu+ljQ47qjmWi3Lic7ecE7ljUyD5yO/JLhvciKPiFxGac00mM1WvBNZxono +1i1eSb9PhWmZ8Uem2lzIskOPyU0mBRYF+lyS9LiQeLhThtGOFNigawleNORC +rZGVa4epUoBloKDE9SYXqnm9NqHRngz7fL24k+y5UOBjkd833yaD6YZKxkIi +FxLd/bk5YSgJOmpd5sic3Gg2onE5KSUR/I6HaV3k50ZeW2QBcnAiGGZkh0js +5kZLY2Ohti6J0BDw62SlDDcaJq9f8LmeCJW3NYIZtbmRTEr6QidHIuSs/NV4 +78iNLrZyZd19mgABpCe+XhPcCCs09xWcjwejgA/jN+e4Ec27C4QEigce5ih1 +hRVu5HCY6nqkXDx4zjaPNdHxoDmyl3krazy45smr8YjwIPoJpTbuqjiwOzc1 +4mfMg34wRqJJFAcXHUxVQsp40FNrG35TjVgICONjWPnBg7rdCxTWFGOhnaj8 +eaGJB/GJX+L8Ih4LxnT7n7L3/ePxlzYupli4/HEh69UyD2IbVYoKaowBk6/k +g3eleVFkHF2Z2O0YuFUWK6vsxYuKjA3SMj5GgzXrlFiDCR96eCXQy505Cqae +59Ox3uZDGjFXXxhuRYLVuPuozl0+5H53SEZiIRLuVkglljzmQ0fZndLHeiPB +1Nni4DcPPhRW9UZwMD0SriwMQWgxHzo/azDsZxIJ2j2d16zEdqCtz0eDKrIj +YG9SZQDD5A6k9HxNWuZNOBh9zc2rmduBLFxnFw3sw+G9b2Kv58oONK3/6skr +m3BYdPAUE6DnR/tSqe+t/fPRNXrGqftE+NGYvAmnoXI42M3+rjhlzI8CAl1f +7m/+CvUH6Zfel/Kj+yN383RTv4BDruYFzs8CKLtGsmjNLxQUrzXN3YwQQMwo +ZkbUNRQmt695pscJIB2jGc+Lz0LBRMfux/lsATTLZrbUfyUUjrXHg1+9ADp8 +vZHz+d5QWF1glxWiEkSKtvVBOPkz2Ml30pHuCKLdtpvFBo0h8DDWOkdFXgj1 +173xVlcMhv7Gnf4cKkKoaLkgY0w8GM6u1TweVRNCv+XL9UMFgkFGT/pgwGkh +ZBZW3Cq+GQQjf34nLd0RQievNvVkVAfBJfWbEdmhQmh1sTc683YQHG8776HI +IoxeqFo1M34OBDaaw6Zyv4URW2Loy1mpAMh7RnthdEoY9asffLd7TwBYzDRq +fpkXRp9f6dw34g0A3GkpwUG1EyUzdEd3bfrD47SQ8RnhnWj8UAabRqs/dF/b +skkx2IlyefNPvnT2h/jvFQ6yhTvRxWgn4nmfH2g9MPKX8d2FerR5ZLhSfUEw +b/d/WuJ7kJL+6KGCXG/wsXXzVujYi6Ion46nNnuBoeu5A2E5IkjRecMsbsID +ZK6SL0a/FEVGbMWZ/jbvoX2UOdL3ohgyavZ7YbvDDRpMf2vw7CWhIBKLXJa0 +KwzRxa36i5HQ4Es93VhRV1iMtUwTkiShY5o+pWFCriA0NbVL9AAJ1Z8JKA1m +dgXzx/Mr8qoktCYrGlEx4QLrb7dTzl4iodfONyUnE11AMkZI2N2LhDg+iBic +V3CBozo9TWy+JFSh0HmqRsoF9CZC330KIKHDSrJIR9QFHh0QWQoMI6H/0u/t +PcvjAoXfJJtik0hoaoTB0G2RDIaVSq7lVSS0LULak59HhjuWS2qnaknIcq9K +9qNMMtizfF+obSChoxXbuw4kkSFM/9jt1p8k9MyR61paKBnG25Ha8C8SyqwU +1h5yJsO6Pc3CnTESKuqt2PfdngzsO8sTJiZJ6NIe/qpPj8igeFNH4M8fErri +cEr5nBkZtKiZG54skVD2ZepNpWtkuBxVQ15dJSHKINvzXRfJYKXloer4l4SE +qXtjmPTJ8H/5Kvr/fPV/AF0he+I= + "]]}, + Annotation[#, "Charting`Private`Tag$1930#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.898192034299303*^9, 3.89819226647221*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"290b01d4-18e2-45f4-8d41-2dbdbca178c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"fm", "[", "u_", "]"}], ":=", + RowBox[{"fp", "[", + RowBox[{"-", "u"}], "]"}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"fm", "[", "u", "]"}], ",", + RowBox[{"{", + RowBox[{"u", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, { + 3.898178919640772*^9, 3.89817892694945*^9}, {3.898179002261174*^9, + 3.898179008205229*^9}, {3.8981914243731728`*^9, 3.898191463341125*^9}, { + 3.898191509613262*^9, 3.8981915263970737`*^9}, {3.898191556827965*^9, + 3.898191571387702*^9}, {3.898191965103423*^9, 3.89819199225441*^9}, + 3.898192257827187*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"3800b10b-2c97-436f-a271-4ff3d597907a"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw1WWc413/Utvcmq4UfQkJIA52PhJQkSaWNJMm/VFJE40eUyB5R9t4k+/ux +Za/snWx+skd4eq7reV6d677uc785L865z3WLmv5neIeGioqqg5qK6n/ry7Gz +89vbJEzqHnq1qk2GUQf+pZ6/JOwg90Xw1Fky6HMNrHxfI2Eys2t4yAUyiBx9 +uPnfAgnfOSTiduoWGUrf+zANjpJw/8PyiarnZGCS69iD6//xhQn+xilk8Hty +68yrzyQcrmTUivldIIn6cTTVYRJeM8mjObLgAvR3dBSFrothLSnF5WVqN+Dt +rLCO9BbFmV5n7hkpvQfDshAz6RoRXPa5aJ91nAc4UNStP/3aiw90yHOa5XlB +7rMQq7Rze3Bh1aucNVdv0Pe5KLIVvAs3Pbrg2h3tCzphRfqnpoUxzwIn/avd +ATD3sfcv3agwfn1g+JPfvgAIcdpILBkQxmMPvJfSDgbA9M2jjKqtwvjuu4Om +G1oB4CP2jTiQL4wLaWPsftsEQH9csgKvmzBmU2zhYysNALvMzzz9JGF8ZOP2 +WNODQIitet7++KoQrg6/Y457gyBY0U4zwUgIl7Z6L5ZNBIFHmG16/1khfMv2 +TkLzchDYPr7/XhcJ4fHY8URW7mBQ33v9+F4JIdwUFnRoQysY2uxQbM2sIPZ8 +/LCzOSMYaCQZ7UTfCOJ2C7mcJO8QuEH229EYL4CrbOP0vj8JhQZYZrSPFMAq +JleIT29DATYurYuECmBO7f25T31CQcR254CtlwCuViPfN00PheGbkfH8dgJ4 +d0TSvurpULBQTVe9oSmAT2UZhTXeDQOb+drbM338+AGDJdW+u1/A6RZtKisv +P47S+ii0rh0O6Y06nm1s/LjwKH9437lwGD7uYRPGwI93pjJcq74cDtq7d8jL +r+/AIk9ofbOswoGjWzLdcGgHnqT70zHkGQ5fLpzODE7bgefddmdHd4YDoe2d +s09vB7buFInZfBQBVAf2EpoufDiTr/XNfFEkOPJr3HBx4sMtPIwS7T8iYWXb +dLPyGR/OuEe7XP4zEmZbYlVPW/HhPpr2q+UzkdBjL5drcI4Pn47ixWf2REFO +uXrGdSE+/CiZy9H9dRQ8uHYt6lkKLxbm+L4qfT4axrWcTuTF8mLqcx/+et2I +BnP58KH1r7zYlzaan9Y6GkxoRvY6+fBiD2HaZq530XAq/n4o+Rkvvhy9qlpX +FA3iiy/8vTV48er2iELLgRjo/hD8LuknDxaf80sJEYyF1gqR5FuNPPhxSFlH +iWQs1G3HNe34wYOpXkdaLSvHQvHjHKFXhTx47dNZdrfzsRB5tTXJKIoHKzPT +iJz7EAtW+9mbNh/yYCte3y8O1HGwUfNK0ICNBwu+TCutW42DRTomdXoGHqy1 +wWFWxhQPs8e9budvc2OnvofffwjGw2BmWKL4AjcuH7Gqpz8aD+Uh+WprXdy4 +65b/jPqLePCwWrwVGfePTzSxwNvxsIvFMmHxBDc+VkL2iRdIhBvFdR5iatz4 +RSSLstb+RIiwPfjQ4BA3FnGS8Fs5ngiSPesqyfu48dLDCI4vFokgn/yx3IyN +Gyvx1dos5STCCf2sgZafXBgJ+yRNXk2Cez5bOzIsufCSSg5p+HsyJGubrfXf +5sKmxuiMfUMyzK5X9bJd5cKVKzohUr+TwdbMO8ryLBfeGLY+28mTAo7K4gdF +FLmwWddrG/v/UmBPim/QnhVOfHrErXrgQCrcPyRD37OLE+dilWRHnAa29Hlx +dpyceNf2O1f57jR48VPnNA8NJy47XTxLtZgG75/e8dId48DeW+d4qfjSIfFb +uFBuBgf2vyRfmH8qHSYOCcj5a3NgE9/0F0rf0uGuCt2lcw/Z8UaV+8ZESAbY +MPiuTZr+w8M8ZX0JGWDXLhrqepEdB2XOSIzkZoCrHQwVHWPH7EGKKtIdGRCb +8+K+LD07FuxV7Q7ky4TfKn+cmUPYcF91VpmYbyaYHe6PLytjxbfp5Bi6vmaB +RfxhY+3vrNhfPBUU0rPASsib9kciK7454nH5M86ChxuaNxq8WTE9T31MylAW +OBIJvF03WfGk8xnpSvFs8NN56jS7wYLZ6R7Z/UrNhspLbEZCyiw46OF/gSWt +3+BH9R3q0H0s2Jb54P720W9Qd5RI3bOTBbdUxtHTrn+Dlp22zOI0LHja30Au +ViQHBgY6iuWamDGd774i/v9yYPVulPRJa2ZcErLjfAXXd5CxP7ZtE82EncUF +Nz9a5gLu05f5FcCEJ66vXBh9lQvGmmYXL7kz4avHavtuB+fCGw6PJLBhwkde +snwqq8mFrui+S1xHmPBW90TOEfk8cGt+lZ5Ry4hvdH5Qk9zOg1GZqtuL8wxY +eKD0MVdRATh+6vGw/M2ApTSmra90FwDPMuV7bwcDNvJgWG1YKYDjJYIcFYUM +uFXefo+GUiH4X7LK93dlwD8zlwzOJBfCSTI772FhBvyalcKvE1cEEX0Xyp9r +0OOUnsz378oIUBxRXG9Tpsf+FgUNeSMElE9yKyhI0WODncl9HLQYRlcaP49y +0OPkWxy0xeIYZHj0Hl/opcMph7et9O9hyNQ+KXbgGR2uHpIeNF3BUJ6m/Gow +mRbfUGFUqpUqhYs5vDmq4bS4dPdTtmG1UhgtnJ8K8KXFDOxDjwTPlwJTTfql +sy9ocSKy6xx5XgpnR2Tl83VosZWE8xpNfSm0C0r0+w7T4AfcDu8/Pi+Dsdc7 +1HQEaXBnndiusplyYHmZRvFlocGtHPkm15kqQM5eN2rwLzVmvXpcYB+pAuxs +XrK8GKLGmjgw6fSVCmC4+rszOZEat7PcHOmrqgBx5W9PedSpcYxBAod/aiWc +kj8nfVOeGqsulx8xqasEa5mJ3iRRajzUoTpwcbISskV2n9RioMarnJOu85JV +oMnuwmPfSIVlpLJ+NERWgemoUVrfbSoskPnx5NuYanAdmjWVMaLCN+osvaYq +qyGx143/mTYV7sqJf+YzXg3zLYUvufZT4Ws+B42+yP4AGmfdINfxbWLzxNyf +ou8/AA5ONJ9n3yYO/tnT8KW7BvL9pbTGjTcJTdVlKY1L9cB0dcyMWm2TOLnP +sH3oVT0Yi8S+ERbdJKTNB+61JNbDfCIJ6039JYaDLzPFbteDNN6jmuH8l0h4 +8KBdJqUBgib5Dr6I3yBaVm0CJdmaYDSt9Zzvxw2i6JG/XASpCZSf+tgk224Q +J8ZQkK5qEzRucyb3q20QXssiTyXuNwHDDtZ9ms3rhPePXEe++iZ4CtS72dbX +iFvF7x/uD2mGUjqsKjGwRrx3hZ9Z2c3AVeNkcrx8jYD9yokPG5sh2ehv4EPP +NWLkVMgdd/oWGLm3wvNTbI3YUhDy1HzSAoZ+M0xfzqwSd2X9FNC1VlCY6FqU +D1smTK73SsZe+QlP5g5IC5CXiYIHGT2Xnv+E3JXX17eslomuWOHLJ4N/ggaD +TGXdkWViuSBQu7HrJxiSXgTea1siWihcl3Kvt8PT68LHoliXiAalRUnFRx2Q +32zizP9igajhCh3+9KMLtjpTszZvLRBNFzUMTf90wYlBmvERnQXCeIZd0EGo +G2pnEw2ydiwQl2/5s5GtuqGXdUPUIGOe6BCK2rPJ2QPbWp/L3cf/EJrOrbta +LXvhZH4P86bxHCH65kpJ/4UBSE2MOVqlOkdcPZPaZ+A+AIKf/7vnLTJHiLXe +fbaXGID2FQafM20UgpqQJE3sGAQJB2OusPVZgv5MzVIleRBKXy+xIZ0Z4o/3 +Wqbo/SH466nE4Do4QeyhSkScV37Bw4S0VW7eX8QZlbeUW6FjoMBh8/bE4DBx +k8Fi4lrRGPyxleV4nDJMRMpdqLzaPwa2agmkNp1h4u3QQ/trIuPwtDFSP8Bx +iBAQfy6BosdhYXK/7qG6AeJAl1GidOIEPMmOvxFgMUDwSE97BdVMwPJLiScr +VAOErszpv5TJCVjl2vs171A/0cHwpdJg/yT8VeFZUv/aS5B+du+LSpwEhrer +4dq2XQQ5W2F/ccQUvNN7mhPH1kWMCyR1lhJTwMQ/X8sU10nwaJonePZNAUvC +1HJNTwexPVEfbys4DZyN/XrntNqJntEYAdkP0/Ap6Kpp+sBP4j/F7UXpuGng +Me18xv3iJ/G9l9mvt3Qa+JaaI1tT24jbPm9KjdemQXBnxeolwVai/e+k83XT +GQge0eDIy2whpCzf82GHGRBOLSYJn20htrF/ZbnfDOzWyNXvfd1MsJ+OP51U +MQOaDca6Je2NxOGt5K1ksVnQvm3w5C1rI0Hj0hM2eGQWTi3qftVCDURkRLJe +tP4s6AmrL/1IqCOi1aWUWu1nwdiCFNHi+IMI/VIu5Vc1C+8fPXbz+VZNhF/f ++yqjaxaKHMv+M5ytIm7scrx/YWoWxH3NjrfcrCS+umW172anwOUvWRI+QRXE +60PePSd2U+BDAi27YXM54el73vm3LAXmiaie5hNlhPObVFLYaQpI1i6UejuU +Eqf3XKVOu0yBK+2aieezS4gbHB1HjlhQAE//sm+WwMQtPcOVRGcKjFPuYrGi +YiLuiAL2/kCBcwxMXpFyRYTM6Qt3JwMosEfplGwkdz7x/hNYTydRwEV3fF30 +bS5heOWIo+83yr//w+1HxGIOAR5PGuOKKXDBTipI1OIbMfA7zVyqigL5HtUW +ER1ZhPWEymm+RgqIRlkeEtXNJIR1pb9YtVPALY+JLiI/nZBXy/WU6aNA/9fz +MRqXUwmmqFsmF35RIKXO+4SGahKBekQMRsYp4LDWPID2xBOiUomNvTMU0JXk +eYmoY4hx/4+6avMUELhgKIxGIghDZA40yxSo3Rb/z9kzjAgYm9eUW6OA5ZWY +BCejQIKj5NQGsUEBuiyJkZfC3sTdx13C3zcpgIT01NexCxGo4HOPd5sCc0HB +5n+CbYmw4Qmi7R92pPGr0D5yBbRNpxk3/mG5ELMqPhVnOJuJ1F3/4X6hjFlW +Tg9QV5V5YLf1bx5KnYWuGn6QwuiSU/uXAjldl968cwiBLJoiXdd1CrDjKVK5 +STioqGPL2BUKgG+Sa/mzKHisMW0hu0iBRxb3J8r9/vlop+V4wTkKRB7dr1eR +kQD9HY3R96co0MY2lVrxz3eG3ns7JDFKAYbBRO7KqTTI8uJa0RmkQOiVQ8fM +yBlgoIM8W7oocEjT//4vnizw2Xp6q7KFAg2yS6FmEdlATDkcFq+lABXVt22z +4u9AW9JwXzSfAsETfAdH9PLgeWh0cmk6BRRbn5ia9+SDPdGR2xxLAfNY5Qrz +1SLwVfkTqe5NgU0vv+URVwK4lp/0hbr8m7/aum/mewxOyrOfbZ7/65c0qVAU +KgVx7oVVm5sUUNjJ0m87WAq6/Wxm4ef/6TnzlzPjyiBi18sxXU0KBKwJSSmp +VEBUauptVgkKVNV1vVe6UA3xL8UDng7PgqV9d9XV/f/uKOnLAkvjLDCJ99CR +aWugJ03tIlfBLJx26HVqy6oF6mdcyU+8Z6FOesD2KV8jtH04UT9++J9e0zal +Z7IF5liP51c8mIEjwfO1FONWcHde2vIwnAEmiu0kbVkrsLq81J9VmYGEkMf7 +ZD+3wfkDf06835qGyT9PIhzPtMPvPaIkO/dpsA5/5r87uQtclpMKvD5Ngdry +StZBwW6gyrzXq/1wCtj07Fu0yN1wLobxXPm5KUhZsee0udYDgj7sObs4pmBW +/4V7MVsfjJOtZz64TUKuU3FxmsogiHWkyXnaTcCxAyWZBoG/4Mm6JMdX7TE4 +1NYeUPzjF7h26vevSPzb/w7TL2T//oLfEeFuV+jHQPKHgCbT7RH4nKF0XK18 +FHjv2LQSMr+BqyJX6+uJUZgO3bkoVzwKx8b5tctP/IavbHaH2H9PgGu6ILOp +8S8Iyfog5CAwCewREhBz5BcEmERsjutOQsHGkRyWnb/AI76uojx1Eo5H2dEd +HxwG+5MkY0f7KeC+t/e2gfUwGDo22U2xzkDlvIvD3Q9DQGO3o9dcaA6M5PX9 +b9QPgMmtxJZc5TlIscvlUgscgMzT8IPNYA5GQpW77W4PgOneeznZrnOgiKX4 +6Vb6obS68BPd4hz4DLQrvJDsh7c7zbWiG/7A5SRrz+SAXuilX1NdnfgDK8qf +YvUsekF57qOiHv08fPyxp1lbpRdGyr/vXVSdh7fknbSnOnrgpA3rumbCPNCf +3F34eHcP0JVkpv56uwBYJ0RaIL8LriXpxBz+ugCiB7rOyXh1QbZ/7+cP+QtA +z/hs85N5F5hbMbgr/VmA3cvWzJe4uqCC18Ts7Y1F+DXcdjn3fie4WlALko4u +AX18ksqtgx3AyGbw2nR2GXLzn2gkLLbB5X0mWIV5BbKXXFYbWtsg8YT5Nov4 +CrAa37Y6lNUG+s/tX2ZdWYHjo/7upbZtEDAa/pyuYgWONnkJNC22gmTJn0ex +n1eBtyFqUI+uFex7N9Jf5KyCXSyX5cmxFqhZoZ/Tb16FfOI709OaFrCRE7ZZ +YViDl7wphLN3C+R8PmF1ynYN1uPT9eTEWkDLztd08tQ6tJXQ6nqcbYYA77CI +YrN1OH3HPmpAqRnGk+MGfZzWIfNnM8sd4Wbw+FVwQzV7HUpLz1+kG2+CNoMR +E4+9G6DdunHR3aUJzPcfuiC3vAEFshuRsT6N8HawXdM2ahPON0fFvRqug/68 +Mw/sCzehjF32WF9hHRzzxQFOPzch6Gy6hGNgHcxpJU68Z9yC6kHBSaezdXAj +6aVX1P0tMDtB+LkX1sIxO/GeNqVtkI611TgRWwNr9EfzdppSIV4diY/T0dUQ +a7tQ/8WGCj1oKD0X4VoNRgMpw6IOVCg9TNba3bIa0nPF2KT8qFC3Mh/PvGw1 +WNxnu6lcSYUcz8wMCuVWQVvTAN1ZGWpkORNSb91RCemfXQ2c5qnRUKlYod/h +CqjldR3jpKJBEkbbpeO7KmD0g4tTBDsNYvB2SblPUwG7HMnJ5VI0SPlEXsjf ++nJwu/aGifUmDcodUGdAd8vh1m4nHFhLgwxMBcPXIsqA6+tThYxoWiR9K7+2 ++lAp7Bd4WnUikxYpDoQ3aIuUgrbXkxttBC0Svb9VMs5SCo7Ojz1WumlRTz1x +LnCwBMZvPhpX56ZDdJL69IEfSwCLPAiveUmHXnXarw7PYPgv0pxrxJge6VsO +jBd9IMDzeXCopxk9KlWiqqS6T0CqQYPU0Yf06MZPOfEnpwmY3Tqs4elOjxKs +z6xPMhNgfZXV9kghPdrm0jfm/FAMVnyZrR6iDOioQfLrMf8isHDdDjg0zYBO +ti/+/VpbAK7XlUmDqwxIrvTbm/PpBRCrfC/tPT0jsutI9ZP2L4Dfwy1VA3sY +0Wc5HV29mwVgDrGr7ucZ0fG8PDejpXwwXdUz6c9hRA0N1HUqUvlwwypk97vX +TIhFd5nZOy4XNrqYG/58ZEK654Vo2LxzIUj3udO1ECZ0bfBKRvSLXGiWujxw +MIsJFXJsWMvp58LJsR0RvSNMyKSUfSls+TtIm3uLK55iRkIuKffK9L7D4nW3 +/X0cLKihzrhuii0HPtWv9OjsZEGpT5ljy9a+wQH1ux6Z+1jQSC93TNboN7DY +pT3zDrGgyFeTdj34G3R106Yp2rIgR8E4ZW27b1B8yVnR7ee/frazt+7+zgb3 +83ZHlUJZEVPM9Y3B1n93uE7GOjmBFf1aIz/gKc2CUJ2BLxLfWVFyScu+q+lZ +kK5+ik6whRUZumx1HPyYBZ3Swo1/GdmQ7e+cGYpOFkjRFJtXPmZD1MVq4p4l +mVCZSf/pyhl2NHMo/NLV8gxoOpBf2nKZHZXVHjeW/5YB3fE2S2cs2FHycQUN +/tgMmP3SYXL8NTuS5aDc3uWWAfwfEiRI39mRqienC8PZDLhjdrZgWowDNZbU +4yPd6UDH5z/qvM6BEj9WFlygTgeeWScOHkZOFKS/LGYymQai1ZYq0bycaPxD +YNu+ljQ47qjmWi3Lic7ecE7ljUyD5yO/JLhvciKPiFxGac00mM1WvBNZxono +1i1eSb9PhWmZ8Uem2lzIskOPyU0mBRYF+lyS9LiQeLhThtGOFNigawleNORC +rZGVa4epUoBloKDE9SYXqnm9NqHRngz7fL24k+y5UOBjkd833yaD6YZKxkIi +FxLd/bk5YSgJOmpd5sic3Gg2onE5KSUR/I6HaV3k50ZeW2QBcnAiGGZkh0js +5kZLY2Ohti6J0BDw62SlDDcaJq9f8LmeCJW3NYIZtbmRTEr6QidHIuSs/NV4 +78iNLrZyZd19mgABpCe+XhPcCCs09xWcjwejgA/jN+e4Ec27C4QEigce5ih1 +hRVu5HCY6nqkXDx4zjaPNdHxoDmyl3krazy45smr8YjwIPoJpTbuqjiwOzc1 +4mfMg34wRqJJFAcXHUxVQsp40FNrG35TjVgICONjWPnBg7rdCxTWFGOhnaj8 +eaGJB/GJX+L8Ih4LxnT7n7L3/ePxlzYupli4/HEh69UyD2IbVYoKaowBk6/k +g3eleVFkHF2Z2O0YuFUWK6vsxYuKjA3SMj5GgzXrlFiDCR96eCXQy505Cqae +59Ox3uZDGjFXXxhuRYLVuPuozl0+5H53SEZiIRLuVkglljzmQ0fZndLHeiPB +1Nni4DcPPhRW9UZwMD0SriwMQWgxHzo/azDsZxIJ2j2d16zEdqCtz0eDKrIj +YG9SZQDD5A6k9HxNWuZNOBh9zc2rmduBLFxnFw3sw+G9b2Kv58oONK3/6skr +m3BYdPAUE6DnR/tSqe+t/fPRNXrGqftE+NGYvAmnoXI42M3+rjhlzI8CAl1f +7m/+CvUH6Zfel/Kj+yN383RTv4BDruYFzs8CKLtGsmjNLxQUrzXN3YwQQMwo +ZkbUNRQmt695pscJIB2jGc+Lz0LBRMfux/lsATTLZrbUfyUUjrXHg1+9ADp8 +vZHz+d5QWF1glxWiEkSKtvVBOPkz2Ml30pHuCKLdtpvFBo0h8DDWOkdFXgj1 +173xVlcMhv7Gnf4cKkKoaLkgY0w8GM6u1TweVRNCv+XL9UMFgkFGT/pgwGkh +ZBZW3Cq+GQQjf34nLd0RQievNvVkVAfBJfWbEdmhQmh1sTc683YQHG8776HI +IoxeqFo1M34OBDaaw6Zyv4URW2Loy1mpAMh7RnthdEoY9asffLd7TwBYzDRq +fpkXRp9f6dw34g0A3GkpwUG1EyUzdEd3bfrD47SQ8RnhnWj8UAabRqs/dF/b +skkx2IlyefNPvnT2h/jvFQ6yhTvRxWgn4nmfH2g9MPKX8d2FerR5ZLhSfUEw +b/d/WuJ7kJL+6KGCXG/wsXXzVujYi6Ion46nNnuBoeu5A2E5IkjRecMsbsID +ZK6SL0a/FEVGbMWZ/jbvoX2UOdL3ohgyavZ7YbvDDRpMf2vw7CWhIBKLXJa0 +KwzRxa36i5HQ4Es93VhRV1iMtUwTkiShY5o+pWFCriA0NbVL9AAJ1Z8JKA1m +dgXzx/Mr8qoktCYrGlEx4QLrb7dTzl4iodfONyUnE11AMkZI2N2LhDg+iBic +V3CBozo9TWy+JFSh0HmqRsoF9CZC330KIKHDSrJIR9QFHh0QWQoMI6H/0u/t +PcvjAoXfJJtik0hoaoTB0G2RDIaVSq7lVSS0LULak59HhjuWS2qnaknIcq9K +9qNMMtizfF+obSChoxXbuw4kkSFM/9jt1p8k9MyR61paKBnG25Ha8C8SyqwU +1h5yJsO6Pc3CnTESKuqt2PfdngzsO8sTJiZJ6NIe/qpPj8igeFNH4M8fErri +cEr5nBkZtKiZG54skVD2ZepNpWtkuBxVQ15dJSHKINvzXRfJYKXloer4l4SE +qXtjmPTJ8H/5Kvr/fPV/AF0he+I= + "]]}, + Annotation[#, "Charting`Private`Tag$4506#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{All, All}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.898192035744974*^9, 3.898192269563216*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"a1ae8954-fbf6-4da3-af68-6b671bd3498f"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898192229785335*^9, + 3.898192231543243*^9}},ExpressionUUID->"eea862ba-efbb-459a-9164-\ +61060f5ee9b8"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"c", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"fp", "[", + RowBox[{"x", "+", + RowBox[{"c", " ", "t"}]}], " ", "]"}], "+", + RowBox[{"fm", "[", + RowBox[{"x", "-", + RowBox[{"c", " ", "t"}]}], " ", "]"}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "20"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "2.5"}], "}"}]}], "}"}]}], ",", + RowBox[{"Axes", "->", " ", + RowBox[{"{", + RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "25"}], ",", "25"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.898178973693942*^9, 3.89817897918531*^9}, { + 3.898179032473754*^9, 3.8981790330343733`*^9}, {3.8981790703170977`*^9, + 3.898179071723257*^9}, {3.8981794463865957`*^9, 3.898179468000723*^9}, { + 3.8981920043821383`*^9, 3.898192023632134*^9}, {3.898192069391204*^9, + 3.898192133857958*^9}, {3.898192285099327*^9, 3.89819231095504*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"abbf03f6-0fda-49ec-a27a-f6ce4665a2d5"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = -6.1370134353637695`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -25, 25}}, Typeset`size$$ = { + 468., {148., 153.5672601163118}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -25}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> + Plot[$CellContext`fp[$CellContext`x + $CellContext`c $CellContext`t$$] + \ +$CellContext`fm[$CellContext`x - $CellContext`c $CellContext`t$$], \ +{$CellContext`x, 0, 20}, PlotRange -> {{0, 20}, {0, 2.5}}, + Axes -> {True, False}], + "Specifications" :> {{$CellContext`t$$, -25, 25, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {174.861328125, 182.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.898178979956296*^9, 3.898179034211294*^9, {3.898179067188308*^9, + 3.898179072260508*^9}, {3.8981794391495953`*^9, 3.898179468590567*^9}, + 3.89819203740875*^9, {3.8981920705481167`*^9, 3.898192134749393*^9}, { + 3.8981922877394743`*^9, 3.898192311213628*^9}}, + CellLabel->"Out[12]=",ExpressionUUID->"5ef14612-0c45-4c0a-bb1d-ce2104b024bd"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Cuerda ambos extremos fijos (Dirichlet)", "Section", + CellChangeTimes->{{3.898192335899827*^9, + 3.898192353089321*^9}},ExpressionUUID->"2869d40a-0b8a-4da8-973f-\ +5cc0315b0e04"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8981924225230722`*^9, 3.898192423056665*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"950a4713-1227-431a-96f1-234e4232ea21"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981923783135757`*^9, + 3.898192384557886*^9}},ExpressionUUID->"b8677823-dd2e-48ef-8f85-\ +54ed01948e67"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Phi]", "[", + RowBox[{"x_", ",", "t_"}], "]"}], ":=", + RowBox[{"Ap", " ", + RowBox[{"Sin", "[", + RowBox[{ + RowBox[{"\[Pi]", "/", "L"}], " ", "p", " ", "x"}], "]"}], + RowBox[{"Sin", "[", + RowBox[{ + RowBox[{ + RowBox[{"\[Pi]", "/", "L"}], " ", "p", " ", "c", " ", "t"}], "+", + "\[Delta]"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.89818044234851*^9, 3.898180506464436*^9}, { + 3.898181794691731*^9, 3.898181819230462*^9}, {3.898181907221609*^9, + 3.898181919489126*^9}, {3.898181974293263*^9, 3.898181976865163*^9}, { + 3.898182844477331*^9, 3.898182859860426*^9}, {3.898192393818509*^9, + 3.898192406681209*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"e668ce4d-853d-4371-8ba9-5a37f6da7c8f"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981923879533167`*^9, + 3.898192417000469*^9}},ExpressionUUID->"91ccfbf0-8b30-46b1-a5b4-\ +b48e8bc0443c"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Ap", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"p", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"\[Phi]", "[", + RowBox[{"x", ",", "t"}], "]"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", + RowBox[{"PlotRange", "->", " ", + RowBox[{"{", + RowBox[{"All", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8981805142923937`*^9, 3.898180537465892*^9}, { + 3.898180645557987*^9, 3.898180661868188*^9}, {3.898181852865807*^9, + 3.898181875930192*^9}, {3.898181923529931*^9, 3.898181928093925*^9}, { + 3.898182064471676*^9, 3.8981820671620417`*^9}, {3.8981924289969997`*^9, + 3.898192457848226*^9}, 3.898192503145162*^9, {3.898192563944908*^9, + 3.898192564448118*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"8a08043a-8d2c-4138-b46d-df5cf857daea"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 6.484752655029297, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = { + 468., {146., 151.47858336568055`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Plot[ + $CellContext`\[Phi][$CellContext`x, $CellContext`t$$], \ +{$CellContext`x, 0, $CellContext`L}, PlotRange -> {All, {-2, 2}}], + "Specifications" :> {{$CellContext`t$$, -10, 10, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {172.861328125, 180.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.898192565674349*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"14770923-c700-433e-8768-719f8783bc27"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Cuerda ambos extremos libres (Neumann)", "Section", + CellChangeTimes->{{3.898192335899827*^9, 3.898192353089321*^9}, { + 3.898192529882348*^9, + 3.898192533303226*^9}},ExpressionUUID->"74040bef-70f6-48d5-8592-\ +d30ff61ae8c7"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.898192602542685*^9, 3.8981926030939083`*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"d779f2d7-dd0d-4aaa-af27-39c2a5c8f995"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981923783135757`*^9, + 3.898192384557886*^9}},ExpressionUUID->"2231e42c-a352-4fc4-80da-\ +43d9da3670d9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Phi]", "[", + RowBox[{"x_", ",", "t_"}], "]"}], ":=", + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{"\[Pi]", "/", "L"}], " ", "p", " ", "x"}], "]"}], + RowBox[{"Cos", "[", + RowBox[{ + RowBox[{ + RowBox[{"\[Pi]", "/", "L"}], " ", "p", " ", "c", " ", "t"}], "+", + "\[Delta]"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.89818044234851*^9, 3.898180506464436*^9}, { + 3.898180692713339*^9, 3.898180716903131*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"ec4c3719-a53b-425e-9ec5-7340734b1178"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.898192582349769*^9, + 3.898192586398913*^9}},ExpressionUUID->"24690a23-28c1-4ff7-b6d1-\ +890864e10f7a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"p", "=", "3"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"\[Phi]", "[", + RowBox[{"x", ",", "t"}], "]"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", + RowBox[{"PlotRange", "->", " ", + RowBox[{"{", + RowBox[{"All", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8981805142923937`*^9, 3.898180537465892*^9}, { + 3.898180645557987*^9, 3.898180661868188*^9}, {3.89818072858652*^9, + 3.8981807476452303`*^9}, {3.898192593558537*^9, 3.898192593991366*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"f5fd9de1-9fdc-4681-89c8-159ff2ee5966"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = -22.420909881591797`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -30, 30}}, Typeset`size$$ = { + 468., {142., 148.77549629860283`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -30}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Plot[ + $CellContext`\[Phi][$CellContext`x, $CellContext`t$$], \ +{$CellContext`x, 0, $CellContext`L}, PlotRange -> {All, {-1, 1}}], + "Specifications" :> {{$CellContext`t$$, -30, 30, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {168.861328125, 176.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.898192598062817*^9, 3.898192609214459*^9}}, + CellLabel->"Out[6]=",ExpressionUUID->"e51222f8-2608-425f-a2aa-bac4b48f5b5f"] +}, Open ]] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Cuerda un extremos libre (Neumann) y uno fijo (Dirichlet)", "Section", + CellChangeTimes->{{3.898192335899827*^9, 3.898192353089321*^9}, { + 3.898192529882348*^9, 3.898192533303226*^9}, {3.898192654197616*^9, + 3.898192661629095*^9}},ExpressionUUID->"1a313421-9826-4125-9eb9-\ +cefa598ab583"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8981926331104393`*^9, 3.898192633629643*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"4cd22503-f7f7-479b-9990-b5fe187e0c5c"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981923783135757`*^9, + 3.898192384557886*^9}},ExpressionUUID->"22b73a1c-5df2-4d86-bc08-\ +cdc4753541b0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Phi]", "[", + RowBox[{"x_", ",", "t_"}], "]"}], ":=", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{ + RowBox[{"\[Pi]", "/", "L"}], " ", + RowBox[{"(", + RowBox[{"p", "+", + RowBox[{"1", "/", "2"}]}], ")"}], " ", "x"}], "]"}], + RowBox[{"Sin", "[", + RowBox[{ + RowBox[{ + RowBox[{"\[Pi]", "/", "L"}], " ", + RowBox[{"(", + RowBox[{"p", "+", + RowBox[{"1", "/", "2"}]}], ")"}], " ", "c", " ", "t"}], "+", + "\[Delta]"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.89818044234851*^9, 3.898180506464436*^9}, { + 3.898180692713339*^9, 3.898180716903131*^9}, {3.898180997503902*^9, + 3.898181015732379*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"5ce7ac40-671c-4b61-8f60-90f5b856b11c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981923783135757`*^9, + 3.898192384557886*^9}},ExpressionUUID->"307170b2-cd5c-4604-a882-\ +3adeea0ba1a3"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"p", "=", "2"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"\[Phi]", "[", + RowBox[{"x", ",", "t"}], "]"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", + RowBox[{"PlotRange", "->", " ", + RowBox[{"{", + RowBox[{"All", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8981805142923937`*^9, 3.898180537465892*^9}, { + 3.898180645557987*^9, 3.898180661868188*^9}, {3.89818072858652*^9, + 3.8981807476452303`*^9}, {3.898181020818433*^9, 3.8981810334052057`*^9}, { + 3.898181189573732*^9, 3.898181198365382*^9}, {3.898192672733438*^9, + 3.898192678045958*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"825c216f-7518-433e-bba3-cc9d768fecab"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = 18.302947998046875`, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -30, 30}}, Typeset`size$$ = { + 468., {142., 148.77549629860283`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -30}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Plot[ + $CellContext`\[Phi][$CellContext`x, $CellContext`t$$], \ +{$CellContext`x, 0, $CellContext`L}, PlotRange -> {All, {-1, 1}}], + "Specifications" :> {{$CellContext`t$$, -30, 30, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {168.861328125, 176.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.898192678824436*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"73d31706-7b2a-4b96-b36f-2d07eacc745e"] +}, Open ]] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n general y timbre", "Section", + CellChangeTimes->{{3.898192701976215*^9, + 3.898192714415106*^9}},ExpressionUUID->"0da64a8f-8f6a-4f95-81e7-\ +6a97a48124fc"], + +Cell["\<\ +Analicemos el caso con ambos extremos fijos, se puede repetir casi sin \ +cambios para los otros dos casos\ +\>", "Text", + CellChangeTimes->{{3.89819273520498*^9, + 3.898192754467928*^9}},ExpressionUUID->"e2c7942d-5677-44f7-8c45-\ +d32622561de0"], + +Cell[BoxData["Quit"], "Input", + CellChangeTimes->{{3.8981924225230722`*^9, 3.898192423056665*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"04afbd4b-010b-44c0-90e2-b7be69120ef7"], + +Cell[CellGroupData[{ + +Cell["Soluci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981923783135757`*^9, + 3.898192384557886*^9}},ExpressionUUID->"7ebffa90-6cf8-4be7-b6f0-\ +fbf59bd1088a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Phi]", "[", + RowBox[{"x_", ",", "t_"}], "]"}], ":=", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "p", "]"}], " ", + RowBox[{"Sin", "[", + RowBox[{ + RowBox[{"\[Pi]", "/", "L"}], " ", "p", " ", "x"}], "]"}], + RowBox[{"Sin", "[", + RowBox[{ + RowBox[{ + RowBox[{"\[Pi]", "/", "L"}], " ", "p", " ", "c", " ", "t"}], "+", + "\[Delta]"}], "]"}]}], ",", + RowBox[{"{", + RowBox[{"p", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.89818044234851*^9, 3.898180506464436*^9}, { + 3.898181794691731*^9, 3.898181819230462*^9}, {3.898181907221609*^9, + 3.898181919489126*^9}, {3.898181974293263*^9, 3.898181976865163*^9}, { + 3.898182844477331*^9, 3.898182859860426*^9}, {3.898192393818509*^9, + 3.898192406681209*^9}, {3.898192766444613*^9, 3.898192780020356*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"27355c6d-593b-4261-9737-666e1860be82"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Animaci\[OAcute]n", "Subsection", + CellChangeTimes->{{3.8981923879533167`*^9, + 3.898192417000469*^9}},ExpressionUUID->"ed0a74de-596f-4a04-8ad1-\ +b874ed6d31a1"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "=", + RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "=", + RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "=", + RowBox[{"1", "/", "4"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "5", "]"}], "=", + RowBox[{"1", "/", "5"}]}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"p", "=", "1"}], ";"}], + "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Animate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"\[Phi]", "[", + RowBox[{"x", ",", "t"}], "]"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", + RowBox[{"PlotRange", "->", " ", + RowBox[{"{", + RowBox[{"All", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.8981805142923937`*^9, 3.898180537465892*^9}, { + 3.898180645557987*^9, 3.898180661868188*^9}, {3.898181852865807*^9, + 3.898181875930192*^9}, {3.898181923529931*^9, 3.898181928093925*^9}, { + 3.898182064471676*^9, 3.8981820671620417`*^9}, {3.8981924289969997`*^9, + 3.898192457848226*^9}, 3.898192503145162*^9, {3.898192563944908*^9, + 3.898192564448118*^9}, {3.898192802174564*^9, 3.898192863396657*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"9772e236-e7c7-4796-8975-f302308dd7d2"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`t$$ = -3.844005584716797, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{ + Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = { + 468., {146., 151.47858336568055`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> Plot[ + $CellContext`\[Phi][$CellContext`x, $CellContext`t$$], \ +{$CellContext`x, 0, $CellContext`L}, PlotRange -> {All, {-2, 2}}], + "Specifications" :> {{$CellContext`t$$, -10, 10, + AppearanceElements -> { + "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", + "DirectionButton"}}}, + "Options" :> { + ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> + "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> + True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], + ImageSizeCache->{827., {172.861328125, 180.138671875}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Animate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.898192565674349*^9, {3.898192851467334*^9, 3.8981928637048683`*^9}}, + CellLabel->"Out[28]=",ExpressionUUID->"be9ac52e-6921-463c-8143-5c66b280cf70"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +}, +WindowSize->{1200, 627}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +Magnification:>1.3 Inherited, +FrontEndVersion->"13.2 para Linux x86 (64-bit) (January 30, 2023)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"4725cb30-3148-4091-8f43-a3d45709ef42" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 175, 3, 127, "Title",ExpressionUUID->"3b52c642-4207-4cdf-bcb3-2f6a2e20aca2"], +Cell[CellGroupData[{ +Cell[780, 29, 162, 3, 87, "Section",ExpressionUUID->"6408f118-07fb-4e89-bc3b-b3700fa14a9c"], +Cell[945, 34, 156, 3, 60, "Input",ExpressionUUID->"933505bf-9343-4c96-83d4-c02490946a66"], +Cell[CellGroupData[{ +Cell[1126, 41, 266, 4, 70, "Subsection",ExpressionUUID->"8f3381a1-e334-4ec0-8b8f-fd462b83d0f0"], +Cell[1395, 47, 197, 3, 45, "Text",ExpressionUUID->"fcdefcc8-7771-458d-836e-557c6d7fcef0"], +Cell[CellGroupData[{ +Cell[1617, 54, 779, 20, 112, "Input",ExpressionUUID->"0b822ae7-398a-485f-9c1a-0cabac4e7c3f"], +Cell[2399, 76, 11724, 211, 314, "Output",ExpressionUUID->"2409da52-2ca7-4077-bcd4-d75592298c18"] +}, Open ]], +Cell[14138, 290, 219, 4, 45, "Text",ExpressionUUID->"f15db67b-3409-4d51-9df4-639aaaf4e8fc"], +Cell[CellGroupData[{ +Cell[14382, 298, 1100, 30, 115, "Input",ExpressionUUID->"03ff5230-00eb-43a0-8c6f-7afc3ca92899"], +Cell[15485, 330, 2225, 43, 385, "Output",ExpressionUUID->"aa4c2849-e6fa-45d4-8b58-010e2cf61fde"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[17759, 379, 171, 3, 48, "Subsection",ExpressionUUID->"38fd7ad5-6523-4fd1-9971-38a68ad88be4"], +Cell[17933, 384, 222, 3, 45, "Text",ExpressionUUID->"23b0d7be-f17f-4ccc-82c1-463a84f33f03"], +Cell[CellGroupData[{ +Cell[18180, 391, 1052, 28, 169, "Input",ExpressionUUID->"f5f4597d-d33a-4dc1-ac68-0770b8ad7943"], +Cell[19235, 421, 19556, 339, 320, "Output",ExpressionUUID->"8fdde79b-7cb2-4938-aa07-ca700dfe15bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[38828, 765, 1244, 32, 115, "Input",ExpressionUUID->"f813551b-a717-4883-80c7-c49eecca6d24"], +Cell[40075, 799, 2112, 41, 367, "Output",ExpressionUUID->"a5146ef2-3316-4e18-8009-2db77880d1ba"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[42236, 846, 172, 3, 48, "Subsection",ExpressionUUID->"eba8f49a-e87f-4b5a-85c3-518eb74adaad"], +Cell[CellGroupData[{ +Cell[42433, 853, 1227, 34, 147, "Input",ExpressionUUID->"ada0eeb3-31b6-419e-b2e6-4e79efecd8a0"], +Cell[43663, 889, 2268, 43, 385, "Output",ExpressionUUID->"9b46934c-9ea3-4f91-90a9-051cd5169129"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[45992, 939, 234, 4, 67, "Section",ExpressionUUID->"d8d4ceb2-775e-4b2c-9a07-91203b1cb705"], +Cell[46229, 945, 179, 2, 60, "Input",ExpressionUUID->"8e51095c-9496-40dc-b1f3-9affa349b1f7"], +Cell[CellGroupData[{ +Cell[46433, 951, 209, 3, 70, "Subsection",ExpressionUUID->"fa480deb-86bf-4685-876e-bef381c186b5"], +Cell[CellGroupData[{ +Cell[46667, 958, 829, 21, 112, "Input",ExpressionUUID->"7f77ffcb-aba2-4fe7-8bbd-e75510a72259"], +Cell[47499, 981, 11625, 210, 314, "Output",ExpressionUUID->"855ed7b1-986b-4073-a0f4-10103ad78ef2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[59161, 1196, 888, 21, 112, "Input",ExpressionUUID->"badeb665-1b7d-47ba-bc02-c071e3bf6be6"], +Cell[60052, 1219, 11617, 210, 310, "Output",ExpressionUUID->"2e6b4832-feeb-46f0-ac22-0b945bf66557"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[71718, 1435, 165, 3, 48, "Subsection",ExpressionUUID->"da922d42-93fc-4b70-a9ce-b282b65993b3"], +Cell[CellGroupData[{ +Cell[71908, 1442, 1336, 35, 147, "Input",ExpressionUUID->"cf2a2431-90a5-4c83-a072-3a8bb305f782"], +Cell[73247, 1479, 345, 5, 43, "Output",ExpressionUUID->"40ae767d-9515-4926-9884-e0c00e809657"], +Cell[73595, 1486, 2356, 45, 361, "Output",ExpressionUUID->"5f2282d1-439e-4191-9111-a278b56b1b11"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[76012, 1538, 182, 3, 67, "Section",ExpressionUUID->"3ecbab6f-3c69-4080-9e75-a3c44ffbd2a9"], +Cell[76197, 1543, 179, 2, 60, "Input",ExpressionUUID->"c01d6a4e-ebbe-4763-b976-8a59c89818e2"], +Cell[CellGroupData[{ +Cell[76401, 1549, 209, 3, 70, "Subsection",ExpressionUUID->"0b562953-4f64-4d2b-969d-e8ea6b7ddf98"], +Cell[CellGroupData[{ +Cell[76635, 1556, 829, 21, 112, "Input",ExpressionUUID->"f6a80da5-3470-4e41-b056-29dc2551d4f0"], +Cell[77467, 1579, 11646, 210, 314, "Output",ExpressionUUID->"290b01d4-18e2-45f4-8d41-2dbdbca178c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[89150, 1794, 896, 21, 112, "Input",ExpressionUUID->"3800b10b-2c97-436f-a271-4ff3d597907a"], +Cell[90049, 1817, 11647, 210, 314, "Output",ExpressionUUID->"a1ae8954-fbf6-4da3-af68-6b671bd3498f"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[101745, 2033, 165, 3, 48, "Subsection",ExpressionUUID->"eea862ba-efbb-459a-9164-61060f5ee9b8"], +Cell[CellGroupData[{ +Cell[101935, 2040, 1379, 36, 147, "Input",ExpressionUUID->"abbf03f6-0fda-49ec-a27a-f6ce4665a2d5"], +Cell[103317, 2078, 2407, 46, 381, "Output",ExpressionUUID->"5ef14612-0c45-4c0a-bb1d-ce2104b024bd"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[105785, 2131, 184, 3, 67, "Section",ExpressionUUID->"2869d40a-0b8a-4da8-973f-5cc0315b0e04"], +Cell[105972, 2136, 177, 2, 60, "Input",ExpressionUUID->"950a4713-1227-431a-96f1-234e4232ea21"], +Cell[CellGroupData[{ +Cell[106174, 2142, 166, 3, 70, "Subsection",ExpressionUUID->"b8677823-dd2e-48ef-8f85-54ed01948e67"], +Cell[106343, 2147, 767, 18, 64, "Input",ExpressionUUID->"e668ce4d-853d-4371-8ba9-5a37f6da7c8f"] +}, Closed]], +Cell[CellGroupData[{ +Cell[107147, 2170, 167, 3, 48, "Subsection",ExpressionUUID->"91ccfbf0-8b30-46b1-a5b4-b48e8bc0443c"], +Cell[CellGroupData[{ +Cell[107339, 2177, 1400, 36, 220, "Input",ExpressionUUID->"8a08043a-8d2c-4138-b46d-df5cf857daea"], +Cell[108742, 2215, 2053, 40, 377, "Output",ExpressionUUID->"14770923-c700-433e-8768-719f8783bc27"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[110856, 2262, 232, 4, 67, "Section",ExpressionUUID->"74040bef-70f6-48d5-8592-d30ff61ae8c7"], +Cell[111091, 2268, 177, 2, 60, "Input",ExpressionUUID->"d779f2d7-dd0d-4aaa-af27-39c2a5c8f995"], +Cell[CellGroupData[{ +Cell[111293, 2274, 166, 3, 70, "Subsection",ExpressionUUID->"2231e42c-a352-4fc4-80da-43d9da3670d9"], +Cell[111462, 2279, 561, 15, 64, "Input",ExpressionUUID->"ec4c3719-a53b-425e-9ec5-7340734b1178"] +}, Closed]], +Cell[CellGroupData[{ +Cell[112060, 2299, 165, 3, 48, "Subsection",ExpressionUUID->"24690a23-28c1-4ff7-b6d1-890864e10f7a"], +Cell[CellGroupData[{ +Cell[112250, 2306, 1177, 32, 194, "Input",ExpressionUUID->"f5fd9de1-9fdc-4681-89c8-159ff2ee5966"], +Cell[113430, 2340, 2079, 40, 369, "Output",ExpressionUUID->"e51222f8-2608-425f-a2aa-bac4b48f5b5f"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[115570, 2387, 297, 4, 67, "Section",ExpressionUUID->"1a313421-9826-4125-9eb9-cefa598ab583"], +Cell[115870, 2393, 176, 2, 60, "Input",ExpressionUUID->"4cd22503-f7f7-479b-9990-b5fe187e0c5c"], +Cell[CellGroupData[{ +Cell[116071, 2399, 166, 3, 70, "Subsection",ExpressionUUID->"22b73a1c-5df2-4d86-bc08-cdc4753541b0"], +Cell[116240, 2404, 775, 22, 64, "Input",ExpressionUUID->"5ce7ac40-671c-4b61-8f60-90f5b856b11c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117052, 2431, 166, 3, 70, "Subsection",ExpressionUUID->"307170b2-cd5c-4604-a882-3adeea0ba1a3"], +Cell[CellGroupData[{ +Cell[117243, 2438, 1277, 34, 194, "Input",ExpressionUUID->"825c216f-7518-433e-bba3-cc9d768fecab"], +Cell[118523, 2474, 2054, 40, 369, "Output",ExpressionUUID->"73d31706-7b2a-4b96-b36f-2d07eacc745e"] +}, Open ]] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[120638, 2521, 178, 3, 67, "Section",ExpressionUUID->"0da64a8f-8f6a-4f95-81e7-6a97a48124fc"], +Cell[120819, 2526, 254, 6, 45, "Text",ExpressionUUID->"e2c7942d-5677-44f7-8c45-d32622561de0"], +Cell[121076, 2534, 177, 2, 60, "Input",ExpressionUUID->"04afbd4b-010b-44c0-90e2-b7be69120ef7"], +Cell[CellGroupData[{ +Cell[121278, 2540, 166, 3, 70, "Subsection",ExpressionUUID->"7ebffa90-6cf8-4be7-b6f0-fbf59bd1088a"], +Cell[121447, 2545, 976, 23, 64, "Input",ExpressionUUID->"27355c6d-593b-4261-9737-666e1860be82"] +}, Closed]], +Cell[CellGroupData[{ +Cell[122460, 2573, 167, 3, 48, "Subsection",ExpressionUUID->"ed0a74de-596f-4a04-8ad1-b874ed6d31a1"], +Cell[CellGroupData[{ +Cell[122652, 2580, 2000, 55, 352, "Input",ExpressionUUID->"9772e236-e7c7-4796-8975-f302308dd7d2"], +Cell[124655, 2637, 2105, 41, 377, "Output",ExpressionUUID->"be9ac52e-6921-463c-8143-5c66b280cf70"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +} +] +*) +