Wolfram
Mathematica
8의 신기능: 확률과 통계의 해법 및 특성
◄
이전
|
다음
►
핵심 알고리즘
특성 함수에 대한 닫힌 형식 찾기
여러 매개 변수 분포에 대한 닫힌 형식에서의 특성 함수를 찾아 봅니다.
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=