#!/usr/bin/perl -W

use strict;

my $Inversion_minima = 47_000_000_000;    # desde 1992, datos en euros
my $inv_min_km = 8_600_000;    # dato, el más favorable             
my $inv_max_km = 21_600_000;   # dato

# Línea de Alta Velocidad (LAV), ejemplos:
# Madrid-Segovia-Valladolid 21,72 millones de euros por km.
# Córdoba-Málaga 19,24
# Madrid-Zaragoza-Barcelona-Frontera francesa 15,88
# al parecer la media está en torno a los 18 (Europa Press)

my $tren_min = 22_000_000;   # no se considera el precio del tren
my $tren_max = 30_000_000;   # no se considera, al no saberse el número

my $mant_min_km = 100_000;     # dato, el más favorable. Dicen que se está reduciendo
my $mant_max_km = 200_000;     # dato
my $mant_anual = 300_000_000; # aprox. Adif

my $coste_km = 26;            # aprox. Renfe (no favorable, puede doble contabilizar)

my $red_0 = 450;  # Madrid-Sevilla inicial aprox.
my $red_km = 3100;           # dato actual

my $precio_min = 59.65;      # dato trayecto Madrid-Sevilla
my $precio_max = 75.50;      # dato, el más favorable

# Aquí empiezan los cálculos optimistas:
my $inv_anual1 = ($Inversion_minima/(2014-1990));
my $red_anual = $red_km/(2014-1990);   # la red actual se supone fue construyéndose a ritmo cte.
my $inv_anual2 = $inv_min_km * $red_anual; # la inversión mínima correspondiente a esos km.
my $inv_anual = ($inv_anual1 < $inv_anual2) ? $inv_anual1 : $inv_anual2;     # mínimo

my $anno = 1992;
my @pasajeros=();
while (<DATA>){
    next if (/^#/);
    last if (/^__END__/);
    chomp;
    $pasajeros[$anno] = int(eval( $_));
#    print "$anno $pasajeros[$anno]\n";
    $anno++;
    last if $anno == 2015;
}

my $num = 4;  # número de viajes mínimo, supuesto para toda la red, pero diario
my $cash =0;
my $cash_out=0;
my $cash_in=0;
my $VAN =0;
my $r = 0.025;  # tipo de interés del 2,5%
my $i = 0;
$anno=1989;
print "año   pasajeros   entradas   salidas   ->   CAJA\n";
while (++$anno<2015){
    $i++;
    $cash_out = $inv_anual                # el proporcional lineal
      +$mant_min_km * $red_anual * $i    # cada año la red crece
      +$red_anual * $coste_km * $i * $num * 365;  # se suponen costes de un funcionamiento mínimo
    # (éste dependería de los viajes, i.e. a Sevilla 18 de ida y 18 de vuelta al día)
    if ($anno>=1992){
	$cash_in = $pasajeros[$anno]*$precio_max;
	if ($anno == 2012){                                               # Nuevos datos ABC 21/03/2014 
	    $cash_in = 733_000_000;
	}elsif ($anno == 2013 || $anno == 2014 ){
	    $cash_in = 784_000_000;
	}
    }
    $cash = $cash_in - $cash_out;
    $pasajeros[$anno]=0 unless (defined $pasajeros[$anno]);
    print "$anno $pasajeros[$anno] $cash_in $cash_out -> $cash\n";
    $VAN += $cash / ((1+$r)**($i-1));
}
print "VAN = $VAN euros (1990)\n";
print "-" x 40, "Proyección:\n";
for $anno (2015..2040){
    $i++;
    $cash_out = +$mant_min_km * $red_km   # se para la expansión de la red, no el mantenimiento
      +$red_km * $coste_km * $num * 365;     # coste de funcionamiento mínimo
    $pasajeros[$anno]=$pasajeros[2014];    # la afluencia es la del mayor año, el último
    $cash_in = $pasajeros[$anno]*$precio_max;
    $cash = $cash_in - $cash_out;
    print "$anno $pasajeros[$anno] $cash_in $cash_out -> $cash\n";
    $VAN += $cash / ((1+$r)**($i-1));
}
print "VAN = $VAN euros (1990)\n";
exit 1;

__DATA__
# desde 1992, pasajeros
1335000
2338000
2483000
3900000
4150000
4500000
4700000
3804000
4202000
4613000
4362000
4527000
4370000
4960000
5286000
5186000
6663000
6598000
6325000
6506000
# 6366000 No, nuevos datos 2012 y 2013:
12000000
# previsión 2013
# 7576611
14900000
# previsión 2014 (+9%)
# 1.09*7576611
# 1.09*14900000
# dato real, después de tirar los precios. Faltan, como siempre, los ingresos. 
29000000  
# Actualmente hay 13 paradas con menos de 50.000 pasajeros al año, ese es otro tema
__END__  

Como se temía, ni tomando los casos más favorables sale un VAN positivo
  ni un flujo de caja anual positivo. En 2012 Renfe alega haber ganado
  con el AVE 2,5 millones en beneficio positivo, pero que perdió 155 en 
  el resto de servicios. ¿Es creíble ese desglose no auditado? Las cuentas 
  2012 se publicaron en BOE 17/10/2013
El equivalente chino pierde entre 5.250 y 7.500 millones de euros/año, a
  pesar de que es muy usado
Como proyección, si se parase la nueva inversión, los costes de funcionamiento
  fuesen reducidos, y los pasajeros fuesen los máximos históricos (2014), es 
  posible que el flujo de caja anual fuese positivo, pero aún así el VAN 
  sigue siendo negativo. La vida útil de los trenes va de 20 a 40 años.
  
http://www.elconfidencial.com/mundo/2013-12-05/por-que-estados-unidos-renuncia-a-la-alta-velocidad_62540/