summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/14-05-1.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_7_de/14-05-1.ltx')
-rw-r--r--info/examples/PSTricks_7_de/14-05-1.ltx58
1 files changed, 58 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/14-05-1.ltx b/info/examples/PSTricks_7_de/14-05-1.ltx
new file mode 100644
index 0000000000..66aabed196
--- /dev/null
+++ b/info/examples/PSTricks_7_de/14-05-1.ltx
@@ -0,0 +1,58 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% 7. Auflage
+%%
+%% Beispiel 14-05-1 auf Seite 235.
+%%
+%% 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}
+\begin{filecontents*}{dataError.dat}
+-0.7 -0.4 0.1 0.5
+-0.43 3 0 0.4
+ 1 4.6 -0.5 0.2
+ 1.2 2.3 -0.2 0.2
+ 1.7 3.9 -0.1 1
+ 2.7 -1.1 -0.2 0.3
+ 3.98 -0.7 -0.4 0
+ 4.5 0.7539 -0.5 0.4
+\end{filecontents*}
+
+%StartShownPreambleCommands
+\usepackage{pst-plot} \makeatletter
+\def\errorLine{\@ifnextchar[{\pst@errorLine}{\pst@errorLine[]}}
+\def\pst@errorLine[#1](#2)#3#4{{%
+ \def\pst@tempa{#1}\ifx\pst@tempa\@empty\else\psset{#1}\fi
+ \pst@getcoor{#2}\pst@tempb
+ \psline{|-|}(!\pst@tempb\space pop \pst@number\psxunit div
+ \pst@tempb\space exch pop \pst@number\psyunit div #3\space add)
+ (!\pst@tempb\space pop \pst@number\psxunit div
+ \pst@tempb\space exch pop \pst@number\psyunit div #4\space add )}}
+\def\GetCoordinates#1{\expandafter\GetCoordinates@i#1}
+\def\GetCoordinates@i #1{\GetCoordinates@ii#1}
+\def\GetCoordinates@ii#1 #2 #3 #4 #5 #6 #7 #8 {%
+ \DoCoordinate{#2}{#4}\errorLine[linecolor=red,linewidth=1.5pt](#2,#4){#6}{#8}% <<<<<
+ \@ifnextchar D{\GetCoordinates@ii}{}}
+\makeatother
+%StopShownPreambleCommands
+\begin{document}
+\readdata{\Data}{dataError.dat}\psset{dotscale=2,yunit=0.7}%
+\begin{pspicture}(-1,-2)(5,5.5)
+ \psaxes(0,0)(-1,-2)(5,5)\def\DoCoordinate#1#2{\psdot(#1,#2)}\GetCoordinates{\Data}
+\end{pspicture}
+\end{document}