New in Wolfram
Mathematica
8: Resolución y propiedades de probabilidad y estadística
◄
previous
|
next
►
Algoritmos de núcleo
Duración de un componente
Encuentre la probabilidad de que un componente esté todavía funcionando después de
horas, dado que ha sobrevivido por 300 horas, si el componente tiene una distribución de Weibull con parámetros 2 y 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]=