Gompertz分布を寿命モデルとして使う
GompertzMakehamDistributionを使ってあるデバイスの寿命をモデル化し,そのような2つのデバイスを直列と並列で繋いだ場合の系の信頼性を比べる.
r = SurvivalFunction[GompertzMakehamDistribution[λ, ξ], t];
rs = r r;
rp = 1 - (1 - r) (1 - r);Block[{λ = 2, ξ = .3},
Plot[{rs, rp}, {t, 0, 2}, PlotStyle -> Thick, ImageSize -> 400, BaseStyle -> {FontFamily -> "Helvetica"}, PlotLabel -> "直列と並列における信頼性", Epilog -> {Inset[Framed[Style["並列", 12], Background -> LightYellow], {0.7, 0.6}, {Left, Bottom}], Inset[Framed[Style["直列", 12], Background -> LightYellow], {0.6, 0.3}, {Right, Top}]}]]