diff options
| author | Karl Berry <karl@freefriends.org> | 2007-09-03 16:33:26 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2007-09-03 16:33:26 +0000 |
| commit | 8e1addeb313836534d067bb5f1818d0b9a5c1dd7 (patch) | |
| tree | a2027db9392e9fe75d7b32c0fdc77aab18a34b22 /Master/texmf-dist/dvips | |
| parent | f1a51e596292491bcc441288a51aaec8af7dab1e (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')
| -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 |