Novos Recursos do
Mathematica
8: Solucionadores de Probabilidade e Estatística, e Propriedades
◄
anterior
|
próximo
►
Principais Algoritmos
Vida de um Componente
Encontre a probabilidade de que um componente ainda estará funcionando após um número
a
de horas, sabido que este funcionou por 300 horas, caso o componente tenha uma distribuição de Weibull com parâmetros 2 e 1000.
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]=