Chronicle/TimeLine/0709FirstPlasma/Shot4/rsrc/basicdiagn/Irogowski.pl
#!/bin/perl
do "parameters.pl";
# Open the file for reading.
open DATA, "usbscopes" or die "can't open usbscopes $!";
my @data = <DATA>;
close (DATA);
# We have to get rid of DAS shift
@aver=0;
for ($i = 1; $i <= $TriggerLine; ++$i)
{
@row = split(' ',$data[$i]);
$aver+=$row[2];
}
$aver=$aver/$TriggerLine;
#Data integration
@integr=0;
@Time=0;
open FH, ">Irogowski_dp.csv";
for ($i = 0; $i < $LineCount; ++$i)
{
@row = split(' ',$data[$i]);
$integr+=($row[2]-$aver);
$Time+=$DeltaT;
printf FH "%3.2f;%4.3f\n",$Time,$integr*$RogowskiCalibration;
}
close (FH);