From 22ffe2908d71591f30ac96514d5ad0a71113766d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 20 May 2014 22:00:54 +0000 Subject: pst-func (19may14) git-svn-id: svn://tug.org/texlive/trunk@34156 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-func/pst-func.pro | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) (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 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 -- cgit v1.2.3