From 6db1d02d81aeaaf5d9e2eed509942f726f1d51ba Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 14 Dec 2018 21:55:21 +0000 Subject: pst-func (14dec18) git-svn-id: svn://tug.org/texlive/trunk@49413 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-func/pst-func.pro | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 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 d5c66b3829e..1eca86df516 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 918 2014-05-19 12:32:37Z herbert $ +%% $Id: pst-func.pro 861 2018-12-13 20:40:06Z herbert $ %% %% This is file `pst-func.pro', %% @@ -16,7 +16,7 @@ %% `pst-func' is a PSTricks package to plot special math functions %% %% -%% version 0.16 / 2018-11-15 Herbert Voss +%% version 0.17 / 2018-12-13 Herbert Voss % /tx@FuncDict 100 dict def tx@FuncDict begin @@ -281,25 +281,27 @@ tx@FuncDict begin end } def % -/Simpson { % on stack must be a b M --- simple version --- +/Simpson { % on stack must be a b M useXVal --- simple version --- % /SFunc must be defined + /useX ED % for algebraic functions which uses f(x) /M ED /b ED /a ED /h b a sub M 2 mul div def /s1 0 def /s2 0 def 1 1 M { /k exch def - /x k 2 mul 1 sub h mul a add def - /s1 s1 x SFunc add def + /xVal k 2 mul 1 sub h mul a add def + /s1 s1 xVal useX { /x exch def } if SFunc add def } for 1 1 M 1 sub { /k exch def - /x k 2 mul h mul a add def - /s2 s2 x SFunc add def + /xVal k 2 mul h mul a add def + /s2 s2 xVal useX { /x exch def } if SFunc add def } for - /I a SFunc b SFunc add s1 4 mul add s2 2 mul add 3 div h mul def + /I a useX { /x exch def } if SFunc b useX { /x exch def } if SFunc add s1 4 mul add s2 2 mul add 3 div h mul def } def % +% /LogGamma { 5 dict begin % z on stack /z ED /sum 0 def -- cgit v1.2.3