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

$labourmax=6;   #days
$restingmin=2;  #days
$total=$labourmax+$restingmin;
$absen=0.053;

for $convenio (1673,1697,1719,1721,1745,1750,1793,1816,1840){ 

print "Horas de convenio         \t $convenio\n";
print "Porcentaje de absentismo  \t $absen\n";
print "Dias de trabajo máximo    \t $labourmax\n";
print "Dias de descanso mínimo   \t $restingmin\n";
print "\n           \t         \t         \t ____ con absentismo ____\n";
print "VACACIONES \t 5 meses \t 6 meses \t 5 meses \t 6 meses\n";
print "           \t num eff \t num eff \t num eff \t num eff";
    for $puestos (3..200){
	print "\n$puestos : \t";
	for $absentismo (0, $absen){
	    for $vacas (5, 6){
		for $i (($puestos+1)..($puestos*3)){
		    $restantes = $i - int($i/$vacas);
		    if ($i%$vacas>0 && $i>$vacas) { $restantes--; }
		    if ( $labourmax*$restantes/$total >= $puestos ){
			if ( (1-$absentismo)*$convenio*$i/8>365*$puestos) {
			    $z=$puestos/$i;    # efficiency
			    printf("\t %i %1.3f ",$i,$z);
			    last;
			}
		    }   
		}
	    }  
	}
    }
    print "\n\n\n";
}

__END__