Handling/DataAccess/SWtools/wget/4665/shot/analysis/Basics/0411ShotHomepage.ONN/TotalCharge.pl

#!/bin/perl

do "parameters.pl";


# Open the file for reading.
open DATA, "Irogowski_dp.csv" or die "can't open file $!";
my @data = <DATA>;
close (DATA);


$TotalCharge=0;
for ($i = 1; $i < $LineCount; ++$i)  
{
    @row = split(';',$data[$i]);$Ipl=$row[1];
    $TotalCharge+=($row[1]+abs($row[1]))/2*$DeltaTs;  #only positive part of current    
}

open RESULT, ">TotalCharge";
    printf RESULT "%4.1f", $TotalCharge;
close RESULT;