#!/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);

$resistance = 0;#[Ohm]
$Plasma =  `cat Plasma`;
if($Plasma >0)# může se stát že je plasma a zároveň nejsou BDT a BDV?
{



    $BreakDownTime=`cat BreakDownTime`; 

    $BreakDownLine = $BreakDownTime/$DeltaT;

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

    $Ibd = $row[1];

    $Ubd = `cat BreakDownVoltage`;
    $resistance =abs( $Ubd/$Ibd);
}
else
{
  $Ubd = `cat UloopMax`;  
  $Ibd = `cat IrogowskiMax`; 
  $resistance = abs($Ubd/$Ibd);
}




open RESULT, ">ChamberResistance";
    printf RESULT "%4.5f",$resistance  ;#[Ohm]
close RESULT;


exit;