# normal (Gaussian) distribution
_ln_dnorm(x, m, s) = -0.5 * log(2*pi) - log(s) - 0.5*((x-m)*1.0/s)**2
dnorm(x, mean, sd) = exp(_ln_dnorm(x, mean, sd))
pnorm(x, mean, sd) = norm((x-mean) * 1.0/sd)
# binomial distribution
_ln_binom(x, n, p) =\
lgamma(n+1) - lgamma(x+1) - lgamma(n-x+1) + x*log(p) + (n-x)*log(1-p)
dbinom(x, size, prob) = (x==int(x))? exp(_ln_binom(floor(x), size, prob)) : 0
pbinom(x, size, prob) =\
(x<0)? 0 : (x<size)? ibeta(size-floor(x), floor(x)+1, 1-prob) : 1
set terminal svg
set output "Normal approximation to binomial.svg"
set key 22,0.13
n = 48
p = 0.25
xmax = 25
set samples 50*xmax+1
plot [0:xmax] \
dbinom(x, n, p) with impulses title "Binom(48, 0.25)", \
dnorm(x, n*p, sqrt(n*p*(1-p))) linetype 3 title "Norm(12, 3)"
Llicencia
Autorízase la copia, distribución y/o cambéu d'esti documentu baxo los términos de la Llicencia de documentación llibre GNU, versión 1.2 o cualesquier otra que nel futuru espublice la Free Software Foundation; ensin seiciones invariables, testos de portada, nin testos de contraportada. S'inclúi una copia de la llicencia na seición titulada GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue
pa compartir – pa copiar, distribuir y comunicar públicamente la obra
pa remezclar – p'adautar la obra
Baxo les condiciones siguientes:
reconocimientu – Tienes de dar el créitu apropiáu, apurrir un enllaz a la llicencia ya indicar si realizasti dalgún cambéu. Puedes faelo de cualquier mou razonable ,pero non de manera que suxera l'encontu del autor pa ti o pal usu que faigas.
compartir igual – Si entemeces, tresformes o te bases nesti material, tienes de distribuir les tos contribuciones baxo la mesma llicencia o una compatible cola orixinal.
Esta etiqueta de llicencia s'amestó a esti ficheru como parte del anovamientu de la llicencia GFDL.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue
Pies
Añade una explicación corta acerca de lo que representa este archivo