Is there a high speed way to draw the evolution of an ellipse, to a parabola, and then into a few hyperbolas with the same focus?
From the picture, we see that we start out with three elliptical orbits around Earth all with Earth being the focus. The ellipse progress from no intersection with the moons orbit, to a Hohmann transfer ellipse, and then an ellipse with to intersections. After the ellipse evolution, the next orbit is parabolic and then it finishes with three hyperbolic orbits.
I could draw all these individually, but I believe there could be a way to do this without such a tedious method.
\documentclass[convert = false, tikz]{standalone}
%\usepackage{fp}
%\usetikzlibrary{fixedpointarithmetic}
%\usetikzlibrary{calc}
%\usetikzlibrary{intersections}
\begin{document}
\begin{tikzpicture}
\coordinate (E) at (0, 0);
\def\moonrad{4cm}
\draw (E) [partial circle = -15:150:\moonrad];
\shadedraw[gray, left color = orange!75!blue, right color = blue!75!black]
(E) circle[radius = .3cm];
\end{tikzpicture}
\end{document}
Using percusse idea, I have constructed the ellipse, parabola, and hyperbolas.
Unfortunately, I am not sure how I can shift them in the \foreach
command to place them all at (0, -.5)
.
\coordinate (E) at (0, 0);
\def\moonrad{4cm}
\def\dom{3}
\draw (E) [partial circle = -15:150:\moonrad];
\shadedraw[gray, left color = orange!75!blue, right color = blue!75!black]
(E) circle[radius = .2cm];
\foreach \a/\b/\type in {.75/1/dashed, 1.25/2.25/dotted, 1.5/3/}{
\draw[\type] (0, -.5) arc[x radius = \a, y radius = \b, start angle =-90,
end angle = 270];
}
\begin{scope}[shift = {(0, -.5)}]
\draw plot[domain = 0:\dom, samples = 500] ({\x}, {.5 * (\x)^2});
\end{scope}
\foreach \a/\angle in {1.5/30, 2/45, 3/60}{
\pgfmathsetmacro{\b}{\a / tan(\angle)}
\draw plot[domain = 0:\dom, samples = 500]
({\x}, {\a * sqrt(1 + (\x / \b)^2)});
}