diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples/15-05-8.ltx')
-rw-r--r-- | Master/texmf-dist/doc/latex/pstricks-examples/15-05-8.ltx | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples/15-05-8.ltx b/Master/texmf-dist/doc/latex/pstricks-examples/15-05-8.ltx new file mode 100644 index 00000000000..2e5ac91aa8c --- /dev/null +++ b/Master/texmf-dist/doc/latex/pstricks-examples/15-05-8.ltx @@ -0,0 +1,57 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% +%% Copyright (C) 2010 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{166.324pt} +\setlength\parindent{0pt} +\usepackage{pst-plot} +\makeatletter +\pst@def{ScalePoints}< + /y ED /x ED + counttomark dup dup cvi eq not {exch pop} if + /m exch def /n m 2 div cvi def + n { y mul m 1 roll x mul m 1 roll + /m m 2 sub def } repeat> +\makeatother + +\StartShownPreambleCommands +\usepackage{pst-plot} +\psset{xunit=1cm,yunit=0.75cm} +\makeatletter +\def\plotValues#1{% + \pscustom{\code{ + /xOffset 5 def /yOffset -2 def + /Times findfont 11 scalefont setfont + /Feld [ #1 ] def /cnt 0 def + Feld length 2 div cvi { + /x Feld cnt get def /y Feld cnt 1 add get def + x \pst@number\psxunit mul xOffset add + y \pst@number\psyunit mul yOffset add + moveto x 10 string cvs show + /cnt cnt 2 add def + } repeat }}} +\makeatother +\def\dataV{6.8 -1 5.9 -2 5.4 -3 5.7 -4 6.2 -5} +\StopShownPreambleCommands +\begin{document} +\begin{pspicture}(3.5,0.5)(8,-5.5) + \psaxes[Ox=4]{->}(4,0)(8,-5) + \listplot[plotstyle=curve, + showpoints]{\dataV} + \plotValues{\dataV} +\end{pspicture} +\end{document} |