#!/usr/bin/perl

use strict;

my @var = 0;
my @fout = 0;
my @fin = 0;

my $Y = 0;
my $Yintern = 0;
my $X = 0;
my $C = 0;
my $Zs = 0;
my $a1 = 0;
my $a2 = 0;
my $x_shift = 0;
my $shift_c = 0;
my $shift_zs = 0;
my $dZ = 0;
my $tmp1_br = 0;
my $tmp1 = 0;
my $b1_1 = 0;
my $b1_2 = 0;
my $b2_1 = 0;
my $b2_2 = 0;



my $file1 = "dataout.txt";

open(fout, ">$file1");

my $file2 = "datain.csv";

unless( open(fin, "<$file2") ) {
die "error: could not open file '$file2':$!\n";
} # if

print fout ("Datain;a1;a2;C;Zs;Dataout \n");

while(my $line = <fin>){


@var = split /;/, $line;

$X =  $var[0];

$a1 = $var[1];
$a2 = $var[2];
$C =  $var[3];
$Zs = $var[4];



$x_shift = ($X << 4)+0;
$shift_c = (0 << 16 )+$C;
$shift_zs = (0 << 16)+$Zs;

$dZ = 0;

$dZ = $x_shift - $shift_c - $shift_zs;

#printf ("x_shift  %32b \n", $x_shift);
#printf ("shift_c  %32b \n", $shift_c);
#printf ("shift_zs %32b \n", $shift_zs);
#printf ("dZ       %32b \n", $dZ);

$tmp1_br = ($a1 * $Zs);
$tmp1 = (($tmp1_br >> 9) + 1 )>>1;

#printf ("tmp1     %32b \n", $tmp1);


if($dZ > 0){
# printf ("param a2\n");
 $b2_1 = ($dZ * $a2);
 $b2_2 = (($b2_1 >> 9) + 1)>>1;
 $Yintern = $b2_2 + $tmp1;
}
else{
# print ("param a1\n");
 $b1_1 = ($dZ * $a1);
 $b1_2 = (($b1_1 >> 9) + 1)>>1;
 $Yintern = $b1_2 + $tmp1;
}

#printf  ("b2_2     %32b \n" ,$b2_2);
#printf  ("b1_2     %32b \n" ,$b1_2);

#printf  ("Yintern  %32b \n" ,$Yintern);

$Y = ($Yintern >> 4);

print fout ("$X;$a1;$a2;$C;$Zs;$Y \n");

#printf  ("Y        %32b \n\n\n\n\n" ,$Y);


}

close (fout);