pst-math update (1sep07)

git-svn-id: svn://tug.org/texlive/trunk@4855 c570f23f-e606-0410-a88d-b1316a301751

7 files changed, 45 insertions, 71 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-math/Changes b/Master/texmf-dist/doc/generic/pst-math/Changes
new file mode 100644
index 00000000000..00fa71e866c
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-math/Changes
@@ -0,0 +1,9 @@
+..... pst-math.pro
+0.2  2007-08-30  added GAMMA function (hv)
+0.1              first CTAN version (cj)
+
+
+..... pst-math.sty
+
+
+..... pst-math.tex
diff --git a/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.pdf b/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.pdf
new file mode 100644
index 00000000000..b9f4114e28e
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.tex b/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.tex
index aa40adde20e..e2d92f518a0 100644
--- a/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.tex
@@ -4,9 +4,9 @@
 \usepackage[a4paper,margin=1.5cm,includeheadfoot]{geometry}
 \usepackage{fancyhdr}
 \usepackage[baw,pstricks]{fvrb-ex}
-\usepackage{pst-infixplot,pst-math}
+\usepackage{pstricks}
+\usepackage{pst-math,pst-plot}
 \usepackage{amsmath,amssymb}
-\usepackage{pstcol}
 \makeatletter
 
 \renewcommand{\Begin@Example}{%
@@ -96,10 +96,8 @@
 \makeatletter
 
 \def\DefOfOperator{\@ifstar{\DefOfOperator@}{\DefOfOperator@@}}
-
 \def\DefOfOperator@#1#2#3#4{{\operator@font#1}:\left\{\begin{array}{ccc} #2&\to&#3\\
 x&\mapsto&#4\end{array}\right.}
-
 \def\DefOfOperator@@#1#2#3{{\operator@font#1}:\left\{\begin{array}{ccc} #2&\to&#3\\
 x&\mapsto&{\operator@font#1}(x)\end{array}\right.}
 
@@ -109,7 +107,7 @@ x&\mapsto&{\operator@font#1}(x)\end{array}\right.}
 
 \title{\MathPackage\\ A PSTricks package for enhancing mathematical operators in PSTricks\\ \normalsize ver. 0.2}
 \author{Christophe \textsc{Jorssen} \texttt{<christophe.jorssen@libre.fr.invalid>}\\ \footnotesize `libre' is the french word for `free'}
-\date{04/07/14}
+\date{\today}
 \maketitle
 
 \setlength{\columnseprule}{0.6pt}
@@ -330,23 +328,27 @@ ATANH defined by
     \end{pspicture}
 \end{SideBySideExample}
 
-\MathPackage{} introduces postscript operator GAMMALN defined by
+\MathPackage{} introduces postscript operator GAMMA and GAMMALN defined by
+
+\[\DefOfOperator*{\Gamma}{\mathbb{R} \backslash\mathbb{Z}}{\mathbb R}{\displaystyle\int_0^\infty t^{x-1}\mathrm e^{-t}\,\mathrm d t}\]
 \[\DefOfOperator*{\ln\Gamma}{]0,+\infty[}{\mathbb R}{\ln\displaystyle\int_0^t t^{x-1}\mathrm e^{-t}\,\mathrm d t}\]
 \begin{center}
 \begin{tabular}{c|c|c|c}
-  \textbf{Stack} & \textbf{Operator} & \textbf{Result} & \textbf{Description} \\
-    \hline
+  \textbf{Stack} & \textbf{Operator} & \textbf{Result} & \textbf{Description} \\\hline
+  \textsf{\textsl{num}} & \textsf{\textbf{GAMMA}} & \textsf{\textsl{real}} & Return $\Gamma$ function of \textsf{\textsl{num}}\\
   \textsf{\textsl{num}} & \textsf{\textbf{GAMMALN}} & \textsf{\textsl{real}} & Return logarithm of
   $\Gamma$ function of \textsf{\textsl{num}}
 \end{tabular}
 \end{center}
 
 \begin{SideBySideExample}[xrightmargin=10.5cm]
-    \begin{pspicture}(-.5,-.5)(6,6)
+    \begin{pspicture*}(-.5,-.5)(6.2,6.2)
     \psaxes{->}(0,0)(-.5,-.5)(6,6)
     \psplot[linecolor=blue,
-        plotpoints=1000]{.1}{6}{x /HLCBWz&GAMMALN"}
-    \end{pspicture}
+        plotpoints=200]{.1}{6}{x /HLCBWz&GAMMA"}
+    \psplot[linecolor=red,
+        plotpoints=200]{.1}{6}{x /HLCBWz&GAMMALN"}
+    \end{pspicture*}
 \end{SideBySideExample}
 
 \begin{SideBySideExample}[xrightmargin=10.5cm]
@@ -380,33 +382,6 @@ ATANH defined by
     \end{pspicture}
 \end{SideBySideExample}
 
-\section{\texttt{Infix-RPN} and \texttt{pst-infixplot} support}
-
-You can now use the operators defined in \MathPackage{} with the infix notation, using the
-\texttt{infix-RPN} package. The packages must be read in the fellowing order:
-
-\begin{Verbatim}[label={\LaTeX{} preamble}]
-    \usepackage{infix-RPN,pst-math}
-\end{Verbatim}
-
-If you want to use \MathPackage{} with \texttt{pst-infixplot}, then read the packages in the
-fellowing order:
-
-\begin{Verbatim}[label={\LaTeX{} preamble}]
-    \usepackage{pst-infixplot,pst-math}
-\end{Verbatim}
-
-\begin{SideBySideExample}[xrightmargin=10.5cm]
-    \psset{xunit=.5,yunit=3}
-    \begin{pspicture}*(-1.5,-.75)(19,1.5)
-    \psaxes[Dx=5,Dy=.5]{->}%
-        (0,0)(-1,-.75)(19,1.5)
-    \psPlot[linecolor=red,
-      plotpoints=1000]{0.0001}{20}%
-      {BESSEL_Y0(x)-BESSEL_Y1(x)}
-    \end{pspicture}
-\end{SideBySideExample}
-
 \section{Credits}
 
 Many thanks to Jacques L'helgoualc'h and Herbert Voss.
diff --git a/Master/texmf-dist/doc/generic/pst-math/pst-math.pdf b/Master/texmf-dist/doc/generic/pst-math/pst-math.pdf
deleted file mode 100644
index c05fee1491e..00000000000
--- a/Master/texmf-dist/doc/generic/pst-math/pst-math.pdf
+++ /dev/null
diff --git a/Master/texmf-dist/dvips/pst-math/pst-math.pro b/Master/texmf-dist/dvips/pst-math/pst-math.pro
index 1dd5efc7769..6b3e790aecb 100644
--- a/Master/texmf-dist/dvips/pst-math/pst-math.pro
+++ b/Master/texmf-dist/dvips/pst-math/pst-math.pro
@@ -6,7 +6,7 @@
 %                   ('libre' is the french word for 'free' if you want to contact me ;-))
 % Created the     : Sat 20 March 2004
 % Last Mod        : $Date: 2004/05/08 13:40:15 $
-% Version         : 1.0 $Revision: 1.1 $
+% Version         : 1.1 $
 %
 /PI 3.14159265359 def
 /ENeperian 2.71828182846 def
@@ -37,13 +37,30 @@
 
 /GAUSS {dup mul 2 mul dup 4 -2 roll sub dup mul exch div neg EXP exch PI mul sqrt div} bind def
 
+/GAMMA { 2 dict begin				% hv 2007-08-30
+  /z exch def
+  1.000000000190015				% p(0)
+  0 1 5 {					% on stack is 0 1 2 3 4 5 
+    dup 					% n-1 n-1
+    [ 76.18009172947146 
+     -86.50532032941677 
+      24.0140982483091 
+      -1.231739572450155
+       0.1208650973866179E-2 
+      -0.5395239384953E-5      ] exch get exch 	% p(n) n-1
+      1 add z add div			     	% p(n)/(z+n)
+      add					% build the sum
+    } for
+    Pi 2 mul sqrt z div mul
+    z 5.5 add z 0.5 add exp mul Euler z 5.5 add neg exp mul 
+  end } bind def
+    
 /GAMMALN {dup dup dup 5.5 add dup ln 3 -1 roll .5 add mul sub neg 1.000000000190015
     0 1 5 {
     [76.18009172947146 -86.50532032941677 24.0140982483091 -1.231739572450155
     .1208650973866179E-2 -.5395239384953E-5 2.5066282746310005] exch get
     4 -1 roll 1 add dup 5 1 roll div add} for
     4 -1 roll div 2.5066282746310005 mul ln add exch pop} bind def
-    
 /BETA {2 copy add GAMMALN neg exch GAMMALN 3 -1 roll GAMMALN EXP} bind def
 
 /HORNER {aload length
diff --git a/Master/texmf-dist/tex/generic/pst-math/pst-math.tex b/Master/texmf-dist/tex/generic/pst-math/pst-math.tex
index c7047acf789..33a35367213 100644
--- a/Master/texmf-dist/tex/generic/pst-math/pst-math.tex
+++ b/Master/texmf-dist/tex/generic/pst-math/pst-math.tex
@@ -17,7 +17,7 @@
 %%
 %%
 \def\RCS$#1: #2 ${\expandafter\def\csname RCS#1\endcsname{#2}}
-\RCS$Revision: 1.1 $ \RCS$Date: 2004-07-06 23:43:03+02 $
+\RCS$Revision: 1.0 $ \RCS$Date: 2004-06-15 22:29:36+02 $
 
 \def\fileversion{0.2}
 
@@ -30,36 +30,6 @@
 %
 \ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
 
-\ifx\DeclareNewPSOperator\undefined
-\else
-  \DeclareNewPSOperator{DegToRad}
-  \DeclareNewPSOperator{RadToDeg}
-  \DeclareNewPSOperator{COS}
-  \DeclareNewPSOperator{SIN}
-  \DeclareNewPSOperator{TAN}
-  \DeclareNewPSOperator{tan}
-  \DeclareNewPSOperator{ATAN}
-  \DeclareNewPSOperator{ACOS}
-  \DeclareNewPSOperator{acos}
-  \DeclareNewPSOperator{ASIN}
-  \DeclareNewPSOperator{asin}
-  \DeclareNewPSOperator{EXP}
-  \DeclareNewPSOperator{COSH}
-  \DeclareNewPSOperator{SINH}
-  \DeclareNewPSOperator{TANH}
-  \DeclareNewPSOperator{ACOSH}
-  \DeclareNewPSOperator{ASINH}
-  \DeclareNewPSOperator{ATANH}
-  \DeclareNewPSOperator{SINC}
-  \DeclareNewPSOperator{GAUSS}
-  \DeclareNewPSOperator{GAMMALN}
-  \DeclareNewPSOperator{BETA}
-  \DeclareNewPSOperator{BESSEL_J0}
-  \DeclareNewPSOperator{BESSEL_Y0}
-  \DeclareNewPSOperator{BESSEL_J1}
-  \DeclareNewPSOperator{BESSEL_Y1}
-\fi
-
 \pstheader{pst-math.pro}
 %
 \def\pstPI#1{\ifcase#1\or3.141593\or1.570796\or1.047198\fi}
diff --git a/Master/texmf-dist/tex/latex/pst-math/pst-math.sty b/Master/texmf-dist/tex/latex/pst-math/pst-math.sty
index cc0fab53f06..52ac7e7f6d4 100644
--- a/Master/texmf-dist/tex/latex/pst-math/pst-math.sty
+++ b/Master/texmf-dist/tex/latex/pst-math/pst-math.sty
@@ -1,3 +1,6 @@
 \ProvidesPackage{pst-math}[2004/03/20 package wrapper for PSTricks pst-math.tex]
 \input pst-math.tex
+\ProvidesFile{pst-math.tex}
+  [\filedate\space v\fileversion\space `PST-math' (cj)]
+\IfFileExists{pst-func.pro}{\@addtofilelist{pst-math.pro}}{}%
 \endinput