Основные алгоритмы

Граф специальных параметрических смесей

Отображение того, как параметрическое смешивание распределения с использованием весового распределения производит известные параметрические семейства распределений.

In[1]:=

In[2]:=

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]=