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

$imposicion = 500;               # euros
$periodo = 4;                  # trimestral
$interes_anual = 0.02187;        # orientativo inicial, puede ser 0
$interes_p = $interes_anual / $periodo;
$N = 8500/$imposicion;           # datos actuales
$objetivo = 8882.02;             # saldo real actual

$fin = 2008+5;                   # horizonte temporal
$ok=$saldo_n=0;
while ($ok==0){
    $mes = 11;                       # inicio
    $anno = 2008;
    $saldo=$i=0;
    if ($saldo_n>$objetivo) {
	$interes_p -= rand()/1000000;
    }elsif ($saldo_n<$objetivo) {
	$interes_p += rand()/1000000;
    }
    while (1){
	$i++;
	$saldo += $imposicion + $interes_p * $saldo;
	print "$i\t 1/$mes/$anno\t -> $saldo\n";
	if ($i == $N) { 
	    $saldo_n = $saldo;
	    if ($saldo<$objetivo-.001 || $saldo>$objetivo+.001){
		last;
	    }else{
		print "-" x 47, "\n";
		$ok=1;
	    }
	}
	$mes += 3;                      # trimestral
	if ($mes > 12) { $mes -=12; $anno++; }
	last if ($anno > $fin);
    }
    print "Interes nominal anual = ";
    printf "%.7f\n" , $interes_p*$periodo;
    print "TAE correspondiente ", (1+$interes_p)**$periodo-1, "\n\n";
}

__END__

Este es un ejemplo de cómo calcular el interés nominal implícito
  de un fondo de ahorro. Los datos están tomados de un caso real