Chronicle/TimeLine/0709FirstPlasma/Shot4/rsrc/includes/diagnostics/ParticleFlux/1012RakeProbeMarco.ON/Mean.pl
#!/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;