6 files changed, 15 insertions, 39 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-math/Changes b/Master/texmf-dist/doc/generic/pst-math/Changes
index 7d5d5be346a..7e4617fabe8 100644
--- a/Master/texmf-dist/doc/generic/pst-math/Changes
+++ b/Master/texmf-dist/doc/generic/pst-math/Changes
@@ -1,6 +1,8 @@
 ..... pst-math.pro
+0.61 2010-10-02  - moved vasicek into pst-func to make the
+                   probability available as parameter
 0.6  2010-09-29  - added the inverse normal function
-                 - added the vasicek density function
+                 - added the varicek density function
 0.5  2009-08-27  modified SINC function (Patrice Megret)
 0.4  2009-05-11  added SystemEqnSolver
 0.3  2009-01-20  added SIMPSON for numeric integration (dr/hv)
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
index 130e4c40218..7ba3422e559 100644
--- a/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.pdf
+++ 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 0b84fbba47b..d5f1f1c4330 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
@@ -450,28 +450,28 @@ nested.
 \end{LTXexample}
 
 
+\clearpage
+
 \section{Numerical functions}
 
 \begin{center}
 \begin{tabular}{@{} >{\sffamily}l l >{\sffamily}l l @{} }
 \emph{Stack} & \emph{Operator} & \emph{Result} & \emph{Description} \\\hline
 num  & \Lps{norminv} & real & Return $\mathop{norminv}(num)$\\
-num  & \Lps{vasicek} & real & Return $\mathop{vasicek}(num)$
 \end{tabular}
 \end{center}
 
 
 \begin{LTXexample}[width=5cm,wide=false]
 \psset{xunit=5}
-\begin{pspicture}(0,-3)(1,4)
-\psaxes{->}(0,0)(0,-3)(1,4)
+\begin{pspicture}(-0.1,-3)(1.1,4)
+\psaxes{->}(0,0)(0,-3)(1.1,4)
 \psplot[plotpoints=200,algebraic,linecolor=red]{0}{0.9999}{norminv(x)}
-\psplot[plotpoints=200,algebraic,linecolor=blue]{0}{0.9999}{vasicek(x)}
 \end{pspicture}
 \end{LTXexample}
 
 
-These functions return the inverse normal and the vasicek density.
+These function returns the inverse normal.
 
 \bgroup
 \raggedright
diff --git a/Master/texmf-dist/dvips/pst-math/pst-math.pro b/Master/texmf-dist/dvips/pst-math/pst-math.pro
index ae1b1db1436..744610d0cdb 100644
--- a/Master/texmf-dist/dvips/pst-math/pst-math.pro
+++ b/Master/texmf-dist/dvips/pst-math/pst-math.pro
@@ -4,8 +4,8 @@
 % Author          : Christophe JORSSEN 
 % Author          : Herbert Voß <hvoss@tug.org>
 % Created the     : Sat 20 March 2004
-% Last Mod        : $Date: 2010/09/29 $
-% Version         : 0.6 $
+% Last Mod        : $Date: 2010/10/02 $
+% Version         : 0.61 $
 %
 /PI 3.14159265359 def
 /ENeperian 2.71828182846 def
@@ -242,29 +242,5 @@ end
 } def 
 %end{norminv Michael Sharpe}
 %
-/vasicek{           %density=sqrt((1-R2)/R2)*exp(1/2*(norminv(x)2 - (1/sqrt(R2)*((sqrt(1-R2)*norminv(x)-norminv(pd)))2))
-  2 dict begin
-  /pd 0.22 def        % (0,1) probability of default of portfolio
-  /R2 0.11 def        % (0,1) R_Squared of portfolio
-  dup                 % x   x
-  norminv             % x   norminv(x)
-  dup mul             % x   norminv(x)^2
-  exch                % norminv(x)2   x
-  norminv             % norminv(x)2   norminv(x)
-  1 R2 sub sqrt mul   % norminv(x)2   sqrt(1-R2)*norminv(x)
-  pd norminv sub      % norminv(x)2   sqrt(1-R2)*norminv(x)-norminv(pd)
-  R2 sqrt div         % norminv(x)2   1/sqrt(R2)*(sqrt(1-R2)*norminv(x)-norminv(pd))
-  dup mul             % norminv(x)2  (1/sqrt(R2)*(sqrt(1-R2)*norminv(x)-norminv(pd)))2
-  sub                 % norminv(x)2 -(1/sqrt(R2)*(sqrt(1-R2)*norminv(x)-norminv(pd)))2
-  2 div               % 1/2*(norminv(x)2 -(1/sqrt(R2)*(sqrt(1-R2)*norminv(x)-norminv(pd)))2)
-  ENeperian exch exp  % exp(1/2*(norminv(x)2 -(1/sqrt(R2)*(sqrt(1-R2)*norminv(x)-norminv(pd)))2)
-  1 R2 sub            % exp(1/2*(norminv(x)2 -(1/sqrt(R2)*(sqrt(1-R2)*norminv(x)-norminv(pd)))2)   1-R2
-  R2 div              % exp(1/2*(norminv(x)2 -(1/sqrt(R2)*(sqrt(1-R2)*norminv(x)-norminv(pd)))2)   (1-R2)/R2
-  sqrt                % exp(1/2*(norminv(x)2 -(1/sqrt(R2)*(sqrt(1-R2)*norminv(x)-norminv(pd)))2)   sqrt((1-R2)/R2)
-  mul                 % sqrt((1-R2)/R2)*exp(1/2*(norminv(x)2 - (1/sqrt(R2)*((sqrt(1-R2)*norminv(x)-norminv(pd)))2))
-  end
-} def
-%end{vasicek density}
-%
 %
 % END pst-math.pro
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 adaa5fec974..ac16617e5c0 100644
--- a/Master/texmf-dist/tex/generic/pst-math/pst-math.tex
+++ b/Master/texmf-dist/tex/generic/pst-math/pst-math.tex
@@ -5,8 +5,8 @@
 %%
 %% Package `pst-math.tex'
 %%
-%% Christophe Jorssen <christophe.jorssen@libre.fr.invalid>
-%% Herbert Voss <hv@PSTricks.de>
+%% Christophe Jorssen 
+%% Herbert Voss <hvoss@tug.org>
 %%
 %% This program can be redistributed and/or modified under the terms
 %% of the LaTeX Project Public License Distributed from CTAN archives
@@ -16,16 +16,14 @@
 %%   `pst-math' is a PSTricks package to enhance math in PSTricks
 %%
 %%
-\def\fileversion{0.23}
 
 \message{`pst-math' v\fileversion\space, (CJ,hv)}
 
 \csname PSTmathLoaded\endcsname
 \let\PSTmathLoaded\endinput
-%
-% Require PSTricks
-%
 \ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\def\fileversion{0.61}
+\def\filedate{2010/10/02}
 
 \pstheader{pst-math.pro}
 %
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 9486fb72a3c..17732963802 100644
--- a/Master/texmf-dist/tex/latex/pst-math/pst-math.sty
+++ b/Master/texmf-dist/tex/latex/pst-math/pst-math.sty
@@ -4,6 +4,6 @@
   [\filedate\space v\fileversion\space `PST-math' (hv)]
 \IfFileExists{pst-math.pro}{%
   \ProvidesFile{pst-math.pro}
-    [2010/09/29 v. 0.6,  PostScript prologue file (hv)]
+    [2010/10/02 v. 0.61,  PostScript prologue file (hv)]
 \@addtofilelist{pst-math.pro}}{}%
 \endinput