Wolfram
Mathematica
8의 신기능: 매개 변수 확률 분포
◄
이전
|
다음
►
핵심 알고리즘
Gompertz 분포를 사용한 수명 모델
장치의 수명을
GompertzMakehamDistribution
으로 모델링하고 이러한 장치의 직렬 및 병렬 두개로 구성된 시스템의 안정성을 비교합니다.
In[1]:=
X
r = SurvivalFunction[GompertzMakehamDistribution[\[Lambda], \[Xi]], t]; rs = r r; rp = 1 - (1 - r) (1 - r);
In[2]:=
X
Block[{\[Lambda] = 2, \[Xi] = .3}, Framed[Plot[{rs, rp}, {t, 0, 2}, PlotStyle -> Thick, ImageSize -> 400, BaseStyle -> {FontFamily -> "Verdana"}, PlotLabel -> "Reliability in series and in parallel", Epilog -> {Inset[ Framed[Style["in parallel", 12], Background -> LightYellow], {0.7, 0.6}, {Left, Bottom}], Inset[Framed[Style["in series", 12], Background -> LightYellow], {0.6, 0.3}, {Right, Top}]}], RoundingRadius -> 5, Background -> Lighter[Blend[{Yellow, Orange}], 0.8]] ]
Out[2]=