version 1.46, 2002/02/06 16:18:26
|
version 1.47, 2002/05/31 22:19:06
|
Line 453 sub prettyprint {
|
Line 453 sub prettyprint {
|
my $frac=$1; |
my $frac=$1; |
my $exponent=$2; |
my $exponent=$2; |
$exponent=~s/^\+0*//; |
$exponent=~s/^\+0*//; |
|
if (!$exponent) { return $frac; } |
if ($external::target eq 'web') { |
if ($external::target eq 'web') { |
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |
} elsif ($external::target eq 'tex') { |
} elsif ($external::target eq 'tex') { |