summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-func
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-10-26 00:49:59 +0000
committerKarl Berry <karl@freefriends.org>2011-10-26 00:49:59 +0000
commit1c1eca1fa36b661edcfc91940afa0d8eff916505 (patch)
treeebc6676c2e2a1a98a3acb20a1716ddc82fb1c74b /Master/texmf-dist/tex/generic/pst-func
parent2214c869b5d91c66732c60becca58a8d192f0ff4 (diff)
pstfunc 0.73 (24oct11)
git-svn-id: svn://tug.org/texlive/trunk@24385 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-func')
-rw-r--r--Master/texmf-dist/tex/generic/pst-func/pst-func.tex26
1 files changed, 23 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
index 8f88d13e308..1439e97b815 100644
--- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-func.tex 488 2011-04-23 09:19:40Z herbert $
+%% $Id: pst-func.tex 584 2011-10-21 20:34:22Z herbert $
%%
%% This is file `pst-func.tex',
%%
@@ -30,8 +30,8 @@
% interface to the `xkeyval' package
\pst@addfams{pst-func}
%
-\def\fileversion{0.72}
-\def\filedate{2011/04/23}
+\def\fileversion{0.73}
+\def\filedate{2011/10/21}
\message{`PST-func' v\fileversion, \filedate\space (hv)}
%
\pstheader{pst-func.pro}
@@ -205,6 +205,26 @@
}%
}\ignorespaces}
%
+%
+\def\psModBessel{\@ifnextchar[{\psModBessel@i}{\psModBessel@i[]}}%% hv 20111021
+\def\psModBessel@i[#1]#2#3{{%%% #2 = n
+ \pst@killglue%
+ \psset{nue=0,#1}%
+ \psplot{#2}{#3}[ /nue \psk@nue def /epsilon 1e-20 def ]{%
+ /Sum 0 def
+ /Iter 0 def
+ {/Sum_Iter
+ x dup mul 4 div Iter exp % nominator
+ nue Iter add 1 add GAMMA Iter tx@AddMathFunc begin ! end mul % denominator
+ Div def
+ Sum_Iter abs epsilon lt { exit } if
+ /Sum Sum Sum_Iter add def
+ /Iter Iter 1 add def
+ } loop
+ x 0.5 mul nue exp Sum mul
+ }%
+}\ignorespaces}
+%
\define@key[psset]{pst-func}{sigma}[0.5]{\def\psk@sigma{#1 }}
\define@key[psset]{pst-func}{mue}[0]{\def\psk@mue{#1 }}
\define@key[psset]{pst-func}{nue}[1]{\def\psk@nue{#1 }}