loncom/xml/algebra/AlgParser.pm - diff

Return to AlgParser.pm CVS log

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

version 1.10, 2005/02/24 09:37:05	version 1.13, 2005/06/09 02:17:12
Line 588 sub tolatex {	Line 588 sub tolatex {
};	};
/func1/ && do {	/func1/ && do {
my($p1,$p2);	my($p1,$p2);
if($args[0] eq "sqrt"){($p1,$p2)=qw{ \left{ \right} };}	if($args[0] eq "sqrt"){($p1,$p2)=('{','}');}
else {($p1,$p2)=qw{ \left( \right) };}	else {($p1,$p2)=qw{ \left( \right) };}

#	#
Line 603 sub tolatex {	Line 603 sub tolatex {

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);	if (defined($3) && ($2 eq 'sec' \|\| $2 eq 'csc' \|\| $2 eq 'cot')) {
	return ('\mathrm{' . $2.$3 .'}^{-1}'. $p1 . $args[1]->tolatex() . $p2);
	} else {
	return ('\\' . $2.$3 .'^{-1}'. $p1 . $args[1]->tolatex() . $p2);
	}
}	}
elsif (defined($4)) {	elsif (defined($4)) {
return ('\|' . $args[1]->tolatex() . '\|');	return ('\|' . $args[1]->tolatex() . '\|');
Line 616 sub tolatex {	Line 620 sub tolatex {
}	}
}	}
else {	else {
return ('\\' . $args[0] . $p1 . $args[1]->tolatex() . $p2);	if ($args[0] =~/(sec\|csc\|cot)h/) {
	return ('\mathrm{' . $args[0] . '}' . $p1 . $args[1]->tolatex() . $p2);
	} else {
	return ('\\' . $args[0] . $p1 . $args[1]->tolatex() . $p2);
	}
}	}
};	};
/special/ && do {	/special/ && do {