diff options
Diffstat (limited to 'Master/texmf-dist/tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex | 41 |
1 files changed, 27 insertions, 14 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex index 124a8819b0d..56d9ef30979 100644 --- a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex +++ b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex @@ -1,4 +1,4 @@ -%% $Id: pstricks-add.tex 135 2014-11-30 08:28:22Z herbert $ +%% $Id: pstricks-add.tex 137 2014-12-08 20:17:43Z herbert $ %% %% This is file `pstricks-add.tex', %% @@ -30,8 +30,8 @@ \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi \ifx\PSTmathLoaded\endinput\else \input pst-math \fi % -\def\fileversion{3.76} -\def\filedate{2014/11/29} +\def\fileversion{3.77} +\def\filedate{2014/12/08} \message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -1377,12 +1377,18 @@ a add \or % 3->inf(imum) x scx 0 moveto #3 { - \ifPst@algebraic Func \else #4 \fi /y0 ED % left value f(x) - /xOld x def - /x x dx add def - \ifPst@algebraic Func \else #4 \fi /y1 ED % right value f(x+dx) - y0 y1 lt { y0 }{ y1 } ifelse % use infimum - scy dup xOld scx exch \ifPst@noVerticalLines moveto \else lineto \fi + \ifPst@algebraic Func \else #4 \fi /yMin ED % Max value f(x) + /xStart x def + /xEnd xStart dx add def + /DX dx 100 div def + xStart DX xEnd { + /x ED + \ifPst@algebraic Func \else #4 \fi /yVal ED + yVal yMin lt { /yMin yVal def } if + } for +% y0 y1 gt { y0 }{ y1 } ifelse % use supremum + /x xEnd def + yMin scy dup xStart scx exch \ifPst@noVerticalLines moveto \else lineto \fi x scx exch lineto x scx 0 \ifPst@noVerticalLines moveto \else lineto \fi closepath x scx 0 moveto @@ -1390,11 +1396,18 @@ a add \or % 4-> sup(remum) x scx 0 moveto #3 { - \ifPst@algebraic Func \else #4 \fi /y0 ED % left value f(x) - /x x dx add def - \ifPst@algebraic Func \else #4 \fi /y1 ED % right value f(x+dx) - y0 y1 gt { y0 }{ y1 } ifelse % use supremum - scy dup x dx sub scx exch \ifPst@noVerticalLines moveto \else lineto \fi + \ifPst@algebraic Func \else #4 \fi /yMax ED % Max value f(x) + /xStart x def + /xEnd xStart dx add def + /DX dx 100 div def + xStart DX xEnd { + /x ED + \ifPst@algebraic Func \else #4 \fi /yVal ED + yVal yMax gt { /yMax yVal def } if + } for +% y0 y1 gt { y0 }{ y1 } ifelse % use supremum + /x xEnd def + yMax scy dup xStart scx exch \ifPst@noVerticalLines moveto \else lineto \fi x scx exch lineto x scx 0 \ifPst@noVerticalLines moveto \else lineto \fi closepath x scx 0 moveto |