| … | |
… | |
| 544 | $colcount++; |
544 | $colcount++; |
| 545 | $out .= '\fbox{' if ($colcount == $opts{'box'}->[1] and $opts{'cnt'} == $opts{'box'}->[0]); |
545 | $out .= '\fbox{' if ($colcount == $opts{'box'}->[1] and $opts{'cnt'} == $opts{'box'}->[0]); |
| 546 | $element= shift(@elements); |
546 | $element= shift(@elements); |
| 547 | if (ref($element) eq 'Fraction') { |
547 | if (ref($element) eq 'Fraction') { |
| 548 | $element= $element->print_inline(); |
548 | $element= $element->print_inline(); |
| 549 | }elsif( $element =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/ and $element != sprintf($opts{'num_format'},$element) and $element - sprintf($opts{'num_format'},$element) < $main::functZeroLevelTolDefault){ |
549 | #}elsif( $element =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/ and $element != sprintf($opts{'num_format'},$element) and $element - sprintf($opts{'num_format'},$element) < $main::functZeroLevelTolDefault){ |
| 550 | $element = sprintf($opts{'num_format'},$element); |
550 | # $element = sprintf($opts{'num_format'},$element); |
| 551 | $element = 0 if abs($element) < $main::functZeroLevelTolDefault; |
551 | # $element = 0 if abs($element) < $main::functZeroLevelTolDefault; |
| 552 | } |
552 | } |
| 553 | $out .= "$brh<TD nowrap=\"nowrap\" align=\"$myalign\">$erh"; |
553 | $out .= "$brh<TD nowrap=\"nowrap\" align=\"$myalign\">$erh"; |
| 554 | $out .= '<table border="1"><tr><td>' if ($colcount == $opts{'box'}->[1] and $opts{'cnt'} == $opts{'box'}->[0]); |
554 | $out .= '<table border="1"><tr><td>' if ($colcount == $opts{'box'}->[1] and $opts{'cnt'} == $opts{'box'}->[0]); |
| 555 | $out .= $element; |
555 | $out .= $element; |
| 556 | $out .= '</td></tr></table>' if ($colcount == $opts{'box'}->[1] and $opts{'cnt'} == $opts{'box'}->[0]); |
556 | $out .= '</td></tr></table>' if ($colcount == $opts{'box'}->[1] and $opts{'cnt'} == $opts{'box'}->[0]); |
Parent Directory
| 
Revision Log
| 
Patch