loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.154, 2011/05/21 14:50:36
+version 1.155, 2011/05/22 03:04:51
  Line 1221  sub stored_data {
      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(&parameter_setting('numbubbles',&currentpart()));
+     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);