diff options
author | Karl Berry <karl@freefriends.org> | 2011-10-26 00:49:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-10-26 00:49:59 +0000 |
commit | 1c1eca1fa36b661edcfc91940afa0d8eff916505 (patch) | |
tree | ebc6676c2e2a1a98a3acb20a1716ddc82fb1c74b /Master/texmf-dist/tex/generic/pst-func | |
parent | 2214c869b5d91c66732c60becca58a8d192f0ff4 (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.tex | 26 |
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 }} |