#!/usr/bin/perl

use lib 'c:/Programs/Perl/lib';
use lib 'd:/Programs/Perl/lib';

use Utils;
use JFile;
use MultiColumnData;

#my $InFile = 'TC-B.csv';
#my $InFile = 'TC-R.csv';
#my $InFile = 'TC-K.csv';
my $InFile = 'TC-R.csv';

$InFile = $ARGV[0] if(defined $ARGV[0]);

print "File: $InFile\n";
my $TC = &ReadTC($InFile);;

while(1) {
	print "V(mV) ?>";
	my $V = <> + 0;
	my $T = &VtoT($TC, $V);
	print "T = $T C for V=$V mV\n";
}

exit;

#=========================================
# Subroutines
#=========================================
sub ReadTC
{
	my ($InFile) = @_;

	my $in = MultiColumnData->new($InFile, 1);
my $nData     = $in->nData();
my ($pX, $pY) = $in->SetXYDataByLabels("V*", "T*");
print "nData=$nData\n";

	return $in;
}

sub VtoT
{
	my ($TC, $V) = @_;
	return $TC->YVal($V);
}