[BACK]Return to default_homework.lcpm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/default_homework.lcpm between versions 1.159 and 1.176

version 1.159, 2011/06/09 15:43:56 version 1.176, 2019/04/03 21:37:11
Line 309  sub caparesponse_check_list { Line 309  sub caparesponse_check_list {
  #for numerical problems split off the unit   #for numerical problems split off the unit
         my $part1;          my $part1;
         my $part2;          my $part2;
           my $match_algebra = qr{^(.*[^\s])\s+([^\s]+)$};
           # FIXME: with the above regexp, algebra with spaces will not be evaluated correctly
           my $match_numerical_units = qr{^([\d\.\,\s\$]*(?:(?:[xX\*]10[\^\*]*|[eE]*)[\+\-]*\d*)*(?:^|\S)\d+)([\$\s\w\^\*\/\(\)\+\-]*[^\d\.\s\,][\$\s\w\^\*\/\(\)\+\-]*)$};
         if ($allowalgebra) {          if ($allowalgebra) {
            ($part1,$part2)=($responses->[0][-1]=~ /^(.*[^\s])\s+([^\s]+)$/);              ($part1,$part2) = ($responses->[0][-1] =~ /$match_algebra/); 
         } else {          } else {
            ($part1,$part2)=($responses->[0][-1]=~ /^([\d\.\,\s\$]*(?:(?:[xX\*]10[\^\*]*|[eE]*)[\+\-]*\d*)*(?:^|\S)\d+)([\$\s\w\^\*\/\(\)\+\-]*[^\d\.\s\,][\$\s\w\^\*\/\(\)\+\-]*)$/);             ($part1,$part2) = ($responses->[0][-1] =~ /$match_numerical_units/);
         }          }
         if (defined($part1) && defined($part2)) {          if (defined($part1) && defined($part2)) {
     $responses->[0][-1]=$part1;      $responses->[0][-1]=$part1;
     $unit=&capa_formula_fix($part2);      $unit=&capa_formula_fix($part2);
             my $customunits=$LONCAPA::CAPAresponse_args{'customunits'};              my $customunits=$LONCAPA::CAPAresponse_args{'customunits'};
             foreach my $replacement (split(/\s*\,\s*/,$customunits)) {              if ($customunits =~ /\S/) {
                 my ($which,$what)=split(/\s*\=\s*/,$replacement);                  foreach my $replacement (split(/\s*\,\s*/,$customunits)) {
                 if ((defined($which)) && (defined($what))) {                      my ($which,$what)=split(/\s*\=\s*/,$replacement);
                    $what=&capa_formula_fix($what);                      if ((defined($which)) && (defined($what))) {
                    $unit=~s/$which/\($what\)/g;                          $what=&capa_formula_fix($what);
                           $unit=~s/$which/\($what\)/g;
                       }
                   }
               }
               if (scalar(@$responses) > 0 && defined $answerunit) {
                   # there are several response values, units should be the same for all
                   $part2 =~ s/^\s+|\s+$//g;
                   for (my $i=1; $i<scalar(@$responses); $i++) {
                       my $element = $responses->[$i][-1];
                       my ($part1i, $part2i);
                       if ($allowalgebra) {
                           ($part1i, $part2i) = ($element =~ /$match_algebra/); 
                       } else {
                           ($part1i, $part2i) = ($element =~ /$match_numerical_units/);
                       }
                       $part2i =~ s/^\s+|\s+$//g;
                       if (!defined $part2i) {
                           return 'NO_UNIT';
                       } elsif ($part2i ne $part2) {
                           return ('UNIT_FAIL', "$part2 $part2i");
                       } else {
                           $responses->[$i][-1] = $part1i;
                       }
                 }                  }
             }              }
  }   }
Line 357  sub caparesponse_check_list { Line 383  sub caparesponse_check_list {
              $appendunit='%'.$appendunit;               $appendunit='%'.$appendunit;
           }            }
 # Zero does not need a dimension  # Zero does not need a dimension
           if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) {            if (($element =~ /^[0\.]+$/) && ($unit!~/\w/) && ($answerunit=~/\w/)) {
              $appendunit=$answerunit;               $appendunit=$answerunit;
           }            }
 # Do the math for the student if allowed  # Do the math for the student if allowed
Line 630  sub hinton { Line 656  sub hinton {
 sub random {  sub random {
     my ($start,$end,$step)=@_;      my ($start,$end,$step)=@_;
     if ( ! $hidden::RANDOMINIT ) {      if ( ! $hidden::RANDOMINIT ) {
  if ($external::randomseed == 0) { $external::randomseed=1; }          if ($external::randomseed == 0) { $external::randomseed=1; }
  if ($external::randomseed =~/,/) {          if ($external::randomseed =~/,/) {
     my ($num1,$num2)=split(/,/,$external::randomseed);              my ($num1,$num2) = map { abs($_); } split(/,/,$external::randomseed);
     &random_set_seed(1,abs($num1));              if ((!$num1) || ($num1 > 2147483398)) {
  } elsif ($external::randomseed =~/:/) {                  &random_set_seed_from_phrase($external::randomseed);
     my ($num1,$num2)=split(/:/,$external::randomseed);              } else {
     &random_set_seed(abs($num1),abs($num2));                  &random_set_seed(1,$num1);
  } else {              }
     &random_set_seed(1,int(abs($external::randomseed)));          } elsif ($external::randomseed =~/:/) {
  }              my ($num1,$num2) = map { abs($_); } split(/:/,$external::randomseed);
               if ((!$num1) || (!$num2) || ($num1 > 2147483562) || ($num2 > 2147483398)) {
                   &random_set_seed_from_phrase($external::randomseed);
               } else {
                   &random_set_seed($num1,$num2);
               }
           } else {
               my $num1 = int(abs($external::randomseed));
               if ((!$num1) || ($num1 > 2147483398)) {
                   &random_set_seed_from_phrase($external::randomseed);
               } else {
                   &random_set_seed(1,$num1);
               }
           }
  &math_random_uniform();   &math_random_uniform();
  $hidden::RANDOMINIT=1;   $hidden::RANDOMINIT=1;
     }      }
Line 814  sub cos { CORE::cos(shift) } Line 853  sub cos { CORE::cos(shift) }
 sub exp { CORE::exp(shift) }  sub exp { CORE::exp(shift) }
 sub int { CORE::int(shift) }  sub int { CORE::int(shift) }
 sub log { CORE::log(shift) }  sub log { CORE::log(shift) }
   sub ln { CORE::log(shift) }
 sub atan2 { CORE::atan2($_[0],$_[1]) }  sub atan2 { CORE::atan2($_[0],$_[1]) }
 sub sqrt { CORE::sqrt(shift) }  sub sqrt { CORE::sqrt(shift) }
   
Line 899  sub chemparse { Line 939  sub chemparse {
     my $formula = '';      my $formula = '';
     foreach my $token (@tokens) {      foreach my $token (@tokens) {
  if ($token eq '->' ) {   if ($token eq '->' ) {
     $formula .= '<m>\ensuremath{\rightarrow}</m> ';              if ($external::target eq 'web') {
                   $formula .= '&rarr; ';
               } else {
                   $formula .= '<m>\ensuremath{\rightarrow}</m> ';
       }
     next;      next;
  }   }
  if ($token eq '<-' ) {   if ($token eq '<-' ) {
     $formula .= '<m>\ensuremath{\leftarrow}</m> ';              if ($external::target eq 'web') {
                   $formula .= '&larr; ';
               } else {
                   $formula .= '<m>\ensuremath{\leftarrow}</m> ';
       }
     next;      next;
  }     }  
  if ($token eq '<=>') {   if ($token eq '<=>') {
Line 941  sub chemparse { Line 989  sub chemparse {
     return &xmlparse($formula);      return &xmlparse($formula);
 }  }
   
   sub conv_eng_format {
       my ($ans,$baseunit)=@_;
       my ($value,$answer,$unit);
       $baseunit =~ s{[^\w/\-\.]}{}g; 
       eval {
              $value = &number_format_pref($ans);
       };
       my ($answer,$prefix) = ($value=~ /^(.+)(\w)$/);
       my $unit = $prefix.$baseunit;
       return($answer,$unit);
   } 
   
 sub prettyprint {  sub prettyprint {
     my ($value,$fmt,$target)=@_;      my ($value,$fmt,$target)=@_;
     my $result;      my $result;
Line 1040  sub format_significant_figures { Line 1100  sub format_significant_figures {
     my ($zeros) = ($xint =~ /(0+)$/);      my ($zeros) = ($xint =~ /(0+)$/);
     # return number to original magnitude      # return number to original magnitude
     my $numSig = $xint*10**($x10-$sig+$power);      my $numSig = $xint*10**($x10-$sig+$power);
     # insert trailing zero's if have decimal point      if ($numSig =~ /^(\d+)\.(\d+)/) {
     $numSig =~ s/^(\d+)\.(\d+)(\e?(.*)?)$/$1\.$2$zeros$3/;          # insert trailing zero's if have decimal point
     # put a decimal pt for number ending with 0 and length = # of sig fig          my @digarray = split('',$1.$2);
     $numSig.='.' if (length($numSig) == $sig && $numSig =~ /0$/);          my $sigcount;
     if (length($numSig) < $sig) {          while (@digarray > 0) {
  $numSig.='.'.substr($zeros,0,($sig-length($numSig)));              my $item = shift(@digarray);
               if ($item) {
                   $sigcount = 1 + @digarray;
                   last;
               }
           }
           if (($sigcount) && ($sig >= $sigcount)) {
               $zeros = substr($zeros,0,($sig - $sigcount));
           }
           $numSig =~ s/^(\d+)\.(\d+)(\e?(.*)?)$/$1\.$2$zeros$3/;
       } else {
           if ($numSig =~ /^(\d+)e([\+\-]\d+)$/i) {
               my $pre_exp = $1;
               my $exponent = $2;
               $numSig = $pre_exp.'.'.$zeros.'E'.$exponent;
           } elsif ($numSig =~ /0$/) {
               # add decimal pt for number ending with 0 and length == # of sig figs
               if (length($numSig) == $sig) {
                   $numSig.='.';
               } elsif (length($numSig) > $sig) {
                   # exponential form for number ending with 0 and length > # of sig figs
                   my $fmtsig = $sig-1;
                   if ($fmtsig) {
                       $numSig = sprintf('%.'.$fmtsig.'E',$numSig);
                   }
               } elsif (length($numSig) < $sig) {
                   $numSig.='.'.substr($zeros,0,($sig-length($numSig)));
               }
           } else {
               if (length($numSig) < $sig) {
                   $numSig.='.'.substr($zeros,0,($sig-length($numSig)));
               }
           }
     }      }
     # return number with sign      # return number with sign
     return $sign.$numSig;      return $sign.$numSig;
   
 }  }
   
 sub map {  sub map {
Line 1181  sub middlename { Line 1272  sub middlename {
     return $middlename;      return $middlename;
 }  }
   
                                                                                   
 sub lastname {  sub lastname {
     my $lastname = &EXT('environment.lastname');      my $lastname = &EXT('environment.lastname');
     $lastname = '' if $lastname eq "";      $lastname = '' if $lastname eq "";
Line 1195  sub sec { Line 1285  sub sec {
 }  }
   
 sub submission {  sub submission {
    my ($partid,$responseid,$subnumber)=@_;     my ($partid,$responseid,$subnumber,$encode,$cleanupnum,$mapalias)=@_;
    my $sub='';     my $sub='';
    if ($subnumber) { $sub=$subnumber.':'; }     if ($subnumber) { $sub=$subnumber.':'; }
    return &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission');     my $output =
          &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission',$mapalias);
      if (ref($output) eq 'ARRAY') {
          my @items = @{$output};
          if ($encode) {
              @items = map { &encode_response($_); } @items;
          }
          if (ref($cleanupnum) eq 'HASH') {
              @items = map { &cleanup_numerical_response($cleanupnum,$_); } @items;
          }
          return \@items;
      } else {
          if ($encode) {
              $output = &encode_response($output);
          }
          if (ref($cleanupnum) eq 'HASH') {
              $output = &cleanup_numerical_response($cleanupnum,$output);
          }
          return $output;
      }
   }
   
   sub encode_response {
       my ($value) = @_;
       $value =~ s/&/&amp;/g;
       $value =~ s/</&lt;/g;
       $value =~ s/>/&gt;/g;
       $value =~ s/"/&quot;/g;
       return $value;
   }
   
   sub cleanup_numerical_response {
       my ($cleanupnum,$value) = @_;
       if (ref($cleanupnum) eq 'HASH') {
           if ($cleanupnum->{exponent}) {
               if ($value =~ m{^(.*)[\*xX]\s*10\s*\^\s*(\+|\-)?\s*(\d+)(.*)$}) {
                   my $pre_exp = $1;
                   my $sign = $2;
                   my $exponent = $3;
                   my $post_exp = $4;
                   if ($pre_exp !~ /\./) {
                       $pre_exp .= '.';
                   }
                   if ($sign eq '') {
                       $sign = '+';
                   }
                   $value = $pre_exp.'E'.$sign.$exponent.$post_exp;
               }
           }
           if ($cleanupnum->{comma}) {
               $value =~ s{(\d+),(\d+)}{$1$2};
           }
           if ($cleanupnum->{letterforzero}) {
               $value =~ s/^\s*o(\.\d+)/0$1/i;
           }
           if ($cleanupnum->{spaces}) {
               $value =~ s{^\s+|\s+$}{}g;
               if ($value =~ m{^(.*)\.\s+(\d+)(.*)$}) {
                   my $pre_pt = $1;
                   my $decimal = $2;
                   my $post_dec = $3;
                   $value = $pre_pt.'.'.$decimal.$post_dec;
               }
           }
           if ($cleanupnum->{format} =~ /^\d+s$/i) {
               $value = &format_significant_figures($value,$cleanupnum->{format});
           }
       }
       return $value;
 }  }
   
 sub currentpart {  sub currentpart {
Line 1357  sub proper_path { Line 1515  sub proper_path {
     }      }
 }  }
   
   sub input_id {
       my ($part_id, $response_id, $textline_id) = @_;
       return 'HWVAL_'.$part_id.'_'.$response_id.'_'.$textline_id;
   }
   
Removed from v.1.159  
changed lines
  Added in v.1.176

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>