pst-func 0.68

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

1 files changed, 33 insertions, 3 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 4a368f76c0c..efd6897f09b 100644
--- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-func.tex 281 2010-02-09 09:16:17Z herbert $
+%% $Id: pst-func.tex 285 2010-02-11 09:40:27Z herbert $
 %%
 %% This is file `pst-func.tex',
 %%
@@ -30,8 +30,8 @@
 % interface to the `xkeyval' package
 \pst@addfams{pst-func}
 %
-\def\fileversion{0.67}
-\def\filedate{2010/02/09}
+\def\fileversion{0.68}
+\def\filedate{2010/02/11}
 \message{`PST-func' v\fileversion, \filedate\space (hv)}
 %
 \pstheader{pst-func.pro}
@@ -736,6 +736,36 @@
     }%
 }\ignorespaces}
 %
+\def\psWeibull{\pst@object{psWeibull}}
+\def\psWeibull@i#1#2{%
+  \addbefore@par{plotpoints=500,alpha=1,beta=1}%
+  \begin@OpenObj
+  \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) 
+    mul
+    Euler x \psk@beta div \psk@alpha exp neg exp % e^(-(x/beta)^alpha))
+    mul }
+  \end@OpenObj%
+  \ignorespaces%
+}
+\def\psWeibullI{\pst@object{psWeibullI}}
+\def\psWeibullI@i#1#2{%
+  \addbefore@par{plotpoints=500,alpha=1,beta=1}%
+  \begin@OpenObj
+  \def\pst@tempA{#1}%
+  \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))
+    sub
+    }
+  \end@OpenObj%
+  \ignorespaces%
+}
+%
 \define@boolkey[psset]{pst-func}[Pst@]{Gini}[true]{}
 \psset[pst-func]{Gini=false}
 %