version 1.173, 2017/02/07 21:24:29
|
version 1.174, 2018/09/12 21:10:44
|
Line 976 sub chemparse {
|
Line 976 sub chemparse {
|
return &xmlparse($formula); |
return &xmlparse($formula); |
} |
} |
|
|
|
sub convert_engineer_format { |
|
my ($ans,$baseunit)=@_; |
|
my ($value,$answer,$unit); |
|
$baseunit =~ s{[^\w/\-\.]}{}g; |
|
eval { |
|
$value = &number_format_pref($ans); |
|
}; |
|
my ($answer,$prefix) = ($value=~ /^(.+)(\w)$/); |
|
my $unit = $prefix.$baseunit; |
|
return($answer,$unit); |
|
} |
|
|
sub prettyprint { |
sub prettyprint { |
my ($value,$fmt,$target)=@_; |
my ($value,$fmt,$target)=@_; |
my $result; |
my $result; |