Novos Recursos do
Mathematica
8: Solucionadores de Probabilidade e Estatística, e Propriedades
◄
anterior
|
próximo
►
Principais Algoritmos
Encontre o Comprimento Esperado de um Cromossomo Humano
Encontre o comprimento esperado de um cromossomo humano, dado que o comprimento é maior do que a média.
In[1]:=
X
\[ScriptCapitalD] = SmoothKernelDistribution[ N[Log[Table[GenomeData[i, "SequenceLength"], {i, 41}] ]]];
In[2]:=
X
expected = NExpectation[x \[Conditioned] x > Mean[\[ScriptCapitalD]], x \[Distributed] \[ScriptCapitalD]];
In[3]:=
X
Labeled[Plot[PDF[\[ScriptCapitalD], x], {x, 0, 30}, PlotStyle -> Thick, Filling -> Axis, FillingStyle -> Hue[.8, .2, .8], Frame -> True, ImageSize -> 400], Style[Row[{Text[ "E(\!\(\*FormBox[\(Length \[Conditioned] Length > Mean\), TraditionalForm]\))"], expected}, "="], FontFamily -> "Verdana"]]
Out[3]=