loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.314, 2006/02/14 19:41:06
+version 1.315, 2006/02/25 20:25:02
  Line 40  use Apache::lonmsg qw(:user_normal_msg);
  use Apache::Constants qw(:common);
  use Apache::lonlocal;
  use String::Similarity;
+ use POSIX qw(floor);
  my %oldessays=();
  my %perm=();
- Line 467  sub jscriptNform {
+ Line 468  sub jscriptNform {
      return $jscript;
  }
+ # Given the score (as a number [0-1] and the weight) what is the final
+ # point value? This function will round to the nearest tenth, third,
+ # or quarter if one of those is within the tolerance of .00001.
+ sub compute_points
+ {
+     my ($score, $weight) = @_;
+     my $tolerance = .00001;
+     my $points = $score * $weight;
+     # Check for nearness to 1/x.
+     my $check_for_nearness = sub {
+         my ($factor) = @_;
+         my $num = ($points * $factor) + $tolerance;
+         my $floored_num = floor($num);
+         if ($num - $floored_num < 2 * $tolerance * $factor)
+         {
+             return $floored_num / $factor;
+         }
+         return $points;
+     };
+     $points = $check_for_nearness->(10);
+     $points = $check_for_nearness->(3);
+     $points = $check_for_nearness->(4);
+     return $points;
+ }
  #------------------ End of general use routines --------------------
  #