summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/tplot.tex
blob: ad907cefc3550fb7430f1f06fe95a5aaff702e72 (plain)
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
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}