version 1.50, 2005/02/24 09:06:14
|
version 1.53, 2005/02/24 09:44:46
|
Line 249 sub postprocess_algebra {
|
Line 249 sub postprocess_algebra {
|
my ($string)=@_; |
my ($string)=@_; |
|
|
# moodle had these and I don't know why, ignoring them for now |
# moodle had these and I don't know why, ignoring them for now |
# $string =~/\\left\{/\{/g; |
# $string =~s/\\fun/ /g; |
# $string =~/\\right\}/\}/g; |
|
# $string =~/\\fun/ /g; |
|
|
|
|
# sqrt(3,4) -> \sqrt\let{3,4\right}, which is annoying |
|
$string =~s/\\left\{/\{/g; |
|
$string =~s/\\right\}/\}/g; |
|
|
|
# sqrt(3,4) means the 4 root of 3 |
|
$string =~s/\\sqrt{([^,]+),([^\}]+)}/\\sqrt[$2]{$1}/gs; |
|
|
|
# log(3,4) means the log base 4 of 3 |
|
$string =~s/\\log\\left\((.+?),(.+?)\\right\)/\\log_{$2}\\left($1\\right)/gs; |
|
|
|
# remove the extra () in the denominator of a \frac |
|
$string =~s/\\frac{(.+?)}{\\left\((.+?)\\right\)}/\\frac{$1}{$2}/gs; |
|
|
|
|
|
&Apache::lonnet::logthis($string); |
return $string; |
return $string; |
} |
} |
1; |
1; |