diff options
Diffstat (limited to 'info/examples/PSTricks_7_de/04-08-2.ltx')
-rw-r--r-- | info/examples/PSTricks_7_de/04-08-2.ltx | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/04-08-2.ltx b/info/examples/PSTricks_7_de/04-08-2.ltx new file mode 100644 index 0000000000..cf5421d366 --- /dev/null +++ b/info/examples/PSTricks_7_de/04-08-2.ltx @@ -0,0 +1,56 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% 7. Auflage +%% +%% Beispiel 04-08-2 auf Seite 62. +%% +%% Copyright (C) 2016 Herbert Voss +%% +%% It may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% +%% See http://www.latex-project.org/lppl.txt for details. +%% +%% +%% ==== +% Show page(s) 1 +%% +%% +\documentclass[]{exaarticle} +\pagestyle{empty} +\setlength\textwidth{193.16928pt} +\setlength\parindent{0pt} +\usepackage[T1]{fontenc} +%StartShownPreambleCommands +\usepackage{pst-optic}% Fran\c{c}ois Vandenbrouck +\usepackage{esvect} +%StopShownPreambleCommands +\begin{document} +\psscalebox{1.2}{% +\begin{pspicture}(-4,-4)(4,1) +\pnode(0,0){O} +\multido{\da=-2.5+4,\dc=-2+4,\db=-1.5+4}{2}{% + \pnode(\da,-2){A1}\pnode(\dc,0){C}\pnode(\db,-2){B1} + \ABinterCD(A1)(C)(-4,-1.5)(4,-1.5){A2} \ABinterCD(A1)(C)(-4,-1)(4,-1){A3} + \ABinterCD(A1)(C)(-4,-0.5)(4,-0.5){A4} \ABinterCD(B1)(C)(-4,-1.5)(4,-1.5){B2} + \ABinterCD(B1)(C)(-4,-1)(4,-1){B3} \ABinterCD(B1)(C)(-4,-0.5)(4,-0.5){B4} + \psline(A1)(C)(B1)\psline(B1)(A2)(B3)(A4)\psline(A1)(B2)(A3)(B4)% +} +\psplot{-2}{2}{1 x 2 exp 4 div sub 3 mul 4 div neg} +\psframe[fillstyle=solid,fillcolor=lightgray](-3.5,-2.5)(3.5,-2) +\psline{<->}(-2,-3.5)(2,-3.5)\uput[-90](0,-3.5){$2L$} +\psline[linestyle=dashed]{<->}(0,-3)(O)(4,0) +\uput[180](0,-3){$y$} +\uput[-90](3.9,0){$x$} +\uput[90](O){$O$} +\psline[linewidth=1.5pt]{->}(-3,0.5)(-3,-0.5)\uput[180](-3,0){$\vv{g}$} +\psline[linewidth=2pt](-3.5,-1.5)(3.5,-1.5) +\psline(-3.5,-1.5)(-2,0)\psline(3.5,-1.5)(2,0) +% +\multido{\n=-2+0.25}{17}{% + \psline(!\n\space -1.5)(!\n\space 1 \n\space 2 exp 4 div sub 3 mul neg 4 div) +} +\end{pspicture}} +\end{document} |