Diff for /loncom/homework/default_homework.lcpm between versions 1.162 and 1.163

version 1.162, 2012/11/21 23:22:43 version 1.163, 2013/01/21 06:16:50
Line 1033  sub format_significant_figures { Line 1033  sub format_significant_figures {
     $number = abs($number);      $number = abs($number);
     # needed to correct for a number greater than 1 (or      # needed to correct for a number greater than 1 (or
     my $power = ($number < 1) ? 0 : 1;      my $power = ($number < 1) ? 0 : 1;
       if ($power && $number =~ /^\d+$/) {
           my $nonzeros = $number;
           $nonzeros =~ s/0+$//;
           if (length($number) - length($nonzeros) > 1) {
               # convert to exponential form
               my $n = $sig-1;
               my $numSig = sprintf('%.' . $n . 'E', $number);
               # return number with sign
               return $sign.$numSig;
           }
       }
     # could round up. Take the integer part of log10.      # could round up. Take the integer part of log10.
     my $x10 = int(log($number)/log(10));      my $x10 = int(log($number)/log(10));
     # find number with values left of decimal pt = # of sign figs.      # find number with values left of decimal pt = # of sign figs.

Removed from v.1.162  
changed lines
  Added in v.1.163


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