summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-func
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-02-14 00:10:12 +0000
committerKarl Berry <karl@freefriends.org>2010-02-14 00:10:12 +0000
commit246b788887bcc5f805511a191ebb94c02a8bf139 (patch)
treebc1f823b4fc12de6fb2f1bb3844414e1291426ce /Master/texmf-dist/tex/generic/pst-func
parent5626901700270d96f328f3f6f72b372ddc91f9c6 (diff)
pst-func 0.68
git-svn-id: svn://tug.org/texlive/trunk@16996 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-func')
-rw-r--r--Master/texmf-dist/tex/generic/pst-func/pst-func.tex36
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}
%