| … | |
… | |
| 534 | my ($p1, $p2) = ('',''); |
534 | my ($p1, $p2) = ('',''); |
| 535 | if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ \left( \right) };} |
535 | if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ \left( \right) };} |
| 536 | return ($args[0] . $p1 . $args[1]->tolatex() . $p2); |
536 | return ($args[0] . $p1 . $args[1]->tolatex() . $p2); |
| 537 | }; |
537 | }; |
| 538 | /binop2/ && do { |
538 | /binop2/ && do { |
|
|
539 | my ($p1, $p2, $p3, $p4)=('','','',''); |
| 539 | my ($lop,$rop) = ($args[1]->tolatex,$args[2]->tolatex); |
540 | my ($lop,$rop) = ($args[1]->tolatex,$args[2]->tolatex); |
| 540 | if ($args[0] eq '/'){ |
541 | if ($args[0] eq '/'){ |
| 541 | return('\frac{'.$lop.'}{'.$rop.'}'); |
542 | return('\frac{'.$lop.'}{'.$rop.'}'); |
| 542 | } else { |
543 | } else { |
| 543 | $lop = '\left('.$lop.'\right)' if ($args[1]->[0] =~ /binop1|numberE/); |
544 | $lop = '\left('.$lop.'\right)' if ($args[1]->[0] =~ /binop1|numberE/); |