summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/04-08-2.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_7_de/04-08-2.ltx')
-rw-r--r--info/examples/PSTricks_7_de/04-08-2.ltx56
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}