version 1.109, 2006/07/05 19:01:44
|
version 1.110, 2006/07/17 21:11:21
|
Line 200 sub capa_formula_fix {
|
Line 200 sub capa_formula_fix {
|
|
|
sub implicit_multiplication { |
sub implicit_multiplication { |
my ($expression)=@_; |
my ($expression)=@_; |
$expression=~s/\s+/\*/g; |
$expression=~s/(\d+)e([\+\-]*\d+)/$1\&\($2\)/gsi; |
$expression=~s/(\d)([a-zA-Z\(])/$1\*$2/g; |
$expression=~s/(\d+)(?:x|\*)10(?:\^|\*\*)([\+\-]*\d+)/$1\&\($2\)/gsi; |
$expression=~s/\)(\w)/\)\*$1/g; |
$expression=~s/\s+/\*/gs; |
|
$expression=~s/(\d)([a-zA-Z\(])/$1\*$2/gs; |
|
$expression=~s/([a-zA-Z])(\d)/$1\*$2/gs; |
|
$expression=~s/\)(\w)/\)\*$1/gs; |
|
$expression=~s/(\d+)\&\(([\+\-]*\d+)\)/$1e$2/gs; |
return $expression; |
return $expression; |
} |
} |
|
|