Ficheiro:De moivre-laplace.gif

Origem: Wikipédia, a enciclopédia livre.
Saltar para a navegação Saltar para a pesquisa

De_moivre-laplace.gif(250 × 155 píxeis, tamanho: 21 kB, tipo MIME: image/gif, cíclico, 8 quadros, 18 s)

Descrição do ficheiro

Descrição
English: Illustration of the theorem of de Moivre-Laplace
Data
Origem Obra do próprio
Autor Stpasha

Code in Mathematica

p = 0.4;
Table[
  ListPlot[
    Table[{k, Binomial[n, k] (p)^k (1 - p)^(n - k)}, {k, -2, n + 2}],
    Filling -> Axis, 
    PlotRange -> {{n p - 5 Sqrt[n p(1 - p)], n p + 5 Sqrt[n p(1 - p)]},
                  {0, 1.02/Sqrt[2 \[Pi] n p(1 - p)]}},
    Frame -> True,
    Axes -> False,
    FrameTicks -> None,
    PlotStyle -> PointSize[0.02], 
    LabelStyle -> Directive[Larger], 
    FillingStyle -> Directive[Hue[0.6], Thickness[0.01], Opacity[0.3]], 
    ImageSize -> 250, 
    Epilog -> Inset[
      Style["\!\(\*StyleBox[\"n\",\nFontSlant->\"Italic\"]\) = " <> ToString[n], 16],
      {n p + 3.5 Sqrt[n p(1 - p)], 0.8/Sqrt[2 \[Pi] n p(1 - p)]}
      ] 
    ],
  {n, {4, 8, 16, 32, 64, 128, 256, 512}}
  ]
Export["c:/users/stpasha/documents/de_moivre-laplace.gif", %, 
 "DisplayDurations" -> {.5, .5, .5, .5, .5, .5, .5, .25}, 
 "TransparentColor" -> white]

Licenciamento

Public domain Eu, titular dos direitos de autor desta obra, dedico-a ao domínio público, com aplicação em todo o mundo.
Nalguns países isto pode não ser legalmente possível; se assim for:
Concedo a todos o direito de usar esta obra para qualquer fim, sem quaisquer condições, a menos que tais condições sejam impostas por lei.

Histórico do ficheiro

Clique uma data e hora para ver o ficheiro tal como ele se encontrava nessa altura.

Data e horaMiniaturaDimensõesUtilizadorComentário
atual00h19min de 20 de janeiro de 2010Miniatura da versão das 00h19min de 20 de janeiro de 2010250 × 155 (21 kB)Stpasha{{Information |Description={{en|1=Illustration of the theorem of de Moivre-Laplace}} |Source={{own}} |Author=Stpasha |Date=2010-01-19 |Permission= |other_versions= }} == Code in Mathematica == <nowiki> p = 0.4; Table[ ListPlot[ Tab

Utilização global do ficheiro