#!/bin/perl

do "parameters.pl";


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


$PlasmaStartRow=`cat PlasmaStartRow`;
$Max=0;
$MaxRow=0;

for ($i = 1; $i < $PlasmaStartRow; ++$i)  
{
    @row = split(';',$data[$i]);
    if ( abs($row[1]) > abs($Max) ){$Max=$row[1];$MaxRow=$i};    
}

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


open RESULT, ">BreakDownTime";
    printf RESULT "%4.2f", $MaxRow*$DeltaT;
close RESULT;

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

    @row = split(';',$data[$MaxRow]);

open RESULT, ">BreakDownBt";
    printf RESULT "%4.3f", $row[1];
close RESULT;