#!bin/perl

do "parameters.pl";

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

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

for ($i=0;$i<$LineCount;++$i)
{
	@row1=split(';',$data1[$i]);
	@row2=split(';',$data2[$i]);
	$Time[$i]=$row1[0];
	$OhmicHeatingPowerTime[$i]= abs($row2[1]*0.001*($row1[1]));
}

open CIL1, ">OhmicHeatingPowerTime.txt";
for ($i=0;$i<$LineCount;$i++)
{
	print CIL1 "$Time[$i]	$OhmicHeatingPowerTime[$i]\n";
}
close (CIL1);