#!/usr/bin/perl -w

# use 5.032;

# no "strict subs";

if ($#ARGV<2) {
    die "$0 <interés tanto por uno> <número de perídos> <capital>\n";
}

print "\nPréstamo de amortizaciones constantes (cuotas decrecientes)\n\n";

my $i = $ARGV[0];
my $n = $ARGV[1];
my $CC = $ARGV[2];
my ($t, $I, $c, $AA) = (0, 0, 0, 0);
my $A = 0;

$~ = FORMAT_TOP;
write;
$~ = FORMAT_LINE;
write;

# $c = $CC * $i / (1- (1+$i)**(-$n));
$A = $CC/$n;

$~ = FORMAT_LINE;
for $t (1..$n){
    $I = $CC*$i;
    $c = $I + $A;
    $AA += $A;
    $CC -= $A;
    write;
}
		    
format FORMAT_TOP=
Préstamo de @##########.## durante @##### perídos al interés @#####.##%
  $CC,              $n,                        $i*100
	       
Período   Cuota   Intereses Amortización  Amortización Acum.  Capital Pendiente
-------------------------------------------------------------------------------
.
format FORMAT_LINE=
@>>> @#######.## @#######.## @#######.##  @#############.##  @#############.##
$t,     $c,          $I,         $A,            $AA,              $CC
.


__END__