Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Анализ надёжности
Анализ важности компонент
Сравнение влияния надёжности каждой компоненты системы согласно различным метрикам важности.
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]=
