Changeset 6fe9a5 in git for Singular/LIB/dmodapp.lib
 Timestamp:
 Mar 18, 2011, 9:12:17 PM (12 years ago)
 Branches:
 (u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')
 Children:
 3542f7c7fb52228c2cae41980c84109e503eaf75
 Parents:
 19ad27804d6e9c1c16eb3b3f560ad543ea06b922
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/dmodapp.lib
r19ad278 r6fe9a5 131 131 11.10.10 by DA: 132 132  procedure bFactor now sorts the roots using new static procedure sortNumberIdeal 133 134 17.03.11 by DA: 135  bugfixes for inForm with polynomial input, typo in restrictionIdealEngine 133 136 */ 134 137 … … 1674 1677 1675 1678 proc inForm (def I, intvec w) 1676 1679 "USAGE: inForm(I,w); I ideal or poly, w intvec 1677 1680 RETURN: ideal, generated by initial forms of generators of I w.r.t. w, or 1678 1681 @* poly, initial form of input poly w.r.t. w … … 1692 1695 ERROR("weight vector has wrong dimension"); 1693 1696 } 1694 if (I == 0) 1697 ideal II = I; 1698 if (simplify(II,2) == 0) 1695 1699 { 1696 1700 return(I); … … 1701 1705 poly g; 1702 1706 ideal J; 1703 for (j=1; j<=ncols(I ); j++)1704 { 1705 l = poly2list(I [j]);1707 for (j=1; j<=ncols(II); j++) 1708 { 1709 l = poly2list(II[j]); 1706 1710 m = scalarProd(w,l[1][1]); 1707 1711 g = l[1][2]; … … 2277 2281 if (v == zm) 2278 2282 { 2279 J[size(J +1)] = M[1,i];2283 J[size(J)+1] = M[1,i]; 2280 2284 } 2281 2285 }
Note: See TracChangeset
for help on using the changeset viewer.