ShowRooms/PlasmaPerformance/Plasma/VacuumVersusPlasma/399vs400/No:399/basicdiagn/BreakDownVoltage.pl
#!/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 ( $row[1] > $Max ){$Max=$row[1];$MaxRow=$i};
}
open RESULT, ">BreakDownVoltage";
printf RESULT "%4.1f", $Max;
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;