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

# INPUT "N£mero de valores ->", n%
# INPUT "N£mero de datos -*->", m%

open BOLSA, "DB" or die "Cannot open DB: $!";
@x = <BOLSA>;
close BOLSA;

for (@x){
     $m++;
     $n=0;
     chomp;
     @c = split /\s+/;
     for $i (@c){
         $n++;
         $d[$n][$m]=$i;
     }
}

for $i (1..$n){
    for $j (1..$m){
	$E[$i] += $d[$i][$j];
    }
    $E[$i] = $E[$i]/$m;
}

for $i (1..$n){
   for $k (1..$n){
        $sumdxpordy=0;
	for $j (1..$m){
	   $sumdxpordy += ($d[$k][$j]-$E[$k]) * ($d[$i][$j]-$E[$i]);
	}
	$V[$i][$k] = $sumdxpordy / ($m-1);
   }
}

open EV, ">EV.dat" or die "Cannot open EV.dat: $!";
# print EV "1 $n\n";

for $k (1..$n){
    for $i (1..$n){
	print EV $V[$k][$i]," ";
    }
    print EV "\n";
}

# for $i (1..$n){
#    print EV $E[$i]," ";
# }
# print EV "\n";

# for $i (1..$n+1){
#    print EV "1 ";
# }
# print EV "\n";
close EV;

__END__