#!/bin/perl

$arg=$ARGV[0];

#printf "%4.3f", $arg;
#printf "%4.3f", 20;


open DATA, "RakeProbe$arg" or die "can't open file $!";
my @data = <DATA>;
close (DATA);


$Total=0;
$DeltaTs=1e-6;
for ($i = 5000; $i < 10000; ++$i)  
{
    @row = split(' ',$data[$i]);
    #printf "add: %4.3f\n", @row[1];	
    $Total+=@row[1];   
    #printf "total: %4.3f\n", $Total;	 
}

open RESULT, ">Mean$arg";
    printf RESULT "%8.6f", $Total/5000*100;
close RESULT;


exit;