From 8e1addeb313836534d067bb5f1818d0b9a5c1dd7 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 3 Sep 2007 16:33:26 +0000 Subject: pst-func 0.50 git-svn-id: svn://tug.org/texlive/trunk@4854 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-func/pst-func.pro | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'Master/texmf-dist/dvips/pst-func') 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 +%% version 0.07 / 2007-08-30 Herbert Voss % /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 -- cgit v1.2.3