summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/hippo.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lapdf/hippo.tex')
-rw-r--r--macros/latex/contrib/lapdf/hippo.tex22
1 files changed, 22 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/hippo.tex b/macros/latex/contrib/lapdf/hippo.tex
new file mode 100644
index 0000000000..844dd0bc6c
--- /dev/null
+++ b/macros/latex/contrib/lapdf/hippo.tex
@@ -0,0 +1,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}