[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.174 and 1.176

version 1.174, 2018/09/12 21:10:44 version 1.176, 2019/04/03 21:37:11
Line 656  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 976  sub chemparse { Line 989  sub chemparse {
     return &xmlparse($formula);      return &xmlparse($formula);
 }  }
   
 sub convert_engineer_format {  sub conv_eng_format {
     my ($ans,$baseunit)=@_;      my ($ans,$baseunit)=@_;
     my ($value,$answer,$unit);      my ($value,$answer,$unit);
     $baseunit =~ s{[^\w/\-\.]}{}g;       $baseunit =~ s{[^\w/\-\.]}{}g; 
Removed from v.1.174  
changed lines
  Added in v.1.176

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