Dosiero:Dirichlet distributions.png

El Vikipedio

La bildo estas kopiita de wikipedia:en. La originala priskribo estas:

Enhavo

[redaktu] Summary

Several images of probability densities of the Dirichlet distribution as functions on the 2-simplex. Clockwise from top right: α = (6, 2, 2), (3, 7, 5), (6, 2, 6), (2, 3, 4).


[redaktu] Licensing

Ŝablono:NoRightsReserved

[redaktu] Mathematica Source code

(* matrix mapping standard basis in R^2 to two sides of equilateral triangle T *)
M = {{1, Cos[Pi/3]}, 
     {0, Sin[Pi/3]}};
Mi = Inverse[M];

(* map a point in the triangle T to the corresponding point on the standard 2-simplex S *) 
TtoS[xy_] := Module[{p1, p2}, {p1, p2} = Mi . xy; {p1, p2, 1 - p1 - p2}];

(* calculate the probability density as a function on T *)
f[xy_, a_] := Module[{a1, a2, a3, x, y, z, B},
    {a1, a2, a3} = a;
    {x, y, z} = TtoS[xy];
    B = Gamma[a1 + a2 + a3]/(Gamma[a1] * Gamma[a2] * Gamma[a3]);
    B*(x^(a1 - 1))*(y^(a2 - 1))*(z^(a3 - 1))];

(* recursively tesselate triangle (x1, x2, x3) by bisecting its edges and return
   a list of triangles as in input suitable for Graphics3D *)
Tesselate[x1_, x2_, x3_, alpha_] := 
  Module[ {d1 = (x2 - x1), d2 = (x3 - x2), d3 = (x1 - x3), m, g}, 
    m = Max[{d1.d1, d2.d2, d3.d3}];
    If[ m < 0.0002, (* stop when the length of every edge is below threshold *)
      {{EdgeForm[], (* don't display edges of triangles *)
          Polygon[ {
              {x1[[1]], x1[[2]], f[x1, alpha]}, 
              {x2[[1]], x2[[2]], f[x2, alpha]},
              {x3[[1]], x3[[2]], f[x3, alpha]}}]}},
      Module[{m1 = .5*(x1 + x2), m2 = .5*(x2 + x3), m3 = .5*(x3 + x1)},
        Join[
          Tesselate[x1, m1, m3, alpha],
          Tesselate[m1, x2, m2, alpha],
          Tesselate[m3, m1, m2, alpha],
          Tesselate[m3, m2, x3, alpha]] ]]] 

Show[Graphics3D[Tesselate[{0, 0},  {1, 0}, {Cos[Pi/3], Sin[Pi/3]}, 
      {7, 2, 3} (* alpha *) ]],
  (* stupid display options *)
  Boxed -> False, 
  PlotRange -> { {0, 1}, {0, 1}, {0, 15}}, 
  AxesEdge -> {None, None, {-1, -1}},
  Axes -> True,
  FaceGrids -> { {0, -1, 0}},
  BoxRatios -> {1, 1, .6}]

date/time username edit summary
07:29, 9 February 2006 en:User:M0nkey (Added code)
02:33, 8 February 2006 en:User:M0nkey (<span class="autocomment"><a href="/wiki/Image:Dirichlet_distributions.png#Summary" title="Image:Dirichlet distributions.png">→</a>Summary</span>)
02:17, 8 February 2006 en:User:M0nkey (Several images of probability densities of the Dirichlet distribution as functions on the 2-simplex. Clockwise from top right: ''&alpha;'' = (6, 2, 2), (3, 7, 5), (2, 3, 4), (6, 2, 6).)

[redaktu] Historio de la dosiero

Legend: (cur) = this is the current file, (del) = delete this old version, (rev) = revert to this old version.

Click on date to download the file or see the image uploaded on that date.

  • (del) (cur) 02:31, 8 February 2006 . . M0nkey ( en:User_talk:M0nkey Talk) . . 885x763 (345444 bytes)
  • (del) (rev) 02:17, 8 February 2006 . . M0nkey ( en:User_talk:M0nkey Talk) . . 885x754 (344964 bytes) (Several images of probability densities of the Dirichlet distribution as functions on the 2-simplex. Clockwise from top right: &alpha; = (6, 2, 2), (3, 7, 5), (2, 3, 4), (6, 2, 6).)

Historio de alŝutoj

(nun) = ĉi tiu estas la nuna versio de la dosiero, (for) = forigu ĉi tiun malnovan version, (res) = restarigu ĉi tiun malnovan version.
Por vidi la dosieron laŭdate, alklaku la daton.

  • (for) (nun) 19:09, 18. Mar 2006 . . Maksim-bot (Diskuto | kontribuoj) . . 885×763 (345 444 bitokoj) (La bildo estas kopiita de wikipedia:en. La originala priskribo estas: == Summary == Several images of probability densities of the Dirichlet distribution as functions on the 2-simplex. Clockwise from top right: ''&alpha;'' = (6, 2, 2), (3, 7, 5), (6, 2,)

Neniu paĝo ligas al ĉi tiu dosiero.

Aliaj lingvoj