Changeset a1df01 in git
- Timestamp:
- Mar 5, 2001, 5:44:15 PM (22 years ago)
- Branches:
- (u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')
- Children:
- 59c8e86a45aa978505663b26595d3088a4beef4c
- Parents:
- 3be21912509b9d0d48aa864b1627f831fad50bf6
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/units.cc
r3be219 ra1df01 2 2 * Computer Algebra System SINGULAR * 3 3 *****************************************/ 4 /* $Id: units.cc,v 1. 8 2001-02-27 18:05:16mschulze Exp $ */4 /* $Id: units.cc,v 1.9 2001-03-05 16:44:15 mschulze Exp $ */ 5 5 /* 6 6 * ABSTRACT: procedures to compute with units … … 34 34 } 35 35 ideal M0=idInit(IDELEMS(M),M->rank); 36 ideal M1=kNF(N,currQuotient,M ,0,2);37 while(idElem(M1)>0&&(d==-1||idMinDeg W(M1,w)<=d))36 ideal M1=kNF(N,currQuotient,M); 37 while(idElem(M1)>0&&(d==-1||idMinDeg(M1,w)<=d)) 38 38 { 39 39 for(int i=IDELEMS(M)-1;i>=0;i--) … … 47 47 } 48 48 idDelete(&M1); 49 M1=kNF(N,currQuotient,M ,0,2);49 M1=kNF(N,currQuotient,M); 50 50 } 51 51 idDelete(&M1);
Note: See TracChangeset
for help on using the changeset viewer.