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