Changeset 2301b7 in git
- Timestamp:
- Jun 21, 2007, 12:30:41 AM (17 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 4385f60d8f6656556577a3d8ec30d850ce35101f
- Parents:
- 3c027f97d279289ce9a8afd78a7554d9286b8613
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/latex.lib
r3c027f r2301b7 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: latex.lib,v 1.2 8 2006-07-18 15:53:58 SingularExp $";2 version="$Id: latex.lib,v 1.29 2007-06-20 22:30:41 levandov Exp $"; 3 3 category="Visualization"; 4 4 info=" … … 677 677 if (size(#)==1) 678 678 { if (typeof(#[1])=="int" or typeof(#[1])=="intvec" or typeof(#[1])=="vector" 679 or typeof(#[1])=="number" or defined(TeXaligned)) { DA = D; DE = D; } } 679 or typeof(#[1])=="number" or typeof(#[1])=="bigint" or defined(TeXaligned)) 680 { DA = D; DE = D; } 681 } 680 682 681 683 s = DA; … … 694 696 else {s = s + obj + newline;} 695 697 } 696 if (typeof(obj) == "int") { s = s + " " + string(obj) + " ";} 698 if (typeof(obj) == "int" or typeof(#[1])=="bigint") 699 { s = s + " " + string(obj) + " ";} 697 700 698 701 if (typeof(obj) == "intvec") … … 1434 1437 cfm = leadcoef(monom); 1435 1438 if (cfm*1 != 0) { monom = monom/cfm;} // the normalized monom 1439 if (defined(TeXreplace)) { short =0;} // this is essential //31.5.07 1436 1440 s = string(monom) + "!"; // add a terminating sign 1437 1441 cfmt = ""; 1438 1442 1439 if (defined(TeXreplace)) { short =0;} // this is essential1440 1443 cfmt = string(cfm); 1441 1444 if (size(cfmt)>1) // check if sign is < 0 … … 1456 1459 if(realT) { monomt,msz = parsr(cfmt);} 1457 1460 if (galT) { monomt,msz = parsg(cfmt);} 1458 b = find(cfmt," )/("); // look if fraction1461 b = find(cfmt,"/("); // look if fraction // 31.5.07 1459 1462 b2 = find(cfmt,"/"); 1460 if (b) {b++;}1463 // if (b) {b++;} // 31.5.07 1461 1464 n = size(cfmt); 1462 1465 if (!(parT) and !(realT) and !(galT)) … … 1541 1544 f; 1542 1545 texpoly("",f); 1546 texpoly("",1/(a2+2)*x+2/b); 1543 1547 } 1544 1548 … … 1557 1561 { if(fl1) { nom = "(" + nom + ")"; sz1++;} 1558 1562 if(fl2) {denom = "(" + denom + ")"; sz2++;} 1559 mt = nom+ "/"+ denom; msz = sz1+sz2 +1;1563 mt = "(" + nom+ "/"+ denom+ ")"; msz = sz1+sz2 +1; //31.5.07 1560 1564 } 1561 1565 else … … 1588 1592 s = s + "!"; 1589 1593 1590 if(defined(TeXreplace)){ short =0;} // only then replacing works correctly1594 //if(defined(TeXreplace)){ short =0;} // hier ueberfluessig 31.5.07 1591 1595 if (short) 1592 { while(s[i]<>"!") 1593 { b=i; j++; 1596 { j = 0; // 31.5.07 1597 while(s[i]<>"!") 1598 { b=i; if (s[i]=="+" or s[i]=="-") {j++;} // 31.5.07 1594 1599 while(s[i]>="0" and s[i]<="9" or (s[i]=="+" or s[i]=="-") and s[i]!="!") 1595 1600 {i++;} // scan the number … … 1836 1841 write(fname,"\\newcommand{\\Line}{\\rule{\\textwidth}{0.25mm}\\\\[5mm]}"); 1837 1842 1838 write(fname,"\\centerline{\\large \\bf Demo file for latex.lib 2.0}"); 1843 write(fname,"\\centerline{\\large \\bf Demo file for latex.lib }"); 1844 write(fname,"\\centerline{07/05/3}"); 1839 1845 write(fname,"\\vspace{1cm}"); 1840 1846
Note: See TracChangeset
for help on using the changeset viewer.