diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples-en/15-04-8.ltx')
-rw-r--r-- | Master/texmf-dist/doc/latex/pstricks-examples-en/15-04-8.ltx | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples-en/15-04-8.ltx b/Master/texmf-dist/doc/latex/pstricks-examples-en/15-04-8.ltx new file mode 100644 index 00000000000..4775522e53c --- /dev/null +++ b/Master/texmf-dist/doc/latex/pstricks-examples-en/15-04-8.ltx @@ -0,0 +1,53 @@ +%% +%% A DANTE-Edition example +%% +%% Example 15-04-8 on page 217. +%% +%% Copyright (C) 2011 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[]{article} +\pagestyle{empty} +\setlength\textwidth{153.70511pt} +\setlength\parindent{0pt} +\usepackage{pstricks,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 + +\usepackage{pst-plot} \psset{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} + +\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} |