loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.165, 2014/06/24 17:02:33
+version 1.166, 2014/06/24 18:02:47
  Line 1045  sub format_significant_figures {
      my $numSig = $xint*10**($x10-$sig+$power);
      if ($numSig =~ /^(\d+)\.(\d+)/) {
          # insert trailing zero's if have decimal point
+         my @digarray = split('',$1.$2);
+         my $sigcount;
+         while (@digarray > 0) {
+             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 =~ /0$/) {