Rev 7673 | Rev 8185 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7673 | Rev 8155 | ||
|---|---|---|---|
| Line 486... | Line 486... | ||
| 486 | tprint("} "); |
486 | tprint("} "); |
| 487 | } |
487 | } |
| 488 | for(i=0;i<neucnt;i++) t_onefactor(neutral[i],i+dencnt); |
488 | for(i=0;i<neucnt;i++) t_onefactor(neutral[i],i+dencnt); |
| 489 | } |
489 | } |
| 490 | 490 | ||
| 491 |
|
491 | /* put exponential */ |
| 492 | void t_exponential(char *pp) |
492 | void t_exponential(char *pp) |
| 493 | { |
493 | { |
| 494 | char *pe, *pt; |
494 | char *pe, *pt; |
| 495 | int t=0; |
495 | int t=0; |
| 496 | 496 | ||
| Line 676... | Line 676... | ||
| 676 | } |
676 | } |
| 677 | /* remove spaces */ |
677 | /* remove spaces */ |
| 678 | for(pp=p; *pp; pp++) { |
678 | for(pp=p; *pp; pp++) { |
| 679 | if(isspace(*pp)) {ovlstrcpy(pp,pp+1); pp--;} |
679 | if(isspace(*pp)) {ovlstrcpy(pp,pp+1); pp--;} |
| 680 | } |
680 | } |
| 681 |
|
681 | /* replace ** by ^ see __replace_badchar(p,"**", "^");*/ |
| 682 | for(pp=strstr(p,"**"); pp!=NULL; pp=strstr(pp,"**")) { |
682 | for(pp=strstr(p,"**"); pp!=NULL; pp=strstr(pp,"**")) { |
| 683 | *pp='^'; ovlstrcpy(pp+1,pp+2); |
683 | *pp='^'; ovlstrcpy(pp+1,pp+2); |
| 684 | } |
684 | } |
| 685 | if(check_parentheses(p,1)!=0) module_error("unmatched_parentheses"); |
685 | if(check_parentheses(p,1)!=0) module_error("unmatched_parentheses"); |
| 686 | texmathbuf[0]=0; t_onestring(p); |
686 | texmathbuf[0]=0; t_onestring(p); |