version 1.64, 2003/06/24 20:41:56
|
version 1.65, 2003/09/18 18:54:35
|
Line 508 sub prettyprint {
|
Line 508 sub prettyprint {
|
my $exponent=$2; |
my $exponent=$2; |
$exponent=~s/^\+0*//; |
$exponent=~s/^\+0*//; |
$exponent=~s/^-0*/-/; |
$exponent=~s/^-0*/-/; |
|
$exponent=~s/^-0*/-/; |
|
if ($exponent eq '-') { undef($exponent); } |
if ($exponent) { |
if ($exponent) { |
if ($external::target eq 'web') { |
if ($external::target eq 'web') { |
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |