printf("$b\t\t%s\t%s\t%s\n",$data->[$b]{vin}<0?'--':$a1,
$data->[$b]{curr}<0?'--':$a2,
- $data->[$b]{temp}<0?'--':$a3);
+ ($data->[$b]{temp}<=0||$data->[$b]{temp}>=200)?'--':$a3);
}
print("\n\n");
print("Output\tVoltage\tSet1\tSet2\tAddr\n");
for my $b (0..3) {
for my $o (0..3) {
- my $a1 = sprintf("%.2f",$data->[$b]{vout}[$o]);
+ my $a1 = sprintf("%.2f",$data->[$b]{vout}[$o]*1.7-2.39);
if ($data->[$b]{switch}[$o]==0) {$data->[$b]{vout}[$o] = -20;}
my $a2 = sprintf("%i",$data->[$b]{adjust}[$o][0]);
my $a3 = sprintf("%i",$data->[$b]{adjust}[$o][1]);