loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.52, 2005/02/24 09:37:43	version 1.56, 2005/02/24 09:58:31
Line 254 sub postprocess_algebra {	Line 254 sub postprocess_algebra {
# sqrt(3,4) -> \sqrt\let{3,4\right}, which is annoying	# sqrt(3,4) -> \sqrt\let{3,4\right}, which is annoying
$string =~s/\\left\{/\{/g;	$string =~s/\\left\{/\{/g;
$string =~s/\\right\}/\}/g;	$string =~s/\\right\}/\}/g;

	# remove the extra () in the denominator of a \frac
	$string =~s/\\frac{(.+?)}{\\left$(.+?)\\right$}/\\frac{$1}{$2}/gs;

# sqrt(3,4) means the 4 root of 3	# sqrt(3,4) means the 4 root of 3
$string =~s/\\sqrt{([^,]+),([^\}]+)}/\\sqrt[$2]{$1}/gs;	$string =~s/\\sqrt{([^,]+),([^\}]+)}/\\sqrt[$2]{$1}/gs;

# remove the extra () in the denominator of a \frac	# log(3,4) means the log base 4 of 3
$string =~s/\\frac{(.+?)}{\\left$(.+?)\\right$}/\\frac{$1}{$2}/gs;	$string =~s/\\log\\left$(.+?),(.+?)\\right$/\\log_{$2}\\left($1\\right)/gs;

	# log(3,4) means the log base 4 of 3
	$string =~s/\$(?:sin\|cos\|tan\|sec\|csc\|cot)(?:h)?)\\left\((.+?),(.+?)\\right$/\\$1^{$3}\\left($2\\right)/gs;

	# int(3,a,b) integral from a to b of 3
	$string =~s/\\int\\left$(.+?),(.+?),(.+?)\\right$/\\int_{$2}^{$3}\\left($1\\right)/gs;

	# int( ... dx) -> ...
	$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;
}	}