#!/usr/bin/perl -w

use 5.014;

say "TIPO A";

say <<EOTA1;

1. Calcule el Valor Actual Neto de los siguientes flujos de caja, si el coste de capital es de un 8 %, y diga si es interesante el proyecto de inversión.
  
0     1  2  3
-100 -20 80 80
EOTA1
;

say "VAN = ", -100-20/1.08+80/1.08**2+80/1.08**3;

say <<EOTA2;

2. Calcule la Tasa Interna de Retorno de la siguiente inversión:
  
0   1  2
-50 30 25
EOTA2
;

{
    say "x = 1/(1+r)";
    say "0 = -50 +30 x +25 x^2";
    say "x = (-30 + (30^2-4*25*(-50))^0.5)/(2*25)";
    my $x = (-30+sqrt(30**2-4*25*(-50)))/(2*25);
    say "x = $x";
    say "r = 1/x -1";
    say "r = ", 1/$x-1;
}

say <<EOTA3

3. Calcule el interés del punto de intersección de Fisher de las siguientes inversiones:
  
0  1 2
-6 5 4
-4 2 3
  
¿Qué inversión es mejor por debajo de ese interés, la primera o la segunda?
EOTA3
;

{
    say "x = 1/(1+r)";
    say "-6 + 5 x + 4 x^2  = -4 + 2 x + 3 x^2";
    say "-2 + 3 x + 1 x^2 = 0";
    say "x = (-3 + (3^2-4*1*(-2))^0.5) / (2*1)";  
    my $x = (-3+sqrt(3**2-4*1*(-2)))/(2*1);
    say "x = $x";
    say "r = 1/x -1";
    say "r = ", 1/$x-1;
}

say '';
say '';
say "TIPO B";

say <<EOTB1;

1. Calcule el Valor Actual Neto de los siguientes flujos de caja, si el coste de capital es de un 8 %, y diga si es interesante el proyecto de inversión.
  
0    1   2  3
-90 -20 80 80
EOTB1
;

say "VAN = ", -90-20/1.08+80/1.08**2+80/1.08**3;

say <<EOTB2;

2. Calcule la Tasa Interna de Retorno de la siguiente inversión:
  
0   1  2 
-45 30 25
EOTB2
;

{
    say "x = 1/(1+r)";
    say "0 = -45 +30 x +25 x^2";
    say "x = (-30 + (30^2-4*25*(-45))^0.5)/(2*25)";
    my $x = (-30+sqrt(30**2-4*25*(-45)))/(2*25);
    say "x = $x";
    say "r = 1/x -1";
    say "r = ", 1/$x-1;
}

say <<EOTB3;

3. Calcule el interés del punto de intersección de Fisher de las siguientes inversiones:
  
0  1 2
-6 5 4
-8 6 6
  
¿Qué inversión es mejor por debajo de ese interés, la primera o la segunda?
EOTB3
;

{
    say "x = 1/(1+r)";
    say "-6 + 5 x + 4 x^2  = -8 + 6 x + 6 x^2";
    say "0 = -2 + 1 x + 2 x^2";
    say "x = (-1 + (1^2-4*2*(-2))^0.5) / (2*2)";  
    my $x = (-1+sqrt(1-4*2*(-2)))/(2*2);
    say "x = $x";
    say "r = 1/x -1";
    say "r = ", 1/$x-1;
    
}

__END__

TIPO A

1. Calcule el Valor Actual Neto de los siguientes flujos de caja, si el coste de capital es de un 8 %, y diga si es interesante el proyecto de inversión.
  
0     1  2  3
-100 -20 80 80

VAN = 13.5751663872377

2. Calcule la Tasa Interna de Retorno de la siguiente inversión:
  
0   1  2
-50 30 25

x = 1/(1+r)
0 = -50 +30 x +25 x^2
x = (-30 + (30^2-4*25*(-50))^0.5)/(2*25)
x = 0.936229149573722
r = 1/x -1
r = 0.0681145747868608

3. Calcule el interés del punto de intersección de Fisher de las siguientes inversiones:
  
0  1 2
-6 5 4
-4 2 3
  
¿Qué inversión es mejor por debajo de ese interés, la primera o la segunda?

x = 1/(1+r)
-6 + 5 x + 4 x^2  = -4 + 2 x + 3 x^2
-2 + 3 x + 1 x^2 = 0
x = (-3 + (3^2-4*1*(-2))^0.5) / (2*1)
x = 0.56155281280883
r = 1/x -1
r = 0.780776406404415


TIPO B

1. Calcule el Valor Actual Neto de los siguientes flujos de caja, si el coste de capital es de un 8 %, y diga si es interesante el proyecto de inversión.
  
0    1   2  3
-90 -20 80 80

VAN = 23.5751663872377

2. Calcule la Tasa Interna de Retorno de la siguiente inversión:
  
0   1  2 
-45 30 25

x = 1/(1+r)
0 = -45 +30 x +25 x^2
x = (-30 + (30^2-4*25*(-45))^0.5)/(2*25)
x = 0.869693845669907
r = 1/x -1
r = 0.149829914261059

3. Calcule el interés del punto de intersección de Fisher de las siguientes inversiones:
  
0  1 2
-6 5 4
-8 6 6
  
¿Qué inversión es mejor por debajo de ese interés, la primera o la segunda?

x = 1/(1+r)
-6 + 5 x + 4 x^2  = -8 + 6 x + 6 x^2
0 = -2 + 1 x + 2 x^2
x = (-1 + (1^2-4*2*(-2))^0.5) / (2*2)
x = 0.780776406404415
r = 1/x -1
r = 0.280776406404415