diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/lapdf/cfamily.tex |
Initial commit
Diffstat (limited to 'macros/latex/contrib/lapdf/cfamily.tex')
-rw-r--r-- | macros/latex/contrib/lapdf/cfamily.tex | 124 |
1 files changed, 124 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/cfamily.tex b/macros/latex/contrib/lapdf/cfamily.tex new file mode 100644 index 0000000000..49d36366ff --- /dev/null +++ b/macros/latex/contrib/lapdf/cfamily.tex @@ -0,0 +1,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} |