New answers tagged

1

Depend on @kglr, but only use three functions. Plot[{11 + x, 27 - x, 1/5 (90 - 2 x)}, {x, 0, 20}, PlotPoints -> 40, Filling -> {3 -> {Axis, {None, Blue}}, 2 -> {{3}, {White, None}}, 1 -> {{3}, {White, None}}}]


2

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)/...


Top 50 recent answers are included