\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}
