summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-func
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-09-03 16:33:26 +0000
committerKarl Berry <karl@freefriends.org>2007-09-03 16:33:26 +0000
commit8e1addeb313836534d067bb5f1818d0b9a5c1dd7 (patch)
treea2027db9392e9fe75d7b32c0fdc77aab18a34b22 /Master/texmf-dist/dvips/pst-func
parentf1a51e596292491bcc441288a51aaec8af7dab1e (diff)
pst-func 0.50
git-svn-id: svn://tug.org/texlive/trunk@4854 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-func')
-rw-r--r--Master/texmf-dist/dvips/pst-func/pst-func.pro17
1 files changed, 16 insertions, 1 deletions
diff --git a/Master/texmf-dist/dvips/pst-func/pst-func.pro b/Master/texmf-dist/dvips/pst-func/pst-func.pro
index 56b43d8c605..df17f4578d6 100644
--- a/Master/texmf-dist/dvips/pst-func/pst-func.pro
+++ b/Master/texmf-dist/dvips/pst-func/pst-func.pro
@@ -15,7 +15,7 @@
%% `pst-func' is a PSTricks package to plot special math functions
%%
%%
-%% version 0.06 / 2006-04-16 Herbert Voss <voss _at_ pstricks.de>
+%% version 0.07 / 2007-08-30 Herbert Voss <voss _at_ pstricks.de>
%
/tx@FuncDict 100 dict def
tx@FuncDict begin
@@ -188,6 +188,20 @@ tx@FuncDict begin
} for
/I a SFunc b 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
+ /k 1 def
+ {
+ z k div dup 1 add ln sub dup
+ abs eps8 lt { pop exit } if
+ sum add /sum exch def
+ /k k 1 add def
+ } loop
+ sum z ln sub CEuler z mul sub
+ end
+} def
%
% subroutines for complex numbers, given as an array [a b]
@@ -325,4 +339,5 @@ tx@FuncDict begin
/cxconv { % theta
RadtoDeg dup sin exch cos cxmake2
} def
+%
end