summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-func
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-05-20 22:00:54 +0000
committerKarl Berry <karl@freefriends.org>2014-05-20 22:00:54 +0000
commit22ffe2908d71591f30ac96514d5ad0a71113766d (patch)
treec293af2202b3e0d95e3d11f6f721bd5c4eebc76b /Master/texmf-dist/dvips/pst-func
parent8db754efe5c2736dfbd92d0fe891c6cc89e4071d (diff)
pst-func (19may14)
git-svn-id: svn://tug.org/texlive/trunk@34156 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-func')
-rw-r--r--Master/texmf-dist/dvips/pst-func/pst-func.pro21
1 files changed, 12 insertions, 9 deletions
diff --git a/Master/texmf-dist/dvips/pst-func/pst-func.pro b/Master/texmf-dist/dvips/pst-func/pst-func.pro
index 6bbdb70d79c..25a8995ee10 100644
--- a/Master/texmf-dist/dvips/pst-func/pst-func.pro
+++ b/Master/texmf-dist/dvips/pst-func/pst-func.pro
@@ -1,4 +1,4 @@
-%% $Id: pst-func.pro 789 2013-06-10 13:50:35Z herbert $
+%% $Id: pst-func.pro 918 2014-05-19 12:32:37Z herbert $
%%
%% This is file `pst-func.pro',
%%
@@ -16,7 +16,7 @@
%% `pst-func' is a PSTricks package to plot special math functions
%%
%%
-%% version 0.15 / 2013-06-10 Herbert Voss
+%% version 0.16 / 2014-05-07 Herbert Voss
%
/tx@FuncDict 100 dict def
tx@FuncDict begin
@@ -24,7 +24,8 @@ tx@FuncDict begin
/eps1 1.0e-05 def
/eps2 1.0e-04 def
/eps8 1.0e-08 def
-/Pi2 1.57079632679489661925640 def
+%
+/PiHalf 1.57079632679489661925640 def
/CEuler 0.5772156649 def % Euler-Mascheroni constant
%
/factorial { % n on stack, returns n!
@@ -113,8 +114,8 @@ tx@FuncDict begin
dup dup /t ED % leave one on stack
neg 1 add /t1 ED % t1=1-t
envelope
- { t t1 mul 4 mul Pi2 mul n mul sqrt 1 exch Div } % envelope
- { noveri t i exp mul t1 ni exp mul } ifelse % t f(t)
+ { t t1 mul 4 mul PiHalf mul n mul sqrt 1 exch Div } % envelope
+ { noveri t i exp mul t1 ni exp mul } ifelse % t f(t)
ScreenCoor % convert to screen coor
} for
end
@@ -136,7 +137,7 @@ tx@FuncDict begin
Sum
} def
/si { % integral sin from x to infty -> si(x)=Si(x)-pi/2
- Si Pi2 sub
+ Si PiHalf sub
} def
/Ci { % integral cosin from x to infty (arg on stack)
abs /arg exch def
@@ -187,8 +188,8 @@ tx@FuncDict begin
/Steffensen {% the start value must be on top of the stack
/y0 exch def % the start value
- /Iter 0 def
- {
+ /Iter 0 def /MaxIter 200 def
+ { pstack
y0 func /F exch def
F abs eps2 lt { exit } if
y0 F sub /Phi exch def
@@ -201,7 +202,9 @@ tx@FuncDict begin
/Iter Iter 1 add def
Iter MaxIter gt { exit } if
} loop
- y0 % the returned value ist the zero point
+ y0 28 mul % the returned value ist the zero point
+ 0
+ 3 0 360 arc gsave 0 0 1 setrgbcolor fill grestore 1 setlinewidth stroke
} def
%
/Horner {% x [coeff] must be on top of the stack