summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-func
diff options
context:
space:
mode:
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