« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Reliability
Analyze Component Importance
Compare the impact on reliability of each component in a system according to different importance measures.
In[1]:=
X
bexpr = Or @@ And @@@ MapIndexed[#1[[;; First[#2]]] &, Array[Subscript[x, #1, #2] &, {5, 5}]];
In[2]:=
X
\[ScriptCapitalR] = ReliabilityDistribution[bexpr, Flatten[MapIndexed[#1[[;; First[#2]]] &, Array[{Subscript[x, #1, #2], ExponentialDistribution[1]} &, {5, 5}]], 1]]; BarChart[{StructuralImportance[\[ScriptCapitalR]], BarlowProschanImportance[\[ScriptCapitalR]], BirnbaumImportance[\[ScriptCapitalR], 1], CriticalityFailureImportance[\[ScriptCapitalR], 1], CriticalitySuccessImportance[\[ScriptCapitalR], 1], ImprovementImportance[\[ScriptCapitalR], 1], RiskAchievementImportance[\[ScriptCapitalR], 1], RiskReductionImportance[\[ScriptCapitalR], 1], FussellVeselyImportance[\[ScriptCapitalR], 1]}, ChartLayout -> "Percentile", BarOrigin -> Left, Ticks -> None, ChartLabels -> {Placed[{StructuralImportance, BarlowProschanImportance, BirnbaumImportance, CriticalityFailureImportance, CriticalitySuccessImportance, ImprovementImportance, RiskAchievementImportance, RiskReductionImportance, FussellVeselyImportance}, Left], None}]
Out[2]=