version 1.4, 2006/06/12 14:22:01
|
version 1.5, 2006/06/13 14:57:54
|
Line 76 sub compareterms {
|
Line 76 sub compareterms {
|
} |
} |
|
|
sub maxima_check { |
sub maxima_check { |
my ($response,$answer,$type, |
my ($response,$answer,$reterror) = @_; |
$tol_type,$tol, |
|
$sig_lbound,$sig_ubound, |
|
$ans_fmt,$unit,$calc,$id_list, |
|
$points, |
|
$randomseed, |
|
$reterror) = @_; |
|
my $socket=&connect(); |
my $socket=&connect(); |
my $reply=&compareterms($socket,$response,$answer); |
my $reply=&compareterms($socket,$response,$answer); |
&disconnect($socket); |
&disconnect($socket); |