File:De moivre-laplace.gif
Jump to navigation
Jump to search
No higher resolution available.
De_moivre-laplace.gif (250 × 155 pixels, file size: 21 KB, MIME type: image/gif, looped, 8 frames, 18 s)
Summary
| Description |
English: Illustration of the theorem of de Moivre-Laplace |
| Date | |
| Source | Own work |
| Author | 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]
Licensing
|
I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. |
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 01:19, 20 January 2010 | | 250 × 155 (21 KB) | wikimediacommons>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 |
File usage
The following page uses this file:
