(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 47607, 978] NotebookOptionsPosition[ 45899, 939] NotebookOutlinePosition[ 46247, 954] CellTagsIndexPosition[ 46204, 951] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Mec\[AAcute]nica Cl\[AAcute]sica 2019 2c", "Chapter", CellChangeTimes->{{3.7311487609214*^9, 3.7311487993634*^9}, { 3.7311557874128*^9, 3.7311557877404003`*^9}, {3.7755687202540884`*^9, 3.775568723373747*^9}, {3.775568818624013*^9, 3.775568827223015*^9}},ExpressionUUID->"5db8795f-e449-434d-91ac-\ c7127e39a287"], Cell[CellGroupData[{ Cell["Gu\[IAcute]a 2, problema 3. Soluci\[OAcute]n num\[EAcute]rica. Versi\ \[OAcute]n m\[IAcute]nima.", "Subchapter", CellChangeTimes->{{3.7311864437752*^9, 3.7311864588512*^9}, { 3.7311867095411997`*^9, 3.7311867102372*^9}, {3.7755687272194967`*^9, 3.7755687290904927`*^9}, {3.775568798760133*^9, 3.7755688382165813`*^9}},ExpressionUUID->"c474e8af-c93e-43f2-ba82-\ 2d23ffebf826"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvQlYFFfax9vt1ah3OuGSGf3CRI0OQ0L8cExEPwejI0wiMTpqTMQkSoz7 RtTgEtdI3IIL0WjEJaKJ4rjgguICKmLciBui0KIgCggaUTCACtqt1bfX6q2q u/Zu6P/veWaeGak+dZb3/M973jpLq6ETPhpZTyaTTWqk/a+PhkwNmThxyPSP /z/t/wkbP2nMqPEjhn8wfvKIUSMm/nPo/6P9x2na//y/L8hkuv+tAQAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAADeHKC86W1xBuDobUkFUXztb9MhjigsAAHUQKDkQE9WTJzAuAFjg Sk32sImMO4OhWVLUCUt8ZXr8moT2bd26T/C4ORFbTl2oeqbRtUVxcc6Bo9uG T+7W2PCQzDfY991PgscvmrT9+LG71WgmYInWYG5dSU7bNX/tnH8P6NhI5rsk Qe3qPImIuqZMmXv+v/s2Ri4a07prK3nDReefuDpPAAAA2AAlB+JCVBcVXk44 sH50VPhf/7I086mr8wOAe+NKTfawiYw749lDs7owJ3lmzNiO/bRGqEUR2KzX iO4Lt266Vi5FJRCVZTeyb2TuPZXQp6dCxg5FB9+Ja2OVZR7UWG5N9YPsDQt3 XC5SuyhodztqkI2F1GVRfXJnezub4nqWcAEAXIjq6tm1/wn8eNmmu3VWZJlD VB3cOv61hg17hmy9WsHup1ByIB6qB0cHfBr8kgLWJT48RAC4FS7VZM+YyNSG ziKYGRDVeVnHElJ3LIxbMXbGl71G9mod4vNNbMVz4bMsGOrqgpWL+9IFZdr6 zU/LVkk207+aEmHKSYcJwzZsjN55JMHE4cObEtdFrf0ufNqwtt3b1LeOEXVu t/SkUrp8AiqIkux1HTvoGrB7+MVHrsmD+t5tpTI3N7tgf/eAuiuqJgh15Q2l UllU9GvytL/A6wMASIbWtdsy5hX9gO3fbk+Jq7Pjch4Vxf/D6L4ohk4rZLU0 A0oOxON5zS2dI33yeMwP/RrBusSEjwgAt8KlmuwRE5la0VmEMoOn91P6fRTa xLf2RPyIkgVj/i7XZ9Sv6aCZQ2Pifvxx6sqv24W0kpsK0LzptyeLJIq73Dsf 3cT42kG7lI7yXXEve+P27zoEm8NaPl7D4pP1m9GAsBDVl36d+fPeKodBTqIk e/Vbfoam8PsyqsDVrgcZe3fvDigQ5vg2vD4AAFsYibzl81VJcQNfNDh2jcJ/ xsir0TxQrnjN5I30GZb1mFMiUHIgHrAusRFEBIBb4dJeU5cnMkw7C1vnRBwE MgP17evbuvjXgjZVle/v4i3z8RqyKq7A8pwlQnX3v6uNvp/W+xsw9qo0S0EY R4eMqB7mRc/q0sAcyJp5NA8LiISDKDuQMC/4I91KrVFRt+nt2Bwaat5k9Lr4 khoJ80hDXRZVe+D1AQC4wFTkLX9ChoZ8P+q+8UIeVu3qIe6und+9sUzm3+Lb Y1z9ECg5EA9Yl+gIIQLArUB0SCycdhYOzoloCGcGZUsneLt/mxYen+Fd74uE 81SnxBDla2cH1jNEXV77+bokYTu20SGNLpBVEvO1MZ9agt7ZX+LOG/lqF+oz Yb5OpckUGpK3HzP04PV7bjIg1mlRtQNeHwCAC4xE3gJTaMi/2VebEu5CbKxR 38vPr+RRKVByIB6wLkngKwLArUB0SEwcdha2zomYCGcG5D1cri8UPc9Tf/Lx 6X3yD5o/V+au8ZW2U3CIDml5+iCtVwdTeEgWFJPw2E0iFLUec9/svDqFcuuA MTTU1m/e/rRyldT5c0CdF1Ur4PUBALjgXOQtMISG5F0nRZ7ABbtiACUH4gHr AoAtiA65DFbOiciIEB1iEeWQGqIkalCDaQ4OzTY1jY/PT1clMUxu0SFtSdK3 hjU0hYcCgw/dFy+LHsXzq2NDHTQHUVaUNCAwcFbUpftu52l4lqjC6wMAcMGJ yFtClBUeXRIVdzyjGutzRQJKDsQD1gUAWxAdchksnBPR8bDoUHVxTomDBZBE zak+LXVl6Bl+8aEkOeIaHdI8uZsY5G0KDzWYdaJMtCx6FqQ0ubEZU+NZogqv DwDAidor8nUQKDkQD1gXAGxBdMh1uJFz4lnRIWfcuxTTTHcjycikbHe7s8wO Ij+yjyk65GwRWk1lSY5Sqcwpq2ZZLM4/tEddc//suR0LY6+Yw25EdV72yfjd a+ZErUuMP5mtrGKyUUtdXbxzZ0zYuLAWgbrr2xQNg/q2G7p4zmmHy/7VpSVZ 8Qt/OG9xFZ3+2r78skqbXzHsm/oEN359OMPJJ2V1TemRI6uHTBzQunub+jJF YLNeI3t/v3PzjSr7zBLVBfm/xc74+WIpfXKOnmEkqpxqz4yA9sCc6gfXNu+I CRvxQUDrfw54/5vY6NSc/Gr2wqW/MZOixTmhb4hVc3Zfq7BI//crKXsT9u7N LCimXmlQU3XnzNm9CTvOXlOW1TDLBZ/2Yt5Y7mIVRPXlM/GDxoe18PIKDVqQ lm119m9NVf7B5M3zoqLiVp2xzZi2Oa6f/3lLTFRUVEz0rnMZlVJu+dTfnrz3 bHpBodKCIp0xZCjN7fzkQU7S3sx88oGbNy9k7k1JL2ftANXOWuIE6z7LzBSZ OmDc+oX9SKcda3Kv/rY7IeFwypVbNOLAGr7jhVBZZToUavgpuTRKyAShPBke 2WPuzzCDty0JYvM8hyFKaKyLqCi9tDd1x0KtTsYeunjG+XDMNW+sWopds4pR XTYwtkwnIiClJIrtlUnmLEnQvhp39K5ZR4dY6aewpqiuKbt0OW0Hu9867izM nBMhRn9LBDIDOupAdKh85dTX5fKQ+etKJQtZco8OaWri57c0RYd8pttvlyNq crOSZywa07prKzkZRpK3+7Dj2O+jjuYVU53LbfyhdvaxdezsL1rqRcmEb0jr kXPGxp3IYDiv1aHSTlWOJ8VsWBz2Vd+meuvwbZ1wS/+nqtspH/eyyJgORaeA OTv20B77SajLU/dHt+2gkFHxdsCaS6WWWVPlZ6du2vfLpO+/7NBTdwI8qTaE +u7uLTP8DaWTvx+XZgysqWvuHjqytH2gIb3gr7+JGfZ5mI7w8H69v9qX8fQO TYLUuVXdTUyY8w/q3CpCe5/UrfYiytNPpMRuiRk6Y6SpmezMgMkzOpyIKsva s/ylYPbAFu34uHnj+Nd87bIrb/fxFz29DP/bsXDpesG+r6wyr835mCUcBlmi KuO31Ljdq8bMsW2IqpLUQV+0rW9ROaGB0YcvmAcLQl28dtmnL1vUn3+zcesd XnXHsb1YNpb7WEXV7eMR499pYJFW5/eP6VdEqguv7o+Y1tPL4j0+XsPi9VeK 6zyoxMXvfdTGovJ1x8VPmJojzeJPLU/vp3zct2Mj66rzaxLat3Xrb2PvkVH7 8uyfOn8U2sRszIrAZj3HRF5mdQVw7a0lFrDts2xM0ZnIG59l2y/oRzri9tWt PaxGOifDnMOaEWC8ECKrtGMrHXyUXBoldIywnow+e2zdM9b+jBN425KANs99 GHKG3QSHKCtKHTe5W2Pr9urgN3MbTfbY541VS3FpVvGqS586w47jRASkkkTp vDLJnCVx29eEe3nXZphFh9jop/CmaPhCN9HK3dKm2id4RWp6FZX+MhoxnTgn V8qEmy1avJS/GTjHFB16Yd5vVQ4eI0qy47q80/C1Zl9tS6GsRldRfWp3hLc8 ZO5KSW8n5xEdep66/l1S+mwuv3tYmj55SrfG8vbDBm4/Z/gyogsknl22duQr env28frsh9iCR3Y9mFCVLP+mSwN510lfHb5i+ARGVBcVZm3cPusNP4oXMS6d qf/oeqX5Ongq/IZ8foKiDZ4XzBvTtr68x8KVeX/oDVUXtr2S9k20Wd67h52p sHh57PTWra2mY/r+SJRvmNfFYnplqPaq1MTZNJEcPfWnHK3QJ9it29/MckQn X8Tv+bv79GjawOuz6KhT14v045EhkBs/w1CNfYZl6WaFzy5Hvt+6da+ezczq amcGTJ7R4VBUWdeeqSSC2gNzjLG11o16Bq84lHKrSp/nmqpbx37bNX5mb6t2 ohUunR84dlynFxr2mD0tzZB5dU1p8oG5/vqct/Wbb7PuwgmGhugf/JL59dqG IMqz13WkshxFo0HbTusqTFV1efzgv8vtn3CgNpzai3VjuY1VPMjf1LFpt8nD tx09f2FD3DDDkOT98tKTN07PnttXoRv0R0+dPDF0eBAZhPH2Grti44LA9vK/ N/lgxPuRE2dGdraMfmg77B02OeCLVtOWv2na6tu8xdocmlFE9fDsgBBd9sOH X2brQNX+WnIK6z7LxhQZiLyhNtj3C13or7WVOOhHOtWlX+f7U4503DwNIcYL IbLKfCjkreTSKKEzhPRkOLpnrPwZBvC2JcFsnuswxASr6JDaYXtRZo9L3li1 FPtmFbO62HQcJyIgqSRK4JVJ5iyJ2b6mLLmfd23GeXSIrX4Kaoragid/Puh/ G3oNWbky865urRRRcS9zpenVMnnXURHjgnu1JpkcXfjU+YjJwDkpF3C2qC+J AGbAEFN0yGE6zx+f+jDA+EJv74XnHvB5I0+IR5WPDNP2vJy0WTrvOuS7daVP pc0Ej+iQJmPnQPJgakuFqbqd0itE27b+U6KL7SxcfeNirGl89BsVafPt+PHO H4K1Q9JHw7Ie2f6QKL26JuBF+bjoUuYxPXX1/WtKpbIkb/n8LvWNvTL+xLG5 Aa98/N3so0ap1BCVZbmJB358J5i0R0XY5xl/2CiL/sBwKlVUpe8a9pLhZ3+a m15u9+eKtP8EmPrj9vIT+ruJLTBUe43ybIKO9HVBzQ3/3nPJ0hMnEkzsvPbg OVWCFPJl9EC8vSYnU8ljVcn2jj62I0LN7e2m3kxrBs6ecSiqHGtPYHtgiGng 9hsRcdnWDHSob2ZveS/EZC3UgmNUfkWj8J+TbaPQhee+e03/65YtVlxiP8pW 5K8PML48bEVi7FuN/2/8mMTz+kFKNz7un9XKFCXwe31DZkHKxx80Cg768eDe a/e1QwlRk5ud+GFv4xOKxlNSC6newaW92DeW21iF1oMquW9atvE04/NOxgrU jvLRsy2/BKkykieaBFP3pebQobvm5cSmm8f1SH/jw+NtSzrWM2Sb/lIDQ+la vrb2SjXrF9SJWnIAhz7LyhQZizzXsUb7wLFN/QyDsu+bq3b/d2SzpqPWLDt7 Q/+BoKbq5u69c0l3lLbvM0CI8UKArDobCoVQcmmU0BkCejI83DN9sRn5Myzg bUu8DYl7d3OORXRo4aHMVe28uk4eu/uCcVOt+k6BeUapQ95rTbL19hQeeWPV UiweFrG6uHQcZyIgkSSK7pVJ5iyJ2R00bu9dO40O8dBPAUzx3rW4dtpn6vX/ +ajNPjb1+aQI8iRgEpt06DsLixmoEKO/IGbAnEdx3zR3mo6qfH8XsgbrjU/h KgVCUBH7tY99Y3bwjYiZc+6uVOuHBIoOmXeWPa+5PFIf9mvbPrGYehskkZX8 pbER5O8t3V5J9m515eF3fWh7pa6JZyoWcToojCym4oWX/6/N8t/yKMImVsF8 +Xsr9jy2HaYb/WfjaYoiEaqs4d0MPwtdf8z+AVJtmg+OjHjj9Xn7Ukq1Hbv6 jyvzZ3VpYGOu5vsEHTSHI/mqLNoWpFMY/1mxZdT+J1E0rd8L8+Nr7J0QJ+91 8oyz6BD72hPPHhxAqAqiRuvMwD9gcz59N3yQu+Z1euEqzV7hp+sE3mOiiqmO gLgbPdrQA+gecIi5ISjHR8thoqVvw1eG2slv1e3dXf2NCYyOKqHIAPv24tJY bmoVpCWHbU63S4conPaZgq4XWGTbBUcall9b84bCgRDpKE6PauJAHFhQW2uJ Dg59lqMpOhVb7mON1SKTDoEbsm23ABDFmUt8FQ77PhMEGC8EyaqjQUcQJZdI CRnD05Ph456ZYOPPMIG3LfE1JB7dzSnm6JC8VZtmXyedtt+woMo8MvVV0zQo IHBPidVOVD55Y9VSjB8Wrbq4dhwn03nJJVEcr0wyZ0nM7lALvGuH5sRTP3ma Ivn2tzsd+J3i5NjiqCHGN4eNvUpTu85WRgkxsjt9RpihmQWmUjvZqFi57Yce +j2/dDErqVBnDH6167jwH3fFpR49fHjTwbUDx5k3I/NYF8cOgaJD5Cdg4vzO z/WloDqJiMTCjFu2/CXXZKRlmTF/1f92ytIyKsN9lr5n0J50LtMaczHrfZFw nvbIo5rS/SFGfZYFBh+6b53pypISmmPHnu354S29M9Y8Ks5+txzZH2XeXjN/ tTzxT3V92bDEfEsJ4Bsd0h9d5SS2Xxn/XWCczSd7saNDnGpPPHugh7iWOull Ry814ujANNK86TfOZO0bbujsvq9vvsF2mDU3BPU0//njM58EGU2uU8hhqj3i 5nUmdnZuLAPb9uLUWO5pFaYT1aib79nB1e/Uo+0F5Glsroh7WOgqza2Xd6NH 1XuV08IhO2ptLVHCqc9yNEXnYst5rLGIHtB+B3+0ad7/GkIHnXuf5LhBQNDo EI+sOhh0hFByfTqSKCFT+HkyvNwzE2z8GSYIFx3iakjcu5tTzNYlC1oUbx9q M75/4wLjcCyTD95pdSUNn7yxainmD4tVXVw7DtPokFSSKJJXJpmzJF53qA3e tcMxhad+8jTFm8en/1n/p4GR+ZQn5F3YFW7Y1O/fbk8J69LpkSI6JNTQzBxm 0SGNfifXpb2/ppe7+sIU1ZMntqfJXT27xN9i/eE1AXx4J/CIDpFCYe6nFtsN HKdGXE4a8Sfje82bCx4oV7ym/6fmTafvSROygchikmc50qA6sDrEeCyGkwOs LCHObO33gv5HVOcJmIdd+oiuCX7RIXI5X9ug/XcZ5p35e3lFhxxAW3vi2QM9 pu8Otk6aLQ6EqzJ3jaGeHGzwMfe7BrNOlLHMo/PGMq9LpDvgIv/opJcY9Qh7 qNtL6MZyoVU42aRsiopTVj6ZbUa9gFBXZlxImjave9exGXYLvzlADrvU+6Yf FcX/Q/7ihOi7QkRkJKoldc3dk2f2Lo2JWrF0X4Zo15xx67McTZGRyNPheKxh NNLx6PsmBI0O8ciqg0FHACV3hjRKaAUfT4ane2aCjT/DBOGiQyLYvJPu5hSG 1lWmXNHKWKktF8QzPLHcad5YtZQgzcqrurh2HKbRIVdLonhemWTOEs/uUBu8 a3pz4q+f/EyR/OJGW/lk+u4dHZJgaLaBcXTIrVGd2hpuWkEU8F38Yw5fK1jB Izpk1jq/gIRCfUbJnuu0FSy3+A2ZVmRQLcvoun6T3ej5Y2N3xJ1WZpbzvJiK sU9FBtsdV4i6tPhSYvKWqNh5H0b087U4td5hdIjBhJFfdOhqSoRhWWJw2Bl2 lwFJGh1iWnvi2QNtzowLcZ0bsAPhItfUtfRdc57mkk3zmkkOM0TnjUVe4Oh8 HGHghzBqL96N5T5WwSfuQf7V4X2ChqDQ4jF+pr3Z3cMvChEdsqwc/2/jKq0/ b6kOrApuwOPEAGtEryXVw7zVa8dZX2bh+3GflFsibLvm1mc5miK76BCrsYZR v2bT93kUQYjokLNnaAcdQZTcvkiSKKEj+HgyPN0zE5w/A9EgSXSIcb2x625O YWhdxJOz/ds6fRHbvLFqKW7NKmR1ce04AkSHJJFEAb0yyZwlIdu3dnjX9ObE Xz/5maLZfujit+RvjbcOsSmd6SWiR4fEGZodUzeiQxZV56iJBYNzdMhiOFMM nVZoOEybDHs6b4VnF8PfNr7YIpRBe6eDz0vvjei+cOuma+WcGpe5+JsNkmrh YvUfV1atm/R/PQIaNAwaGDJn7YKdx1Ku3CqvOWeSLJdGh8yxZfeMDrGvPbHs gQ7yUwsP4TJrOAN8g99Yfo7tbF0qP4Rle3FsLPezCrHjHs/Sk77U3RM6bWrX fsbjQYS7ek91aN1/DF/3bDanGxxFqtMpuSFqLRG/5+/q0aLFuOHbjiZfKbh5 OSFlzfvGi18VnwzLYrqokymc+ywnU2QWHeI01rjPVMjF0SEhlNyMNErIBD6e DG/3zEDdjA5x625OYTzBIWtVYX/wMte8iRgdEqe6uHUcD4oOSeYsidG+tcO7 pjcn/vrJzxTNG8dobhUxXSNeb/CuLLrYn+ujQ8IOzcwwlpp773YTiPzIPhR2 JRKco0P3LsU0M/yu3qh9uUZTNJ9E5Lw1zQtZrYtJlJecnhtj/qpujaJzYNxl qi27DIvJ3Kdq/trP1y0/vRNVR3ZOaeWru21w+rTTxda3QWe4RXTIrJxB7x9j J4piR4e4154o9kCHuTs421fIZPxq3mxBUgIVO85ey87NzSmj2dztDAn8EI7t xbKx3NQqnFxwwH9VDMnTsv1dfRw1Eweqb29rb/huZaHMxk1njtwGtohYS4Sq YPnI1ReKrI5VIQ/tVCgWnRd4XOTTZ9mbotP+y71fuM9UyMXRISGUXI80SsgY Pp6MEO6Zpg5Gh3h0N6ewjw69vXyvRXCIV97EiQ6JWV2cOo5nRIckc5ZEa9/a 4V3TmxN//eRpimbXTuY3IarAZvlQ1e39oR10rTZ3ZQn98mrXR4cEG5pZUFei QxZ2ZbemV3i4RofM56dZXn1IngbGIDUnxSTUVUpl6pLV8z78qm9Tq2ix4uNh WWwnB8zFn1w9aL14T/Xr1nD9FZ+U9xi6SXTIvHbIwZ5c7u/lHh3iU3tGhLUH OixW43+yLYPblljz+NXSb3OBGDvgRI8O8W0vZo3ltlbhZBmqgOcOkU0pYHSI PJreclWn7qTEwfWCqA/D5IaEtWTkaeLyIPqTrvkgQJ9lYYpO+i+vfuE2UyEX R4eEUHKNVErIAj6ejEDuWR2LDgkwDDmA6QSH/ChsdVIKz7yJER0St7pI2HQc T4gOSeYsidi+tcO7pjcn/vrJ2xQt7jeUtx8zNNFwEqO6piz9zC/vhsj/2mT0 ungHoSFHpTMifnRIoKGZFe4eHSJUpSlrjhU5PWiaHCbkH1LeKigs3KJDD/I3 tNHHMBWNxyebP09btnvbJQm2h25bYV4iZX/sof3D1XlXj4yf8E4D/Q+8/7xS yTJqxlj8TeeJWX9kf1p+KFT/2drnlZXZVC3oHtEh87lDMvmnWy+wkU4xo0P8 ao8K3vZAx9N7iR2NNejt+PDehzc2+FMLF3FiUy9DxjidiccAkaNDArcXTWO5 sVU4jnuQkQ3Kyidr3oXRIc3t898ZdJiMElfd2PCmvNPyvU+F86ckrCUTBpNQ vLjs0lPu+aZC6D7r2BQd9l+e/cJtpkIujg4JoeQSKSEr+HgyArlndSo6JPww ZA3DCQ55oERw75N/CJY34aNDYlcXNU46Tt2PDknmLInavrXDu2b0xYGjfgph iqprF+IHTezpZb0QzL/ZyO/n2C70YlU6I+JHhwQZmlni7tEhDVE4rffLixKc HDRNDhNB7+wvET04xCU6pHp4efQnhvVttuFly0OTaK5Utn3S++VlmaaDMFR/ pH89YO8NGpeJPGCNw+yAqfhr2+gzneFaLojSUnh8hqHAdHv93CQ6pLuTyCQa fcIvVjp5GeV7+2xKp7bQ8mtr3lA4yBttrjjXnnj2QMvzq2NDTXrbJqGI/tJK 09WWFMJl3nQpC5gbV8HnbnVqRI4OcWsvto3lxlbhOO5B1q37RocIVU5EH0Nf DYrRjThPE5e91ZjL7a4OkLCWjBg9QxtxFgRufZajKTrsv/zGGumnQpzHC3Gj Q4IouTRKyAo+ngxP98yEeNEhjrbEx5B4djenMIwOGe+qlvdZn6Yiq4B33oSP DolaXVw7Tt2PDknmLInbHWqFd83kpgOu+imUKaoe5i2d/3++nX5K2b5nz46z uXnM73IVNjrESbGFMAN2EEXTPhEiHREh0rf09g7YnO9o4ZexQry9phzOs692 dVFO0jlBb/VlGx1SVV2eNKqt/qZURc8+J+/Z5tG840zReEpqIW06xelR+vf6 T11qDh7qRlJHzWc07MDgQ/ed59QKZuJP5J2Y0VR3+eO3J4uoN9tSvvph6dGP uynoZV+66JDFphKZrF7/n48y3nr7PGtYZ8PPfKbHVtj3V0JVHP2VKWWW0SHO tcfPHoiK0uz4tXOPZavYrJd4/uumXi8Yi9lhXlw55ehTU3qoewfjQ/aCQ6iy hncz/rFli5gLwm3mMSJydIhbe7FtLBdZBRNqfXTIcmDVjr8FD099+Hr9yUvL BH2F9NEh/UWozo9O4tLxufVZjqbosP/yG2ukmgoJMF6IHB0SQsmlUUJW8PNk eLlnNvkXLDrE25b4GBLP7uYUJtEhQpU36TPtpNxvVGSO5ZSTd96Ejw6JWl1c O07djw5J5iyJ3B1qg3ftyJz46qcga4eunvupS1d515D9RVwubxUiOsRXsQUw A5aYSl1vfIq51YjbV36at77YLmFuM0e+6HeC+42IuPwHzVsNB28qGoX/nFxl V2PVhzYO1G8IdZQCW9hEh9SF13b2MV0c80H3Q5Q3C1ffSXzHeEI+ZfhIB6Eu mDHYW5fIB2m/W9iWTsrot0SpKtL+EyCTyd9bscfJ+it7yGIqGvVbtq6EytCM Z/v7t5i697RtUMV8WH29LxLOW56Vqr6ZveW94HqvtmpBf/cQt+hQwHfxdMV0 lGBl0bYg0w0FzZtG7kyzNyRKSqNHGWXfz29FprXkqqsLYmb9s3Erf29vB6bC 4Kh/lrXH1R6eXz624N8DOuqP9++2JoVdHyfX1uqtJTxuT5lNMLbqzokhYd4D 585u25xOuIis5C9NF1oquodszaEewojy4tSNSaWsg70iR4e4tRfbxpLcKpgj SNzDvHhP9TBv5fe9X6WcDIoVHTKfdy2TBQ2P6KfwXnjugaAvkLKW9FTkrw+Q yx1eWMan43PpsxxN0aHI8xtrpJoKCTBeiB0dEkDJpVFCVvD0ZPi4ZyaEjg7x tiU+hsSzuznF4ua4UQnnqimqk6jas6pfI3nXKdNsvXreeRM+OiRqdXHtOHU/ OiSZsyR2d6gF3rVDc+Kpn/xNsTA96hX9Xz8be5XThebMo0MOZqB8FVsIM2AF WWrvEZPyHhLaNnpwZO+svzXqumx7pcUEmdfMkSfPHx37QFdY349777xSbHUh i4aovnRaFxJs4zf/yAWKQURVvr+LqUtYR8D4YNqc7kjTNOqa+2czdo+dZtzq qGjYI2rOFfoNjkTOr9NeNdnO8OG//W4TRCKqkuIGvkgVXzL0i7cDbG+r0RhM 7psuDbhGxiyCYLpcDegTf+LYXdJzqqm6sWXLlFaNOk6MPEG5c/PJ3cQgU+U3 bxq5eVPWzcKC0xeSvv4urIn34JWxeRd20K+3JFe1yVouiK9xlndzv2veZPTq pYd/TUucvWzoW90P3TXfPuQ4QSLneNTfyEPn5O1Hh289mVZUpe9chLoyN+/s D2vGhnxu3t5u+JV5FZ9uE+u4FVGJRxMSEk7sW7x+9j/ay98KWP7b7ZP9jMlS HSZGnyvOtcfVHswnwjlcuEgHkZ8e1Yzc1StvPzRsU1rylcKbNy9cOb78Z62d BH0TnVdRc6pPS/0DlAfvG43ciI/XZ9Gzky+m3zG0gq5DXdg9ISrs5fqfxp9i PXwR5KtpT3WriZ9vfILuZHuyR9gf7setvdg2luRWwRjyywj1kFS2dIIh35TD q+WNq769gyZOnznar52+++RRjTWiRYcsv3NpNTs88rrAK2qlrCUd5SunNG7s tybb0aYyfh2ffZ/laoqORJ7XWKOtgt++/TNNvyYRIjrEe7wQJKvOhkKeSi6N ErKCpyfDxz0zPcDKn2ECX1viY0g8u5tTyLPBdSrcMHTK8G0W7aW+U3h6xox/ /bnF1B3JtvMjAfLGqqWYPSxqdXHsOM5yLo0kiuqVSeYsid0d3N+7dj694qGf vE3RynEKaT1yehgFn4d/t37pPmU+lSvlvJszmIEKMPoLYQYseLJ9cRvTWiZF YLPuzXT39/mNmZZnHWEzl53TzJEf5qbRVki7T7pOWBS5as2aVZExEzv3fbOh 1sijztkam4nnj099GGAqXuOZx38XIDdlhUn/CSFbSFtpPcODx00ljezLL3uN 7NW6ryGSpn+iYeiEzzdfoHXgSdQ3Mn95r4dhlZHOeFZGH7yYXlB4K+fA0W1D x3Vs5DVEqzOVdqmQhyrrXhT+46641KN79mxPS4xaNTWgvfx/vIasiit4JIBP ZW6CHh06v9G9TX2ZolvQyuMZVF92jJAn+Vv+vP2wgYk5uiif+bKwoKBNGRk3 b+quU6wuzlcqb+XsO7LY36S3/+q0LnVPpvaflbT3LRrXhFvSvOmMw9kqgirB 4OCNp49dL1Iq79yzFH/i9tWtPYyrvChQNBq07bStbD6vyZk0+O+UP3k7YM2l UsIiquw9MPxgprZBaYpplysOtcfdHiyGaf9ZsWWcNiarsk4tbd+B4gJQMtBt /iYo6zB12ukcbbaVt6uspslVJw5Gt6VKxJBSp4A5iVQ+IR2EuvJGbm52Qdbm LZEmYzY1hPHV6nu3lcqi62lnfwkxrcn081ucolVdpbKw2Mq8zT2iXv/lKzPy rO4AZd9eXBpLUqtggcnOff6yMpviYBBjCMLnpbDNx+yNS39xvFWR/Ab2Ty6g C6aLGB3SlClXtDI2seXV9gIhZS1p1OeTxv7Za3Kyw7W+QnR8dn2WqynSi7zu r1z6hbr6/jWtZ5VzeuqUQGNI0NSvb+TbbkW37/s24sAEruOFEFllMRTyVHJp lJAFvD0ZDUf3jKM/wwhutvRIGJvnOAwxRP9eRXDfvk0sbVDbXv/u9reu2ibw G/L50UJa3eOUN1YtxbpZRawudh3HmQg8k0QSpfLKJHOWxO0Ohle4oXft1Jws l1Gx1U/hRmfroIpDFA17RMeaFpeymTw6dE6McB79hTYDppj2+pmgWqtJPDnb v63hz0GL4itFONLKMURlWe6eA+si5o8MCgtt4qsfJt7sPSZs8X/jLt61D5dY //bmxXXde3q94TtxvZNL6xiRd3x6U+dm5hvs+26voJFzx8YdSMhylkPr7KrL jx1ZPSTyszb6+JLPS8EfBQyIHLhwe/y1cpr2rX5w7b+7fhg69YvA/sEvGa/t M9RPzI74bFZvt8Eck/ddnqzN1Vf9/6F/hV+T0EHB09atoghV2ZWn+vKZ+EGR hrsgfUMDv9ufVm7q15YRXT0NF52vIXuHqSa79NRHLE0P0Bk5UX0+LfbD0R8Y zOPDoAVpho6ptkmQDIHqsJ9dauv/1IktY6cPaK1zGg1N2S+iz7yfYo7kFtt+ RzAWo7o4Yfvcd78wVb6u1XpOjzhusDaLo+YVgf/6l+4ZimLS5Ipt7ekrh5s9 kF/r/J2c8eUE7ds37/y+z5Ceei/Oui2shIuEYvWdtkp37owJi+jnq09E0TCo b7vBURFbTpwuZ/tVg+qNNq82r50woDXvf3c1jmI2xwyaxyB5u9BQvYVY2iTb 9lJxaiwJrYIFz4vXTx33X9qkqpJ+0v6VVsQIVcnPK0f+1Vfb1u8M7x17+JjD hhYzOqR5fj3yQ10FWd6DI1ziktUSUZK9qp33p1S7ra0QquMz77PcTZFO5E1/ Zdcv1DRBAz32nyDt+z7dGaROK4r1eCFIVlkOhbyUXBolZIwAnoyhWGzdM9s6 Z+zPMIODLR1NF8jmOQ1DDCk4NSV00IkSFVFecjZ2w4IeRiPUOmPvD+39/b4U ZxNYDnlj1VIcmlW06mLXcZyJwANJJFE6r0wyZ0nM7kDibt41h+kVc/0UdHQm Sgt+nfnN+y/QJGhVhkYjk7IJ1qVz7JxYVD7r0d+uZgQxA0YQVQe3THq9nVze MGjQ+8sPUTmcZgdS+oVDwHUIsZbesyDUlRw+KLsBqgOrQ3SjqvX1HwC4I6JG h4yXfEm9gVpYdGfx/anDvHWlzuoHHd+V1NrxopbhCZ4MbAkAAOxRVxdv3jj+ tUYdvxpz4HLGHauFNER1cbF+/dL4dxqYgilhY6/yX0nilDqh2M9T178LB9ID 8QSfCmjMd3QqHJ5eC4B7IG506PG2Rf6K2vwdpOp2Sq9XXpm90vlaWXR84AnA kwEAAM+DyD0bG6Lb0dZh1lKHHhFRvna2cQtb26D9dyXLYG0GDqTHAp/KMzCe lubn5PRaANwCcumsGNEh3VF1Po1nx1XW0uAQ89AQOj7wEODJAACAp0GePMxk 39MD5YrXMEywwHgSZssWKy7BgfQw4FN5AobwL+WZ2wC4IaJGh3KSI7xeXpb5 SOh0pYD4PX/XBwHe0x1/IzOBjg88BHgyAADgaZRlxvxVJ/zek5Y6v3GDdCw7 9z6JaIdTnldfGPSeXA4H0iOBT+UBqNI2hjWS+U+JLpZgpy0A/BExOkQURw2p P3RaIcV9Yu4OUZK9+i0/uqMWDXRasfepaW84Oj7wFODJAACAp5Gxc2BDvfAv SXDuKj68scGfcSjJ41Gd2hreGA6kpwKfqu5DlCwf8Ul8QjGv28wBkJCnpbtD X/ti+tAfUtP53Ahtj/5a0voTUgpqX2coOje/hbPLNL0t10Sh4wOPAZ4MAAB4 GldTIvRuUfOoOKeeDnE5acSfZDJF4ymphZJkrlYDB9KzgU8FAPAQnj442S9E /n7YGSwqBqAuAU8GAAA8jUdF8f/Qh4d6hl986PBJQpUT0Uf7qPeQyLzHEuUO gNoKfCoAQJ2FKFzYY9jGhOJHGnXh1cT+/f9WD5+NAKhzwJMBAACPg7gbE/m6 XLciaNy+LPor14mqpLiBL8pkQZ0SC7FRCgBHqO/dK1izuEt9w56E+qO2pt4q r8QaMgBAHYH8rmREHjJ/Xangx1wDAFwHPBkAAPBQdLe4huj8vLdbLz6hpAgQ qasLVi7uq5ApuodszSnF0AAALaaDvKhouOj8E1fnDwAA+EKkbw0jhU7RqN+y dSXQNgDqDPBkAADAw3lYmj55SrfGWjevYeiU4duOJl8pVCqVt64fO3tgweqp Ae3l/+P12dKlefhoAIBjaipLcpTKwuLq5xb/SKgrb2g7VE6ZsOfAAgCAS1BX 30pJ3jwvKmbL+guFpWoIGwB1CXgyAAAAtO5eUV5q9I9TQwb0bBaoXzIub9ej 9YCJAxduj79Wji8FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAOIcoLzpbXEG4Ohuio3rypO4XkgJPaV/gAXiQMUOvAAAAAAAAAKJDVBff upKctmv+2jn/HtCxkcx3SYLa1XkSB6K6qPBywoH1o6PC//qXpZlPXZ0fafCc 9gV1Ho8yZuhVnW9iAAAAAAAA3IjbUYNk1tRBb1z14OiAT4NfUliUsuGi809c nS0pcGX7Euritcs+fble4NDwo8U10rwT1GE8Qqw00CvoFQAAAAAAAOKgqrqy 8LvwZk2HJJxW2f1Rfe+2Upmbm12wv3tAnZ1wPa+5dSQhIeHk8Zgf+jXyrNmW K9u3OD2qiXGK5/9tXOVzad4Kajn0euURYqWBXkGvAAAAAAAAEAFV1eXxg/8u 13m8inHRpc9oHyQ/2tbNCZeBJ3e2t/Os2RaJC9o3/+ikl4yzLZ/psRWYbQGn MNMrjxArDfQKegUAAAAAAIBAWEy1fD/qvvVKqYPjPT1iwoXZlpTt+7w6Z+qo tvVlis6Bm3IqpHknqMUw1iuPECsN9Ap6BQAAAAAAgBCQU63mTUavW1/wyMnF Lx4x4cJsS+r2JaqLr96vwaVDwBls9MojxEoDvYJeAQAAAAAAwJvqBxcitFMt efsxQw9ev8fE2fWICRdmW3W7fUEthaVeeYoxQ6/qfBMDAAAAAAAgKlW3U3oF 1wsKWHggrdz+HGoaPMIbx2yrbrcvqI2w1ytPMWboVZ1vYgAAAAAAAESEqDqW OGd57MX77GYTHuGNY7ZVt9sX1D646JWnGDP0qs43MQAAAABcBlF9+Uz8oPFh Lby8QoMWpGWrLNev11TlH0zePC8qKm7VmeIKwuaHBdfP/7wlJioqKiZ617mM SsbrMUShprIkR6lU5pRVs9gdr78oVplfVsl7R722NvJ/WzVn9zXzsY3qe79f SdmbsHdvZkFxNeVNHzVVd86c3Zuw4+w1ZZnzTf36V8TO+PliKb9nyOzRl/3e zWMJlBzYkpX/3NFje7anZzykKqxwVW2CU4uz/RVrb5xbrkRKluGvaGZbREXp pb2pOxZqu3/soYtnnJqourQkK37hD+eLzM8R6sobzhtdeNtgnKzgsy2GZdHX 1cavD2c4vQJIsMqpqbxx32Ei6keVrI4W0d8wvvdsekGh0oIinehlKM0pPXmQ k7Q3M5984ObNC5l7U9LLmVa3R49QrH7lEWKlcbFeuVCsNB6jV7pECmm8JmtU T57gOCQAAABAMKpuH48Y/04DmZnO7x8r0/1FXXh1f8S0nl4K8598vIbFJ1c9 0/6tunhn4uL3PmpT3+KHMnn7CVNzHkpcAN3EYevY2V+0DLTIqMw3pPXIOWPj TmTQuIdETW7Wvq+sfqX9yZglc07bzi+cvL0q47fUuN2rxswZ2bprK/2dMoN2 KXV/qSpJHfRFW4v68Q0NjD58weztEOritcs+fdki1/7Nxq2PL6mxfUV5+omU 2C0xQ2fYvoLdMyzLfvPsigHfTmjdwZw/RcPQsb0jIsK+TEp/ZvXYzMjOJksw PBOX8OAZy9exqXPOLZ48Y9EYU/0YLLbdhx3Hfh91NK9YTZ8VZt449/TdorB2 sy2irCh13ORujS07uEzRwW/mtj13rb/Vq/KzUzft+2XS91926GkwA2NFEeq7 u7fM8DfkXP5+XJrdLdyC2waXZAWabTF6KW1d8S6FY7RinjhsnL415e2HhR8t tlUZ/QtVBVHDvHr2SblF9VdKnt5P+bhvx0ZWRiLzaxLat3Xrb2Pvke1dnv1T 549Cm/iaDSmwWc8xkZcfM3iFB49QHPTEI8RK4xK9cgux0tR5vSLU5WmHloca eq6TDqtVgANjxzV7K+yM1J0aAAAAqKM8yN/UsWm3ycO3HT1/YUPcMC/9iO79 8tKTN07PnttXofPQRk+dPDF0eBDp/3t7jV2xcUFge/nfm3ww4v3IiRaRAR31 pxy9I13+CVXJ8m+6NJB3nfTV4SvKKt13YaK6qDBr4/ZZb/jpsjMq6radK6Nz I8eO6/RCwx6zp6UZfqWuKU0+MNdf/5O2fvNtvk074tnlyPdbt+4f/JLZHR60 S0mUZ6/r2MHSQzZ5q40GbTuty6bFDcXWyEPmrrQOEBle0atnM7PTZRf5YfIM p7KXX1vzhinJIdOK6L68q8r3d/GWyer1X3ewysKlFrSqDSlyaXHNw9L0yVO6 NdbOiwduP2f4oKxbYXV22dqRr+hL5+P12Q+xdJcBOffG+aXvFoW1mm2piZLs 1W/52VsnpYnei53eurXV3F9fUUT5hnldLCb1NgYpvG1wTZb/bIv5S/V1ZdVP KV8qZOWoqwvWrfziz1Zq5DchqsAmAmQ0Npns7dZL0vPZdcqS7OVvehuTbt5i bQ5NcEn18OyAEO0j3uHDLzOcL3rkCMVHTzxCrDRS65X7iJWmTusV8Xv+3oFW 39S0TsX4lELKh58lr3vP0OvDxl5lHM8GAAAAgCO0Hl3JfeOgTTzN+LyTcUDW umTRsy0/26kykic2MbkHfYJXHDp017z2m6hKihv4ovGvnVen2K0QEIvHO38I 1rpzHw3LemT7J6L06pqAF+Xjokutc6O69Ot8rceiaBT+c3KVTUYLz333mt4J atlixaUKDSsq8tcHGB2osBWJsW81/r/xYxLP691dnZu0f1Yr0+zJ7/UNmQUp H3/QKDjox4N7r+k2ehA1udmJH/Y2PqFoPCWVyh2qub3d5KPRrgty+Ay3spct /crHkGJg8KH7NMWvLtrcRibrHnbG4qdiVDWHFtef7BqifZn/lGj7FRPqGxdj TdMKv1GRlJ8pnXjjvNN3i8JazLYWHspc1c6r6+Sxuy8Yd+Ko7xSY52v6CVev Ncm2mz9UFWn/CTBV1PbyE2ZNsDdIkboht2R5zra4vNSqrmxfKmzlEPknvh0V daqgVE2oHxzZ8/Wrhkas90XCeYtVGUYN9xvYn3pZkTMeb1vSsZ5h7PD56Srd 4gL9ENPytbVXqpmm63kjFE898Qix0kiqV24lVpo6rFeqiqNDu8zbsf1GhUpr G/tDOxje+PbyvZQd9tnB1e8YNIcy8AgAAAAA3pBeR9jmdPsVN4XTPlPYzfJM f1RlDe/Gx2Phgrry8Ls+Dt74KG6mYpH1n0qzV/jpCuE9JqqYahnM3ejRhhAN 3QMOcnMmzPQtkspNUp9PijDFh1r6NnxlaMTlP6y91arbu7v6GxMYHVVC8Xbz K+h3jdE/w7nst89/91dDkvVG7cul/ABIXE4a8ad6g3dlmf8qRlVzaPHnNZdH 9tblo237xGLqIwyIrOQvjU0jf2/p9ko7T9SRNy5E+tRIXFjzbEveqk2zr5NO 2/r5Wuc988jUV00TroDAPSW2tkBWVPPBkRFvvD5vX0qpdkpW/ceV+bO6NLA4 HkSkbsg1WV6zLcFfKqJG6VD9ujXcMAsObJ94y2gkenWSh8yIusJ5i4zFIsPQ 9ceoja84PaqJzH9WbBnX6EzdH6F464lHiJVGQr1yM7HSeIxekcGfT7ZlUKtS xs6BDfVJIzoEAAAAiENN/PyWurGWeu09OVhThiZMv5XQ9y7LjNFHLXymLC2j euWz9D2D9qRb7nMqjhriTV9AHVn7hhsOLvB9ffMNBuchmjGHZainP88fn/kk yOipdgo5XErh75i/v1Ov0uETHeJRdkKVE9HH4GQrhk4rfErx07vRo+r9q/fJ P4R4nQNYt7iGOL/zc/1bfKbHVtC+hMytTNay5S+5tkk78MYFSZ8aiQtrnm3J ghbF08wKicqNC4wmKpMP3pltY8RkRcm8vWb+annQq+r6smGJ+SrrDAjbDbkn y2O2JfhLRdUowxtUBVGjDXtajUql+75fL3jeSrsTz9ila7arnuEXqZad6FTi VTYLh+yo6yOUAHriEWKlkUyv3E6sNJ6jV6bgD623g+gQAAAAIDLqhCX6yALN FbEOB2vizNZ+LzD2WAh1ZcaFpGnzuncdm2G3EJ0pD5QrXtP7Bs2bTt+TVu70 s1Rl7hpD4MTB3od756ON2xMazDpRxiY3zkM3FbFfG7do0Tkz+UcnvWTwo1on 3OLyCtpn+JVdvzTI4EW/vCzTrsEeFcX/o16vDWnmgwVEqmq2LW6xFYW+xvQP kgWk2nhC640LlD41EheW4Q3RZcoVrYy/bbkg3uaYWfNsy8FBECLZBo9kuc+2 BH+puBplglzn0/yV709c3RbU+J9zeIaGdBDXUie9bFAJ74XnHtj+WacS8hcn RN/lMY+TbIQiKkovJx7cPC8qZsv6C4WlHE9pdoVeeYRYaaTSK/cTK43n6BWi QwAAAICr4eN7k3915LEYg0KLx/iZDsfpHn6Rc3TIcjWO7nYS39Hzx8buiDut zCynvByF9CVa+q45T3Pd6oPcNa/LmHitdjgP3Ziql96ZIf0owaNDPMv+/PGp D43HDgR8F//Y+seqA7H/fMl63b5IVc22xUnf1fEMQkOeqq3H7vBtWm9coPTd orAMZ1vEk7P928pozJjRtEUk2+CRLPfZluAvFVejzJiXKVIcg88VC4v1/zau 0nqZgOrAquAGf5qbXs7nDaKPUPpzcQ+Mtb76StGwR3RsicMuRY0r9MojxEoj lV65n1gxyrYI73WBXjmNDhUen+FN3bIAAAAAEASxfe9n6UlfhmmZNrVrP+N1 XfyGddqbSnxeem9E94VbN10rNxfEHJxhgG/wG8vPsZrIuHV0iH/ZVQdWhxhu Enm704HfLXxA3bzA23tRgmXISLyqZtXi5rVYTucgmmcXw982JhVsez0urTcu UPpuUViGsy2L2lDYHTPLZNoikm3wSZbzbEvwl4qsURZU397WXj+zolznwxXV oXX/0a/PoVKJIMoji1kh9ghV9eveSX4txv0YffBiekHOlePLf57SytAgVMca M0B6vfIIsdJIpFduKFZMsi3Ge12gV06jQyZ/yX5VGAAAAAAE4VHcN811g62I X2aNPC3b31W/y4r3Rx+ivOT03BjzYiRrFJ0D4y4bj/gxezLNmy1ISqBix9lr 2bm5OWUcpgG1JTrEuezkdFIm/3TrBfNDN49P9bE9nkLUqmbe4uYvm87nIBa7 DJhHhwRK3y0Ky362ZX+VDLvokKC2wSdZAWZbAr1UZI2yhCiJGmwwKm6nW1Nj VgmrE+z1m86sT63nhLgjVGXhzq9mnL9vlbL5NoFuYWcqueRZYr3yCLHSSKRX bihWTLItxntdoFeMo0PSnSQGAAAAeBgmB0D8c4fIIIZQS4IJdZVSmbpk9bwP v+rb1OpzluLjYVl6l9LsybT021wg+KemWhId4lH28pVTXzes+DKvASCKoz5X zLA9hVvkqja82XmLm8/DZLCm3TwHYb6zTKD03aKwTGdbRH5kH/1jFIdIsIsO CWobfJIVYLYl0Eul6Dh6VOk7BrZ4a+hb+jujvb3nnP5dqJeRKmFxgr1WJQbX C6I+ip8VEo5Q5M9MJ+RQazLzdCTSK48QK41EeuWGYqXxHL1CdAgAAABwNY59 b9K7physST/BNdEh65xW5109Mn7COw30GfL+80qlzqckTmzqZfgXzqe5OsKt o0PClJ282l5hOj+k/NrqN1+OttuZInJV20Pd4uRNOlraLkl44sh7JScRbE6l Fih9lohTWIazLdPV1bJgyyvqjDCZtohkG3yS5TzbEvyl0nQcojgzxu9P4w+W PDPdG6X4ZFhWlUCpkypBHlRbdWPDm/JOy/c+5T19lHCEsnspnyPy7HIqnl55 hFhpJNIrNxQrjcfoFXkFYZ9N6dQGgugQAAAAIDKOfW/Su3aX6JDqj/SvB+y9 QfNpkzwnU/Hiskv6b9j3LsU0M3qkAXPjKvh5vXZIGh2i9ZfI24hssiFM2Z9f j/zQkLrh5uJHm+a8OJJqW4pIVc22xcmpgYz2lm0j5JNUl7LReuMCpe8WhWU4 27p5fPqftc/I+6y3uKLOBKNpi0i2wSNZ7qe8Cv5ScTVKT03poe7+jacs1d0d RqhyIvroezTHc3UoMKcpC4rRHUf2NHHZW41ZXmZNg4QjFIkxOmEoCztcoVce IVYaqfTK/cRK4zF6RXZY2mOFTKdSIzoEAAAAiEQtiw7p/ENHnqGxOIHBh+7r /z+hyhrezejKtGwRc4H3PgcrJIgOPc8a1tmQgM/02Ar7yRahKo7+yrj5yyYb ApXdfL+wf5uE68XbOyimpBZSPSdOVbNtccu7mRSNqbNqoDg9Sl/z/lOX2t+4 7cAbFyR9aiQuLJPZFqHKm/SZ1h/3GxWZQzWhYzRtEck2eCTLfbYl+EvF1Shd +gVRIxq1bp94yygf5mvom78SfcZif5mqMqfwHkeVMC1J0qlEwcNTH75ef7Iu mMwfF0SHntxNDPLWFaSIfXTLFXrlEWKlkUqv3E+sGGVbhPe6QK/Iw6nCxl6l ulSRyV5RdVFO0rmMSqHOVQMAAAA8DEF8b1mf8IuG0ztVD/NWft/7VbNDaPm4 QNEh6xOSLVFVpP0nQCaTv7diD/nNl8hK/tJ0O66ie8jWHGpnhigvTt2YVMrO o5AgOqQpjR5lXBjk57ci0zrz6uqCmFn/bNzK39ubMhvClN3iavvgAR81Cab9 7CtKVbNvcU31ncR3jDfpKHr2OUk53yXUBTMGazOr+OCDtN8p5oCOvHEh0neL wppnW/VHJZyrpsgmUbVnVb9G8q5Tpl3+gzpTDKctInVDzslyn22J8FIxNUqj +nVr+Is26yiI4qghxhe+3XrxsYzq50T15XO/vPvKG7HJHPeCkZcOyGRBwyP6 KQS7Fk3CEcqI6timfg25LqxyhV55hFhppNMrdxMrhtkW/L0u0CvyYjtvr+lH 8tQW6erOP4+K/vRlheN6qD60ceCLugf8RkTQ2QAAAAAA6CGXplD73mVLJ3jT j8WWd5v69g6aOH3maL928rcClv+WZ7+iW5jokCGW8nbA6gtFaptX6EIl33Rp YO8VEFVJcQaHQYeP12fRs5Mvpt+p0pdXXXP/7IXdE6LCXq7/afwpdhMvouZU n5aGVD/ZlkHpiNTEzzc+QXfUJxkdojnj0fxRXot/s3ErohKPJiQknNi3eP3s f7TX1/btk/18abIhTNnNV9vLZKHrj9HPH0Soai4triFyfp32qimoNnz4b7/b fIY05lPxQfdDt6i+UGqIommfGH5OucSdd/ruUdjK3DVkB1Y0DJ0yfNuJY3dN U2L1ncLTM2b8688tpu5ILqNtLScVZZ8Nobsht2SZZ1vIstBP8UTTqAf5G9p4 y7qHnamg+ncr5CFzV5awsVYbzCtDtNYUHnndybVUDJFyhNLztPxQqF+98LGU K0+c4wK98gyx0kipV24lVsyzLfB7XaBXhmV7ZLLzv9qYtH/Hwl9+GDixp1e9 wNFDD+xa9ZGDtUOq8v1dSFmrNz6Ffn0aAAAAAKgxRWx8/rIy+6n9n43ugc9L YZuP2e8vN+9QMOE3sH9yQQWN8yJEdOhqSoTC5BxOCP9xV1zq0T17tqclRq2a GtBe/j9eQ1bFFTyieH/ViYPRbTtQ3rqrS6xTwJxEBy6lTbHVlTdyc7MLsjZv iWxiTMF7YPjBzPSCQuVtvYOkvndbqSy6nnb2l5AOpqrxW5ySfKVQqSwstvro SUaHZPX6L1+ZkWd3FezzmpxJg/8up8r32wFrLpUSFkuYTNmwSkGAspOXVvs6 P0tEyKrWcG9x9Y3MX97r0cpQb/7Nxq2MPnhRWzO3cg4c3TZ0XMdGXkNWxuZV 2vyQqC7OVypv5ew7stjf5GQGB288fex6kVJ5557lJIhT+m5VWKPtKYL79m1i 2Vzydj3+3e1vXbWp+Q35/GghZXemqqh/dVqXuidT+89K2ruMBbYN1smyaF/h XmrG8QIAESrnecG0Ad4y6mvl9WuKyNQb9Vu2roRnPKdMuaKVITmrq+35IeUI ZdioO67xP0P2F3ENk0nXhT1MrDRS65WrxYom23VZr3Q83vlDcAObxOTth4bF n8nWOU6mrWfUZ6dbrHOWKRrPPP4769cDAAAAns7z4vVTx/03PvsutWtYlfST 9q/Xymn3+Jf8vHLkX321/uE7w3vHHj5W7sgZECI6VP3g2n93/TB06heB/YNf Upicwzd7jwmL2UFbCtP7q4t37owJi+jnq/MktXkO6ttucFTElhOnHWbbDvP6 dgoMGxzMF/Ia8GsS+u+uRn84OOyM5Vdpc3RI3i40tI1uiY7dV3JtzhO2z333 C1ORdbOhntMjjhu+9D+9l9jR+O+KwH/9S/cMVQr8ym64tNp7DNV51PYIVdUa fi1OqMuPHVk9JPKzNn07NtJVWvBHAQMiBy7cTmfS5jibqT6bdW8WaKxce7tl nb5bFVajKTg1JXTQiRIVUV5yNnbDgh5DeuonWb7Bvu8P7f39vhR63962onyD u/QkK8rJjULC2QbrZFm2rzAvNeN8e4jQlaPKPDw9pH8azc6PqtTEmZ0DAgb2 jv01g2qfDltMJ9hT3RXFOU0JRyhCm9pHfzWE3LkiXRf2MLHSuEKvXClWFNmu 83qlg1DdTdg0sdP77Xx9Q3oFjV4yLSlDSaoTeakZ3V5+4ubFdd17er3hO3F9 PJ+VkAAAAAAQH1FvtPcYCHWlzeojAEBtgM/hIbUCw23X3dak0O7bcmPU55PG NGk682heLcw7AMLjhnpl2qrfYNaJMlfnBQAAAAA8QXQIAOC5uOFsS1geb1vk r+B01ZerUWWmft3ylemHsmtjXAsAMXA/vSLyI/voMtT8tZ+v1z6RAQAAAIAV 5IYsRIcAAJ4HOdvqsym9DgYhdId++DSeHVdZ2+ZtCA0BYI/b6RV56DTNffcA AAAAqE0gOgQA8FyeXQx/W6+AdfQynZzkCK+Xl2U+cnU+2FH1697JLbwnHkRo CABL3E+vclK+1B2kT33MPgAAAABqGYgOAQA8F9PW2rq5LYIojhpSf+i0QoqL xdwW64u5KfGuffEuAITAJXpFlK6b8e/1KRSXyBGqnIg+CplM8cmwrCqpsgMA AAAA8Xhaujv0tS+mD/0hNZ3mvmsAAKijkOHxurgtgsg7MaNp/QkpBbVI2qv+ u7iL7d3ZdvQMv/jQeVIA1DVcoVeq9F3DXpLJmjedcdhmLR9RtWdVv0Yy2dtt NudWS5QbAAAAAAAAABCDwuMzvOvotoinD072C5G/H3amwtU5AQAIggv06tnV sd0Vhqhs8yZjfonPLaskCHWVMufY1FndG8sU3UO25pTWNfEEAAAAAAAAeBiP Ns37X3md2RZBFC7sMWxjQvEjjbrwamL//n+r13hKqnscTgIA4I1r9Kq6/NKC 6E9fVtis4FN08J24dlVeJSJDAAAAAAAAgNoNUZK9/E3vurMt4lFR/D8sZ3Dy kPnrSnGaHAB1AtfqFVFZdu1A8uZ5UVpitsSdvqKsUkmfCwAAAAAAAAAQDuLp lSWjor9dMqJFw4Yf9t6de69ufPwm0reGNSS/6zfqt2xdyRNX5wkAwJM6qlcA AAAAAAAA4HKq9q4ZvmzBztPp5XXp87e6+laK7uN+zJb1FwpL1ZhDAlAnqJt6 BQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALf8/iEotOA== "], {{0, 120}, {1546, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{1546, 120}, PlotRange->{{0, 1546}, {0, 120}}]], "Input",ExpressionUUID->"0b282646-5eae-\ 4d95-89e7-dec006e8fb94"], Cell[CellGroupData[{ Cell[TextData[{ "Sistema y coordenadas", StyleBox[" (notar que no es la misma elecci\[OAcute]n del \[AAcute]ngulo que \ se hizo en clase)", FontWeight->"Bold"], ":" }], "Subsection", CellChangeTimes->{{3.7311862130402*^9, 3.7311862449652*^9}, { 3.775568908581953*^9, 3.775568929275647*^9}, {3.7755695489302053`*^9, 3.77556955074535*^9}},ExpressionUUID->"47a53bc8-7e3a-406b-85d7-\ 5b8236000e4b"], Cell[BoxData[ RowBox[{ GraphicsBox[{ {RGBColor[0.87, 0.94, 1], AbsoluteThickness[2], ArrowBox[{{-1.5, 0}, {1.5, 0}}], ArrowBox[{{0, 1.5}, {0, -1.5}}]}, {RGBColor[0, 0, 1], AbsoluteThickness[2], LineBox[NCache[{{Rational[-1, 2], 0}, { 0, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0}, { 0, -0.8660254037844386}}]]}, { {RGBColor[0, 1, 0], DiskBox[NCache[{Rational[-1, 2], 0}, {-0.5, 0}], 0.05]}, {RGBColor[1, 0, 0], DiskBox[NCache[{0, Rational[-1, 2] 3^Rational[1, 2]}, { 0, -0.8660254037844386}], 0.05]}}, { {GrayLevel[1], InsetBox[ StyleBox["\<\"\[ScriptL]\"\>", StripOnInput->False, FontSize->40], {-0.42320508075688773, -0.5330127018922193}]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(m\\), \\(1\\)]\\)\"\>", StripOnInput->False, FontSize->30], NCache[{Rational[-1, 2], 0.25}, {-0.5, 0.25}]]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(m\\), \\(2\\)]\\)\"\>", StripOnInput->False, FontSize->30], NCache[{0.33, Rational[-1, 2] 3^Rational[1, 2]}, { 0.33, -0.8660254037844386}]]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\[ScriptX]\"\>", StripOnInput->False, FontSize->30], {0.2, -1.35}]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\[ScriptY]\"\>", StripOnInput->False, FontSize->30], {1.35, 0.2}]}}}, AspectRatio->Automatic, Axes->False, Background->GrayLevel[0], ImageSize->400, PlotRange->{{-1.6500000000000001`, 1.6500000000000001`}, {-1.6500000000000001`, 1.6500000000000001`}}, Ticks->False], GraphicsBox[{ {RGBColor[0.87, 0.94, 1], AbsoluteThickness[1], ArrowBox[{{-1.5, 0}, {1.5, 0}}], ArrowBox[{{0, 1.5}, {0, -1.5}}]}, { {RGBColor[0, 1, 0], Opacity[0.6], DiskBox[NCache[{Rational[-1, 2], 0}, {-0.5, 0}], 0.05]}, {RGBColor[1, 0, 0], Opacity[0.6], DiskBox[NCache[{0, Rational[-1, 2] 3^Rational[1, 2]}, { 0, -0.8660254037844386}], 0.05]}}, {GrayLevel[1], AbsoluteThickness[4], ArrowBox[NCache[{{Rational[-1, 2], 0}, { 0, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0}, { 0, -0.8660254037844386}}]]}, {GrayLevel[1], AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[NCache[{{Rational[-1, 2], 0}, { Rational[-1, 2], -1.5}}, {{-0.5, 0}, {-0.5, -1.5}}]]}, {RGBColor[1, 1, 0], AbsoluteThickness[2], ArrowBox[{{-0.5000000000000002, -1.}, {-0.45002083072932203`, \ -0.9987502603949663}, {-0.4001665833531724, -0.9950041652780258}, \ {-0.3505618675264006, -0.9887710779360422}, {-0.3013306692049388, \ -0.9800665778412416}, {-0.25259604074547726`, -0.9689124217106448}, \ {-0.2044797933386608, -0.9553364891256061}, {-0.15710219254454916`, \ -0.9393727128473791}, {-0.11058165769134937`, -0.921060994002885}, \ {-0.06503446588876982, -0.9004471023526769}, {-0.02057446139579716, \ -0.8775825618903728}}]}, { {GrayLevel[1], InsetBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(1\\)]\\)\"\>", StripOnInput->False, FontSize->30], NCache[{Rational[-1, 2], 0.25}, {-0.5, 0.25}]]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(2\\)]\\)\"\>", StripOnInput->False, FontSize->30], NCache[{0.33, Rational[-1, 2] 3^Rational[1, 2]}, { 0.33, -0.8660254037844386}]]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\[ScriptX]\"\>", StripOnInput->False, FontSize->30], {0.2, -1.35}]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\[ScriptY]\"\>", StripOnInput->False, FontSize->30], {1.35, 0.2}]}, {RGBColor[1, 1, 0], InsetBox[ StyleBox["\<\"\[Phi]\"\>", StripOnInput->False, FontSize->25], NCache[{Rational[-1, 2] + (Rational[1, 2] 2^Rational[-1, 2]) (-1 + 3^Rational[ 1, 2]), -1.1159258262890681`}, {-0.24118095489747932`, \ -1.1159258262890681`}]]}}}, AspectRatio->Automatic, Axes->False, Background->GrayLevel[0], ImageSize->400, PlotRange->{{-1.6500000000000001`, 1.6500000000000001`}, {-1.6500000000000001`, 1.6500000000000001`}}, Ticks->False]}]], "Input", CellChangeTimes->{{3.7311862338492002`*^9, 3.7311862338702*^9}}, TextAlignment->Center,ExpressionUUID->"9511dee5-65de-46dd-bf2e-c249a7617102"] }, Open ]], Cell[CellGroupData[{ Cell["Preliminares (ejecutar):", "Subsection", CellChangeTimes->{{3.7311859641122*^9, 3.7311859716632*^9}, { 3.7311869330671997`*^9, 3.7311869369312*^9}},ExpressionUUID->"8c95efb7-8aef-42a0-b5f7-a19fc3b6de82"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ejes", " ", "=", " ", RowBox[{"Graphics", "[", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", " ", "LightBlue", ",", " ", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.5", ",", " ", "0"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "1.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[ScriptX]\>\"", ",", " ", "30"}], "]"}], ",", RowBox[{"{", RowBox[{"0.2", ",", RowBox[{ RowBox[{"-", "0.9"}], "\[Times]", "1.5"}]}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[ScriptY]\>\"", ",", " ", "30"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0.9", " ", "1.5"}], ",", "0.2"}], "}"}]}], "]"}]}], "}"}]}], "}"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"discos", "[", "\[Phi]_", "]"}], ":=", " ", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", " ", "Blue", ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", " ", RowBox[{"Disk", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", "0"}], "}"}], ",", " ", "0.05"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}], ",", " ", "0.05"}], "]"}]}], "}"}]}], "}"}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7311860000632*^9, 3.7311860366292*^9}},ExpressionUUID->"5bd04ba5-cb7c-4694-ab07-674f4eb2173e"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Soluci\[OAcute]n num\[EAcute]rica de las ecuaciones de movimiento..\n\ Experimenten cambiando los valores de ", Cell[BoxData[ FormBox["\[Mu]", TraditionalForm]],ExpressionUUID-> "d391daed-e129-46fc-a35f-58e416cf8c71"], " y de las condiciones iniciales.", Cell[BoxData[" "],ExpressionUUID->"868a3267-7684-4433-bec8-6742892ef665"] }], "Subsection", CellChangeTimes->{{3.7311859449152*^9, 3.7311859487771997`*^9}, { 3.7311948398092003`*^9, 3.7311948562092*^9}},ExpressionUUID->"8aaf377f-d937-47e8-bd92-3d774f667bae"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Condiciones", " ", "iniciales"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Phi]0", " ", "=", " ", FractionBox[ RowBox[{"5", "\[Pi]"}], "6"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]p0", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Relaci\[OAcute]n", " ", "entre", " ", "las", " ", "masas", " ", "\[Mu]"}], " ", "=", " ", RowBox[{ SubscriptBox["m", "2"], "/", SubscriptBox["m", "1"]}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Mu]", " ", "=", " ", "15"}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", " ", "=", " ", "50"}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol2", " ", "=", RowBox[{"Reap", "[", " ", "\[IndentingNewLine]", RowBox[{"NDSolve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Mu]", " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}], ")"}], " ", RowBox[{ RowBox[{"\[Phi]", "''"}], "[", "t", "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "2"]}], "+", " ", RowBox[{"Sin", "[", RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{"(*", RowBox[{"Ecuaci\[OAcute]n", " ", "de", " ", "movimiento"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "[", "0", "]"}], " ", "\[Equal]", " ", "\[Phi]0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "0", "]"}], " ", "\[Equal]", " ", "\[Phi]p0"}], ",", " ", RowBox[{"(*", " ", RowBox[{"Condiciones", " ", "iniciales"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"WhenEvent", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Phi]", "[", "t", "]"}], "/", "2"}], "]"}], " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{"Sow", "[", "t", "]"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Registra", " ", "los", " ", "tiempos", " ", "de", " ", "paso", " ", "de", " ", "la", " ", "barra", " ", "por", " ", "\[Phi]"}], " ", "=", " ", "0"}], " ", "*)"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", "\[Phi]", ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}]}], " ", "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Phi", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sol2", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Soluci\[OAcute]n", " ", "num\[EAcute]rica", " ", "\[Phi]", RowBox[{"(", "t", ")"}], " ", "asignada", " ", "a", " ", "la", " ", "variable", " ", "Phi"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tiempos0", " ", "=", " ", RowBox[{ RowBox[{"sol2", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Tiempos", " ", "de", " ", "cruce", " ", "de", " ", "la", " ", "barra", " ", "por", " ", "\[Phi]"}], " ", "=", " ", "0"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Periodo", " ", "=", RowBox[{"2", " ", RowBox[{ RowBox[{"Differences", "[", "Tiempos0", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], " "}]}]], "Input", CellChangeTimes->{{3.7310957991436*^9, 3.7310958959021997`*^9}, { 3.7310960055718*^9, 3.7310960158064003`*^9}, {3.7310960853964*^9, 3.7310960859424*^9}, {3.7310963548986*^9, 3.7310963607516003`*^9}, 3.7310965000408*^9, {3.7310965720966*^9, 3.7310965825038*^9}, { 3.731096630987*^9, 3.7310966310962*^9}, {3.7311551514779997`*^9, 3.7311551883529997`*^9}, {3.7311671718556004`*^9, 3.7311671725046*^9}, { 3.7311851968282003`*^9, 3.7311852011772003`*^9}, {3.7311857405422*^9, 3.7311857803182*^9}, {3.7311859192981997`*^9, 3.7311859197812*^9}, { 3.7311861005151997`*^9, 3.7311861228372*^9}, {3.7311862682272*^9, 3.7311863799681997`*^9}, {3.7311864116731997`*^9, 3.7311864248632*^9}, { 3.7311867185481997`*^9, 3.7311867632532*^9}, {3.7311868141982*^9, 3.7311868217522*^9}, {3.7311869459821997`*^9, 3.7311869985782003`*^9}, { 3.7311870463892*^9, 3.7311871460782003`*^9}, {3.7311871812302*^9, 3.7311871914542*^9}},ExpressionUUID->"a5f49561-4088-4503-92d4-\ 0299963809cc"] }, Open ]], Cell[CellGroupData[{ Cell["Animaci\[OAcute]n:", "Subsection", CellChangeTimes->{{3.7311859394902*^9, 3.7311859409812*^9}},ExpressionUUID->"23f67a57-7e69-477f-b54b-b87172804945"], Cell[BoxData[{ RowBox[{ RowBox[{"Ncuadros", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]", " ", "=", " ", RowBox[{"Periodo", "/", "Ncuadros"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Phi]pr", " ", "=", " ", RowBox[{"Phi", "[", "t", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"ejes", ",", " ", RowBox[{"discos", "[", "\[Phi]pr", "]"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"1.6", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], ",", RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Background", "\[Rule]", " ", "Black"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "400"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", RowBox[{"Periodo", "-", "\[CapitalDelta]"}], ",", "\[CapitalDelta]", ",", " ", RowBox[{"Appearance", "\[Rule]", " ", "\"\\""}]}], "}"}]}], " ", "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->{{3.7310967218724003`*^9, 3.7310967310608*^9}, { 3.7311553100690002`*^9, 3.731155339758*^9}, {3.7311668791654*^9, 3.7311668868445997`*^9}, 3.7311670325176*^9, 3.7311857748082*^9, { 3.7311858180982*^9, 3.7311858290931997`*^9}, {3.7311859351092*^9, 3.7311859828202*^9}, {3.7311860249922*^9, 3.7311860846692*^9}, { 3.7311863892152*^9, 3.7311863953872004`*^9}, {3.7311865210622*^9, 3.7311865493812*^9}, {3.7311866051492*^9, 3.7311866596382*^9}, { 3.7311868494742002`*^9, 3.7311868683072*^9}},ExpressionUUID->"b8f608bd-105d-4bb7-b732-\ e51c1ce368b3"] }, Open ]], Cell[CellGroupData[{ Cell["La funci\[OAcute]n \[Phi][t]", "Subsection", CellChangeTimes->{{3.7311864805411997`*^9, 3.7311864837832003`*^9}},ExpressionUUID->"5c077e12-2415-4bd9-96a9-\ 4aff6cfd65f0"], Cell[BoxData[ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Phi", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "Black"}], ",", "\[IndentingNewLine]", RowBox[{"AxesStyle", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"TicksStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"White", ",", " ", "16"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", " ", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\<\[Phi]\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"LabelStyle", "\[Rule]", "20"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "40"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.7311864856902*^9, 3.7311865089611998`*^9}, { 3.7311868383192*^9, 3.7311868384512*^9}},ExpressionUUID->"2aaea454-0bfb-473c-a25c-e80d8c7b8b27"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1440, 830}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 327, 5, 67, "Chapter",ExpressionUUID->"5db8795f-e449-434d-91ac-c7127e39a287"], Cell[CellGroupData[{ Cell[932, 31, 390, 6, 64, "Subchapter",ExpressionUUID->"c474e8af-c93e-43f2-ba82-2d23ffebf826"], Cell[1325, 39, 25972, 430, 105, "Input",ExpressionUUID->"0b282646-5eae-4d95-89e7-dec006e8fb94"], Cell[CellGroupData[{ Cell[27322, 473, 405, 10, 53, "Subsection",ExpressionUUID->"47a53bc8-7e3a-406b-85d7-5b8236000e4b"], Cell[27730, 485, 4431, 101, 415, "Input",ExpressionUUID->"9511dee5-65de-46dd-bf2e-c249a7617102"] }, Open ]], Cell[CellGroupData[{ Cell[32198, 591, 215, 3, 53, "Subsection",ExpressionUUID->"8c95efb7-8aef-42a0-b5f7-a19fc3b6de82"], Cell[32416, 596, 3339, 93, 219, "Input",ExpressionUUID->"5bd04ba5-cb7c-4694-ab07-674f4eb2173e"] }, Open ]], Cell[CellGroupData[{ Cell[35792, 694, 544, 11, 79, "Subsection",ExpressionUUID->"8aaf377f-d937-47e8-bd92-3d774f667bae"], Cell[36339, 707, 5778, 137, 485, "Input",ExpressionUUID->"a5f49561-4088-4503-92d4-0299963809cc"] }, Open ]], Cell[CellGroupData[{ Cell[42154, 849, 160, 2, 53, "Subsection",ExpressionUUID->"23f67a57-7e69-477f-b54b-b87172804945"], Cell[42317, 853, 2093, 46, 200, "Input",ExpressionUUID->"b8f608bd-105d-4bb7-b732-e51c1ce368b3"] }, Open ]], Cell[CellGroupData[{ Cell[44447, 904, 180, 3, 53, "Subsection",ExpressionUUID->"5c077e12-2415-4bd9-96a9-4aff6cfd65f0"], Cell[44630, 909, 1229, 25, 238, "Input",ExpressionUUID->"2aaea454-0bfb-473c-a25c-e80d8c7b8b27"] }, Open ]] }, Open ]] }, Open ]] } ] *)