--- loncom/homework/default_homework.lcpm 2012/11/22 02:15:42 1.152.2.3 +++ loncom/homework/default_homework.lcpm 2011/05/21 14:08:06 1.153 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run() # -# $Id: default_homework.lcpm,v 1.152.2.3 2012/11/22 02:15:42 raeburn Exp $ +# $Id: default_homework.lcpm,v 1.153 2011/05/21 14:08:06 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -143,6 +143,7 @@ sub caparesponse_check { my $sig_lbound=''; #done my $sig_ubound=''; #done + #type's definitons come from capaParser.h #remove leading and trailing whitespace @@ -151,8 +152,10 @@ sub caparesponse_check { } if ($response=~ /^\s|\s$/) { $response=~ s:^\s+|\s+$::g; + &LONCAPA_INTERNAL_DEBUG("Removed ws now :$response:"); } + #&LONCAPA_INTERNAL_DEBUG(" type is $type "); if ($type eq 'cs' || $type eq 'ci') { #for string answers make sure all places spaces occur, there is #really only 1 space, in both the answer and the response @@ -176,6 +179,7 @@ sub caparesponse_check { if (length($response) > 500) { return ('TOO_LONG',undef); } if ($type eq '' ) { + &LONCAPA_INTERNAL_DEBUG("Didn't find a type :$type: defaulting"); if ( $answer eq ($answer *1.0)) { $type = 2; } else { $type = 3; } } else { @@ -195,6 +199,7 @@ sub caparesponse_check { #formula type setup the sample points if ($type eq '8') { ($id_list,$points)=split(/@/,$samples); + &LONCAPA_INTERNAL_DEBUG("Found :$id_list:$points: points in $samples"); } if ($tol eq '') { $tol=0.0; @@ -253,8 +258,8 @@ sub caparesponse_check { elsif ($result =='15') { $result='UNIT_IRRECONCIBLE'; } else {$result = "ERROR: Unknown Result:$result:$@:";} -# &LONCAPA_INTERNAL_DEBUG("RetError $reterror: Answer $answer: Response $response: type-$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$unit|"); -# &LONCAPA_INTERNAL_DEBUG(" $answer $response $result "); + &LONCAPA_INTERNAL_DEBUG("RetError $reterror: Answer $answer: Response $response: type-$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$unit|"); + &LONCAPA_INTERNAL_DEBUG(" $answer $response $result "); return ($result,$reterror); } @@ -266,9 +271,6 @@ sub caparesponse_check_list { my $answerunit=$LONCAPA::CAPAresponse_args{'unit'}; &LONCAPA_INTERNAL_DEBUG("Got type :$type: answer unit :$answerunit:\n"); - my $preprocess=$LONCAPA::CAPAresponse_args{'preprocess'}; - $preprocess=~s/^\&//; - my $num_input_lines = scalar(@{$LONCAPA::CAPAresponse_answer->{'answers'}}); @@ -305,43 +307,22 @@ sub caparesponse_check_list { } } + &LONCAPA_INTERNAL_DEBUG("Initial final response :$responses->[0][-1]:"); my $unit; - my ($allowalgebra)=($LONCAPA::CAPAresponse_args{'allowalgebra'}=~/^(yes|1|on)$/i); if ($type eq 'float' || $type eq '') { #for numerical problems split off the unit - my ($part1,$part2); - if ($allowalgebra) { - ($part1,$part2)=($responses->[0][-1]=~ /^(.*[^\s])\s+([^\s]+)$/); - } else { - ($part1,$part2)=($responses->[0][-1]=~ /^([\d\.\,\s\$]*(?:(?:[xX\*]10[\^\*]*|[eE]*)[\+\-]*\d*)*(?:^|\S)\d+)([\$\s\w\^\*\/\(\)\+\-]*[^\d\.\s\,][\$\s\w\^\*\/\(\)\+\-]*)$/); - } - if (defined($part1) && defined($part2)) { - $responses->[0][-1]=$part1; - $unit=&capa_formula_fix($part2); - my $customunits=$LONCAPA::CAPAresponse_args{'customunits'}; - if ($customunits =~ /\S/) { - foreach my $replacement (split(/\s*\,\s*/,$customunits)) { - my ($which,$what)=split(/\s*\=\s*/,$replacement); - if ((defined($which)) && (defined($what))) { - $what=&capa_formula_fix($what); - $unit=~s/$which/\($what\)/g; - } - } - } +# if ( $responses->[0][-1]=~ /(.*[^\s])\s+([^\s]+)/ ) { + if ( $responses->[0][-1]=~ /^([\d\.\,\s\$]*(?:(?:[xX\*]10[\^\*]*|[eE]*)[\+\-]*\d*)*(?:^|\S)\d+)([\$\s\w\^\*\/\(\)\+\-]*[^\d\.\s\,][\$\s\w\^\*\/\(\)\+\-]*)$/ ) { + $responses->[0][-1]=$1; + $unit=&capa_formula_fix($2); + &LONCAPA_INTERNAL_DEBUG("Found unit :$unit:"); } } + &LONCAPA_INTERNAL_DEBUG("Final final response :$responses->[0][-1]:$unit:"); $unit=~s/\s//; my $error; foreach my $response (@$responses) { - foreach my $element (@$response) { - # See if we have preprocessor - if ($preprocess=~/\S/) { - if (defined(&$preprocess)) { - no strict 'refs'; - $element=&$preprocess($element,$unit); - use strict 'refs'; - } - } + foreach my $element (@$response) { if (($type eq 'float') || (($type eq '') && ($unit ne ''))) { $element =~ s/\s//g; } @@ -360,13 +341,9 @@ sub caparesponse_check_list { $appendunit='%'.$appendunit; } # Zero does not need a dimension - if (($element =~ /^[0\.]+$/) && ($unit!~/\w/) && ($answerunit=~/\w/)) { + if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) { $appendunit=$answerunit; } -# Do the math for the student if allowed - if ($allowalgebra) { - $element=&cas('maxima',$element); - } if ($appendunit ne '') { $element .= " $appendunit"; } @@ -415,15 +392,6 @@ sub caparesponse_check_list { } } } - # See if we have preprocessor for string responses - if (($preprocess=~/\S/) && ($type eq 'cs' || $type eq 'ci')) { - if (defined(&$preprocess)) { - no strict 'refs'; - $response->[$j]=&$preprocess($response->[$j]); - use strict 'refs'; - } - } - my ($award,$msg) = &caparesponse_check($answer->[$j], $response->[$j]); if ($type eq 'cs' || $type eq 'ci') { @@ -462,15 +430,6 @@ sub caparesponse_check_list { } } } - # See if we have preprocessor - if (($preprocess=~/\S/) && ($type eq 'cs' || $type eq 'ci')) { - if (defined(&$preprocess)) { - no strict 'refs'; - $response->[$j]=&$preprocess($response->[$j]); - use strict 'refs'; - } - } - my ($award,$msg) = &caparesponse_check($answer->[$j], $response->[$j]); if ($type eq 'cs' || $type eq 'ci') { @@ -817,7 +776,6 @@ sub cos { CORE::cos(shift) } sub exp { CORE::exp(shift) } sub int { CORE::int(shift) } sub log { CORE::log(shift) } -sub ln { CORE::log(shift) } sub atan2 { CORE::atan2($_[0],$_[1]) } sub sqrt { CORE::sqrt(shift) } @@ -1184,6 +1142,7 @@ sub middlename { $middlename = '' if $middlename eq ""; return $middlename; } + sub lastname { my $lastname = &EXT('environment.lastname'); @@ -1250,40 +1209,6 @@ sub answer_date_epoch { return &EXT('resource.'.$partid.'.answerdate'); } -sub parameter_setting { - my ($which,$partid)=@_; - unless ($partid) { $partid=0; } - return &EXT('resource.'.$partid.'.'.$which); -} - -sub stored_data { - my ($which,$partid)=@_; - unless ($partid) { $partid=0; } - return &EXT('user.resource.resource.'.$partid.'.'.$which); -} - -sub wrong_bubbles { - my ($correct,$lower,$upper,$step,@given)=@_; - my @array=(); - my %hash=(); - foreach my $new (@given) { - $hash{$new}=1; - } - my $num=int(¶meter_setting('numbubbles',¤tpart())); - unless ($num) { $num=8; } - if ($num>1) { - for (my $i=0;$i<=500;$i++) { - my $new=&random($lower,$upper,$step); - if ($hash{$new}) { next; } - if (abs($new-$correct)<$step) { next; } - $hash{$new}=1; - @array=keys(%hash); - if ($#array+2>=$num) { last; } - } - } - return @array; -} - sub array_moments { my @input=@_; my (@output,$N);