summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/chrysant.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lapdf/chrysant.tex')
-rw-r--r--macros/latex/contrib/lapdf/chrysant.tex34
1 files changed, 34 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/chrysant.tex b/macros/latex/contrib/lapdf/chrysant.tex
new file mode 100644
index 0000000000..351c497878
--- /dev/null
+++ b/macros/latex/contrib/lapdf/chrysant.tex
@@ -0,0 +1,34 @@
+% ---------------------------------------------------------------------------
+% The chrysanteme curve is defined by the equation:
+% r=5(1+sin(11a/5)-4sin^4(17a/3)*sin^8(2cos(3a)-14a)).
+% ---------------------------------------------------------------------------
+\input preamble.tex
+
+\Defnum(\n,0)
+\newcount\m
+\newdimen\a
+\newdimen\x
+\newdimen\y
+\newdimen\z
+
+% ---------------------------------------------------------------------------
+\begin{document}
+\unitlength0.88cm
+
+\begin{center}
+{\Huge \bf{The Chrysanteme Curve}}
+\bigskip
+
+\begin{lapdf}(18,20)(-9,-10)
+ \def\Px(#1,#2){\Dset(\a,#1) \x=2.2\a \y=5.667\a \z=3\a \a=14\a
+ \Sin(\Np\x,#2) \Dadd(#2,1) #2=1.25#2 \Sin(\Np\y,\y)
+ \Cos(\Np\z,\z) \Sub(\z,\a) \Add(\z,\z) \Sin(\Np\z,\z)
+ \Dmul(\z,\z) \Dmul(\y,\z) \Pot(\Np\y,4,\y) \Sub(#2,\y) #2=4#2}
+
+ \Whilenum{\n<24}{%
+ \m=\n \Add(\m,1) \Nextcol(0, 23) \Pplot(100)(\n,\m) \Stroke \Add(\n,1)}
+\end{lapdf}
+
+$r(\phi)=5(1+\sin(11\phi/5)-4\sin^4(17\phi/3)\sin^8(2\cos(3\phi)-14\phi))$
+\end{center}
+\end{document}