diff options
author | Karl Berry <karl@freefriends.org> | 2010-06-21 22:28:00 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-06-21 22:28:00 +0000 |
commit | 938ee1f7038369afe0f81bc0070eac38bca54ddb (patch) | |
tree | e4e63ac5585d78fbf5cb51812c27f19f3a4d2a6b /Master/texmf-dist/dvips | |
parent | 7417f5e4e32759e8fbaba3abe1d586dc34e5da85 (diff) |
pst-func 0.69 (21jun10)
git-svn-id: svn://tug.org/texlive/trunk@19097 c570f23f-e606-0410-a88d-b1316a301751
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 --- |