loncom/xml/algebra/AlgParser.pm - diff

Return to AlgParser.pm CVS log

Up to [LON-CAPA] / loncom / xml / algebra

version 1.9, 2005/02/24 09:06:14	version 1.11, 2005/02/25 06:31:00
Line 596 sub tolatex {	Line 596 sub tolatex {
# added missing trig functions	# added missing trig functions
#	#
#$specialfunc = '(?:abs\|logten\|asin\|acos\|atan\|sech\|sgn\|step\|fact)';	#$specialfunc = '(?:abs\|logten\|asin\|acos\|atan\|sech\|sgn\|step\|fact)';
my $specialfunc = '(?:abs\|(logten)\|a(sin\|cos\|tan\|sec\|csc\|cot)(h)?\|sgn\|step\|fact)';	my $specialfunc = '(?:(logten)\|a(sin\|cos\|tan\|sec\|csc\|cot)(h)?\|sgn\|step\|fact\|(abs))';
#	#
# End DPVC	# End DPVC
#	#

if ($args[0] =~ /$specialfunc/) {	if ($args[0] =~ /$specialfunc/) {
if (defined($1)) {	if (defined($1)) {
return ('\mbox{log}_{10}'. $p1 . $args[1]->tolatex() . $p2);	return ('\log_{10}'. $p1 . $args[1]->tolatex() . $p2);
}	}
elsif (defined($2)) {	elsif (defined($2)) {
return ('\mbox{' . $2.$3 .'}^{-1}'. $p1 . $args[1]->tolatex() . $p2);	return ('\\' . $2.$3 .'^{-1}'. $p1 . $args[1]->tolatex() . $p2);
	}
	elsif (defined($4)) {
	return ('\|' . $args[1]->tolatex() . '\|');
}	}
else {	else {
return ('\mbox{' . $args[0] .'}'. $p1 . $args[1]->tolatex() . $p2);	return ('\mbox{' . $args[0] .'}'. $p1 . $args[1]->tolatex() . $p2);