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. |