#!/usr/local/bin/perl -W

$P = 0.5; # porcentaje de la población que posee la característica de interés
          # (en el caso más desfavorable es 0.5)

$Z = 2;   # número de unidades de desviación típica en la distribución normal
          # que producirá el nivel deseado de confianza (aprox. 2, 95%)

$K = 0.02; # error porcentual que se acepta al nivel deseado de confianza
  
$N = $Z*$Z*$P*(1-$P) / ($K*$K); # tamaño de la muestra

print "Tamaño de la muestra = $N\n";

print "¿Otro tamaño? ";
$N2 = <STDIN>;
chomp $N2;

die "Fin" unless($N2);

$K2 = sqrt ($Z*$Z*$P*(1-$P)/$N2);

print "Error correspondiente = $K2\n";

__END__
  
Fórmula de mayor difusión para muestreo de poblaciones infinitas
  (mayores a 100.000)