(* 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[ 52314, 1070] NotebookOptionsPosition[ 50747, 1034] NotebookOutlinePosition[ 51095, 1049] CellTagsIndexPosition[ 51052, 1046] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"Quit", "[", "]"}], ";"}]], "Input", CellChangeTimes->{{3.7311072152584*^9, 3.7311072163036003`*^9}},ExpressionUUID->"429fe4c0-2f0f-4e66-b462-\ 81015051c994"], Cell[CellGroupData[{ Cell["Mec\[AAcute]nica Cl\[AAcute]sica 2019 2c - Gu\[IAcute]a 2, problema \ 1.", "Chapter", CellChangeTimes->{{3.7311487609214*^9, 3.7311487993634*^9}, { 3.775569336696743*^9, 3.775569339956025*^9}, {3.775569490618969*^9, 3.7755694914866123`*^9}},ExpressionUUID->"4668d629-fd33-4580-8c3d-\ 7098287c46d9"], Cell[CellGroupData[{ Cell["\<\ Notebook m\[IAcute]nimo para el problema del p\[EAcute]ndulo con soporte m\ \[OAcute]vil.\ \>", "Subchapter", CellChangeTimes->{{3.7311063738304*^9, 3.7311063883248*^9}, { 3.7311064338942003`*^9, 3.73110644073*^9}, {3.7311465355238*^9, 3.7311465386282*^9}, {3.731148743619*^9, 3.7311487468482*^9}, { 3.7311936253642*^9, 3.7311936262032003`*^9}, {3.7311945211392*^9, 3.7311945234342003`*^9}, {3.77556934393638*^9, 3.775569348943989*^9}, 3.775569489219674*^9},ExpressionUUID->"a6627926-ce36-4b78-a7fc-\ 440ca532ece4"], Cell[CellGroupData[{ Cell["Sistema y coordenadas:", "Subsection", CellChangeTimes->{{3.7311946830312*^9, 3.7311946850172*^9}},ExpressionUUID->"a3184989-f671-4d37-992c-1628fca93581"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvQt8TVfe/3+OP8VrztQ/nYenZigmT9pMJqoVxkQZybRSZdCq9EJo0brW raouValLRVFKxaWiLTEucUncKoggKihxSY5I0pBEQkUTTYJEz2Hnd+7Xvc++ rLXPJfm8X6/neXVinb2/e63vbX332mu1Gz5xwMgGCoViShPd/xswbFr4hx8O m/H6/6/7H5ETpowZNeH9916Z8NH7o97/8J/D/z/dH6N1/9fmMYVC/9+1AAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADowpQXnSmuYDwt BgDcMNU5Z4ruQUmBW9A8eABdA0AKHvbVyGe8BkRtUDeBkwHUYcpLTkbPDuk/ LvO+m+6oTVjsrzAQ0DzitaCg/mHj54zb/OO5qod6caqLi7P3H9n63kc9mxob KfzD/F98M2zCF1O2HT96qxrqD5zRqc31ywdSd85fO+ffg7o0UfgvTtB6WiYA 7NDWlKlzz/5374bJX4wJ6tFO2fiLsw88LROowzDVRYWXEvavHx0d9ef/WXrh d0/LA4CP4GFfjXzGa6hbUftG9FDrrOrFIDPduj3Tq31D3Z99++mAGLzXyWhv FpxaNe/IdS8RB4iFqcnN3Dduep9mKr2vCYs8fdddN64su5p19cLuHxP691Ep xKHq7P/h2lh1GRygN1F9J+vbhdsvFWk9VPmzREwL3uMnfR3NlTNr/xPy+rKN t9ChepiqH7ZMaNO4cZ/wLVcqRPzuwc1tHR2UFIkckAfNnSOD3gp7XAVlkx+p DgF4LZ721fUjn/EFw6GpCUx1XubRhJTtC+NWjJ35Qd+RfYPCW34aW/GIssiu 0d6+oVYXXU4+dWjixJAG5mcK8J+fFH8iK+PatewyvL53D5g0OcGUl5yJ3TAn bEB9q3PWnUlWTdXVpH2xfYd0aGijWG4sLlm5kjzOnP92njji2w0xOw4nmDl0 aGPiuui1C6Kmj+hgLKrblJi6dVx6Qq2BF/QCmJKsdV0664exV9T5e56RwRAx c3OzCvb1CvYSP1kn0KV/m8c8aTDRwI5JJZ4Wxxu4VxT/rMlnqYZPLxS+GITR Vl5V6/K6omMHpv8P5vtATh7VXNdH0hPHl3w1sAmUTU4kOwTgtXjaV9eLfMYn DIeiJvz+a/LAARHN/b1lOn9HvaKNSQy/KUvLHnpKjvoIJk22MBWlWfE7vuz3 XmgTKlVc36KuTLJqbv/06YKhLS3+Tflcx+dVHiwu3T4b09wkytCdahcNmYrb WRu2LegcZn0X27LZiPgDVXCJssBUXzz2yXe7q/jequic5OrnAowDEvBBdIGn nYF10W/dS8ZIETqmlvZVe+IG/9GY/DWJ+g62ZsAmJVP0HyHlU2Lry9B6Ej2B 54CyyQ25QwBei6fNpy7nM0INR2zeIg/0NEF74+et3QM9P6w2i7LqoHZ5AEya JMGyONB3M5Z6PMkqu7Dkz8YHaRwxccim04X3f9wy8DEfKC6Z0NzNi5nVvZFZ +1q3+ORIHpYvUYUp258wz7gucVT0DZe+xuokWzcfvS6+pMZdMnJTl5Mx6YgY U8tPLE7Pf0CvDefysErQDHNr7fxeTRWKwKc+OyrJ+Xh6wgLqEVA22SF2CMBr 8bT51Ol8htdwJOQtskFVE8qWTvTz+LCiuEQNTJoIMC0O1FFQcDZr+yvhpgUk /kEJ190vjWTq/SRL5086N3s7ZvaRvGLTl54ZOwY39p3ikg5GU7LkY+vHwqEv 7Cvx7CuNOob2dKS/EFdjdpLKTmOG//DzbS8xizqdjElG6JiaMTu9wFaTNibc wpTUCe3t/PxKqf3i6QkLqEdA2dwCkUMAXounzafO5zMuDUds3iInVDXBcqQR ikt1AkyaqMFc2vP+H3yxuIRJlhM+V1zS8fud1L6dzdUlReiShPteYqV1AauN dFudzLVGz+QkOwTM25darnGrfK7xKj/pNQgaUzNGp6fsMWVyGk4mlQNPT1hA PQLKBoBkPG0+9TufEZW3yIw8xSURsx7qoLhEDUya6GGpCfhscQmTLBO+WFzS jU36lsjG5upSSNjBX+UTsb7x6MrYCNcjwpQV7RkUEjIr+uKvXjdb8S4/6S3w j6kFpqzwyOLouOMZ1VgPKBOenrCAegSUDQDJeNp86nc+IyJvkR0UlwAnmDTR w1eLS5hkOeGbxaXaB7cSQ/3M1aVGs9LKZBOx3mFxNZ4P6OLxLj/pNfj0mNY1 PD1hAfUIKBsAkvG0+dTzfMaL8hYUlwA3XqSo4vEuJ+OrxSXf1gFZ8NHiUi2T P7m/ubjEtw6tprIkW61WZ5dVi1yAJvmHrGhrfj3z0/aFsZet/cxU52WdiN+1 Zk70usT4E1nqKiGrJbXVxTt2LIkcH/lUiH7rM1Xj0Nc6Dl805yTf+jptaUlm /MKvzhZZmxn2Ussvq7T9oXAbMVxww8eHMlzVX7U1pYcPrx724aCgXu0bKlQh rfqO7Pfljk1Xq5yFZaoL8k/FzvzufCn35XjaCPKTUjtQD12VcBZNfzyo44iQ yyN0TKX1jLNi6/Qq98qpXQkJh5IvXy+mV5+noCFUpBWk+Tqq7+Rs2r4k8v1X goP+OejlT2NjUrLzqwWmqSRaWiuDotJyXwQSCvRgYvAOjSIcaxdwKBtTUXpx d8r2hdHRcbEHz58uq+G7jyQJRY2XuMGVr8dsEayiPA7BfR6y1qSuq+bsyqmw 3v/2L5eTdyfs3n2hgONeNVU3T5/ZnbD9TI6aXxlq3RVD3TPKRkh8ta3IYiO4 S0TP+0Q5Vbpqqa0pu3gpdbu437o2HGF5Cw0fbgslTXBBnSouyWqkmDTVgUmT KOQvLvnkJMsX8dXiUm1N/Py25uJSyxmxFY62ytTkZh6Y+cWYoB7tlJYqlLLj q13Gfhlt3c+cBab60uktY2e/0zZEpbDiHx40cs7YuLQMIZmXFU1V/g/H9yz5 dlHkpNda+NuZTNWN5Nf72simR9U1eM72JM7dvRhtecq+mA6dVQo2ng9ec7HU QTpNflbKxr3fT/nyg8599PvYWxwIo721a/PMQOMzKl+OS9VX57Q1tw4eXtop xHi9sI8/XTJiSKSeqKiB/SbtzWBcXJBFWs2txIQ5z7JLq4rod0K/3IwpT09L jt28ZPjMkeaRctIEIW1M8PhJ8R1o/BlNlWC7vk5X906yu77u4mMWczkcMfII GFMpPcOt2MyNK1t62yk2j1bzdQ4FDaEhrQjNrzVEkE0bJrTxd+pKZcfX3+nT zPjfHGmqRC2tpa+odN2XQUKxblmcBxOEt2iUobXksRaG05yIKStKGf9Rz6b2 A9c54JOtdCQUNV5SBlfuHhNsRDwOwX0eUn/JqoxTKXG7Vo2Z46iuVSUpQ9/p 0NDmQSJCYg6ds879GW3x2mVvPWHzrIGtxq/nPsbIPTFU9lG2gcRXm8UVGcGF Iqy4JMap0ldL/cjGD/2wTzO7sfLvH7YiJZ31ZG1BkZQnb7lcRjVvNN+UXBME YS4uPTbvVBXhpaRDXlySyUgxaaoLkyapyFVc8sFJlq/js8WlRynrX7SkTA5n /90tTf9oas+myk4jBm/7yfhaVl+8PbNs7cgnDQPbstnbX8UW3HMaSUZTsvzT 7o2UPaZMOnTZWBJnqosKMzdsm/VMAMuNxDygWTv1JmM9j5KNgGFD0lhyu0cF 88Z0aKjsvXBl3m8GT6p/VXQ59dMYa2bYK/J0hf39Y2cEBQ2IaG4NlwYHwpR/ O697I+sdh+68XpWSOJvDpxloOPXITfMFe/b8qzWNYfVIzC/5u/r3btGo2dsx 0T/+XGRIZY318/iZxp7sPyLzvu6PDy9NfjkoqG+fVlYTdtIEIW1MuPSTUjqQ vko4XF431xs7vutjjXvPnp5qvL62pvTA/rmBhot3CJifmmV3QqUYeQSOqZSe Kc/6pltQUNAbYY+bGxgUW3Px2PxAVsVWhs9dKencVRoaQkNagZpvTg+CmvQJ W3Ew+XqVoT9rqq4fPbVzwif97AaDNU2VpKW18igqTfcl0S0L9mDCw4e3aJT0 sRaOXXFJ63Lg6EgoarzED67MPSbGiHgcgvs8ZK1ZXW3uZeg0pjxrXRc2/69q MnTrSf3DaaouTXj3/5TOLbiEcU8Mld8uzIKR+WrDNcRGcDHwF5fEOlWqaql7 9gNDhv69cbNhK1deuKVfCcBU3L6w0nxrhbLHqHHjw/oGWfgopvB3/kgqIG8p p5s3UtEE4ZiLSx79VJm0uCSbkWLS5OuTJhJkKC756iTL1/HZ4pJVcvux1he3 +4brRitwakyxk7PRXj0fa3ZQAaMmZ9s/8v0dX4XpvMeAEZn3HH/IlF5ZE/xH 5fiYUlGnVmirf81Rq9Ulecvnd29oMpn4tKNzg598fcHsIya9rWUqy3IT93/9 QphFRVWRQzJ+c8hIDNvRs6mfJn3niMeNP/vD3PRyFjE0Fan/CTY7kG3laYYz EG3QdX6N+kyCnvR1oa2Nf+yzeGlaWoKZHTl3HnFc0NEjmaKAX7OPDrClVVUl 27q0dMwna25sM3tBTk0Q0Maln5TSgfRVwva+xoxO1STquwOO7/gKf1rQxvCw bZ9acdEqsSh5BI+pdNXSHN040GiG/n9bteu/I1u1GLVm2ZmrhshYU3Vt1+65 lpRV1XRqSqHEnqqloyEUpHWp+ZbJWsD74y452q8e7bWszS+Fm82cNbeUOBay KCpF90Xglg0Pz+/BRD6bN2gUgUsXiE1xaeHBC6s6Nuvx0dhd5zIqDQOnvVlg nYTqUfZdc8B+6bdUCUWNl4jG8vaYFCNy7RDc6SF1VOSvDzaNZuSKxNjnmv5j wpjEs4aagz6d3jernXmnyoCnv71QkPz6K03CQr/+YXfOr5WM/t1uVuKr/fxc CeOeGCq/XdRS8dVSIrgoeIpLBE6VglrezonrqGvT4I3vjjh8L6I9u2ecZUtU Cw7X4TYcEbkolbyRhiaI4l7cp60pXUo6pMUl2YwUkyYfnzQRQbu4VAcmWb5K nSguWT+Le1RzaaThPUOHTonF7F+1MpkHPjAFPuVLS7dVWvRNW3noxZYuPO29 uE9UX0j9NtnypKrHnvhH++Wn8lgciN1rROVLK5LuO+b5Tf6z4STLUzGazPd6 Gn8Wsf6o66/XW787edwzT8/bm1yqSwiqf7s8f1b3RrYxznqiousR4fRIlUVb Q/VpSeCs2DL2ySxTNH3gY/Pja5xnMTz35W/D5ydFdqCsKlGatSJAr6p+Y6KL 2T4bvxUz2qin1gYS5eHtNwLVsn3N1Dnk2yzHhZ1M8YXF/qbophodXSL9DFYa GkJDWk4dYzQF0aP19hsYvCmfewnCndw1TxsvwFVcEj8WsipqLbH7InHLZgR7 MOF4XKOIXLogrDMIZbv2rT7ec9L5QxXNhcPT/mLO0INDkkrsFnxLllDUeIkJ T7L1mFQj4qkAuM9D1tqqK2s6bTvrb+vf+MnhTrPpqhu7egRyC+OeGCq/XVDx 1RIiuEhcqRahUyVUS8vdn++6/xeWrWCKo4eZ7hw59gpHB/Oty6KTE/K0oRO1 xWF+cF8vLslspJg02YjrM5MmQugWl+rGJMtHqRPFJcuG3szZHUMMu0mw7cJk wSbwtW37fa5ZTcouLPmz4bdTl5axadXD9KShSekSV6lYn7TBOwlnOXd8qind F25K7RQhYQd/tZe7sqSEY0uxh0lfPWdwsK2j45y/9qu1cSAKv2afHLPdnk7z 87IRifkWwyP1k+Urpz2t5KnBVsYvCIlz2IPdDX5SfAfKqBIWJbQsm3Qic+97 xq1R/J/edPURgTz8/SZdtawJAOdr93sb5/3dGP279Tshfdkn1VIAgbRcOsbk pEx5wtXomODbGlTKWMjqu2pJ3ReRWzYj2IMJx/MaReLSBWEzgwj9It65ZGeS YsPnXRoYWynf3ZFlt0JcqoSixkt4Yxl7TKoRCS0uye4ha23VlX2e8uj+6TdD TV3dNfwQ2x4P97cuNimDUwZS664YKrdd0PDVkiK4SFyoFqlTJVTLa8dn/Mnw T4Mn57NuHHhuZ1QToyJ2TCoR/XQG3FFcohW1RVEnikvyBy9MmmzwmUkTITSL S3VlkuWj+GxxyTIcVs1hfs8Y0lXI1ZhLe97/g+m+1pPm7qhXtDH8qXWLGUmp 5UQvEJ0QbDKa/avDTXtJidjujzm9ZeBjhh9x7Kxi9ZPcL5IMkPlJyyLMDqH7 bgmUXfh9Sf2kC9g7UD6VqMxdY3yUli2/ucIhqdU6Gs1KKyOQR+iYssKjWkIU O//IlMfJ4wXVUgCBtFw6Zn4J4jg9d4QgTeUcC1l9Vy2Z+yJ0y2YEezDheItG scLr0gUhUNnK1CvamXq37efxAjd+dy2hqPGiMrikPSbViIQWl2T3kLVCVLoi 9uOWCpe9JFUY98RQKnZBwVdLi+Ai4V4lS+xUydTy4Q+rX2jgchQs1/fu4pIb orYzdaO45AI6wQuTJh68ctJECMXiUp2ZZPkoPltcsuZIAcEJhYawYNElXqet Kd/X3bw6fNj0IqP+2L7U0x+g4z96/tjY7XEn1RfKic8DE2Ey5sKp6z7RlhZf TDywOTp23qvjBvrbnBLC5yf5HAiZn7ySPE4lTZ3c7ScFdaB8KmGxu7b+a85y HItpXYltfl6J8ojze+JUS4hi04kX7ioF8LVh1zHzYlp+5yMmTRU6FrL6rloy 90Xols1IToG48RaNMt1JpEsXhEBlYx6ceaMD7+1ESShqvKQNLuUek2pEFIpL 1DJqfpW2HIPOXxbgE8Y9MZS+XVDx1dIiuEi4v6MhdqpkamnVIq55t+W3pl2I xTyd+SayF5fkidq81L3ikizBC5MmHrxy0kQIxeJSnZlk+Sg+WlyySYZVw6cX /m74o+U9C7/Tfng+6nnTjW0enPM8gpaPv/R+r4VbNuaUS40Fwk3G6vPZ1vJV /3Z51bop/+gd3Khx6ODwOWs/33E0+fL18pqfzOPoUT9pfZ/ltX5SZAfKpBLW 3EwA/mHPLP+pnEAeYWMqTbVQXDJied9BJU0VPxYy+q5aMvdF7JaN1NniklSX LgjBcyJL96qc96yWJKGMxSXZekyaEdW74pJ7Yqh8dkHDV0uO4KLgVC1yp0qm ltav3tq2WXu52vmn5tOcG7y7M5NrSub54hLdqC0Y04NTPmxdJFSKS7IGL0ya ePDSSRMR9IpLdWeS5aP4aHHp9sUlrYy/azBqb64peFl3YeL3/9YVj/YPzpSX nJy7ZEyA9QBHW1TdQuIuse1TwC+weD/Zus13P9t+S89UHd4xtZ2//nDYGdNP FlfYiZHhFX7Sas6hLx8Vl0y5wU9K7EA5VMLaUa1bfb4ngY3tZ3KycnOzy5y+ 0hUvD2+/EagWiksOv+JdmM2TpkofC7l8Vy2Z+6LhlmvrZnGJyKULQnxx6fnl u21qS9IllKe4JHuPSTCi+lRcck8MlXmUafhqkgguHE7VIneqhGpZfWNrJ9OC qICJ0QUOi5eqbuyL6KwfvrkrWc6H5306E/IXl6hFbXHUieKS/MELkyYevHfS JB05iku+PsnyUXyzuGTdc9L2aD/L3lwCrmYNuE7fX+hhtFVqdcri1fNenfRa C7vyp+r1EZkSOkq4yVgWPNuvN9Yc2xJlOAqT9dhZL/GT1iK8i69cpd+XyE8S diBdlbD6vbYBmwokJZ8i5OHpN6KeQXHJiM3C7De3ZkjevYFUS2tl8F21ZO6L kluue8UlCmPNi9A5EZM/ub+hmd3mMCQSylFcckePGRFjRPWnuOSeGCr7KNPw 1RQiuAA4VYvcqRKrpc0pk8pOY4YnZmRU6i6urSlLP/39i+HKPzcfvS7eRWXJ 1dOZkL+4RClqi6UOFJfc4YoxaeLB6ydNEqC2/WAdmmT5KL5YXLqT/217w0sT VdMJB3KtSmMTKTosTnjgSpssuTTLzrHOjavzrhyeMPGFRoYf+P1ppVr8rpSC /aR5A0b75cS/lx+MMByI0PLJlVksi5C9xE9aPx9WKN/ack6MPcvsJ4k70B5S lWDSNvY1/lbqVp9i5HHZb4Q9g+KSkd9vJ3Yxqb7fxJhbLlTo7tVvTWebOKWp lLW0lo7vqiVzX5Tccl0rLtEfazYEzokse4+E9TvxGx0J6ReX3NNjLPAYUX0p LrknhrphlGn4atoRnB1O1SJ3qjTUUpNzLn7oh32a2b/eD2w18ss5jq/mRT2d CfmLS1Sitnh8s7jElKfvOF1cqf9P97hiTJp48K1JkzAs1yS2jrozyfJRfK64 pLl7afSbxvW4jjVA6+58CkWfqPMuHsfS0u+JZRfuma/8W/rHg3Zf5Zh8Wbb5 Uv1x2cXfBYlqi1A/yRROf1vvaWxXZOkoPD7Tz+UweYmfvFcU/6w50+gfdb7S 1Z247tt/Yzq7gy3PWfOMSqKflNaB8qmE9btORfDcuAqBh8RLlMflmBKqlieK S9I1RL7iUu2jK2MjTCMa2D6hiPtwaPMR0ixpquSxkNV31ZK5L0K3bEbW4pIH NIrYpQtCYHHJdLC4sv/6VI2lI8gkpF9ckrvHpBpRfSkuuSeGusMuaPhqaRFc JJyqRe5Uaaml5m7e0vn/8O/6TfK2pKTtZ3LzKmkdsyhy7izJh9PQBNEwRdPf pHQpAsQWl/TltQYTkgv1/+2e4IVJEw9eOWkihF5xqe5MsnwUMcUlbVH2np8y hMcOfsQWlzRVl6aM6mA4dFLVp/+J2472ZP1cTtV0akoh53WK06MN9w2cttT6 tkLvbF15e5MNhoQd/JVfUkeE+UkmL21mC/0ZiJ+dKGL/JJP17ndLj7ze0+RB POsndc5s5bSnTVvfN3jjuyOC9xt4lDmim/FnLWfEVjgHeUZTHDPJfGXxflJa B8qnEowm872epodp+9SSc8I2w5Eoj8sxJVQt902daGiIjMWl2kfHNvZ9zHT3 zvPiylljWU3pwV6dTY1cnEAkdixk9V21pO6LyC07PALN4pJHNYrYpQtCSHGJ 0eRNeVuX+wSMmpxtmwOQSUi/uCR3j0k1ovpSXHJPDHWLXVDw1dIiuEhcqBap U6WycunKT99076HsEb6vyOX3bxzQKC6R+nAKmiAe84ObazVGSW9c/mbe+mKb a9OfcNkitrikX2Bjfnb3BC9MmnjwykkTIRSLS3VmkuWjCC4uVR/cMNjwzWDA ++Mu/UYpkIopLmkLc3b072s8s0/1Sq+D19nCWfXNxBdM27yzVp/0MNqCme/6 6S/ySuovNgapVyrudYmaitT/BCsUypdWJN2X8PSWJ1U1GbhsXQmb5pr2qA98 atruk47uxXo4SIN3Es5qbf5Vey1r80thDf7S7iklZT8ZvCDexZNyH5JbtDXU vNN+6xaTd6RWCasYl8aMMtlXQMCKC/Z+QFtdsGTWP5u2C/Tzk+gnpXWgnCrB ZB74wHxEsKpX+JZsdtfHlBenbNhTqiGRx+WYEqqWG6dOFDREzuKSde2rwcyj 4pLKHNLCqptpwyL9Bs+d3aG1oZFTCJM8FrL6rlpi90Xils3IUFzyqEYRu3RB 2ByjMyrhp2qWfmWqklYNbKLsMXW6Y1gnk5B+cUnuHpNqRPWluOSeGOoeuyD3 1dIiuEhcqRahUyVXy8L06CcN//r22Cv3aT+dHkG5KKkPp6EJYrE8uN/7U/Lu MrphunN496y/NumxbFulOVuWZcJli8ji0r24WY38zHvXuMdIMWniwxsnTYRQ LC7VmUmWb2I+MFSheL7r/l+4rUJTvq+7eZDs6+0kmD+VdaX5tdqaX89k7Bo7 3fRlt6px7+g5l7m/52ayj03/i9ng3nvv1C8ONSimak+czmmzlKeMruz54NXn irQOl9fb6afdGxH4eZsyml6wQf3j047esnjDmqqrmzdPbdeky4eT01i/VX9w KzHU3P8657NpY+a1woKT5/Z8vCCyud+7K2Pzzm13uazOshBX0fbz+BqXT2D1 V62bj1699NCx1MTZy4Y/1+vgLdufubogk308+q+W3c+UnUZHbTmRWlRliA2M tjI378xXa8aGD7Fu7mH8lXXhsf6z/fErohOPJCQkpO1dtH72s52UzwUvP3Xj xEDTZTl2X+SWSloHyqoSZlU00bLZ2zGzD5xPv2nsKL3an9s1MTryiYZvxf+o IZPH1ZgSqtaNU5/9ydjj3JvmUZo6UdAQCtK61Pz89OhWlg0olJ2GR25MPXC5 8Nq1c5ePL/9OZ+Chn8bkVdT82L+toYHTCTWSx0JeRSV2XyRu2dxAuAcTjic1 itSlC8Oy06lCHzojpr631WbgtDcLT86c+a8/PTVt+wHHKRWphKLGS1hjuXtM ohHxCe9GD1nLWHwL5wbFNfHzTS1YjzKxFcZBYPfEUPfYBbmvNlxDdAQXKaNr 1SJyqsRqaXvSt3940MgZkSwMiVqwfuledb6G5Q78Vi8kFyX34TQ0QRwPti1q b15Pogpp1auV/lCqgDHT8yw1OnkmXHbYfDTEX1wyzqk7hO67ZXwAtxgpJk2+ OGkihGpxqY5MsnwGpro4X62+/vPR9CPrEucGm+ulCmX4tEl7jnGczffo/o+v Bpu9YdNPjv9CQY6ywj3/Cbf4dJ2P7RMVNn6aJSx98EHfkX2DXuvSxNKiccTE IZvO5bHFKTu0Vy98/1Jv4xonvcWtjPnhfHpB4fXs/Ue2Dh/fpUmzYbrRrHS6 imVfNf2Nor7eGZdyJClpW2pi9KppwZ2U/9ts2Kq4gnt0ZmeWPu/Yu3O3Z3q1 b6hQ9QxdeTyD7c2yCctu87Y/7zRicGJ2sc4ErCcOhIZuzMi4ds04gqaxzt57 eFGgWbf/1XVdStIF3Z/V7IfkmlaZ2tK6xcxDWYZuZ7tgWNiGk0d/LlKrb962 GCNz48qW3qZlZiyomgzdetIx3XpUkz3l3f9j/cnzwWsuljI2xWG/wVE/XNCN KfdjOkklvgNlVgkDVWk/xHTozHrepf62XYPnJNrM+6TK43JMJamWtvrXHF32 lX1y2tQQ478qGryxfGVGXlbu1XzHhdxW5Te3KSx2oeqcSNYQCtIK1XxN5o9L O7ENqOWtqM0bw87Tpp/M1nWp+kaV6bWcJDOXX1GJ3VetRLcsxYOJwJMaJXWs RWG4tSrstdea26qkbuD+3fOvPXRjETBsyJFCzlc1EiQUM16iB1feHhNnRHwO 4aEbPaRu9nE1NzerIHPT5slmOzWrq8m3aG/fUKuLfk498324+QOfgIBFybpJ tFrtcC9nYcwJoXtiqDvswngjMl9tRFwEFzacAmNNrQSnSi9w29dkXKJq3Dsm 1rzyRMTTuc5bTEjPGylrggjM3yqacVo4KsOEy47qO+fGWTtN1TVoYnTUgjXR ZmJiZq+dP0Q3C4uKGjj1nZABEc0NHdgr6rxlh1p3BS8nMGmywesmTaSv/azX pLfdva9OsnwPq7Jxw7YG+Nr5db36NHvG/8P1PAeMCiLv+IwW/IHJP8z/xb6h I+eOjdufkHnLuR7EDaMtP3p49bDJb7c3lKdaPh42IHjQ5MELt8XnlHNEhOo7 Of/d+dXwae+EvBH2uOmI1Y69/9ZvTOSS7fFZou7ujPVtoP/yAzrBJr3xrOEu Ac0jhoZNX7eKpdjl9EjVl07HD51sPBLRPyJkwb7UcrNF2L5FshlBx7H2D+ve x/CWhGuUTTc6mxr76uhX9AFF2fHV0M9TLdHc8YKW1y56HIquuiH4MW3z2BmD gvSBwDiaA8f1n/fNksO5xY41YdPlq4sTts198R1z/+sHrs+McceNCmdztIcq 5F//0rdhf0wOqcR2oEZelbB96h07lkSOG+ivn+7pfFroax3fjR63Oe1kuUMs kS6PizGV0DNajrhvVDKnoGBtrOwYEaFXBsnHB0jRECrSitF83TBt2vFl/2F9 DPN3xw63SVMt2KzblGDmMvuuWiruy/hwYt2yNA8mBo9pVK3EsRZFwY9TI4am lWiY8pIzsd9+3tukkzpX/PLwfl/uTeab9oqVsEbMeEkYXDl7TJwR8TmEO270 kGwuxYLRt1jPozeis9x/9zBNZBzu5SyMtSfdE0PltwsLRL7ajPAILggxsaZW pFOlGriZ0oJjn3z68mMcF7R7hiYj92Qxop/Odd5i0/9S8kZ7qGiCUJiqHzZP ebqjUtk4dOjLyw8eddYTyhMuWypy1wfzzgHZxnB8TKn1cy35jRSTJt+bNJHm Yw/3f/3X4C5TVsakZOdLeQHNhe9Nsjy31T/wLahtqlBvYLSV0ta3gHoCNMRt 1BP3BY0CAAAh6OZrmzZMaNOky6Qx+y9l3LRbxsNUFxcbVk9NMJ3crSNy7BW6 RRJW4MPrDPUk66AIlB+A+gb8JADAR4H7AgAAYIDJPRMbrv8cr/OspS7X1TDl a2ebvr+z7NgDgBCQdQAAgGvgJwEAPgrcFwAAgFqbHYEC2ycU8a2TuKNe0Qax A4gHWQcAALgGfhIA4KPAfQEAANBRdmHJn/XRwG/K0jLeM9MtuxV163eiwh3S gToCsg4AAHAN/CQAwEeB+wIAAFBrPS6c/wh7HXevfhsouBIFgAVkHQAA4Br4 SQCAjwL3BQAAoNZ6Wnfr6Di2Q7ntYC7tef8PCoWq6dSUQrcIB+oKyDoAAMA1 8JMAAB8F7gsAAICOe0XxzxqqS32izt912ZLRZI/rr2vqN2xy3n03SQfqCMg6 AADANfCTAAAfBe4LAACAHubWkslPK/XrkcbvzdRwLl5iqvbEDf6jQhHaNbHQ 1ZFyALCArAMAALjR3r5dsGZR94YGP6loOGpLyvXySr7VxAAA4HngvgAAAFip upHcN1y/eun5oEVpapb6kra6YOWi11QKVa/wLdmliBdAFMg6AACAE/POh2w0 /uLsA0/LBwAAHMB9AQAAcOZuafpHU3s2VShUjSOmvrf1yIHLhWq1+vrPR8/s /3z1tOBOyv9t9vbSpXkoCQBRIOsAAADX1FSWZKvVhcXVj2z+yGgrr+qicHZZ NcIuAMBbgfsCAADAgbYoLyXm62nhg/q0CjFsw6Ts2Dto0IeDF26LzylHHQCI B1kHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPwFTn nCm6x3haDAA8hObBg3qp/kx50Zniinr56MCe+moCwAnkA4A+XhJrvEQMr8Qz hu8VI6Ktvp58YNO8Of89lHwdrg8AAKShrSlT5579794Nk78YE9SjnbLxF2cf eFomANwJU11UeClh//rR0VF//p+lF373tDzugakuvn75QOrO+Wvn/HtQlyYK /8UJWk/LVFe5ET1UYcA/zP/FF4PMdOv2TK/2DXV/9rjXrZ8mAJxAPgDo4yWx xkvE8Eo8Y/jeNSJMiXpDjzCVwsTQnWrPyQIAqPMwVT9smdCmceM+4VuuVHha GGcIxHtwc1tHhT1IJkG9QXPnyKC3wh5X1UP9t5Q7LLgvr2O0xWuXvfVEg5Dh UUeKa9xzT8+ivX1DrS66nHzq0MSJIQ3MPR7gPz8p/kRWxrVr2WXVHnpJWo9N ADji2/mAl+dp9RdPxhrvE8Mb8ZDhe9WIMCVZq58LsBXGUlzSXDy6sENIg9Dg RSfysJgJAECHe0Xxz5pyb9Xw6YXe9lKXRDxGW3lVrZv1FB07MP1/fC6ZBICM RzXXDyckJJw4vuSrgU3ql/4byh25uVkF+3oFuzuvK06Pbm7K3wI/i6t85J67 egd31CvamJ7db8rSsoeelqcemwBwxKfzAS/P0+oxnow13ieGN+Ihw/eiEam6 savHHzp/tiSvQvfUTE1uVuKbwSP35+v/6dH9H181iacI63fiN4/IBwDwEpjq i8c++W53FfnMxWY6oOg/IvM+BeFoQkU865sL30kmAaBFPdZ/6xdbbsvr8o9M edzksVrOiK2oV8Ulm3fE3jW1qccmABzxRWXw8jwNeCTWeLEY3oiHDN/DI/L7 nRMDw5Xtnt50lS0X0ZTv6+5nciwdQvfdcrt4AACvgCnbnzAvbIB+L4tR0Tco uCrm1tr5vZoqFIFPfXbUC1dF0hDPF5NJAGhRj/XfA3ndo+rsaaM6NFSouoVs zK5nH7CguAS8H59UBi/P04CnawheJoY3Uh+LS0z52tn6b9V7RZ2/x96i+vB/ h/9JpWjZbMTmVE99vw4A8DTa05H+1D2V9nZ+fqX3Zlmk4vlkMgkAJeqx/nso r2Oqi6/8WlP/EjUUl4D347PK4OV5Wj3HS6o6XiKGN1IPi0uWz2ldLkVgKn+9 8mtl/ctXAAAWrMWlbquTPb6nhW/gs8kkABSox/qPTNutoLgEvB8oA5ABL4k1 XiKGN1IPi0tXkscZt2qj850LAKCu8ujK2Aijp8JRkkJBMgnqM/VY/5FpuxUU l4D3A2UAMuAlscZLxPBG6l9x6VHK+hcborgEAODH4qlQXBIKkklQn6nH+o9M 262guAS8HygDkAEviTVeIoY3Uv+KS9qExaYPXVBcAsDL0JaWZMYv/OpskfWL VMPRlvllPN+oGk6i5G9mpaayJFv3i+wyl7uqCSwuiRLb0HjDx4cy2I820tb8 euan7QtjL9+1uVTulVO7EhIOJV++Xlwt6kQkbU3ZxUup20X8lkc8W6rv5Gza viTy/VeCg/456OVPY2NSsvOrBcYUbXXxjh1LIsdHPhWiX0mqahz6Wsfhi+ac LK4g/RhZrisz1QX5p1bN2ZVj3TdYe/uXy8m7E3bvvlDA0bc1VTdPn9mdsP1M jrpM7LYwrlX09rWjCazs35yZ/8hVs6Rt6Rl3OUZXuB2JNlVhFidZHqFIEkPE rzj0n6kovbg7ZfvC6Oi42IPnT7tWBve5QWEIvCz1vE7gfQW6LFqdo79OoSBf qnnwQMatFWgVl6g7TBomIFkw8bFYsKHJFFmcI74u1uRlnYjftWZO9LrE+BNZ 6iqN60sYYlPszO/Ol5K1sRFKgrGQ5AOEt+a/KP1EyD3KIzkW8CK0n+lmpJSk ohBrKNidMDEkDD31PpeW9giEhuHTsnq5RkQAAotLTMXtC2uF+WHRXotOIPCK sAgAMZr8rJSNe7+f8uUHnfu0b2jjFhjtrV2bZwYaNFahfDku1WnXI6YmN3Pv pNnvtDW2Mfw2PGjMYi7FZqovnd4y1q698Scj54yNS8uwy3a1NbcOHl7aKcTY JuzjT5eMGBKpJypqYL9JezN+vylCbM5nNHVBVf4Px/cs+XZR5KTXWhj8k39Q wnWDxDeubOndt53SKq2qa/Cc7Um3eLy1/knjh37Yp5ntgyr8+4etSEmvcupH HvGc0fmTTRsmtPFXOKLs+Po7fZq5jCmMtjxlX0yHziqnH+t5PnjNxVKJTon+ lZmqjFMpcbtWjZkzMqiHcRRMZcaqkpSh73RoaNO3ESExh85Z/T+jLV677K0n bGQJbDV+fXxJDc8ddSp9YOYXY8y3M/Xqq13Gfhl9JK9Ya3mAa2dWDPpsYpDN w6oaR4ztN25c5Ad70q0jrG/2yeRuA4zDamoTl3DnoeNNhdiReFMVY3Hi5RGM dDEEjYUtTjkVU1aUMv6jnk3tlFHVOeCTrXZW7EY3KLTTxF6WUnFJ0H0Fuyx6 naNzL6kHl0cYTUnZaeK07LucbbWFV/aPHd/qucjT3G1IIS8uyeSKpZqAZMFE 2Y4UQ6PeUdwRv7bqRvLrdhFfwR70mfL0tOTYzUuGz3SMTeLa2LWXaCwk+QDh rXmgnAi5R3kIYgF/hwjqZ/oZKQ2pbJAYayjYnRgxRA29DLMAKQmMKEgNn77V 0xwRUdRUXZ0zqbXxOhFhKzZFG1i06NNZR4sfVhfknUlI3vrJ1zO7m1Jx135Y jNeiEwi8IiwCQJXbsTOCggZENLc6KINWM+XfzuveyKqqDragz1fHju/6WOPe s6enXja8YtDWlB7YPzcwQN+6Q8D81CyNrWYzmpLln3ZvpOwxZdIhY3udCRcV Zm7YNusZw09sqs1VKYmzn+UwGT0Npx6pECW2oXHPnn+1Onk711ee9U23oKCg N8IeN9/TEFY0F4/NNz6OI8rwuSu5yhS6njkwZOjfGzcbtnLlhVv6UrO+VL5y 7cgnjRdX9hg1bnxY3yALH8WcWOVSPLura24lJsx5NqhJn7AVB5OvVxmiRk3V 9aOndk74pJ9dl7HGlEcF88Z0aKjsvXBl3m+Gf9UX5y+nfhpjrcP0ijwt5VBx Oa788NLkl+3GxTCgTHnWui5s6qFqMnTrSb1maaouTXj3/5TOLVwNXO3d0vSP pvZsquw0YvC2n4xv9vVvGc4sM49dy2ZvfxVbcM9Grctz1jxjFmTY9CKuF22a 8n3d/RSKBm+s+8EhNomyI3GmKsbipMkjCEliSBkLI3Yzay1TkrX6OVYTdlQG N7lBgX0m6bLkxSXh9zV0V98+rWySUqebUuwc5pf83YPtisk6a5qQXMja+OGB dS81MTSJHHuFp5hMAGlxSTZXLNUEJAsmPhaLMjQZOur22Zjm9j1hiPgu+0oR MGxImrWzjLHJzgSc5hRC2piQaCyk+QDBrfmQIxFyj/JIiwVCOkRoP1PNSKlJ ZYPEWEPB7oSLIXLo6fa55ARGIMSGL5PV0xwRgTyqKYhbO56lwmYZRJ0f/k+3 Z3q1t8kfXPhhkV7r+80jKQQCrwiLAMiBpiL1P8Fmrd5WnhY3+I92NmprCyZ/ q2oS9d0Bx0Ju4U8L2hh0u+1TKy5aNfv+jq/CdDYyYETmPcc7M6VX1gT/UTk+ ptR8qRr1GcMHROnrQk2l6D6Ll6alWT4s2pFzx7xCRYzY9o1ZYqLm6MaBjY3/ /LdVu/47slWLUWuWnblapF8PU1N1bdfuuZYoo2o6NYVtanM7J65jgL6M8N0R hwWw2rN7xvk5uT7b6/CJZ6mZBLw/7tJvbAskr2Vtfinc7FlYY4rhAD42n6NJ 3znicaNIf5ibXs7yaDzId+Xa2or89cGmx4pckRj7XNN/TBiTeNYQsvUBcd+s duaeDXj62wsFya+/0iQs9OsfdufojxxlanKzEl/t5+d64KpuJPfVd13g1Jhi p4RBe/V8rDn5CRg12XbJRNnSSS2N/xASdvBXDvmriza1Z3H1EuzI8DNBOi/K 4ojkcYkEMSSPhR6bmfXCgxdWdWzW46Oxu85lVBrqftqbBdbsTo+y75oDdnYq sxsUguTLEhaXpNyX22XR7BxNxZHh3edt33a1QqPTjX0RnY13fH75btaVAw9/ WP1CA0MLWfdeIC0uyeYwCU1AsmDSY7HrxjJ0lLb61xy1Wl2St3x+d+OMwz8o Pu3o3OAnX18w+4ipBl7LVJblJu7/+oUwS2epIodkOETemhvbzDMGzmoDXxup gYA8H5DLicmcCLlFeUTpMx/S+plCRiqDVLWSYw1Fu+MXQ+LQU+hzkgRGCMSG L5fVyzMiPGjvqtdER0dv3BQ1yjRdHBC556R5sphy1LrAzGYewW68JF6LRiDw cFgEQB4sbqH1u5PHPfP0vL3JpToDq/7t8vxZ3RvZOKjSrBUBegPxGxNdzLZU 41bMaKMVWhtoKw+92NJFJLoX94nqCw5fxBfHhYpt35hdEtsXK51Dvs1yXFXI FF9Y7G9yDqrR0SUOj/+o5tJIw0uD57vu/4XlLWNx9DCTf+J4pe5KPEZTED1a vxonMHhTPvc7qju5a57mjCmGLm3ynw0nWb4eZjSZ7/U0/jJi/VHx3/HLd+Va W01gDYi2nr+tf+MnhzvF3Kobu3oE8g9ch06JxewCMpkHPjDdQvnS0m2VFgFu nF3wZ+PfG4zam8v6qoe5tOf9PzR4d2em3b9KsCPLPXl1/qF4iyOQhxMJhk8y FrW2M2tlu/atPt5zkuXjiwuHp/3FnHkFhySV2A2LjG5QCDS0QkqtQ+p92W8q U+cYsNSO3tyawf5mNWPHYOPswNuLS/I4TFITkC6YtFjM11jOyGKJ+KrHnvhH ++Wn8lhe1tutg1W+tCLpvnMtzgB3luKyjTRjoZIPyGSnsiZC9g1kVR5R+uwK yf1MmJHKJBX5KlkKdscrhtShpzULkJbA8EJu+HJGZ1lGRBgC9lxy6YdJvRZx IDDgFWERAKpYtFrh1+yTY7abiWl+XjYiMd/oZSwm1nDqkZvsF8rc+55xewf/ pzddNah22YUlhgl4y6lLy9is/mF60tCkdCcXK6645FJsx8Y8xSXu10D3Ns77 uzHedet3wqFofO34jD8Z/mnw5HzW7Y7O7Ywyfq8R2DGpxNWzsHxjkpMy5QlX fWiCbx8/prKkhGNTwYdJXz1neLTW0XESluvKd2VbTQicFVvmHIsf3T/9ZqhJ DbqGH2L71Pj+1sVdjOsZnJYYMWd3DDFobMsZsRWcvtgmuLRt+32ueQwYTfa4 /sZUQzV8euHvLL+8FTOqwb/6nfiN9Wpi7MgMn84/FG9xRPJwIt7wicai1m7K H/pFPEfaxlRu+NykDArluzuybNVFRjfIDx2tEJ/wS78v201l6hwz5toRZ1Dw jeKSbA6T2AQkCyYtFvM2ljGyWCeSDd5JOMu5C0pN6b5w07sJp/BBOKeQaCw0 8gHZ7FTORMihgazKI0qfuSHoZ8KMVCapKBaXpNsdvxgSh56sz0kTGD6IDV/e 6CzLiAiDtLhE6rUoF5c8GRYBoIpVq11sVVGZu8ZoHC1bfnOFw7VZA0ejWWll +r/cUa9oY/hD6xYzklLLhRbDRRaXBOywIbS4ZNlm0Jn8I1MeZ2/D/zmG5fri cyrz2wTHiYAjBCeQMqe3DHzMtXOWCPGV+TWhIvbjlq4jC9fAMb9nDOnKq2a1 pgVIJl3rtjr5ofPf/Z5YdsHp6697RfHPNuj7barduzlpdmSGX+fFWhyZPJyI FYN4LITqf5l6RTvTz9t+Hm+7o7iMbpAXSlohOuEnuC/LTWXqHAt1pbjkAiKH SWwCkgWTFotJtsYijSxCIr4Bzf7V4aYtOx6bd6rK5l/I5hRSjYVCPiCbncqa CDk0kFV5qNyFqJ/JMlK5pKJYXJJud0RiuBp6kj4nT2D4IDV8maOzLCMiDMLi ErHXol1c8mBYBIAqgtyCJW9v67/mLMfZiNYFmWYLsl1Yoj+nxn/0/LGx2+NO qi+Uu0pqxRWXhHgzCsUl7jZW58blFiy/7T8i874Y8cyfF/GXjMQUl7SlxRcT D2yOjp336riB/jZHWhB7JNpX5tcE/sjCNXCWaMvbY6Z9uQ3Ybt/96P6Pr5o+ lA5eEO+weFuzP/afjzt+eyXRjszw67xYiyOThxOxYpCPhUD9Zx6ceaMDq07K 6AZ5kVsrZLgvy01l6hwnaTl/WHh8ph+JtxEG1eISTYdJbAKSBaMZizmgHFkE T3ItizCdFI9sTiHNWKjkA7LZqYyJkOAG7IKJVB4652+S9DNZRiqXVG4sLnHb nTgxRAw9SZ+TJzCuITd8maOzLCMiDMLiErHXolxc8mRYBIAqQrTaaoAC8A97 ZvlPpv3EOM+DaPn4S+/3WrhlY045x+7TfC7Oe4pL1mWTbdusvVzt/NNHKetf 1L+Fcdp+h1c8ywoQKsWl6t8ur1o35R+9gxs1Dh0cPmft5zuOJl++Xl7zE/Eb f7muLGdxyfISir8c9/B81PMmvQ2zO+Xc+n7N4XttfXXFz++LBIeKk2Q7MiJE 50VZHKE8LhBn+ORjIbi4aulDlf2O4rK6Qde4QSuo39f5pvLpkgne4pLZ0oUv yJECleKSHA6T2AQkCyZjcUmmyCJ8kmvtVYfPSYjmFBKNhUY+IKPPly8REtzA DqnKQ6W4RNTPshWXPBVrRMvMaXfCxJAw9CR9TiOZdAWx4csdnWUZEWEQFpeI vZYnikvyTeUAoIe4WVXrVp/vSWBj+5mcrNzc7DKnr0GZ8pKTc5eMCbCexmiL qltI3CWHvXJ8rLhUW31jayfTy4iAidEFDtVv0zlHrg4w5RTPuk6VZW2wHTwz C6bq8I6p7fz1YsyYfrK4wq7DiT4nke/KtfIWlyyyCVjrZV2z6pAPWIde+daW c9Znv3Z8WkuWb+pJ7KhWsM4LtzhCeVwjwvDJx0L8zNrh0DG53aAL3KMVdO/r qrgkgy7pEVxcov61mh2kxSXZHCapCUgXTJ7ikpyRRcIkt3Wb73623YeEUnFJ lLHQyAdktFP5EiHBDcwQKQ/l4pKEfnZDccm9sUa0zJx2xyuG1KEn6XMqyaQL iA1f7ugsy4gIg3TPJVKv5ebikrydCQBFxM2q2gZsKpA0NWC0VWp1yuLV816d 9FoLuyK66vURmXY+1teKS3an8Cg7jRmemGE4AFpbU5Z++vsXw5V/bj56XTxX QuVKPJu1wZxnJBlxObPQHNsSZTjakvWMVBKPJN+VDchZXLLsXihgDbA1H3Ba yVy+ctrTxsWoA0ZkmjZeYoqjh6hmsuxATmhH4lI7ARZHwa5piEFhLITOrJn8 yf0NzaTsJiFTd7lVKyjd11VxSSZdqhPFJRkdJpkJkAgmR3FJ3sgifJJr+eDF 8aMJSsUlUcZCIx+Q1U7lSoQENzCJQaY8lItLEvrZDcUl98YaExTsjkcM6UNP 0ueUkklOiA1f7ugsy4gIg7S4ROq13FpckrszAaCIoG9t0jb2bWRsJX4jVrbr VeddOTxh4gvGa/r9aaXa1sn6XnFJhybnXPzQD/s0s1+mEdhq5JdzHMvLwsX7 /XZiF9MF/SbG3HLxnHevfhvIElMMFyk/GGH4t5ZPrsxiWfYp3SPJd2UTchaX bOJ1h8UJD1yNkGU6xrYH442zC4zXUf1hbrphLXF5zuq/PRHz0x2WC5HZEcm5 YKwWR9uuJYpBYSwEzqwtexeEOZzi5xE3SOey0vfSJLiv803l1iXLxpv9N6az K4iXFpeY8vQdp4sr9f8pq8MkMQEywegXl+SOLIInueYNeJ2/iSCaU0g0Fhr5 gNx2KksiJLiBHmLloVJcIupn2YpLnstADFCwO5dikAw9SZ/TSia5IDZ8ua1e lhERBnlxqZbIa7mxuCR/ZwJAEUFaffviklYmgwueG1ch0Cdqfkv/eNDuqxzV ecuuv6o/Lrtoe5S7TxaX9Gju5i2d/w//rt8kb0tK2n4mN69S2IsJbvEeXRkb YXZ07ROKuI84NR+EyjKzsOxzy7UKV7JHku/KJuQsLln3SFQo+kSdd7E+2dKS 9VS42kc/T37VGJOMp8Te2zjnjyOji1mHXpodmeHXebEWRyYPJ2LFIB8LgTNr 07Gzyv7r7U/xk9UN8iK3VshwX5abytQ5ZiyWzrmlktkdeVdxSZ/tN5iQXGgr oSwOk8QEyASjX1ySO7IIneQyhdPf1vv2XpGnHU97t8Ymzmpnec6aZ0yzFcf4 JdFYaOQDMtupHvqJkNAGeoiVh86G3iT9LN+G3p6KNaa7k9udSzFIhp6kz6kl k1wQG77MVi/LiAiDSnFJj0SvRRYIzHhFWASAKoK0mtFkvtfT5JvaPrXkXKmg hZX6dNdVomu6dUjYwV9t/+yTxSXNlZ++6d5D2SN8X5HogyRdiPfo2Ma+j5k6 vvO8uHLWoFBTerBXZ1MjF6fDOPazgbulR17vqeJxzhzId2UTchaXamvvb13c xXgIqarp1JRCTimK06MNVwictpT1nZH1eFld3P+5eFtnFefVpNmRGX6dF2tx ZPJwIt7wScdCyMya0eRNeVsXnANGTc52Cs0yukFe5NYKGe7LclOZOseCxdtw nOpiOYfX1YeNRdl7fsoQONVlR2xx6UryOJVZJ2V1mCQmQCYY/eKS3JFF2CSX yUub2UKhaN3isxNFTsr8KHNEN6MILWfEVjjP9hhNccykp83H9zjGL6nGQiEf kNlOZUqEBDbQQ6w8dIpLJP0sX3HJU7HGCAW7cykGydCT9TmtZJILUsOX2epl GRFh0Fm5JN1rkQUCM+7xbBTyHwAEI3SX4MwDH5iP0FT1Ct+Sze6dmPLilA17 So3aq0937Tc6tkVTkfqfYIVC+dKKJPtDtayuwPmEd7FiC2pMHsoL06OfNPzr 22OvsJ2xK108y0pIfb83iYpLKnPwDFU304ZF+g2eO7tDa5aYUmt7kkWDdxLO am36U3sta/NLYQ3+0u4ppST3Lt+VzZeRtbhUW30z8QXTiWaqPv1P3GZTNUZb MPNdneKrXnkl9ReOF0aP7v/4arDxOmGDBjQPc/XqSoodmRFWXBJncSTycCLB 8AnHwuZwmVEJP1WzDBRTlbRqYBNlj6nTL/1GsFm6HN0lt1bIcF/Wm8rUOSYs 3sav2YzDebbeRr91fHTMW0+oXPdD9cENgw37FQS8P45VBwQhsrh0L25WIz/z NheyOkwSEyATjH5xSe7IYgkKqiYDl60rYSvFmc67DHxq2u6TrHvclsaMMilc QMCKC/aqrq0uWDLrn03bBfr5ccUvicZCng/IaqfyJULCGughVh46xSWSfpav uOS5WGMnM4HduRKDZOhJj/WhlExyQWz4skZnWUZEGBSKS2ReizAQGHGDZ6OT /wAgFKZo+ptGfeU7wZmp2hNnVE49LZu9HTP7wPn0m1UGD6at+fXMuV0ToyOf aPhW/I8mz2R0xc8Hrz5XpHW4st7oPu3eiF3Prdbauvno1UsPHUtNnL1s+HO9 Dt6ytBQutoDGN0599ifjP3Nvducy9Nge9OkfHjRyRiQLQ6IWrF+6V52vcbwD j3hMfnp0K8u3wMpOwyM3ph64XHjt2rnLx5d/N7Vdk9BPY/Iqan7s39bQwOk4 iQe3EkPNQaV1i8mbNmZeKyw4eW7Pxwsim/u9uzI279x2iWsp5buy6cktD8W5 jWFN/HxTC67dES0Dxza4TPax6X8xR4b33jv1i8NrC5POq17pdfC6qzcamv2r wxuaeiJi/VGXeYN4OzL/kF/npVicZHm4kWT4RGNh2f9Th6pxxNT3tqYdvWXO TbU3C0/OnPmvPz01bfsBx5TMfHEZ3aAg5NQKGe7LkQvJ1DkGbL2N7srzJ23Y s2/7wu+/Gvxhn2YNQkYP379z1QAXK5c05fu6m3+uMH+nJgGb7wv4Z1jGOmqH 0H23nB6BusMkMQEiwajGYgryCMB6+pLB2wzqH2/TV7U1VVc3b9YF1i4fTk7j 3nDD5gsU/e4c41dEJx5JSEhI27to/exnOymfC15+6saJgaYhYYtfEo2FNB8g uDUvsiZC7lIeQo9qdymJ/UyckcoiFXnP0LA7V2KQDD1xn9NKJjkfm9Tw5YvO 8oyIMPinAHzzCDKvRR4IXHagLSSdSSv/AYAHpro4X62+nr338KJAs8r9q+u6 lKQLuj+rOc+jrEr7IaZDZ9azxXWougbPSbTJXfVfBBj/oXHExKivd8alHElK 2paaGL1qWnAn5f82G7YqruAeWw5hXBZrS+sWMw9laRhRYrM1DgvbcPLoz0Vq 9c3b2ofVv+boPHP2yWlTQxqYjO6N5Ssz8rJyr+Y7Lh20hkVzm8Jiy9the7fv ElXj3jGxhlc2fOLZPIom88elndi63fIKw+Z9eudp009mZ1y7pr5RZXpzYTli wAZlpxGDE7OLdXex7JSrCA3dmKH7oYjTSGW5MqOtvJqbm1WQuWnzZHMq4jc4 6ocL6QWFpofS3r6hVhf9nHrm+3DzMuCAgEXJulCrVtuMC/vA2R+3qr164fuX erczFvx1oWFlzA/ndTe6nr3/yNbh47s0aTZM57Qr+cS2nGfq//Smq/zvpMTY kRidl2px4uyaF6liSB8Lwyirwl57rbntQyg79v53z7/20F0wYNiQI4XO+apb 3KBgSLWCw3tQva8JFy/aZOocHfd3fBXWyOF6+hw7/nSW3uTNi8bZN0q1WV6o UDX95PgvUiSovnNu3Lv/p7Q8S9DE6KgFa6LNxMTMXjt/iC4TjYoaOPWdkAER zQ0pZa+o8+bdNeRzxVJNQLpgpLHYpaHJ2FG1jpNcm77q3O2ZXu0bKlQ9Q1ce z2Bb/WXDo5rsKVZlsOP54DUXSxmbN+bm+OUopzRjIcwHSG7tGnkSIfcoj8RY wIuIftZSy0hpSkUx1hDZnSAxRA/9PZp9TieZ5Ibc8KlavTwjIszQXE0B8o0D pxPvKtc8Ir/MOgySvJYN0gOBG8MilfwHAH6s2m7EP6x7n1YhZgNzfdxMdfGO HUsixw3016esOnMLfa3ju9HjNqedLHdwStV3cv6786vh094JeSPscdNRjx17 /63fmMgl2+Ozbrlwskz12dTYV0e/ok/OlR1fDf08NctQMRYltmNjVUirXpbG o6Jv3GGNdMbrOr2YsIYVZceICF0cdNhUjSktOPbJpy8/xnFBOzmajNyTxfCK 5zBn03Xmph1f9h/WxzBTsO8Wu5hiwWYFJlN96XT80MnGs+D9I0IW7Eu1DJZt 3Z6tG10jw5XZnsXhoazHuRoJaB7x7x6mmO6w2Z3zwLFsQ6EtP3p49bDJb7d/ rUsThaLl42EDggdNHrxwW3xOudCuKF857Wmlwm8Mx1bezgi1IzE6L93ixNg1 LyRiSBuLgh+nRgxNK9Ew5SVnYr/9vLfJTPzD/F8e3u/Lvckc+ZJb3KAopGoF j/egdl8TPKu4ZeocRnMrYeOHXV/u6O8f3jd09OLpezLUltzekllxrTxnrp1f 16tPs2f8P1zv6jx0Tipy1wfb+zNhqMbHlFqrXbK5YokmIFmwGpJYLMDQ5ItZ tstZ/Zcf0HmbSW88a/BUujgyNGz6ulVCJ4A6PU/YNvfFd8xeTu+v+swYd9yo XjZnPKlC/vUvfRs2OaUZC1E+QHZrl8iQCLlHeQhiAS8C+5m99mKURnRGSk0q irGGyO4EiiFy6I+kU+5zGsmkK8gNn5rVyzMiwgzNcQrAMnDOFh1het3jlLeI 91oOPSEtELg1LJLmPwAA96PzLZs2TGjTpMukMfsvZdy0e0XIVBcXG95cTHjB 8tqdY09aAADwfmhtS0IR8/J4WY5aBnUK6Z8UccNoK8UsHambIBECLpDD7gAg hK7XQiAAANCAyT0TG65fCtt51lKXBWGmfO1s08pbyy4cAADga3hfcYnJn9xf L1DrNt/9jMQOuASTXBlAIgR4gN0BLwNeCwDgjVg+ZQ1sn1DEN6m5o17RBrEV AODbWIpL/Teme8W5I5b9KrEWAvCCSS51kAgBXmB3wKuA1wIAeCdlF5b8We9v /KYsLWPZRtYeywfR3fqdqHCHdAAAQJuH56OeNzgyrzl2JDv5A/1Glw3e3Znp FcUu4M1gkksdJEKAF9gd8CrgtQAA3on5iCJBn4fcvfptoGBXBgAA3oh5I0q3 foPGlK6b+e/1ySyHyTCa7HH9VQqF6s0Rmc7nrgPgACa51EEiBHiB3QGvAl4L AOCdmE9dbx0dx3a4uh3MpT3v/0F/EOTUFO943Q8AAGKxvMJz4zdomvSdIx7X +dkWMw+ZT8YxwVQlrRrYRKF4vv2m3Go3SQN8GkxyqYNECPACuwNeBbwWAMA7 uVcU/6zBPfWJOu/6HFjz63W/YZPz7rtJOgAAoEzh8Zl+bv4G7eGVsb1MR/S2 bj7m+/jcskqG0Vaps49Om9WrqULVK3xLdik+iAOCwCSXOkiEAC+wO+BVwGsB ALwU5taSyU8r9QXt8XszNZzTG6ZqT9zgPyoUoV0TC7HhLADAV7m3cd7flW7/ Bq26/OLnMW89YaowWVB19v9w7aq8ShSWgGAwyaUPEiHAB+wOeBfwWgAAb6Xq RnLfcP2c5/mgRWlqFgelrS5Yueg1FV6vAwB8G6Yka/nf/Dz1DRpTWZaz/8Cm edE6lmyOO3lZXaVxvxTAh9Hevl2wZlH3hsbaZMNRW1Kul6M0SQMkQoAb2B3w RuC1AABey93S9I+m9myqUKgaR0x9b+uRA5cL1Wr19Z+Pntn/+eppwZ2U/9vs 7aVL8XodAOCTML9fXjwq5rPF7z/VuPGr/Xbl3oYvAz6GeftWNhp/cfaBp+Xz fZAIAWdgd8CbgdcCAHgx2qK8lJivp4UP6tMqxPDxhrJj76BBHw5euC0+pxwB FADgw1TtXvPess93nEwvx2Ih4IvUVJZkq9WFxdW2Jxwy2sqruqlEdhnLMYRA CkiEgB2wO+D1wGsBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAfJb/B0b+uhQ= "], {{0, 127}, {1567, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{1567, 127}, PlotRange->{{0, 1567}, {0, 127}}]], "Input",ExpressionUUID->"271a6ff2-6045-\ 45fd-beca-195ef82bf2c6"], Cell[BoxData[ 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[1], DiskBox[{-0.95, 0}, 0.05]}, {RGBColor[1, 0, 0], Opacity[1], DiskBox[NCache[{-0.44999999999999996`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.44999999999999996`, -0.8660254037844386}], 0.05]}}, {RGBColor[1, 0.5, 0], AbsoluteThickness[3], Arrowheads[0.03], ArrowBox[{{0.75, -0.25}, {0.75, -0.75}}]}, {GrayLevel[1], AbsoluteThickness[4], ArrowBox[NCache[{{-0.95, 0}, {-0.44999999999999996`, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.95, 0}, {-0.44999999999999996`, -0.8660254037844386}}]]}, {GrayLevel[1], AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{-0.95, 0}, {-0.95, -1.5}}]}, {RGBColor[1, 1, 0], AbsoluteThickness[2], ArrowBox[{{-0.9500000000000002, -1.}, {-0.900020830729322, \ -0.9987502603949663}, {-0.8501665833531723, -0.9950041652780258}, \ {-0.8005618675264006, -0.9887710779360422}, {-0.7513306692049387, \ -0.9800665778412416}, {-0.7025960407454772, -0.9689124217106448}, \ {-0.6544797933386608, -0.9553364891256061}, {-0.6071021925445491, \ -0.9393727128473791}, {-0.5605816576913494, -0.921060994002885}, \ {-0.5150344658887698, -0.9004471023526769}, {-0.4705744613957971, \ -0.8775825618903728}}]}, { {GrayLevel[1], InsetBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(m\\), \\(1\\)]\\)\"\>", StripOnInput->False, FontSize->25], {-0.95, 0.25}]}, {RGBColor[1, 0.5, 0], InsetBox[ StyleBox["\<\"\\!\\(\\*OverscriptBox[\\(g\\), \\(\\(\[Rule]\\)\\(\\\\ \ \\)\\)]\\)\"\>", StripOnInput->False, FontSize->24], {0.95, -0.45}]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\[ScriptL]\"\>", StripOnInput->False, FontSize->30], {-0.51, -0.4330127018922193}]}, {GrayLevel[1], InsetBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(m\\), \\(2\\)]\\)\"\>", StripOnInput->False, FontSize->25], {-0.24999999999999994, -0.7160254037844386}]}, {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["\<\"y\"\>", StripOnInput->False, FontSize->30], {-1.15, -0.12}]}, {RGBColor[1, 1, 0], InsetBox[ StyleBox["\<\"\[Phi]\"\>", StripOnInput->False, FontSize->25], {-0.6911809548974792, -1.1459258262890681}]}}}, AspectRatio->Automatic, Axes->False, Background->GrayLevel[0], ImageSize->400, PlotRange->{{-1.6500000000000001`, 1.6500000000000001`}, {-1.6500000000000001`, 1.6500000000000001`}}, Ticks->False]], "Text", CellChangeTimes->{{3.7311476853638*^9, 3.7311476879378*^9}, { 3.7311946400442*^9, 3.7311946802181997`*^9}}, TextAlignment->Center,ExpressionUUID->"e1fbd99c-e784-4a53-b0f3-6a35700c5bf2"] }, Open ]], Cell[CellGroupData[{ Cell["Preliminares (necesarios para los gr\[AAcute]ficos)", "Subsection", CellChangeTimes->{{3.7311943402402*^9, 3.7311943495722*^9}},ExpressionUUID->"fdfeec8c-4b15-49d8-8336-ba97b7c1a10b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ejes", " ", "=", " ", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", " ", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "2"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", "ejes", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"config", "[", RowBox[{"y_", ",", " ", "\[Phi]_"}], "]"}], ":=", " ", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "4", "]"}], ",", " ", "Blue", ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"y", " ", "+", " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", RowBox[{"-", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", " ", RowBox[{"Disk", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y", " ", "+", " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", RowBox[{"-", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}], ",", " ", "0.1"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", " ", "0"}], "}"}], ",", " ", "0.1"}], "]"}]}], "}"}]}], "}"}], "]"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.7311947133052*^9, 3.7311947233852*^9}},ExpressionUUID->"2d3dcf4e-5afe-478e-9da3-e6e33b6f87de"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Soluci\[OAcute]n num\[EAcute]rica de las ecuaciones de movimiento. Impl\ \[IAcute]citamente, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["P", "y"], "=", " ", "0"}], TraditionalForm]], ExpressionUUID->"2b826f5d-1d48-43c5-a94d-cd3f711b3077"], ", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["m", "2"], "=", " ", "1"}], TraditionalForm]], ExpressionUUID->"18903e7f-7abf-4be7-a5fd-4c4652b60e26"], " y g/l = 1. \nExperimenten cambiando los valores de ", Cell[BoxData[ FormBox[ SubscriptBox["m", "1"], TraditionalForm]],ExpressionUUID-> "73785af5-3d8e-4b1c-850d-c5fbaa8b2278"], " y de las condiciones iniciales.", Cell[BoxData[" "],ExpressionUUID->"9550e3ed-23a5-4bdb-96c4-57ad1a803bc9"] }], "Subsection", CellChangeTimes->{{3.7311943550172*^9, 3.7311943635792*^9}, { 3.7311945397172003`*^9, 3.7311945811322002`*^9}, {3.7311947578742*^9, 3.7311948195341997`*^9}},ExpressionUUID->"5e74581e-f44b-46a5-bbf1-\ 335919dea588"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"\[Phi]", ",", " ", "y"}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Condiciones", " ", "iniciales"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]0", " ", "=", RowBox[{"\[Pi]", "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Phi]p0", " ", "=", " ", "0.6"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"m1", " ", "=", " ", "0.4"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tmax", " ", "=", " ", "30"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"sol", ",", " ", "CrucesPorCero"}], "}"}], " ", "=", " ", "\[IndentingNewLine]", RowBox[{"Reap", "[", RowBox[{"NDSolve", "[", " ", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], RowBox[{"1", "+", "m1"}]]}], ")"}], " ", RowBox[{ RowBox[{"\[Phi]", "''"}], "[", "t", "]"}]}], " ", "+", FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "2"]}]}], RowBox[{"2", RowBox[{"(", RowBox[{"1", "+", "m1"}], ")"}]}]], "+", " ", RowBox[{"Sin", "[", RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "\[Equal]", " ", "0"}], ",", " ", RowBox[{"(*", " ", RowBox[{"Ecuaci\[OAcute]n", " ", "para", " ", RowBox[{"\[Phi]", ".", " ", "\[DownExclamation]Deducir"}], " ", "y", " ", RowBox[{"revisar", "!"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], " ", "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", "m1"}]]}], RowBox[{"Cos", "[", RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}]}]}], ",", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"Ecuaci\[OAcute]n", " ", "para", " ", "y"}], ",", " ", RowBox[{ RowBox[{ "habiendo", " ", "tomado", " ", "que", " ", "el", " ", "impulso", " ", "total", " ", SubscriptBox["P", "y"]}], " ", "=", " ", "0"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "[", "0", "]"}], " ", "\[Equal]", " ", "\[Phi]0"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "0", "]"}], " ", "\[Equal]", " ", "\[Phi]p0"}], ",", " ", RowBox[{ RowBox[{"y", "[", "0", "]"}], " ", "\[Equal]", " ", "y0"}], ",", " ", RowBox[{"(*", " ", RowBox[{"Condiciones", " ", "iniciales"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"WhenEvent", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Phi]", "[", "t", "]"}], "/", "2"}], "]"}], " ", "\[Equal]", " ", "0"}], " ", ",", RowBox[{"Sow", "[", RowBox[{"{", RowBox[{"t", ",", " ", RowBox[{"Sign", "[", RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "Guarda", " ", "los", " ", "tiempos", " ", "y", " ", "la", " ", "direcci\[OAcute]n", " ", "de", " ", "movimiento", " ", "cuando", " ", "la", " ", "barra", " ", "cruza", " ", "el", " ", "eje", " ", "x"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], ",", " ", RowBox[{"{", RowBox[{"\[Phi]", ",", " ", "y"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}]}], " ", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Phi", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cruces", " ", "=", " ", RowBox[{ RowBox[{"CrucesPorCero", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", " ", "1"}], "]"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Esta", " ", "lista", " ", "guarda", " ", "los", " ", "tiempos", " ", "en", " ", "los", " ", "que", " ", "la", " ", "barra", " ", "cruza", " ", "por", " ", "\[Phi]"}], " ", "=", " ", "0"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sentido", " ", "=", " ", RowBox[{ RowBox[{"CrucesPorCero", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", " ", "2"}], "]"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Esta", " ", "lista", " ", "guarda", " ", "el", " ", "sentido", " ", "en", " ", "que", " ", "se", " ", "mueve", " ", "la", " ", "barra", " ", "en", " ", "cada", " ", "paso", " ", "por", " ", "\[Phi]"}], " ", "=", " ", "0"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Differences", "[", "cruces", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Times]", " ", RowBox[{"Length", "[", RowBox[{"Tally", "[", "sentido", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Phi", "[", "t", "]"}], ",", " ", RowBox[{"Y", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", RowBox[{"2", "T"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"ImageMargins", "\[Rule]", "25"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7309299208972*^9, 3.7309299302468*^9}, { 3.7309300836935997`*^9, 3.7309301202862*^9}, {3.7309302411535997`*^9, 3.730930276576*^9}, {3.7309303131898003`*^9, 3.7309303625973997`*^9}, { 3.7309877890039997`*^9, 3.7309879280081997`*^9}, {3.7309879602634*^9, 3.7309884510758*^9}, {3.7309885755596*^9, 3.7309887892925997`*^9}, 3.7309888221022*^9, {3.7309896759948*^9, 3.730989712383*^9}, { 3.7309897723873997`*^9, 3.7309897942402*^9}, {3.7309902840242*^9, 3.7309904315088*^9}, {3.7309904869948*^9, 3.730990530172*^9}, { 3.7309912317482*^9, 3.7309913086118*^9}, {3.730991460476*^9, 3.7309915676963997`*^9}, {3.7309918236628*^9, 3.7309918245364*^9}, { 3.7309919542376003`*^9, 3.7309919669254*^9}, {3.7310048663722*^9, 3.7310048806436*^9}, {3.7310049240706*^9, 3.7310049382806*^9}, { 3.731005038652*^9, 3.7310050478803997`*^9}, 3.7310051689264*^9, { 3.7310052402282*^9, 3.7310052499528*^9}, {3.7310052999700003`*^9, 3.731005323466*^9}, {3.7310053652816*^9, 3.731005402766*^9}, { 3.7310054383266*^9, 3.7310054777248*^9}, {3.7310201669844*^9, 3.7310202546912003`*^9}, {3.7310208508118*^9, 3.7310208562292*^9}, { 3.7310210031142*^9, 3.7310210057124*^9}, {3.7310211439642*^9, 3.7310212229154*^9}, {3.7310212747418003`*^9, 3.7310212831232*^9}, 3.7310213572518*^9, 3.7310213998722*^9, {3.7310214398154*^9, 3.7310214537088003`*^9}, {3.7310214842342*^9, 3.731021529708*^9}, 3.7310215686324*^9, {3.731021608182*^9, 3.7310217440572*^9}, 3.7310217752282*^9, {3.7310218076730003`*^9, 3.7310218239502*^9}, { 3.731096973901*^9, 3.7310971095478*^9}, {3.7310972051238003`*^9, 3.7310972367676*^9}, {3.7310972732720003`*^9, 3.7310973049374*^9}, { 3.731097416513*^9, 3.7310974461102*^9}, {3.7310981634421997`*^9, 3.7310982263613997`*^9}, {3.7311015262752*^9, 3.7311016212054*^9}, { 3.7311016685987997`*^9, 3.7311016985492*^9}, {3.7311032200559998`*^9, 3.7311032228016*^9}, {3.7311064817418003`*^9, 3.7311065164734*^9}, { 3.731106586704*^9, 3.7311066293644*^9}, {3.7311067226996*^9, 3.7311067688378*^9}, 3.7311068140692*^9, {3.7311070695868*^9, 3.7311071611466*^9}, {3.7311071982846003`*^9, 3.7311072027462*^9}, { 3.731147839255*^9, 3.7311482671744003`*^9}, {3.7311483005352*^9, 3.731148489242*^9}, {3.7311485599561996`*^9, 3.7311485647942*^9}, 3.7311487044997997`*^9, 3.7311488359006*^9, {3.7311488871424*^9, 3.731148901959*^9}, {3.7311489709914*^9, 3.7311489916354*^9}, { 3.7311490935078*^9, 3.7311491563164*^9}, {3.7311491974746*^9, 3.7311492280506*^9}, {3.7311493247216*^9, 3.7311493418698*^9}, 3.7311493847198*^9, 3.7311494727688*^9, {3.7311495263213997`*^9, 3.731149589682*^9}, {3.7311497088964*^9, 3.7311497593938*^9}, { 3.7311498525612*^9, 3.7311498668968*^9}, {3.731149908384*^9, 3.731149940241*^9}, 3.7311500198564*^9, {3.7311500521774*^9, 3.7311500669912*^9}, {3.7311501537106*^9, 3.73115018159*^9}, { 3.7311502274632*^9, 3.7311502576261997`*^9}, {3.7311503743092003`*^9, 3.7311503894952*^9}, {3.7311504529782*^9, 3.7311504580671997`*^9}, { 3.7311504988512*^9, 3.7311506468356*^9}, {3.7311507386521997`*^9, 3.7311508071878*^9}, {3.731150844767*^9, 3.7311513001244*^9}, { 3.7311513330313997`*^9, 3.7311514635643997`*^9}, {3.7311515212578*^9, 3.7311515488534*^9}, {3.7311517390446*^9, 3.7311520067778*^9}, { 3.7311520468845997`*^9, 3.731152223538*^9}, {3.7311522910048*^9, 3.7311526262757998`*^9}, {3.7311526613122*^9, 3.7311526734184*^9}, { 3.7311527757356*^9, 3.7311528081542*^9}, {3.7311528419638*^9, 3.73115292465*^9}, {3.7311529554646*^9, 3.7311530397338*^9}, { 3.731153080844*^9, 3.731153081*^9}, {3.73115325234*^9, 3.7311534239323997`*^9}, {3.7311537065114*^9, 3.731153729933*^9}, 3.7311538376202*^9, {3.7311936644962*^9, 3.7311936684132*^9}, { 3.7311938146731997`*^9, 3.7311939015262003`*^9}, {3.7311939325572*^9, 3.7311941105712*^9}, {3.7311944781022*^9, 3.7311944961722*^9}, { 3.7311945563842*^9, 3.7311945569672003`*^9}, {3.7311946018032*^9, 3.7311946050271997`*^9}},ExpressionUUID->"11857c3a-06de-4bd5-8967-\ 0d8dc2490e97"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["La animaci\[OAcute]n:", "Subchapter", CellChangeTimes->{{3.7311017159926*^9, 3.7311017198450003`*^9}, 3.7311943846991997`*^9},ExpressionUUID->"c732d6ab-d957-42f6-b0c1-\ 954e4bd47cd8"], Cell[BoxData[{ RowBox[{ RowBox[{"Ncuadros", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]", " ", "=", " ", RowBox[{"T", "/", "Ncuadros"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"orb", " ", "=", " ", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Y", "[", "\[Tau]", "]"}], "+", RowBox[{"Sin", "[", RowBox[{"Phi", "[", "\[Tau]", "]"}], "]"}]}], ",", " ", RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Phi", "[", "\[Tau]", "]"}], "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", "0", ",", " ", "T"}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Dotted", ",", "Orange", ",", " ", "Thick"}], "}"}]}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"\[OAcute]rbita", " ", "de", " ", "la", " ", "masa", " ", SubscriptBox["m", "2"]}], " ", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"f", ",", " ", "g"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"Y", "[", "t", "]"}], ",", RowBox[{"Phi", "[", "t", "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{"ejes", ",", "orb", ",", RowBox[{"config", "[", RowBox[{"f", ",", " ", "g"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"2", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], ",", RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", RowBox[{"Background", "\[Rule]", " ", "Black"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "500"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", RowBox[{"T", "-", "\[CapitalDelta]"}], ",", " ", "\[CapitalDelta]", ",", " ", RowBox[{"Appearance", "\[Rule]", " ", "\"\\""}]}], "}"}], ",", RowBox[{"TrackedSymbols", "\[RuleDelayed]", " ", RowBox[{"{", "t", "}"}]}]}], " ", "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQzR7/Rc3nzGtH//VTPEE0k7Z4Gog+luuRAaLvTb68 H0RfuhdyAET//dYpGg2k/1j56IFomZqftiDaQXilK4gOCZp8D0T/ilkIpt/V HH4MojMmngTTqZKv7jUA6WWVza9BdMjjrx9BtFDzmS8gmnurG3MzkL6T0cIH ov0uskqD6JoL8+VA9D/nrLQWkHsYzmWC6NXndQtBdMbmqBIQvc59ZmYr2N31 RSBaep5cSyvYnZXdILqjdVU/iBb3qJgHol+pvXw6E0gnLdz3EURveHjTfQ6Q /nLbOgVEu97IqQbR6VfbwXSZ/7UP64G0Us4dMM3yPEJ5A5BuqVlhDaJLVLY7 gegzscw+IBoAI23JWA== "],ExpressionUUID->"7ae5db50-3e05-4559-bf0f-bb4f002d4061"] }, 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[558, 20, 196, 5, 28, "Input",ExpressionUUID->"429fe4c0-2f0f-4e66-b462-81015051c994"], Cell[CellGroupData[{ Cell[779, 29, 311, 5, 67, "Chapter",ExpressionUUID->"4668d629-fd33-4580-8c3d-7098287c46d9"], Cell[CellGroupData[{ Cell[1115, 38, 544, 10, 64, "Subchapter",ExpressionUUID->"a6627926-ce36-4b78-a7fc-440ca532ece4"], Cell[CellGroupData[{ Cell[1684, 52, 164, 2, 53, "Subsection",ExpressionUUID->"a3184989-f671-4d37-992c-1628fca93581"], Cell[1851, 56, 27404, 454, 109, "Input",ExpressionUUID->"271a6ff2-6045-45fd-beca-195ef82bf2c6"], Cell[29258, 512, 3075, 68, 415, "Text",ExpressionUUID->"e1fbd99c-e784-4a53-b0f3-6a35700c5bf2"] }, Open ]], Cell[CellGroupData[{ Cell[32370, 585, 193, 2, 53, "Subsection",ExpressionUUID->"fdfeec8c-4b15-49d8-8336-ba97b7c1a10b"], Cell[32566, 589, 2436, 69, 67, "Input",ExpressionUUID->"2d3dcf4e-5afe-478e-9da3-e6e33b6f87de"] }, Open ]], Cell[CellGroupData[{ Cell[35039, 663, 981, 25, 82, "Subsection",ExpressionUUID->"5e74581e-f44b-46a5-bbf1-335919dea588"], Cell[36023, 690, 11325, 253, 603, "Input",ExpressionUUID->"11857c3a-06de-4bd5-8967-0d8dc2490e97"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47397, 949, 194, 3, 64, "Subchapter",ExpressionUUID->"c732d6ab-d957-42f6-b0c1-954e4bd47cd8"], Cell[47594, 954, 3125, 76, 238, "Input",ExpressionUUID->"7ae5db50-3e05-4559-bf0f-bb4f002d4061"] }, Open ]] }, Open ]] } ] *)