New answers tagged filling
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
