1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
\input preamble.tex
\newdimen\a
\newdimen\b
\newdimen\c
\newdimen\r
% ---------------------------------------------------------------------------
\begin{document}
\begin{center}
{\Huge \bf{Polar Functions I}}
\bigskip
\begin{lapdf}(10,11)(-5,-6)
\Polgrid(1,4)(4)
\Red
\def\Px(#1,#2){\Sin(#1,#2) \Dadd(#2,1) #2=2#2}
\Pplot(60)(0,2) \Stroke
\Cyan
\def\Px(#1,#2){\Sin(#1,#2) \Dsub(#2,1) #2=-2#2}
\Pplot(60)(0,2) \Stroke
\Green
\def\Px(#1,#2){\Cos(#1,#2) \Dadd(#2,1) #2=2#2}
\Pplot(60)(0,2) \Stroke
\Blue
\def\Px(#1,#2){\Cos(#1,#2) \Dsub(#2,1) #2=-2#2}
\Pplot(60)(0,2) \Stroke
\end{lapdf}
\bigskip
\begin{lapdf}(10,10)(-5,-5)
\Polgrid(0,2)(5)
\Magenta
\def\Px(#1,#2){\Dset(#2,#1) \Mul(#2,4) \Div(#2,3) \Cos(\Np#2,#2) #2=5#2}
\Pplot(600)(0,6) \Stroke
\end{lapdf}
\newpage
{\Huge \bf{Polar Functions II}}
\bigskip
\begin{lapdf}(10,11)(-5,-6)
\Polgrid(1,2)(5)
\Magenta
\def\Px(#1,#2){\Dset(#2,#1) #2=0.2#2}
\Pplot(300)(0,8) \Stroke
\Green
\def\Px(#1,#2){\Dset(#2,#1) #2=0.1835#2 \Exp(\Np#2,#2) \Div(#2,20)}
\Pplot(200)(0,8) \Stroke
\end{lapdf}
\bigskip
\begin{lapdf}(10,10)(-5,-5)
\Polgrid(1,3)(5)
\Red
\def\Px(#1,#2){\Dset(\a,#1) \b=2\a \c=6\a \a=4\a
\Cos(\Np\a,#2) #2=4#2 \Sin(\Np\b,\b) \Sin(\Np\c,\c) \Sub(#2,\b) \Add(#2,\c)}
\Pplot(200)(0,2) \Stroke
\end{lapdf}
\newpage
{\Huge \bf{Polar Functions III}}
\bigskip
\begin{lapdf}(10,12)(-5,-3)
\Lingrid(10)(0,2)(-5,5)(-2,8)
\Red
\def\Px(#1,#2){\Sin(#1,#2) \Dset(\a,#1) \a=2.5\a
\Sin(\Np\a,\a) \r=\a \Dmul(\r,\r) \Dmul(\a,\r) \Add(#2,\a) #2=4#2}
\Pplot(400)(0,4) \Stroke
\end{lapdf}
\bigskip
\begin{lapdf}(10,10)(-5,-5)
\Lingrid(10)(0,2)(-5,5)(-5,5)
\Red
\def\Px(#1,#2){\Dset(#2,#1) \Cos(\Np#2,#2) #2=3#2 \Dadd(#2,1)}
\Pplot(100)(0,2) \Stroke
\Green
\def\Px(#1,#2){\Dset(#2,#1) \Sin(\Np#2,#2) #2=4#2 \Dadd(#2,0.5)}
\Pplot(100)(0,2) \Stroke
\Blue
\def\Px(#1,#2){\Dset(#2,#1) #2=0.1835#2 \Exp(\Np#2,#2) \Div(#2,20)}
\Pplot(200)(0,8) \Stroke
\end{lapdf}
\end{center}
\end{document}
|
