adrakoa

#!/usr/bin/perl -w
use Math::Complex;
$i=0;
$x=0;
$y=0;

open (DATA,'<',$ARGV[0]) or die "File missing $! file ''$ARGV[0]''";
@datos=<DATA>;
close(DATA);
($x,$y) = split(/\s+/,$datos[2]);

for($i=1;$i<$x*$y*3;$i+6){
    $rtg_matix[$i-1]=sqrt((($datos[$i+3]+$datos[$i+6])-($datos[$i+$x+2]+$datos[$i+$x+5]))/4); 
    $rtg_matix[$i]=sqrt((($datos[$i+4]+$datos[$i+7])-($datos[$i+$x+3]+$datos[$i+$x+5]))/4); 
    $rtg_matix[$i+1]=sqrt((($datos[$i+5]+$datos[$i+8])-($datos[$i+$x+4]+$datos[$i+$x+5]))/4); 
}
$i=0;
open (TRANSFORM,'>',$ARGV[1]) or die "File missing $!";
printf (TRANSFORM "%s\n%s\n%s\n", $datos[-2],$datos[-1],$datos[0]);
printf (TRANSFORM "%d %d\n" ,$x/4,$y/4);
printf (TRANSFORM $datos[3]);
foreach (@rtg_matrix){
    printf (TRANSFORM "%d\n",$rtg_matrix[$i++]);
}
close TRANSFORM;
printf (STDOUT "Salida correcta en %s",$ARGV[1]);