% Author: Dr. Matthias Jung, DL9MJ
% Year: 2021
\begin{tikzpicture}
 \draw[DARCblue] plot[
        variable=\t,
        domain=0:360,
        smooth,samples=51
    ] 
  ({50*sin(\t)}:{3*pow(sin(\t/2),5)});
 \draw[DARCblue] plot[
        variable=\t,
        domain=0:360,
        smooth,samples=51
    ] 
  ({180+50*sin(\t)}:{1*pow(sin(\t/2),5)});
  \draw [very thick] (0,-0.5) -- (0,0.5);
\end{tikzpicture}