diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-func/pst-func.pro | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/texmf-dist/dvips/pst-func/pst-func.pro b/Master/texmf-dist/dvips/pst-func/pst-func.pro index 47d4727b604..f1f274dc54c 100644 --- a/Master/texmf-dist/dvips/pst-func/pst-func.pro +++ b/Master/texmf-dist/dvips/pst-func/pst-func.pro @@ -1,4 +1,4 @@ -%% $Id: pst-func.pro 273 2010-01-26 18:28:55Z herbert $ +%% $Id: pst-func.pro 355 2010-06-21 10:02:44Z herbert $ %% %% This is file `pst-func.pro', %% @@ -16,7 +16,7 @@ %% `pst-func' is a PSTricks package to plot special math functions %% %% -%% version 0.12 / 2010-01-04 Herbert Voss +%% version 0.13 / 2010-06-21 Herbert Voss % /tx@FuncDict 100 dict def tx@FuncDict begin @@ -229,7 +229,8 @@ tx@FuncDict begin Horner } def % -/FindZeros { % dxN dxZ must be on top of the stack (x0..x1 the intervall) +/FindZeros { % dxN dxZ must be on top of the stack (x0..x1 the intervall) => [] + 12 dict begin /dxZ exch def /dxN exch def /pstZeros [] def x0 dxZ x1 { % suche Nullstellen @@ -246,8 +247,11 @@ tx@FuncDict begin } repeat pstZeros aload pop newZero { xNull Laenge 1 add } { Laenge } ifelse } ifelse - array astore /pstZeros exch def + array astore + /pstZeros exch def } for + pstZeros % the end array is now on the stack + end } def % /Simpson { % on stack must be a b M --- simple version --- |