Wolfram
Mathematica
8의 신기능: 비모수 분포, 파생 분포, 포뮬라 분포
◄
이전
|
다음
►
핵심 알고리즘
특수 모수 혼합 그래프
분포의 요인들과 가중치로 어떻게 알려진 모수 혼합 분포를 만드는지 알아봅니다.
In[1]:=
X
label = Style["weight", 12, FontFamily -> "Verdana"]; vstyle[a_] = Style[a, 12, FontFamily -> "Verdana"]; styles[list_] := ReplaceAll[list, DirectedEdge[left_, right_] :> DirectedEdge[vstyle[left], vstyle[right]]] stylesWlabel[list_] := ReplaceAll[list, Rule[DirectedEdge[left_, right_], label] :> Rule[DirectedEdge[vstyle[left], vstyle[right]], label]]
In[2]:=
X
Framed[Graph[ styles[{"BinomialDistribution[n,p]" \[DirectedEdge] "BetaBinomialDistribution[n,\[Alpha],\[Beta]]", "BetaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "BetaBinomialDistribution[n,\[Alpha],\[Beta]]", "NegativeBinomialDistribution[n,p]" \[DirectedEdge] "BetaNegativeBinomialDistribution[n,\[Alpha],\[Beta]]", "BetaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "BetaNegativeBinomialDistribution[n,\[Alpha],\[Beta]]", "PoissonDistribution[\[Mu]]" \[DirectedEdge] "GeometricDistribution[\[Lambda]/(1+\[Lambda])]", "ExponentialDistribution[\[Lambda]]" \[DirectedEdge] "GeometricDistribution[\[Lambda]/(1+\[Lambda])]", "PoissonDistribution[\[Mu]]" \[DirectedEdge] "NegativeBinomialDistribution[\[Alpha],1/(1+\[Beta])]", "GammaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "NegativeBinomialDistribution[\[Alpha],1/(1+\[Beta])]"}], EdgeLabels -> stylesWlabel@{"BetaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "BetaBinomialDistribution[n,\[Alpha],\[Beta]]" -> label, "BetaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "BetaNegativeBinomialDistribution[n,\[Alpha],\[Beta]]" -> label, "ExponentialDistribution[\[Lambda]]" \[DirectedEdge] "GeometricDistribution[\[Lambda]/(1+\[Lambda])]" -> label, "GammaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "NegativeBinomialDistribution[\[Alpha],1/(1+\[Beta])]" -> label}, VertexShapeFunction -> "RoundedRectangle", VertexSize -> {{1.2, .2}}, VertexLabels -> Placed["Name", Center], VertexCoordinates -> {{-1.5, 1/2}, {0, 1.5}, {1.5, 0}, {-1.5, -1/2}, {0, -1.5}, {-1.5, -4}, {0, -4 + 1.5}, {1.5, -4 + 1/2}, {0, -4 - 1.5}, {1.5, -4 - 1/2}}, EdgeStyle -> Blend[{Black, Red}], VertexStyle -> Lighter[Blend[{Green, Blue}], 0.8], ImageSize -> 550], RoundingRadius -> 10, FrameStyle -> GrayLevel@0.3, Background -> Lighter[Blend[{Yellow, Orange}], 0.8]]
Out[2]=