version 1.45, 2002/01/30 17:32:05
|
version 1.46, 2002/02/06 16:18:26
|
Line 445 sub format {
|
Line 445 sub format {
|
return sprintf('%.'.$fmt,$value); |
return sprintf('%.'.$fmt,$value); |
} |
} |
|
|
|
sub prettyprint { |
|
my ($value,$fmt)=@_; |
|
my $result; |
|
if ($fmt) { $value=sprintf('%.'.$fmt,$value); } |
|
if ($value =~ /([0-9\.\-\+]+)E([0-9\-\+]+)/ ) { |
|
my $frac=$1; |
|
my $exponent=$2; |
|
$exponent=~s/^\+0*//; |
|
if ($external::target eq 'web') { |
|
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |
|
} elsif ($external::target eq 'tex') { |
|
$result='\ensuremath{'.$frac.'\times 10^{'.$exponent.'}}'; |
|
} else { |
|
$result=$value; |
|
} |
|
} else { |
|
$result=$value; |
|
} |
|
return $result; |
|
} |
|
|
sub map { |
sub map { |
my ($phrase,$dest,$source)=@_; |
my ($phrase,$dest,$source)=@_; |
my @seed = &random_seed_from_phrase($phrase); |
my @seed = &random_seed_from_phrase($phrase); |