\input preamble.tex \Defnum(\n,10) \Defdim(\m,0) \Defdim(\r,7) \newdimen\a \newdimen\x \newdimen\y % --------------------------------------------------------------------------- \begin{document} \unitlength1.25cm \begin{center} {\Huge\bf{Vect}} \bigskip \begin{lapdf}(14,14)(-7,-7) \Whiledim{\m<360}{% \Rad(\Np\m,\a) \Cos(\Np\a,\x) \Mul(\x,7) \Sin(\Np\a,\y) \Mul(\y,7) \Nextcol(0,23) \Vect(0,0)(\Np\x,\Np\y) \Dadd(\m,7.5)} \end{lapdf} \end{center} \newpage \begin{center} {\Huge\bf{Vecto}} \bigskip \begin{lapdf}(14,14)(-7,-7) \Moveto(\Np\r,0) \Whilenum{\n<1445}{% \Rad(\n,\a) \Cos(\Np\a,\x) \Dmul(\x,\r) \Sin(\Np\a,\y) \Dmul(\y,\r) \Nextcol(0,23) \Vecto(\Np\x,\Np\y) \Add(\n,10) \Dsub(\r,0.05)} \end{lapdf} \end{center} \end{document}