#!/bin/perl

do "parameters.pl";


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


@Time=0;
open FH, ">Photod_dp.csv";
for ($i = 0; $i < $LineCount; ++$i)  
{
    @row = split(' ',$data[$i]);
# 	if (($Time > 4.5 &&  $Time < 5.5) || $Time >= $PlasmaEnd)
# 	{
# 		$row[3] = 0;
# 	}
    $Time+=$DeltaT;
    printf FH "%3.3f;%4.6f\n",$Time,-1*$row[3];
}
close (FH);