version 1.16, 2001/01/24 17:01:49
|
version 1.19, 2001/05/08 14:57:12
|
Line 11 sub caparesponse_check {
|
Line 11 sub caparesponse_check {
|
my $type=''; #done |
my $type=''; #done |
my $tol_type=''; # gets it's value from whether tol has a % or not done |
my $tol_type=''; # gets it's value from whether tol has a % or not done |
my $tol=''; #done |
my $tol=''; #done |
my $sig=''; |
my $sig=''; #done lowerbnd,upperbnd |
my $sig_lbound=''; |
my $sig_lbound=''; #done |
my $sig_ubound=''; |
my $sig_ubound=''; #done |
my $ans_fmt=''; |
my $ans_fmt=''; |
my $units=''; |
my $units=''; #done |
my $calc=''; |
my $calc=''; |
my ($response,$expr)=@_; |
my ($response,$expr)=@_; |
|
|
Line 71 sub caparesponse_check {
|
Line 71 sub caparesponse_check {
|
elsif ($result =='12') { $result='WANTED_NUMERIC'; } |
elsif ($result =='12') { $result='WANTED_NUMERIC'; } |
else {$result = "ERROR: Unknown Result:$result:$@:";} |
else {$result = "ERROR: Unknown Result:$result:$@:";} |
|
|
return "$result:<br>Error $error:<br>Answer $answer:<br>Response $response:<br>$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$units<br>"; |
return "$result:<br />Error $error:<br />Answer $answer:<br />Response $response:<br />$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$units<br />"; |
} |
} |
|
|
sub caparesponse_check_list { |
sub caparesponse_check_list { |
Line 83 sub caparesponse_check_list {
|
Line 83 sub caparesponse_check_list {
|
my (@list) = eval $answer; |
my (@list) = eval $answer; |
my (@responselist)=split /,/,$response; |
my (@responselist)=split /,/,$response; |
my $unit=''; |
my $unit=''; |
$result.="Final response :$responselist['-1']:<br>"; |
$result.="Final response :$responselist['-1']:<br />"; |
if ( $responselist['-1']=~ /(.*[^\s])\s+([^\s]+)/ ) { |
if ( $responselist['-1']=~ /(.*[^\s])\s+([^\s]+)/ ) { |
$responselist['-1']=$1; |
$responselist['-1']=$1; |
$unit=$2; |
$unit=$2; |
} |
} |
$result.="Final response :$responselist['-1']:<br>"; |
$result.="Final response :$responselist['-1']:<br />"; |
$unit=~s/\s//; |
$unit=~s/\s//; |
my $i=0; |
my $i=0; |
my $awards=''; |
my $awards=''; |
for ($i=0; $i<@list;$i++) { |
for ($i=0; $i<@list;$i++) { |
$aresult=&caparesponse_check($responselist[$i]." $unit", |
if ($unit eq '') { |
$expr.';my $answer='.$list[$i].';'); |
$aresult=&caparesponse_check($responselist[$i], |
|
$expr.';my $answer='.$list[$i].';'); |
|
} else { |
|
$aresult=&caparesponse_check($responselist[$i]." $unit", |
|
$expr.';my $answer='.$list[$i].';'); |
|
} |
my ($temp)=split /:/, $aresult; |
my ($temp)=split /:/, $aresult; |
$awards.="$temp,"; |
$awards.="$temp,"; |
$result.=$aresult; |
$result.=$aresult; |
} |
} |
chop $awards; |
chop $awards; |
return "$awards:<br>$result"; |
return "$awards:<br />$result"; |
} |
} |
|
|
sub tex { |
sub tex { |
Line 140 sub random {
|
Line 145 sub random {
|
} |
} |
|
|
sub tan { sin($_[0]) / cos($_[0]) } |
sub tan { sin($_[0]) / cos($_[0]) } |
|
sub atan { atan2($_[0], 1); } |
sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0] ); } |
sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0] ); } |
sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) ); } |
sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) ); } |
|
sub log10 { log($_[0])/log(10); } |
|
|
sub html { |
sub html { |
if ( $external::target eq "web" ) { |
if ( $external::target eq "web" ) { |