pst-func (15nov18)

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

1 files changed, 6 insertions, 6 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 8b9572fc3d6..f65c20d6c7b 100644
--- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -31,8 +31,8 @@
 % interface to the `xkeyval' package
 \pst@addfams{pst-func}
 %
-\def\fileversion{0.89}
-\def\filedate{2018/04/08}
+\def\fileversion{0.90}
+\def\filedate{2018/11/14}
 \message{`PST-func' v\fileversion, \filedate\space (hv)}
 %
 \pstheader{pst-func.pro}
@@ -1238,10 +1238,10 @@
   \def\pst@tempA{#1}%
   \ifdim#1pt<\z@ \psline(#1,0)(0,0)\def\pst@tempA{0}\fi
   \psplot[algebraic=false]{\pst@tempA}{#2}{
-    \psk@alpha \psk@beta \psk@alpha neg exp mul % alpha*beta^(-alpha)
-    x \psk@alpha 1 sub exp                      % x^(alpha-1)
+    \psk@alpha \psk@beta \psk@alpha neg Power mul % alpha*beta^(-alpha)
+    x \psk@alpha 1 sub Power                      % x^(alpha-1)
     mul
-    Euler x \psk@beta div \psk@alpha exp neg exp % e^(-(x/beta)^alpha))
+    Euler x \psk@beta div \psk@alpha Power neg Power % e^(-(x/beta)^alpha))
     mul }
   \end@OpenObj%
   \ignorespaces%
@@ -1254,7 +1254,7 @@
   \ifdim#1pt<\z@ \psline(#1,0)(0,0)\def\pst@tempA{0}\fi
   \psplot[algebraic=false]{\pst@tempA}{#2}{
     1
-    Euler x \psk@beta div \psk@alpha exp neg exp % e^(-(x/beta)^alpha))
+    Euler x \psk@beta div \psk@alpha Power neg Power % e^(-(x/beta)^alpha))
     sub
   }%
   \end@OpenObj%