From 938ee1f7038369afe0f81bc0070eac38bca54ddb Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 21 Jun 2010 22:28:00 +0000 Subject: pst-func 0.69 (21jun10) git-svn-id: svn://tug.org/texlive/trunk@19097 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-func/pst-func.pro | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'Master/texmf-dist/dvips') 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 --- -- cgit v1.2.3