(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 28669, 600] NotebookOptionsPosition[ 27933, 569] NotebookOutlinePosition[ 28281, 584] CellTagsIndexPosition[ 28238, 581] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Elipses em fun\[CCedilla]\[ATilde]o da excentricidade", "Title", CellChangeTimes->{{3.6871589600823956`*^9, 3.6871589687401996`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"orbit", "[", RowBox[{"\[Theta]_", ",", "\[Alpha]_", ",", "\[Epsilon]_"}], "]"}], ":=", RowBox[{"\[Alpha]", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Epsilon]", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.6871586225715294`*^9, 3.6871586788296432`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"orbit", "[", RowBox[{"q", ",", "1", ",", "0.1"}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.687158682421549*^9, 3.6871587033255744`*^9}, { 3.68715878721527*^9, 3.6871587880841*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}}, {}, {{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJw123k41N/7P3Aie0SWaLW1IFGR1juVlLyLpJ0UCVGSoshWdhGyFKFs2fcl S7d93/d9Z4aZMTMJpdL39bmu388/rsd1zWu8zjn3/Tzn/EHy7qNL99awsLBY sLGw/O+3mIFtu4YYDVj+388R7U/vTxKWua/I3pRzC6ptd31XI7wthfq8PscS tpB5BncRLj0bPd/p8RRoVlqXhQj7PZrWwRxH2Pl61mBRlAaH2/RaLzFcYdWQ stxOuAnu1ld4uMMPsp7UF8Iih9b9UNziDe0VO4ftCNPqKlNDc/wg7ZTlLnXC G8xefPkj8xao9jvZ2QlHOnFuk2cEwrkdRtZlIjTgMC4zu1IcDN3VW6yeEW5V unXAySMEfnuarcgSJo0FKn3WDQNXvXMbW4Vp4HxmI1/F5vfQrPxjLT/hjAzm ph/ZkaD4ubM7dgMNFlyy0tY6RYFc7xPV/YRNWpqpXjIxcFJyd/JxIRocW2ds 4Ef/BLWa10uLBGkQ2lpoyt39GZr0Xe4oEab3+Eu8KoqFR9LMW1zraWBqLzv6 wD0e5JNu5loI0CAp8kPUgEUCFH1ejazhp8EOsV/3NHQS4eTVg1IP1tGgzLnf nH9TEvzn93HVlIcGrL+/d5pnpsJxe8Z4CDcNCnOcjHJD0mBeRfLqNy4anNvz LePXi3SoM3dc/s1Bg0Nsw7++SmWCVcSkkBwbDYSsP18UpGXBkT+znrJraLC5 xvN+9O1skNL9FCDBSgO3atnjch3ZYMP+4SpzlQp3yWo9KgU5YPJzS7PuChWC 31rbS7nmwSEDwUHxX1RIH2rTfreQB7GF+Y6Dy1QwSDlxbI1pPrC8iHc4v0gF 6YDl7R1aBcDmstVyhE4FR9GrRSD8FZ47qR5um6RCzdEVsxMJJeAWMmfOP0EF urXUW3apUjhVLbReY4wKuv4n4yo+lgI/M6MsYogKKuKF8goh3+C7xOzX+S4q RIlWMfrUy8Di8aqGfBUVssdlIgv3VoBRnepvRjkV5imFbCZWFVCSIi6fgVQw 09cL4k2pgBsLAn+Ei6lg+ayQcWFHJaQo/vfAI4sKkqMcmvGbq4DzZmcNy0cq rHAe/veaqwauX/HUvvCBClovT1dQNWrA8vfWS+/CqBDUmTd08VUN2Cs/GOEO ooJO58gk52oNKO5tWRvhQYWmv0WtxxZq4a5G17T+QyqM3XlRljdUD9pi9e1K alSof8Mi5JDSDEd5KcymA1SwfXo7QnGqGd6EVgTfVaZCs4pcytDmFhg2lTd8 IUeFduGE/bv8W+C9H4jf2ky8LzkGHaxbwffJgjt5lQLyxnK49kMbfDq2Q2cX UiA4e0+W+s0OWGzUd1wsosCVtjPhh+w6YLesv1pJPgUEVBY2KgZ3wIEgCWPV dAqE/Wpo52vsgCXDAf/hSArIjXb5xRzuBNR8krdsT4HKbUy3zeJd4Px6u8Bt BQp4fv9+XL2zG6RkLzyy30mBFwsKvw/Od0OkhmOmrxQF7NjtWuW4e6CqRbov eiMFvo/tSWWHHlA+397kxE6BjPWVSV7JPTCxvrNVbHAOlL0kLzW79AL7wF2v oldzkFzme3CHXD/sXorYL+g0B9QPr46Fnu6HANGMzjv2c+D7+3sR6+1++B0n ssiwnINi2MbVGNwPF998b63Rn4OKkF+GO/72g+07SVfdHXPA+bEp/HfLAFA+ u/SSKmbBWNaA++/DIbh3RnnjQvEsaP5t81rjOwQuC/lXl3Nn4cOPhh+siUNw LeN471zCLBSv+2g/PzIEB15b/3jpMws3j9Q6vLwwDG82Tfvp68xC/qZLbVYK I+CrzRbb3kOGtvDhdIvJUciUVKxabSHDjWY5rU+ro3D3yWMO2VoyqPJLuJH5 xqCUfeT7rQIyJEUYDq/bNQb0/mHfF2Fk4KUUfVM0HAOdq7trra6QIbN09GZN /RhYPqmkHm0lgZjtbzvVqHEI/C+BLFNLgpBpnXHH5HHY31LNw4kkYMnY/B3z x4k8WFPzNZ0EOBH970jrOMxzflLtf0OCQl1BV16WCXid9N8iy3kSmCf5dq69 MwHW8YPVv8tmwOHqT1P97ZNgdCQiQ65wBky5HdLkFSZBOrRtUi9jBuIrUXP1 4CTcTbdQCvk4A9PmElbhFydBweqIY+fzGSAfnVKOcZqEmMoeBijPQBqnxY3f g5Mw6FW8aTxiGm48LBtpDp4Cz/tnLQMCp6FxVKd1c8wUME3XqR30nIasF6rr 7qdOgfIVobNPbKbBfrXImFY1BQ9jJF98PDsN2bOVW8sXp0CU7WJq8cIUBJlw z7hemYZZJ60meY0paOSJ89YVnoEFrKXzHSa8tPUr2/YZKLOTqCMpToGR4O/G TPkZkH4zFuWzcQrGTD77/z45A/k5aRLulEl4FnpWXu/xDLTfy1m98HYSVNzN RzmbZ8CQ3PLgdPcE2JAe7LZ2IYGqY4F/WP0E7NKwmT/tS4KSTT4jU6UTkK1d YSQcSgJqA5PvYcIE/BIePBGbQgITv1PDh+0mwCIVwl16SHB/N49ImdgETEbs pavKkyFFl83F8/I4eNN4Eh3byLDn+kZ1mbPjoMFTJ/5pgAyeUddtio+MA3/y /l6cIkN0jppiv9Q4sH/rlaX+JMP6iPRzHQyirvIySv5tnwX1m0c4S33HYOV8 hsx661loaWS34HYYhWODl4LKuOdg/uCrgqS7o8Bdl9nqITQHSuW1vSe0RiFO U6pcc9Mc6GUZx+iJjwLvkn3+V4U5+C+0rIy3YAQsz4UlGFycgyMRKaX1jGHQ Zet+ERs8B24cx/e/NxiCv10DP0WIvvfJykrbdHoIJmd2sylup8CHDDGnELkh UNDhsT2xiwLc73qVHy0PwsrMrPNlNQrYD/gZFL8dhHjqzr9q1yhAz90SVFQ+ ACQbVTtmKAWUvG7de7KlH65RZloE1lNBXlApJIWlH+KdzooIbKTCwpqkowOT feB4YdCSczsVQi3keDYl94HTidRTk3upkNgUqyGv2geb0xuOal6kQsPNQy99 tXvhAHmputSPCu++xOc/tekG6quBeB1inxSNexbmdbkb/t6PvGVJ7LvTga65 QardUHazvcaF2NcfOE6X+K10wfUxkeTgrTTYFydXvNGtCzbP1dy8c5gG4/JK W0IDOkE2u5763po4R7Svb7gc1w4lWo4slr00kG4888/Csx16igWH9g7TIFqS T+uFRTvcNWvmo03QoH5zneprpXbgSq820ZunwVN+bd4zJW0wEqud2co+D99F pA6vi28FkbKN1a+V5sFzPnZQ80cjnO/ZE9DuNg/DOw4zWgsb4bjoaEOx5zw8 3ron7vzLRtDk7BWJ9puH/obrEls5GkHfYku7Tug8hJS5BymJNYCuU9MnoyTi +zfU3hI9WAeup090722Zhx3mWn+OPKyCNrUNnE5CdHhwSbXAbV8VXB3/Of1Y lA4Rfwd5cKkSZBbWDBhK0EExtyh1o3MlXORkX5GWosOJH/2KugEVcIrzyfQN ZTrc+vR2bDytDKpcdRqfX6BDzJXjo56Py8A4OGnLqi7xfQnkwzIqZWBv9fm+ gz4d1otJP3OxR3CuUhs0ukUH7q8yL9a9K4Xk85H8veZ0iPz7NyKr9it8OSkt 9ugVHRhcN1m7//sKUWE/+Nw86GD1ejF3prMQ9q1nGXnjTYeS3DdW3aMFUCLW zfM2gA4Lr90XJ5by4FHZrtvHI+ggE5i+vlsyG2Im1tiqZ9FBFIVezCZkwY39 HRfHc+hQ0/qlnSafBaKPvlCe59PhxcBqbo1KJnh8rrsVUkyH6akOY/vAVLhb VbhkW00HIemG9A+9cVAd/Dmyu5cOUzzPbeobYmGbR+CbvQN0KDU2vdxT+hne nSH1uAzRYSlO2ss3NgbCbpRYcI/T4aa4wbuegXComZG7nT1LB6lTjP2yGAqH z98ZrKHQgYN1/YMDse+g85hETAeNDhe8lTpCLd6CvtKZ361MOvBTvKsp/c7w 5s7liju/6CAyvXfqmbEd0Btuayv9poM5eWWjQp8V6Pu5Cyz9oQOL+X3qAfkT uLerLnI/CwPOnDOI9/jlig+5Nv94xMYAfqfNybpqHujGo8V2gJ0Bj74zc73t fPDlxsDEBcJRV30UohwC8UBuZco9DgZ0L1cL1fx9jzHvTL2FuRlw4MXNrtat kShhzborjzDtOMmf90QUJim8uqzLwwABnU+XfNU/4YRqvp4jLwM+fuiysrn0 GR0SEmV4+RiwV1jC6LFxLHIcY3EJIfwtWjI2zz0esxdtOiLXMWD25mGjldAE PNTXXSvOTzhLqFn/SyK6mSifDiJs/sLozcXGJNy78qjlqQADQuQOadOGkvGD W9zAGOGdnOGBMfMp2JZra6G5ngHPi+64nxFKR6ETYYKcgsTzfcei1GQycHXp 1E4jwl0m6t7bNmWiq4h6aS5h5op/o0JcJp4N/9bBLsSAhDuPGKf2ZCEpkmaq Q9hF90iHSX4Wjt5leR5G+Lf/0fMBkI2fteW4BggP3i9+wHIpB8UaQj/obmBA zBq32jODOfhyQCPSg7D4soB0qEkubuOZFisgPJRocm2elotXn6fxTRJWS7FW v2iXh+6P+5/zCDNgQ4dIYSFLPm40jTPcQ7hXcWeonE8++i5qFZ0nbL3ZPC9u QwE+nuPxu0fYQiOQvuNjAdoele58Qdjr9s4axy2FKEh+/c6HcIdokkX/x0Kk u90xCiVMTugrPbr1K9at3aYaRXj8mFVMQtRXDNCREflMuJV1w4LotiLcK9// 5xNhhsiD0DfRRXjoTAL1I2HWGN4HPNuLMeHI4mQI4ahmZ903McX4JkBpwpvw 535NOVHJEuzNrJx5TjhWsL877lMJsq5IMP/3vrcGPx44JFWKLVmxLBcIvypa 3NH5uRTZ+JqE9xFe0Fd5YyP9DbfJse0RIuz6MkFTLO4bCm/+enaemK+ZvV6q 5TKIa8YN79cQ5o7hP2wdj0i5b+r1gbDPR2VxoQ1l+OztyRQLwmJXO5wf6pVh lPz9VlXCcs8WTjQHl+GjP2d/rBLrJ/fhvbZiVxlWFhqIVxK+ylsVFChcjovc m4+/Itxaasm2fLkcY978vgOEP8twyNR1l6O2JWt8ClE/iwfbcvaLVqBqy6bK m4RDdBr3fLpSgUOPYeR/9fdBoznatbcCA/eEcF8m6nPVaWfBlf5K3Nmgt6OE qG+OperOVvEq9G/02apN+PHE6jWtG1VY21Uv0Ef0x9otQrdODVbhdTGbwUmi f96r3HI4NVyNR3sleRqJ/jv89e2Gmi012J9wtvQw4c+WToHnDGuwJy3vXgLR rxu5c/9cGq1B9Y/v3j3mYgBbdW6F1Xgt3s1eNehdy4D6lTXFi5J1aDtATt9B +MLhaWGnu3XIohHOfEzkw4GkH8kBk3Vo+vO91p81xHq83eCfO12PYeG6zmX/ 6DBXt+y/NNuIZOemonoiv2SFavJJe5uQ8qv1aCmdDnuUcoX7njZh9Vn9XYlE 3t3Uqtqcz9qM325cVDMk8tE0U5z1nngLim0NkL4+RoeAH4/fHpNpw9HjEVau TUQeuu2pkNNsw2JDM6nBejp4PlUeF7VoQyoX7pevpYMNfX8xJaMNL35SNU8v p4NPn3GKx5F2PDl9jE+dyPv7Ttlddpc6UPf6q7jQj3QoXpOZeeFpByqxNHTq f6CD+3PpeunwDtzCQH3eMDrQn3a41Q134KJZzsXrb+kg2OQ8tmLWiVYFp/hd 3eigrBHw9JdTF5bWKuj/M6GDV/uWf/xJPfjwkmt2LrF/OgyL/15s6MH+PrXn l7YS+1nXLVI/tQdLuCgTM+LE+AIu3AtX6sUTLPNRC+vpQKP61swX9GLtOUpB 5Oo8cMr8frdc3YfJXjaWe/rmIWN/f7rC6ADmeXW/Ovd6HuxPtnlEsgxitD+1 rNhpHtT71jI4pQbxc0x9nMxzYv/P6TzXbjKIg2377g5YzYNq1P4phblBLDzC /637yjwUmnT//LswhIfP1lzl2zkP72bfOn1lG0VGjEuxYxkNChLFjutIjaJf Gi9TrYgGfdXm1PEToyhAuyZMy6HBhWkGY/HlKDY+rN5xLJEGSYqk96PLo2hu qvvG8Q0NRH7w5V97OoZvm1P+2l+jQbt4nwOn6Ti+79CcsCJTofK4C+Wn7TgK 2Rme2D1OhUuL/4D0ahytJ2bjh/qpEFgu6170aRzXRun5yjdSoc7vzr/Dw+NY MFE5aJ5GBSP8kxatN4G6Alucza2p0C15pqr32CQOZwfUOTIoUD1hpxb23ySy mwpze5EoUPS0/Oolg0ksSOMV8RmhgKXkbmKgk/jS41ioTRMF+PuVuq4VT2Lo f2sfdSdSIO2KuHnRwSl8U3VHaOoWBT6uhF1hKEyjXsrb4n1lc6CyX69X/Og0 Tr7wENqUPwczOjvPHj8/jRuWFW1XUuYguLhvws58GluvhBlFhc3BpE7h9bT4 abR+m7rF4eEcPGTRP7x5ywxe3kpT8ZGYg7NWL/XHOUnoiOdl1lvOAs08pcxU hPD53rSPd2ahvPKGFEmKhON+XBnSV2chyzUpv+8YCTO3G0uKn5yFodGdn5ye kNDXaHhtstgs6PhYPW4fJmG3wsfee+Vk8Pr8rskmnYx0EZ6QKwJk+FOfvPFC MRlD/J5nLLORYdjuWp10HRl37JwNCPxJAlKp0Ylv42Q0j3iQljFOgi0jmcIZ wrP4mk82ISSHBFXfXxk6Pp/Fs/cUvvNcIcHYP/1DCcfnUDIoqig9ZAaGBb2v 1Z2fQ8OyWLf7XjNw9fGrQ5PX5vAdTBza6DADN5bfy7E9mUN984/ud4xmYP8a PUVKwhxa8rOwvJObgaIY5tyVdRTM07u26lA6DWWWp6TtuijI22a/YDs8BVvD H00kjFGQjcPEeX/rFHA8JOe1UCkovfa681zZFAQw0l5zrKXiiePiNPW4KbDW DVMUVaGioyrtT6jFFIjH9stkBVOxr/H15PDiJJRO12dkadHwdO69y/84JsH+ zyhngj4Nf1Ynsm/+OQEMzx/bgoxomHRuZlV5dgIe7LJ7qfuMsJ/Q1LlG4j6e ucHS8hMNVe7xL+4OmIDpkPdCAks03Oj541aGyASwjWssk8LnUTWJw4i5ZRwq GtC58fM8+lq/STzBPw7jc7VqCanzqBI13O29Ogaqwiby6mXz2M9m8pt7dAyO PUmJ4CPNI3IHrpRHjwFXzZmVxX10jLBmvy6yfQy6TzTRFyvp+OfgHt9htRFg 8LndlWyiY0a+sNFxiRGg0uYKT3fRsSFPpizk9zCwdV9mfzJFx5e2zRq7vg2D WeCFUdU1DOy8VGQyfHIYjG9YeFtKMtDH34waoDUEbN/19369xcDedR4LV/QG 4MEJ44NaRgx8+Hb574f9A+BOXmXtNWbgH+EfJT0bBqAn/Eb/pAUDw7aTnVS6 +kGHR8uiwZ6Brv+ktgde7geDLE1SfTADvbM4dev1+kBdJljZu4ZwQi2/m3YP 1B3X5GivZ2Dev1UD/t09UH72cfqGZuL5MFajoLU9oLlu2xPvTgZeGBzJcP3W DWvTd8apjjHwlqE+eXVvN7D+jDEM/cnA+kOhYs6CXeDh+qLI5zcDN0/0xfvR OiFpR07H81UGSqhxFATVd4KdTPO+s+xM7J3oCPVy7YQH8su+8QJMVPos+m0z swM4m50d78gy8VvbxXPfW9rh0uCrfyy7mFi39d1R/+R2SNqzUy5Cjolvjd57 Snu0A95+9Bj3MpFikHfj8LF20J/wTKg9xESe5xUPJVLaYObYTEK3NhMj9Rcv GvG2wpd/M3fGHjJxk8d5upRVA0jHdtZnWTNxYTd4d+xsgGCK9AMnGyZWxn9y fT5RD6Pif65wP2PirRoNctrVehBru4jTjkzMXRHhylGvg6hXnAcLvZk4/Hf/ 85PCNSDNlTZ21JeJDuFtMTYt1VA+UF9Y4sfEvlKV4AivajgY/p2ZFsDEVxwc B/r+VIFhjqLdlRAmPjh5ibw6VQl5xw7/h9FMFP+UcFQ0txzc7zqEL8UwsbCY 0jNsVQ4r+45x7/7MxIP9hqnRO8uhxknrunMcE7fk3r0nFFEGN8eUEphfiPkZ OaBsxYbAEs6/fk0yE5VFpnbHP/sGt7ZmRqxLYaLjoxHeztlSWLfJQ1Q0jYlT lpEagm0lcPv9hD81k4nxf2sTNkcWwes3Kr+7s5h4XWUfC7dAEYQ+FfAoymZi yeLJAqrrVzg4MLpom0uMN2rm54f7hRDxVfxARgExX9ukpsP25YMZS6nP40Im 0i96nzkdnweCPPJ/Fb8yUTRQzmFWLA/So/ceiChi4k59VfFtf3OgLqR6Qq2U iZZcXJpHa7PAmhEi0E64LJxGdziaBSzryjxMvjHRjxwlkZ+VCQ881fReIhON LNW0VdQywENQ7MuaMmI820O/+Uilg3H+ozOvCDffEw3t4UuDQY0qw2flRD2N nu65NJ4MWjdv95EJn/s4QX/VmAQ249kfrlQw8XCka1tq3hfYc6jnp3QlE4+v dJ0leSfAlNrld68Ix2dEBv56Eg+9a0l2I4SDvvuyrTWMgxW+ElGPKiaSN+yr 5tr3GUIdi9s7COsISdSwbv4EzjJaXRLVxHidfC8tro0Bn0vntxoSvm7+n0ft 6Ef4oRKXEUn4cMGW8Q85EeAwesSrh/C1O52m9zzfg5X670TeGiZ6ZX+r23kz DEr3NvMfJextcqBwQjEE1htFldwnPHT8zUzommBoMTfI8idML5Bdq9HzFvbV rFAzCTfuKPYZ1HsDl9vMHrUQrmTZmyX92wuUqyPUSIR3Pn08Zvz5NRRXep/9 TVj2kq7Dx3Mu0NckF81Ty8TuJfX62HE7eFRpf1SEcGxszx9uo4dgbvlo+ybC utIqj9x/XYevD/nObyZM1zhYK/VBHa/pXSzZSNi1+W9OR/091HI/ZLue8NXi unGf0CcYrttiw0Z4+NI7uR1nHfEySaiQSfz9Gy43Dg45uuGbq/ynBwnTXNRt o7s98FJIvWgZ4SJnRfObir4Y//SiUgzhqvrLOfyeAWibkfrWgfAh5aXlQXog +g/SD14i/MJYfERu8zuMtt29Q4bwaF/ejSdnQ1Gk98FNJjHfO6jWJbm24bhN vbH3K+FvPQu68zEfMLzDIOIlYW1Bqvm25kjcref0c4lYXwMqe3p2UAxmzKoH pRIecWg3L/nyCXWWYp8YEM6K135d9u0zPnhUuS6LqJeligmb/Lk4dH5TXaNH WIGjLSSRJQEzX9NrmUT9jUyuzwsUTcRW3uux2wiTvt3wuHgyCRUuU19mEPWa E37ZU+paMp6cufDpMOFJ2ddSNKsUPPj3WOVJot6teMKq779Pw5y3us8liH4x GBf0/rGciedPX8myI/rp6Uh+wEv/LMyaDDFsLSHGU5DCwiKbjYv/2CQeFjPx 5hqOEwzdHFQ0H91iTvTv4PI/HvuUPOQVoHF9IPr7yymfwzXq+Ti+bfFBdT4T 970bFeTry8cQQ/cI3jwmhrty9b5kL0ThKoVUfSI/NuON0IVbRdiwze3uDSJf rrBuH/35vQgPflZ9dz2D6L+fLvw/vIoxzCDmgSaRRweOL5xozC3B+oPHfo4R eSYatLV7iRdRreTgP14iH+vWSlG4hsoxfdejpMKPTATxpKS0HRWo+KW493Yk kZ+PhyPPP67AP28lKj++J/IpRTnbhqMSbesVSL3BTEx0KAmwUKrC6sOdqxqe RD/YXB8lu9WgVLTRkQh3Yv8IXaFuaK5B4bKTnJRXRH9O/bZVFatFQ+49Oi9c mDiQeszjTkot3txwtPTqcya6zTSkaXfWYaHGy3J+CyYGRl+WuS3ZiP7UZy17 zZgokGUyyWPaiE2HfOW0TZl4Oiu9OC25EV2WN3Q+u8vEnxr9t/v2N2HHFuff wTeYuDf0Lz9qNONSSLDh/DkmOuuuGf52vxX/BTBKqjSZaGrmSWpPacW9Y052 oRpMXLl/Im2A3ooyp/LYFdSZmDZW5T1zpA3vDISGb1Nj4vKLtGfvK9twcdXD djexv7KriP9Zbm/H5t3GbPlSTDxZ7nQ+eaEdjUqu/T22nXgfU62mKyId6Jzk pXpiExMzlx8fjLrWgSt+cgPrBJn45oqmz/RIBzJbsppbiP3+Vgh9RHuuEzWs x1fmifMDyI8OH/jTjS97dgglNzDQP8z5+sC2Hry86x/jdi0D2fz67O1O9eCn A295S8oYqMqR+jDcpwev5dePquQw8KJlY+OTjb044VNqphzGwODsM2vd9/Xh g93Hg/VuMvALqf1e4e0B7CYlV1hcZSD9fanfIbcBDD6qQHfUYyCXWV15ZtwA Ghemnwk6z8D/jgrJus4O4HaVZSnXIwx0ccl+/sVmELsd/ZUfSzAwPz32K8er IRSb7Nqvk0THW3/+G0iLGMETDVMej2LoqKhzx+14yQiWZel8cQ+jo/upeNmq oRGcXBq5F+pOx4lfl/elbxnFbym8h7Xu0NHWplflT9Qo/jlZWbkqSsfIRy9O FV8cQx369p8FDvMoyuJq0Hx+HH126s8VPp5HHeOd227eHMew9qeKWffnUTxA qGDCgri3/Vdf6qk3jyMdWfqj3uOY6uxi0yw3j5su5lS8qR1HWqc9H/bS8Ka3 EV+x+gQ+Nd9354Y8DWPzxWNUlCeR1GqdwydJwy7W3sWl45P4xD1qsUCUht/4 JsyztSfR7PjqtV+sNHS7IBElZjaJyzklHLv6qKg0d6LtQ9QkxszI3VJ7RcXe i3sUXXmmMKQ9+dQJ4n7A4VzzN3d4Cjm5pcQ21lOwOpIqlzM3hR0ms1dnSylI l4ldm7I8hZd6/JXtEyloKW+V7yk4jQoCMfmaLyiYWdT05cfpabxyPDs8aysF WbUOLL5PnkY/1Zyw5rtz+DxdlfbbegZpAcWP+/Tn8KGrkJ+S0wxqiXYrDJ2d wzVm704b+M7g5PbOmy2Kczh17dlCVPwMPtjjc8BwZRbNfATHKvpn8APdNljp 7SzynLYq9T5BwoUFS/uafDLetJpIXeEkI6ftTr6fX8iY//O5m7wwGQW/r1OW jiCjbLkM6+XtZDwv0HLa1JmMaru/UX3VyPix11Y5RpOM/Isq0mFmZBROzuUn 95DQvmVae2MtGXN3Pg6jM2aQza3OOvPlLJ62uuZ2ZXIGn1Anz27wmsWF1xbW hd0zuMHT0/th0Cz2fmkysyqaQeWjYUf4E2dx4OjYf5GvZlDaY1j2e+ssGn7V 5hASmcGH2KCitX0OqetXDzkdmEaNbsqaPcVzaHEpMfnCjmn8bHl1KrxqDpuF YvIkNk7jU/YF2p/mOZxz8kqL/z2FGe0eNmljc6hz1TPZs2IKTz+yFMhcS8F0 nQ1rXS5OYUA0l8jhCxTU2XYo1dh0Erkknw7r91Nwx6n+hpWrk/hRikXi/Tix Ths8Tvqfm8SHu7wjumYpWH9U5GKywiQOlGiZHVih4Cdbx5sF3ycw/4EMe5gE FYufnVPZ7TSBry9YypOuU7Fr2eyNb9A4xvWWsaR0UNFT6oB//qtx5P6r9epH PxXjeN/bj9iOo8G+ZVnVcSpuNzm+WfbqOIqG9NV+olPx+269Lf6bxjGg9KKx BB8N82OWf3bEjuHV+G+Kb0/RsKCB7UiAySjOPcq94pVKw3/rVc5GnBpF9cP6 LAY5NHQ5sN/kk9QounPuOrOriIZhsqZLEWMjeM5ILfZzLQ37vDdXnb81gtF8 CW92TNAwhaeTPebSMFpEL762EJnHcIuPAxZHBtF7vVvdiO08Nj1jDraID2I4 /VCe+4t5zLc6dE3x5wC2DTfJS7sQ90rd+vnR3AEMVJLPU/edx/EvXq38igPo WCultO7TPM7adqrGb+vHdDudN8MN89gpeWRpDUsvPo3LaL4rRsc9b18UHxjr wQ4Va/DfRMe/igp1xmU9eNqI/3HWNjq6ZtYOfnXpwc7CvcKjO+k4qpc2c4a1 B4vIX271HqTj2TcrN6ms3Rj7uWTD0St03Fx/un5pvAtv6NsGTl6n474vyPev vAuNttxqdzOgY4dF4SFuty4c/5kQ/sWEToz7nvTaNV2Y4rBNO9CGyDlcpH5m 7cTfEgc9ev3oyP8kbsx/vAMbS5w0fwfQcXLuwcHn5R1oH1/UKhpMR+e2w8rn XDtQoS9YVeU9HSm9W7V6WTowVpFuJhBPfJ70LDXnXxvm7OYrP1RMR4kKmPEe bcMBrmXpgVI63jjBzX8b2/CWz9JlmzI6HrvMr8Xh3IbhfNrSPtV0bKYw6oL+ tKLNdweXq6101PwRe0LvVzNiUVyp+Tgd77vXrnXIaUYnG5UHuZN0LFdc6/PJ qhn1JG3dFqfpuClh6w7KeBM+lTRk3pijo15nMOeThkbsXILZ7O90NPjzcnvw 60Zc7+bxJ/MHMd+XHeKyjzeiyX/+LvFLdBTcrnyKkd2AcoWxI49X6Gi4Lk7J LKIen96ncjSxMFBwk/Wyu3498tazjcexMnAHJaEzVqAeH5GNl+3XMHBSbI3k 2Ks63LSWf1CInYGDz7MMDSxr0c671m8dJwPLjmpsd9pRiyTfvqtlhOO2zEdH j9WgX9kz44dcDDzof2nP9OUatKeFHS/hZuDZnqR6x2PVKMtuJryNj4EJR29U xy9XYeidzoUUwoe7BHe0ZVXh7TCLjQfWMbAp2sd8944q9Fb02K/Kz0BZ+dyn 18Yqsb/5pHwmYUG/vEPeHyrxKEZYyAowsPVcxREGfyWq8X+uYF3PwKS1fz/v qK/APK+gITPCQucfCt9+VYEzfvEnGglz7mI361kux0HVullXQQZK+W59IpJd jn/zZJV6COtw3By4YlmOJo/UK2WFGDjL1sM/PlaGLKMGHfmEL+5uY5eLKEN/ roKLPwlfiDX+8lS/DGd1nDerbGDgCnNwXZVAGR47ZHrIirCs7UqQ3DvEwLeb E2MIf3HmGu3gQiywuWzaSpirRnuX68tvqKRZbveLMJWIcZXvpShVJja0VZiB 6yb79BimpXi8f907IGy1muKRNViCGT03Ym4SzmlpvPpcpwTXni5gfUL4ZMI1 umZ1MUotDBW6Ey4dNH665XAx7vztURNM2LOCLriSXoQGBY/lPxKWJ0JsWLoI d9fcIH8izJasqVgf/hUXOFlX/2eWH01/i9d9RaEoGav/fT7lm+wxim8h/oh0 WX5H+HXCb31JnkLMXb/xqRfh2b3vzQy9CtD2ms+MHWHL88dCPnMUoEKVnbYx 4WmdTX9or/ORFuyaqEXY/9eN0hNs+Si2fO7nHsIKNzb++uCah+95bWEd4Qsj xq1//uWiwnDsSzIxPwGnThqZOuXiOxOnHCQ8G5za2PsnB4c8ksaDCPNvf6us 65CDQcJNXHcJt7xoyer4lY2s9W927yEcYnvM8pZ9NtqfCzv9g1i/GZFEl/ml LHSRCbpRQPiP+VVVhR+ZyJXO8UKZ8APxZdE+m0z8ztL3mkzUh0yZR4z4ZAaW L557E0H4ub5UqNRIGgrR694vEvVlcFk8rGIwFQMqD0RHEu68pavxtD8F7/at xgHh2/334jZ0JyFZ6mnuc6J+DTbadfzr+IL0I564nvDc1L4v/9oS8fmNyuZY ot5PB/GePtIcj1brApZKif74ZB3PnVTzCb98ePGmgpeYfx2xk4eqY9Caf7j6 EOHAzrWy3zyjUbVajjONh4E72TUm+9wiMHnQPtGT6MfMVzfLdjsEY9ba+Cf/ 6+cQt1fbs54H4s+F7Vz3OBh4I0uRp5Xhj6Ri55TCtQz8ef3Q6xqqB3o+YUpe JvLgeWCw/db4B3g5SWbyJpEfgtraz7jPX0UtVGJ/R+TLR0+5pyt31KH4RLjt 23/EuZMx/KZ/pw3I5qe2n/tDxwdx+rEfeLzhPKWvwXCR2A+OHdQqehwJxawJ khtm6Kj9t1FT1yQKhrTltgtO0bHz3d7d1+RjoGXUPYNzgo5jJ8st7m75DKeL +T1Hhumo2viidgtLAgyI12ns76ajo2jsdpayNJCyMDJ/UUHH679zjWwK0iHB UlRlDZHX254NQHV6BrxefJziRuR5/5FbazxaMmH31pIoq0I6Br9PJPGWZEN8 2NUWShodT5xt//EnOB9SfpU2+hDn7FNerEHp/AWwW8yDN+odHRM8KnoueBdA keIGweRAOvqMhczfcCqEL/9Z26b6Ennu+MQ56n4R+AntbL7hTMcNw25+Jarf oH2A49Lte3TcwkX6rTNZAVbk96eEFegoon/WI1imEqLvWyYyiP1TSfPs3/p7 lZDh86GlSpoYb8N1GyFyJbhLJFpfJvbfgZ/clQLUKpiQktIU5KFj1cPFB+nM GrAg29xmm5nHm0s1P9cvNEDuu+TQgbB5ZD2mcC5nXyPEvzXenRs0j5n/oqM1 bRqhWE281f3NPDq48MicYTbCW8l6A8FX8yi5uOV7+HwTdDz70lZvNY8J/UPL XjMtcJU0o1ehPo+f/gPnsHvtkJEyc35qkoZKkkKrD9zagVL7VFBxhIa3ZR59 OhTdDs3G2oce99GwQuM9lPW1g6p4SuFkEw3vUUTgxfkOODB3Lfd5Hg1tPARd Ivd2gp+WWfADdxoGcX26Yvu9C14nPyt8tp2GJymPJu7yd4Oz5fA2pjgN7Sb3 kc7JdUP6kWHlextoGLiffob1bjfQtk4aHuagodemu63C7d0wyWzc8p5CRUf7 HQENaT2wvdL4oFweFXuW1pX9d6cP7g1JHk85RUWOPXp+bk59UHPEe6HiCBX5 f85Up0X0gaLY2cDO/VRciY4yI3X3gf0MM3BUmooBC5kVM+f6wbpl19/PbFSs qGv1Xq80ACKb1HYOlFNQ9Vv4EdKPQZiXSSCOshR0dx1SHlk/BBK/j7LeUKKg vcyZgQaFIbjeWvznzU7inlKrLO9uMgRFxYyxcREKxkb2KL/sHILHct15h77P YdmuyDXPMoahusNKJzVpDu0KBVjv3R4FxScyhjkb5nA5a6+77/NR2J8lqa3F M4eVnMlPE4MJr7WQGWSZw8bIW15YOwqW675Hz9FmseuU9HKB2BjYHAsWK6+d xWMRfA2mTmNwRlQy88KLWfzCPTWSpjkO+d6iXayDZNxwiHF9w+Vx+M9OfH6w jYz+yqrqT4zG4fHdMb3MGjJu/hd7Xur5OOw7vUbgbDYZzTm7hY4lj8Oxi5/e 7/cm7jkdTh7GvBNQ6JKT9VeFjJHPBg7dq5+A8X3qXk98SRhnHH7vfNcEJIs/ DLvqSsIHmYGOCqMTsEmgYu1BOxJxviy9N/pjAgJYFrnJd0k4b/d9mXP7JHzl klsWOkzCf/teFdx9OgkPyS8++JNmUCJ+BfdvngI5zTdFijCD8eftNW13TAEL p8G7Vwdm8MCJfK8MpSmw3nhpa9fuGSz9G7RPVGMKXN53a5sJz6CSFmMl1op4 vt/ipsHsNKqUcW8qK50Cip2dvWPQNCas3CpmXJ+GVAlB95jxKfyU5Xbyssk0 3Jm+k+7UPYWlrvp3sh5Og7DCkuy1esJn4Pa1V9Owb4nG9zeTuI8uSe25njoN sS3qIgIuU8hGkYmS+TsNguc4Z69smcK2wUnf3vczkN6+YOV3eRLl1AtHLGJn IFSmPGNAcxLVVP+FLKfOQIuf1BeZI5O433tM/i/OgKdqZn2K5CRGL0k3Fk7P wIPK2/Ke8xO4qsXiz9hLAoWK56efek5gitN9qWtIgo/r45I18scRuV8Pu9SS 4HViYBozaRzzpCrSY1tJ8D596sKHj+O4Z5NOQO8oCfwyDOzGXxM+nCT38x8J ZgT4kzX1xtE72HR4E5CJev4z+5Q+hkI8wawzhWTYOPbE2lJ2DB0oSo4Xy8gQ 6lNvmrVxDD9W/EfNriVDhE2YzgLvGDr57k+630OGiX8vhIamRtHaXtnBa4EM TsJq2U5Oo/gr+ERGgsIsrC8r8EvMHMHdg1vXXvwwC3mUhJHU9cN47uBrlq6Y WQjz2FXHujyEZ4aEhfQSZ2EBvtjrDg/hY/F3tpA7C/dcYk+OJw1hahZItjfP AktoAEflySGMkmiy6v03CyIRqunBTwYxpLAwzuL2HKTtSLL3a+9HCwkThtK9 OTivc5Z5qqAfL38rPcy0mAM2p+a2pch+LMqqqrv9bA5+hbj2XTDrx8Wl/wp+ +M3Bhlrd0LrVPrQKM9P6WzgH5uaXdpPk+nB8m3vXaz4K1IqohS449+A9G7ug JUEKKL2V3TVwtwc973LuvCNGgcl7XXwlGj0YjOvat0tR4FgsifSYtwe32+gK ax2kwJa85dCE0G48WL2/8JQRBXqiqWaHUrvQcOd/2S2pFMg603tFuasDnz2S pFzPosC7Zw6B/vkdOLokOD2cRwEHOcU5UngHcquPird9o8Bxue0CAQYdmCXj 88ygjQKhlT19GTPt+IT9zYtN3ymgHLTj54mfbVjUdK53uxIVrj/f4R2h3IIP rz6XdN9PhSzKQYYDce/J6fZeN6lKBY2tLT+ulDfjjqXKet9jVDDRTPv3R6cZ Y4bZ6t5qUYEzUuEoj3UTVl945G1mTIWNejoX96U1YMRLyWpTUyr4UD8Ylds2 IE/2TKShORXE8sg55482YPVd3W1HHlEhJi3x3KXGehzuMzFNfEEF80u3dXfN 1hH3nJk87bdUKO8KbmGRqcW3+d99p4Ko8OtsTdtZSg0+UOD49TSECqlmul/9 smuQY8emMPcPVCjqdDXlUq9BTzPewatxVMj2zNVpM6jGO73k03X5VLjIfvB2 SmglrqlXs/hVSAXK/YDQfINKfBBzWkqmmAqCSo+vfZOpRA+JsHOmSIU0z764 yuwK1DFwe/ixlgoiCSbOCS3lGLuvYKSnhwosga4HetaW4aOBVwvdfVQ4v1lB XMgP8X1TLGvzABXU1UxqrPkQxUuquWJHqHDaa4OP+LpvqJUuVzw/TYXP7X1d m/hLMDFEKjiNRIWIhyRfbf9i5E27eddkllgf7+0ydvzF2DH/cforlQpdpyUs iviLsKf4lz37AhUOJF22+MNfiCFKPuyvflBBWXTi7D//AnTUDHL/tUgFz3Wx 1D/8BVi37vD9lp9UkD6Gi2T+fMxkd4wVW6XCxzIdBU/+XORM0e/W/0eFc/ct Lxn75+D1RNnfviw0cO7NlTzCn4Pid/5Kjq2hQVpQ1Z6RddnYwrW5bycnDXTG osUX+TKxNU0pXpaLBk0Otf8Zi2egzO019zZx06C318Wte2M6ioXpl8zz0IBU bbU1QSwVw06F6jXx0uCJavAyu1gKcp0VGv7ER4NTPC0tBqLJ2P/zTM0Bfhq4 3DC5uSr8BVUramW/E+YxzXA7I5yI97YI2yUK0MD+57yv94YE1BJOnf+1ngYl XLt2sQrFYVd5nXCYIA3yNwvsURWMxQIZPQUFIRpUzlYvm67/jJ6Ot/ce30AD cW+HihL+GJR/VixRTFgqusmsalMUOiseWt4rTIOKF8xoLolINHxSVxVJuPOb TuSZjR+wXOnGK1YRGvSodbc6iYZjqfXYPkPCiQ/NU7OEQ9H85oXObMI8scux o0LvcFY13OQfYcaw+S5uwSC8ej9n5pQoDbYwklIUBd5i9cPQ6y6Es2gn4ZOE H+6lqZXmEvaqeUIdEfXC1zHBguOETdm+nhTb8Bp9TGKurBWjQfLKlOx5ARdk 7rvhJ0k4LyB4YUnUHjWkS7NVCKfm2py+JGCNJIuaenXCfQKifJcFjPD//z+a 9qiHrxlvZsn/AfEakIQ= "]]}, Annotation[#, "Charting`Private`Tag$10830#1"]& ]}, {}, {{{}, {}, {}, {}}, {}}}, Axes->True, AxesOrigin->{0, 0}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Sqrt[Part[#, 1]^2 + Part[#, 2]^2], Mod[ ArcTan[ Part[#, 1], Part[#, 2]], 2 Pi]}& ), "CopiedValueFunction" -> ({ Sqrt[Part[#, 1]^2 + Part[#, 2]^2], Mod[ ArcTan[ Part[#, 1], Part[#, 2]], 2 Pi]}& )}, DisplayFunction->Identity, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}, PlotRange->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRangeClipping->True, PlotRangePadding->Scaled[0.02], Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6871587041067677`*^9, 3.687158788569042*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"orbit", "[", RowBox[{"q", ",", "1", ",", "\[Epsilon]"}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "0", ",", "0.9999"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.687158814794616*^9, 3.687158879923214*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Epsilon]$$ = 0.783, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Epsilon]$$], 0, 0.9999}}, Typeset`size$$ = { 360., {109., 116.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Epsilon]$17081$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Epsilon]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Epsilon]$$, $CellContext`\[Epsilon]$17081$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ $CellContext`orbit[$CellContext`q, 1, $CellContext`\[Epsilon]$$], {$CellContext`q, 0, 2 Pi}], "Specifications" :> {{$CellContext`\[Epsilon]$$, 0, 0.9999}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{411., {169., 176.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.6871588557961435`*^9, 3.6871588805546494`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Prestando aten\[CCedilla]\[ATilde]o aos raios m\[AAcute]ximo e m\[IAcute]nimo \ e ao tamanho do eixo menor\ \>", "Subsection", CellChangeTimes->{{3.6871592830030684`*^9, 3.68715931763095*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"orbit", "[", RowBox[{"q", ",", "1", ",", "\[Epsilon]"}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"1", "-", "\[Epsilon]"}], ")"}]}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "\[Epsilon]"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"\[Epsilon]", "^", "2"}]}], "]"}]}], ",", RowBox[{"1", "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"\[Epsilon]", "^", "2"}]}], "]"}]}]}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "0", ",", "0.9999"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.687158988434371*^9, 3.6871589954462547`*^9}, { 3.6871591289416924`*^9, 3.687159224713115*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Epsilon]$$ = 0.767, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Epsilon]$$], 0, 0.9999}}, Typeset`size$$ = { 360., {113., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Epsilon]$28917$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Epsilon]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Epsilon]$$, $CellContext`\[Epsilon]$28917$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ $CellContext`orbit[$CellContext`q, 1, $CellContext`\[Epsilon]$$], {$CellContext`q, 0, 2 Pi}, PlotRange -> {{(-1)/(1 - $CellContext`\[Epsilon]$$), 1/( 1 + $CellContext`\[Epsilon]$$)}, {(-1)/Sqrt[ 1 - $CellContext`\[Epsilon]$$^2], 1/Sqrt[ 1 - $CellContext`\[Epsilon]$$^2]}}], "Specifications" :> {{$CellContext`\[Epsilon]$$, 0, 0.9999}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{411., {159., 166.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.687159234211132*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{759, 813}, WindowMargins->{{Automatic, 572}, {64, Automatic}}, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 140, 1, 101, "Title"], Cell[723, 25, 367, 9, 30, "Input"], Cell[CellGroupData[{ Cell[1115, 38, 350, 9, 30, "Input"], Cell[1468, 49, 20655, 372, 373, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22160, 426, 460, 12, 30, "Input"], Cell[22623, 440, 1753, 34, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24413, 479, 203, 4, 49, "Subsection"], Cell[CellGroupData[{ Cell[24641, 487, 1302, 37, 69, "Input"], Cell[25946, 526, 1947, 38, 342, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *)