Wolfram
Mathematica
8의 신기능: 확률과 통계의 해법 및 특성
◄
이전
|
다음
►
핵심 알고리즘
부품의 수명
주어진 부품의 수명이 모수 2와 1000 Weibull 분포를 따를 때, 이미 300 시간을 사용한 요소가
시간 후에 계속 동작할 수 있는 확률을 구합니다.
In[1]:=
X
prob = Probability[x >= a \[Conditioned] x >= 300, x \[Distributed] WeibullDistribution[2, 1000], Assumptions -> a > 0];
In[2]:=
X
Labeled[Plot[prob, {a, 0, 1700}, PlotRange -> {0, 1}, Filling -> Axis, PlotStyle -> Thick, FillingStyle -> Hue[.1, .8, .9], ImageSize -> 400], Style[Row[{"Pr[Life \[GreaterEqual] a \[Conditioned] Life \ \[GreaterEqual] 300] = ", prob}], FontFamily -> "Verdana"]]
Out[2]=