Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", "comethead", ",", "dist"}], "}"}], ",", " ", RowBox[{ RowBox[{"b", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"-", RowBox[{"a", "^", "2"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"e", "^", "2"}], "-", "1"}], ")"}]}], "]"}]}], ";", " ", RowBox[{"c", "=", RowBox[{"e", " ", "a"}]}], ";", " ", RowBox[{"comethead", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"Cos", "[", "time", "]"}]}], "-", "c"}], ",", RowBox[{"b", " ", RowBox[{"Sin", "[", "time", "]"}]}]}], "}"}]}], ";", " ", RowBox[{"dist", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", RowBox[{"Cos", "[", "time", "]"}]}], "-", "c"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"b", " ", RowBox[{"Sin", "[", "time", "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{"comethead", ",", RowBox[{"30", "/", RowBox[{"dist", "^", "1.5"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "/", "30"}], "+", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"comethead", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"comethead", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Pi", "/", "30"}], "+", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"comethead", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"comethead", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "}"}]}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".3", ",", ".3", ",", ".7"}], "]"}], ",", RowBox[{"Thickness", "[", ".005", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "4"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"Cos", "[", "t", "]"}]}], "-", "c"}], ",", RowBox[{"b", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{".05", ",", "0.6", ",", "1"}], "]"}], ",", RowBox[{"Thickness", "[", ".009", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "12"}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "->", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.7", ",", "0"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"PointSize", "[", ".02", "]"}], ",", RowBox[{"Point", "[", "comethead", "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"500", ",", "368"}], "}"}]}], ",", RowBox[{"Background", "->", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "0"}], "]"}]}], ",", RowBox[{"Axes", "->", "False"}], ",", RowBox[{"PlotRegion", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".2"}], ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".2"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "5", ",", "\"\\""}], "}"}], ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"e", ",", ".5", ",", "\"\\""}], "}"}], ",", "0", ",", ".9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"time", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, {3.35794295723438*^9, 3.357943029125*^9}, { 3.35794307776563*^9, 3.35794310664063*^9}, {3.35794314125*^9, 3.3579431438125*^9}, {3.35794329489063*^9, 3.35794329492188*^9}, { 3.35794341640625*^9, 3.35794341707813*^9}, {3.3579437505625*^9, 3.35794376004688*^9}, {3.35838162732813*^9, 3.35838167701563*^9}, { 3.35957379110938*^9, 3.35957382946875*^9}, {3.35957386976563*^9, 3.35957390154688*^9}, {3.35957394995313*^9, 3.35957395285938*^9}, { 3.35957408204688*^9, 3.35957414810938*^9}, {3.35957417829688*^9, 3.35957418532813*^9}, {3.3595742638125*^9, 3.3595744265*^9}, { 3.35957446020313*^9, 3.35957446198438*^9}, {3.35957454128125*^9, 3.35957454271875*^9}, {3.35957458346875*^9, 3.35957465901563*^9}, { 3.3595747483125*^9, 3.35957474854688*^9}, {3.3595759498125*^9, 3.35957598046875*^9}, {3.35957606665625*^9, 3.35957606704688*^9}, { 3.35957610092188*^9, 3.35957616184375*^9}, {3.35958133040625*^9, 3.359581339*^9}, 3.35958139735938*^9, {3.35958142873438*^9, 3.35958145504688*^9}, {3.35972604068016*^9, 3.35972619311766*^9}, { 3.35972622597704*^9, 3.35972624818016*^9}, {3.35972627975829*^9, 3.35972629827391*^9}, {3.35972634911766*^9, 3.35972644828954*^9}, { 3.35972777903954*^9, 3.35972779627391*^9}, {3.36068972284766*^9, 3.36068973120714*^9}, {3.36068976670759*^9, 3.36068978744223*^9}, 3.36483588461169*^9, {3.36483609416969*^9, 3.36483611708937*^9}, { 3.3871965366858516`*^9, 3.3871965381233516`*^9}, 3.7607368120653667`*^9}, CellID->571524561], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 5, $CellContext`e$$ = 0.5, $CellContext`time$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a$$], 5, "semi-major axis"}, 1, 10}, {{ Hold[$CellContext`e$$], 0.5, "eccentricity"}, 0, 0.9}, {{ Hold[$CellContext`time$$], 0, "time"}, 0, 2 Pi}}, Typeset`size$$ = {500., {182., 186.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$39546$$ = 0, $CellContext`e$39547$$ = 0, $CellContext`time$39548$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 5, $CellContext`e$$ = 0.5, $CellContext`time$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$39546$$, 0], Hold[$CellContext`e$$, $CellContext`e$39547$$, 0], Hold[$CellContext`time$$, $CellContext`time$39548$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Module[{$CellContext`b$, $CellContext`c$, \ $CellContext`comethead$, $CellContext`dist$}, $CellContext`b$ = Sqrt[(-$CellContext`a$$^2) ($CellContext`e$$^2 - 1)]; $CellContext`c$ = $CellContext`e$$ $CellContext`a$$; \ $CellContext`comethead$ = {$CellContext`a$$ Cos[$CellContext`time$$] - $CellContext`c$, \ $CellContext`b$ Sin[$CellContext`time$$]}; $CellContext`dist$ = Sqrt[($CellContext`a$$ Cos[$CellContext`time$$] - $CellContext`c$)^2 + \ ($CellContext`b$ Sin[$CellContext`time$$])^2]; Show[ Graphics[{ RGBColor[1, 1, 1], Disk[$CellContext`comethead$, 30/$CellContext`dist$^1.5, {(-Pi)/30 + ArcTan[ Part[$CellContext`comethead$, 1], Part[$CellContext`comethead$, 2]], Pi/30 + ArcTan[ Part[$CellContext`comethead$, 1], Part[$CellContext`comethead$, 2]]}], RGBColor[0.3, 0.3, 0.7], Thickness[0.005], Circle[{0, 0}, 4]}], ParametricPlot[{$CellContext`a$$ Cos[$CellContext`t] - $CellContext`c$, $CellContext`b$ Sin[$CellContext`t]}, {$CellContext`t, 0, 2 Pi}, PlotStyle -> { RGBColor[0.05, 0.6, 1], Thickness[0.009]}], PlotRange -> {{-12, 12}, {-12, 12}}, Epilog -> { RGBColor[1, 0.7, 0], Disk[{0, 0}, 0.5], RGBColor[1, 1, 1], PointSize[0.02], Point[$CellContext`comethead$]}, ImageSize -> {500, 368}, Background -> RGBColor[0, 0, 0], Axes -> False, PlotRegion -> {{-0.2, 1.2}, {-0.2, 1.2}}]], "Specifications" :> {{{$CellContext`a$$, 5, "semi-major axis"}, 1, 10}, {{$CellContext`e$$, 0.5, "eccentricity"}, 0, 0.9}, {{$CellContext`time$$, 0, "time"}, 0, 2 Pi}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{545., {255., 261.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.760736812065631*^9}, CellID->191365590] }, {2}]]