#!/usr/bin/perl -w

use 5.034;

my $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)

my $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 unidades de desv. típica, 95%)

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

say "\nTamaño de la muestra = $N\n";

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

die "Fin" unless($N2);

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

say "Error correspondiente = $K2\n";

exit 2;

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