# Tag Info

Here is just a draft that needs to be updated later since I am not so familar with Physic. The code has some bugs :-( Accoring to Kepler's Equation : $M=E-\mathrm{e}\sin E$ Clear["`*"]; a = 5; b = 3; c = Sqrt[a^2 - b^2]; e = c/a; p = b^2/c; ρ[θ_] = (p*e)/(1 + e*Cos[θ]); fig = PolarPlot[ρ[θ], {θ, 0, 2 π}]; angle[M_] := 2 (π + ArcTan[Sqrt[(1 + e)/...