Novos Recursos do
Mathematica
8: Solucionadores de Probabilidade e Estatística, e Propriedades
◄
anterior
|
próximo
►
Principais Algoritmos
Encontre uma Função Fechada para a Função Característica
Funções características de forma fechada para algumas distribuições paramétricas.
In[1]:=
X
distTable[list_List] := TraditionalForm@ Grid[list, Dividers -> All, Spacings -> {1, 2}, Alignment -> {Center, Center}, BaseStyle -> {FontFamily -> "Verdana"}, Background -> {None, {Hue[.6, .5, .9], {Hue[.6, .15, .9], GrayLevel[.9]}}}, FrameStyle -> Directive[Thick, White]];
In[2]:=
X
dists = {BetaPrimeDistribution[p, q], LevyDistribution[\[Alpha], \[Beta]], NakagamiDistribution[\[Alpha], \[Beta]], LogSeriesDistribution[\[Theta]], RayleighDistribution[a], ZipfDistribution[\[Rho]]};
In[3]:=
X
distTable[ Join[{{Style["Distribution", Bold, 14], Style["Characteristic Function", Bold, 14]}}, Table[{dists[[i]], CharacteristicFunction[dists[[i]], t]}, {i, Length[dists]}]]]
Out[3]=