El poder de la fuerza bruta. El propósito de estos ensayos es fundamentalmente compartir piezas de trabajo o ideas que no tienen en principio ninguna aplicación práctica inmediata, lo cual no quiere decir que la lógica subyacente deje de ser útil. Una de las ideas que mejor resultado (y más rápido) me ha dado ha sido utilizar el ordenador para búsquedas aleatorias de soluciones utilizando (a) el poder de (re)iteración de los lenguajes de programación, (b) la capacidad multiproceso del SO y (c) la rapidez del procesador.
Esta utilización greedy del ordenador ha sido tan largamente denostada como poco inteligente como extensamente utilizada por los ancianos programadores bajo sistemas operativos multiusuario como el UNIX o VMS, y sus beneficios han sido y son considerables: la fuerza bruta se expresa con facilidad y difícilmente se equivoca, si se tiene la paciencia suficiente. El lanzar procesos cuya duración se mide en semanas es poco costoso y eficaz allí donde la sombra de la ignorancia impediría alcanzar soluciones de alguna fiabilidad.
Si existe alguna forma humorística de usar un ordenador, esa es la fuerza bruta.
A continuación propongo un programa para calcular la forma paramétrica que
permitiría el cálculo aproximado de la cuota íntegra del IRPF (Impuesto de la Renta
de las Personas Físicas) a partir de la base imponible tomando como datos los
correspondientes al ejercicio 2001. La estimación se basa en ajustar la curva
CI = a * BI + b * BI ^ c. Lo sorprendente del resultado es que oculta la descomunal
proporción del tipo marginal más alto (el 48%). Un resultado que proporciona un
error de sólo 122.164485340897889 sería:
a = 0.159403093631866, b = 5.57510645435854713e-05 y c = 1.73573697311647379
Existe una secular falacia populachera acerca de que "todos" los impuestos deben ser progresivos, esto es, que los ricos paguen no sólo más sino también en mayor proporción, siendo un escándalo nacional el llamado impuesto 'extraordinario' del patrimonio, donde los tipos impositivos son más simples y proporcionales pero más bestiales: De un 0,3% para los patrimonios medianos va saltando a un exagerado y expropiatorio 0,5% para los patrimonios más abultados. Resulta normal, pues, que ante este panorama ideológico las fortunas nacionales emigren y deban desdoblarse en divisas. Esto si aún se conserva el incentivo a ahorrar y hacer fortuna.
#!/usr/bin/perl
@bi = ( 0, 3678.19, 12873.68, 25134.33, 40460.13, 67433.56);
@ci = ( 0, 662.08, 2869.00, 6338.77, 12039.97, 24178.01);
$err = 999999999;
while (1) {
$a=2*rand();
$b=2*rand();
$c=2*rand();
$e = 0;
for (0..5){
$d[$_]=$b*$bi[$_]**$c+$a*$bi[$_];
$e += ($ci[$_]-$d[$_])**2;
}
$e = sqrt($e);
if ($e<=$err){
$err=$e;
print "$a $b $c \t $err\n";
}
}
__END__