version 1.55, 2005/02/24 09:54:01
|
version 1.57, 2005/02/24 10:07:47
|
Line 240 sub prepare_algebra {
|
Line 240 sub prepare_algebra {
|
my ($string)=@_; |
my ($string)=@_; |
|
|
# makes the decision about what is a minus sign easier supposedly |
# makes the decision about what is a minus sign easier supposedly |
$string =~ s/([\=\>\<\%\!\#] *)-/$1 zeroplace -/g; |
$string =~ s/(\<\>|\<\=|\>\=[\=\>\<] *)-/$1 zeroplace -/g; |
|
|
return $string; |
return $string; |
} |
} |
Line 273 sub postprocess_algebra {
|
Line 273 sub postprocess_algebra {
|
# int( ... dx) -> ... |
# int( ... dx) -> ... |
$string =~s/\\int\\left\((.+?)d[a-z]\\right\)/$1/gs; |
$string =~s/\\int\\left\((.+?)d[a-z]\\right\)/$1/gs; |
|
|
|
# |
|
$string =~s/\\lim\\left\((.+?),(.+?),(.+?)\\right\)/\\lim_{$2\\to $3}$1/gs; |
&Apache::lonnet::logthis($string); |
&Apache::lonnet::logthis($string); |
return $string; |
return $string; |
} |
} |