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
|
\input preamble.tex
\Defdim(\k,-0.7)
\newdimen\a
\newdimen\b
\newdimen\x
\newdimen\y
\def\dsp{\displaystyle}
% -------------------------------------------------------------------------
\begin{document}
\unitlength1.3cm
\begin{center}
{\huge \bf{Curve Family I}}
\bigskip
\begin{lapdf}(14,14)(-7,-7)
\Lingrid(10)(1,3)(-7,7)(-7,7)
\Rect(-7,-7,14,14)
\Setclip
\def\FamilyI(#1){\Polynom(-7,+7)(0.1,#1,0,#1) \Stroke}
\Whiledim{\k<0.8}{\Stepcol(0,23,2) \FamilyI(\Np\k) \Dadd(\k,0.1)}
\Setwidth(0.01)
\Black
\Dash(1)
\Polynom(-7,+7)(-0.05,0,-0.15,0) \Stroke
\Dash(0)
\Point(1)(+4.67,-5.78)
\Point(1)(+4.00,-3.80)
\Point(1)(+3.33,-2.35)
\Point(1)(+2.67,-1.35)
\Point(1)(+2.00,-0.70)
\Point(1)(+1.33,-0.32)
\Point(1)(+0.67,-0.11)
\Point(1)(+0.00,+0.00)
\Point(1)(-0.67,+0.11)
\Point(1)(-1.33,+0.32)
\Point(1)(-2.00,+0.70)
\Point(1)(-2.67,+1.35)
\Point(1)(-3.33,+2.35)
\Point(1)(-4.00,+3.80)
\Point(1)(-4.67,+5.78)
\Text(-5.8,5,rb){$k=7$}
\Text(5.8,-5,lt){$k=-7$}
\Text(-4.6,6.2,lb){$f_{e}(x)=-\dsp\frac{1}{20}(x^3+3x)$}
\end{lapdf}
$f_{k}(x)=\dsp\frac{1}{10}(x^3+kx^2+k)$ \qquad $k = -7 \dots +7$
\newpage
{\huge \bf{Curve Family II}}
\bigskip
\begin{lapdf}(14,14)(-7,-7)
\Lingrid(10)(1,3)(-7,7)(-7,7)
\Rect(-7,-7,14,14)
\Setclip
\def\FamilyII(#1){\Polynom(-7,+7)(0.1,#1,0.1,0) \Stroke}
\Whiledim{\k<0.8}{\Stepcol(0,23,2) \FamilyII(\Np\k) \Dadd(\k,0.1)}
\Setwidth(0.01)
\Black
\Dash(1)
\Polynom(-7,+7)(-0.05,0,0.05,0) \Stroke
\Dash(0)
\Point(1)(+4.59,-4.62)
\Point(1)(+3.91,-2.80)
\Point(1)(+3.23,-1.52)
\Point(1)(+2.54,-0.69)
\Point(1)(+1.82,-0.21)
\Point(1)(+1.00,+0.00)
\Point(1)(+0.00,+0.00)
\Point(1)(-1.00,+0.00)
\Point(1)(-1.82,+0.21)
\Point(1)(-2.54,+0.69)
\Point(1)(-3.23,+1.52)
\Point(1)(-3.91,+2.80)
\Point(1)(-4.59,+4.62)
\Text(-5.6,4.1,rb){$k=7$}
\Text(5.6,-4.1,lt){$k=-7$}
\Text(-4.9,6.2,lb){$f_{e}(x)=-\dsp\frac{1}{20}(x^3-x)$}
\end{lapdf}
$f_{k}(x)=\dsp\frac{1}{10}(x^3+kx^2+x)$ \qquad $k = -7 \dots +7$
\newpage
{\huge \bf{Curve Family III}}
\bigskip
\begin{lapdf}(13,11)(-5,-3)
\Lingrid(10)(1,3)(-5,8)(-3,8)
\Rect(-5,-3,13,11)
\Setclip
\def\Fx(#1,#2){\Dset(\x,#1) \y=2\k \Sub(\y,\x)
\Exp(\Np\y,#2) \Add(#2,\x) \y=3\k \Sub(#2,\y)}
\Dset(\k,-1)
\Whiledim{\k<3.5}{
\a=\k \Dsub(\a,3.25) \b=\k \Dadd(\b,8)
\Stepcol(0,23,2) \Fplot(96)(\Np\a,\Np\b) \Stroke \Dadd(\k,0.5)}
\Setwidth(0.01)
\Black
\Dash(1)
\Polynom(-4,+7)(0,0,-0.5,1) \Stroke
\Dash(0)
\Point(1)(-2.0,+2.0)
\Point(1)(-1.0,+1.5)
\Point(1)(+0.0,+1.0)
\Point(1)(+1.0,+0.5)
\Point(1)(+2.0,+0.0)
\Point(1)(+3.0,-0.5)
\Point(1)(+4.0,-1.0)
\Point(1)(+5.0,-1.5)
\Point(1)(+6.0,-2.0)
\Text(-4.7,7.7,lt){$k=-1$}
\Text(+2.9,7.7,lt){$k=+3$}
\Text(-4.9,2.1,lb){$y_e=1-\dsp\frac{x}{2}$}
\end{lapdf}
$f_{k}(x)=e^{\dsp{2k-x}}+x-3k$ \qquad $k = -1 \dots +3$
\end{center}
\end{document}
|
