New in Wolfram
Mathematica
8: Probability and Statistics Solvers and Properties
◄
previous
|
next
►
Core Algorithms
Find a Closed Form for the Characteristic Function
Characteristic function in closed form for some parametric distributions.
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]//TraditionalForm=