summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/hippo.tex
blob: 844dd0bc6cc5a0581353bb9e4382890c6175c1e3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
\input preamble.tex

\Defnum(\n,-1)

% ---------------------------------------------------------------------------
\begin{document}
\unitlength1.4cm

\begin{center}
{\Huge\bf{Hippopede Curves}}
\bigskip

\begin{lapdf}(12,14)(-6,-7)
 \Polgrid(1,4)(6)
 \def\Px(#1,#2){\Sin(#1,#2) \Dmul(#2,#2) #2=\n#2
  \Dsub(#2,10) #2=-#2 \Sqrt(\Np#2,#2) #2=1.897#2}
 \Whilenum{\n<10}{\Add(\n,1) \Stepcol(0,23,2) \Pplot(150)(0,2) \Stroke}
\end{lapdf}

$r(\phi)=6 \cdot \sqrt{1-c \cdot \sin^2\phi}$ with ($c=0,1 \dots 1,0$)
\end{center}
\end{document}