|
version 1.6, 2005/02/24 08:28:43
|
version 1.8, 2005/02/24 08:34:52
|
|
Line 594 sub tolatex {
|
Line 594 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 = '(?:abs|(logten)|a(sin|cos|tan|sec|csc|cot)(h)?|sgn|step|fact)'; |
| # |
# |
| # End DPVC |
# End DPVC |
| # |
# |
| |
|
| if ($args[0] =~ /$specialfunc/) { |
if ($args[0] =~ /$specialfunc/) { |
| return ('\mbox{' . $args[0] .'}'. $p1 . $args[1]->tolatex() . $p2); |
if (defined($1)) { |
| |
return ('\mbox{log}_{10}'. $p1 . $args[1]->tolatex() . $p2); |
| |
} |
| |
elsif (defined($2)) { |
| |
return ('\mbox{' . $2.$3 .'}^{-1}'. $p1 . $args[1]->tolatex() . $p2); |
| |
} |
| |
else { |
| |
return ('\mbox{' . $args[0] .'}'. $p1 . $args[1]->tolatex() . $p2); |
| |
} |
| } |
} |
| else { |
else { |
| return ('\\' . $args[0] . $p1 . $args[1]->tolatex() . $p2); |
return ('\\' . $args[0] . $p1 . $args[1]->tolatex() . $p2); |
| } |
} |
| }; |
}; |
| /special/ && do { |
/special/ && do { |
| if ($args[0] eq 'pi') {return '\pi';} else {return $args[0];} |
if ($args[0] =~/($greek|$escape)/) {return '\\'.$1;} |
| |
elsif ($args[0] =~/$delete/) {return '';} |
| |
else { return $args[0]; } |
| }; |
}; |
| /varname|(:?number$)/ && return $args[0]; |
/varname|(:?number$)/ && return $args[0]; |
| /numberE/ && do { |
/numberE/ && do { |
![[BACK]](/icons/back.gif){kind=icon}
Return to AlgParser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml / algebra