diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-func/pst-func.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pst-func/pst-func.pro | 17 |
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 |