« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Reliability
Component Lifetime Distributions
In[1]:=
X
dists = {ExponentialDistribution[1/10], WeibullDistribution[1/5, 1/10], GammaDistribution[1, 10], LogNormalDistribution[1, 1], ErlangDistribution[1, 1], ParetoDistribution[1, 1], GompertzMakehamDistribution[1, 1], BirnbaumSaundersDistribution[1, 1], HypoexponentialDistribution[{1, 1/5, 1/10}], HyperexponentialDistribution[{0.1, 0.9}, {0.2, 1.2}], CoxianDistribution[{0.6, 0.4}, {0.2, 1.2, 0.8}], GumbelDistribution[1, 1], FrechetDistribution[1, 1], RayleighDistribution[1], LogLogisticDistribution[1, 1], ChiSquareDistribution[0.5]};
In[2]:=
X
plots = ParallelTable[ Plot[SurvivalFunction[\[ScriptCapitalD], x], {x, Quantile[\[ScriptCapitalD], 0.05], Min[50, Quantile[\[ScriptCapitalD], 0.95]]}, PlotRange -> All, Filling -> Axis, Exclusions -> None, ImageSize -> 120, PlotLabel -> StringReplace[ToString[Head[\[ScriptCapitalD]]], "Distribution" -> ""], Frame -> True, FrameTicks -> None, Axes -> None, AxesOrigin -> {Quantile[\[ScriptCapitalD], 0.05], 0}, FillingStyle -> RandomChoice[ColorData[55, "ColorList"]]], {\[ScriptCapitalD], dists}];
In[3]:=
X
composite = Table[Hyperlink[ Tooltip[Show[plots[[i]], ImageSize -> 120], Show[plots[[i]], ImageSize -> Large, PlotLabel -> dists[[i]], FrameTicks -> Automatic]], "paclet:ref/" <> ToString[Head[dists[[i]]]]], {i, Length[dists]}];
In[4]:=
X
Grid[Partition[Append[composite, Null], 4]]
The most common distributions in reliability.
Out[4]=
