summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-12-14 21:55:21 +0000
committerKarl Berry <karl@freefriends.org>2018-12-14 21:55:21 +0000
commit6db1d02d81aeaaf5d9e2eed509942f726f1d51ba (patch)
treee374a33167bbc84621cc6f36dabf7874027d80e6 /Master/texmf-dist/dvips
parent35965ae2eac75697e7348e1ec548ecb6dc4ddf1d (diff)
pst-func (14dec18)
git-svn-id: svn://tug.org/texlive/trunk@49413 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pst-func/pst-func.pro18
1 files changed, 10 insertions, 8 deletions
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