summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/tplot.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lapdf/tplot.tex')
-rw-r--r--macros/latex/contrib/lapdf/tplot.tex133
1 files changed, 133 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/tplot.tex b/macros/latex/contrib/lapdf/tplot.tex
new file mode 100644
index 0000000000..ad907cefc3
--- /dev/null
+++ b/macros/latex/contrib/lapdf/tplot.tex
@@ -0,0 +1,133 @@
+\input preamble.tex
+
+\newdimen\a
+\newdimen\b
+\newdimen\c
+\newdimen\t
+\newdimen\x
+\newdimen\y
+
+% ---------------------------------------------------------------------------
+\begin{document}
+\begin{center}
+{\Huge \bf{Parametric I}}
+\bigskip
+
+\begin{lapdf}(10,11)(-5,-6)
+ \Lingrid(10)(0,3)(-5,5)(-5,5)
+ \Red
+ \def\Tx(#1,#2){\Sin(#1,#2) #2=3#2}
+ \def\Ty(#1,#2){\Cos(#1,#2) #2=5#2}
+ \Tplot(100)(0,6.2832) \Stroke
+ \Green
+ \def\Tx(#1,#2){\Sin(#1,#2) #2=5#2}
+ \Tplot(100)(0,6.2832) \Stroke
+ \Blue
+ \def\Ty(#1,#2){\Cos(#1,#2) #2=3#2}
+ \Tplot(100)(0,6.2832) \Stroke
+\end{lapdf}
+\bigskip
+
+\begin{lapdf}(10,10)(-5,-5)
+ \Lingrid(10)(0,3)(-5,5)(-5,5)
+ \Red
+ \def\Tx(#1,#2){\Dset(\x,#1) \Dmul(\x,\x) #2=\x}
+ \def\Ty(#1,#2){\Dset(\t,#1) \y=\t \Dmul(\y,\y) \Dsub(\y,3) \Dmul(\y,\t) #2=\y}
+ \Tplot(50)(-2.26,2.26) \Stroke
+ \Blue
+ \def\Tx(#1,#2){\Sin(#1,#2) #2=5#2}
+ \def\Ty(#1,#2){\Dset(\t,#1) \Mul(\t,2) \Sin(\Np\t,#2) #2=5#2}
+ \Tplot(100)(0,6.2832) \Stroke
+\end{lapdf}
+
+\newpage
+
+{\Huge \bf{Parametric II}}
+\bigskip
+
+\begin{lapdf}(10,11)(-5,-6)
+ \Lingrid(10)(0,3)(-5,5)(-5,5)
+ \Red
+ \def\Tx(#1,#2){\Dset(\t,#1) \Cos(\Np\t,\x) \Div(\x,5) \Dmul(\x,\t) #2=\x}
+ \def\Ty(#1,#2){\Dset(\t,#1) \Sin(\Np\t,\y) \Div(\y,5) \Dmul(\y,\t) #2=\y}
+ \Tplot(300)(0,25.13) \Stroke
+\end{lapdf}
+\bigskip
+
+\begin{lapdf}(10,10)(-5,-5)
+ \Lingrid(10)(0,3)(-5,5)(-5,5)
+ \Blue
+ \def\Tx(#1,#2){\Dset(\x,#1) \Mul(\x,3) \Cos(\Np\x,#2) #2=5#2}
+ \def\Ty(#1,#2){\Dset(\y,#1) \Mul(\y,5) \Sin(\Np\y,#2) #2=5#2}
+ \Tplot(300)(0,6.2832) \Stroke
+\end{lapdf}
+
+\newpage
+
+{\Huge \bf{Parametric III}}
+\bigskip
+
+\begin{lapdf}(16,16)(-8,-8)
+ \Lingrid(10)(1,3)(-7,7)(-7,7)
+ \Red
+ \def\Tx(#1,#2){\Cos(#1,\x) \Dadd(\x,1) \Sin(#1,#2) \Dmul(#2,\x) #2=-5#2}
+ \def\Ty(#1,#2){\Sin(#1,\y) \Dadd(\y,1) \Cos(#1,#2) \Dmul(#2,\y) #2=-5#2}
+ \Tplot(200)(0,6.2832) \Stroke
+ \Dash(1)
+ \Blue
+ \Line(-7,-7)(7,7) \Stroke
+\end{lapdf}
+\bigskip
+
+\begin{lapdf}(10,6)(-5,-3)
+ \Lingrid(10)(0,2)(-5,5)(-3,3)
+ \Red
+ \def\Tx(#1,#2){\Cos(#1,#2) #2=5#2}
+ \def\Ty(#1,#2){\Tx(#1,#2) \Sin(#1,\x) \Dmul(#2,\x)}
+ \Tplot(250)(0,6.2832) \Stroke
+ \Blue
+ \def\Tx(#1,#2){\Cos(#1,#2) \Sin(#1,\x) \Dmul(\x,\x) \Dadd(\x,1) \Ddiv(#2,\x) #2=5#2}
+ \def\Ty(#1,#2){\Tx(#1,#2) \Sin(#1,\x) \Dmul(#2,\x)}
+ \Tplot(250)(0,6.2832) \Stroke
+\end{lapdf}
+
+\newpage
+
+{\Huge \bf{Parametric IV}}
+\bigskip
+
+\begin{lapdf}(10,11)(-5,-6)
+ \Lingrid(10)(0,1)(-5,5)(-5,5)
+ \def\Tx(#1,#2){\Dset(\x,#1) \a=3\x \b=7\x \c=17\x \Cos(\Np\a,#2)
+ \Cos(\Np\b,\b) \Div(\b,2) \Sin(\Np\c,\c) \Div(\c,3) \Add(#2,\b) \Add(#2,\c) #2=3#2}
+ \def\Ty(#1,#2){\Dset(\x,#1) \a=3\x \b=7\x \c=17\x \Sin(\Np\a,#2)
+ \Sin(\Np\b,\b) \Div(\b,2) \Cos(\Np\c,\c) \Div(\c,3) \Add(#2,\b) \Add(#2,\c) #2=3#2}
+ \Red
+ \Tplot(150)(0.0000,1.5708)\Stroke
+ \Green
+ \Tplot(150)(1.5708,3.1416)\Stroke
+ \Blue
+ \Tplot(150)(3.1416,4.7124)\Stroke
+ \Cyan
+ \Tplot(150)(4.7124,6.2832)\Stroke
+\end{lapdf}
+\bigskip
+
+\begin{lapdf}(10,11)(-5,-5)
+ \Lingrid(10)(0,1)(-5,5)(-5,5)
+ \def\Tx(#1,#2){\Dset(\x,#1) \a=\x \b=7\x \c=17\x \Cos(\Np\a,#2)
+ \Cos(\Np\b,\b) \Div(\b,2) \Sin(\Np\c,\c) \Div(\c,3) \Add(#2,\b) \Add(#2,\c) #2=3#2}
+ \def\Ty(#1,#2){\Dset(\x,#1) \a=\x \b=7\x \c=17\x \Sin(\Np\a,#2)
+ \Sin(\Np\b,\b) \Div(\b,2) \Cos(\Np\c,\c) \Div(\c,3) \Add(#2,\b) \Add(#2,\c) #2=3#2}
+ \Red
+ \Tplot(150)(0.0000,1.5708) \Stroke
+ \Green
+ \Tplot(150)(1.5708,3.1416) \Stroke
+ \Blue
+ \Tplot(150)(3.1416,4.7124) \Stroke
+ \Cyan
+ \Tplot(150)(4.7124,6.2832) \Stroke
+\end{lapdf}
+
+\end{center}
+\end{document}