Changeset ae816e in git
- Timestamp:
- Feb 7, 2012, 4:55:51 PM (11 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- 108e2ec73be7e6a609b8fa8fb28be6af482e5dcc
- Parents:
- 9ec1669f774f9fd5bc45c6c9b8b224cff15ab286
- git-author:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-02-07 16:55:51+01:00
- git-committer:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-02-07 19:23:14+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/multigrading.lib
r9ec166 rae816e 1573 1573 while(av[1]*bv[1] != 0) 1574 1574 { 1575 bv = bv - (bv[1] - bv[1]%av[1]) /av[1] * av;1575 bv = bv - (bv[1] - bv[1]%av[1]) div av[1] * av; 1576 1576 save = bv; 1577 1577 bv = av; … … 1713 1713 transform = unitMatrix(cc); 1714 1714 transform[k+1,k] = 1; 1715 a = -v[3]*D[k+1,k+1] /v[1];1715 a = -v[3]*D[k+1,k+1] div v[1]; 1716 1716 transform[k, k+1] = a; 1717 1717 transform[k+1, k+1] = a+1; … … 1723 1723 transform[k,k] = v[2]; 1724 1724 transform[k,k+1] = v[3]; 1725 transform[k+1,k] = -c /v[1];1726 transform[k+1,k+1] = b /v[1];1725 transform[k+1,k] = -c div v[1]; 1726 transform[k+1,k+1] = b div v[1]; 1727 1727 D = transform * D; 1728 1728 P = transform * P; … … 1821 1821 v2 = A[1..rr,j]; 1822 1822 transform = unitMatrix(cc); 1823 transform[j,j] = v1[row] /gcdvec[1];1823 transform[j,j] = v1[row] div gcdvec[1]; 1824 1824 transform[column, column] = gcdvec[2]; 1825 transform[column,j] = -v2[row] /gcdvec[1];1825 transform[column,j] = -v2[row] div gcdvec[1]; 1826 1826 transform[j,column] = gcdvec[3]; 1827 1827 q = q*transform; … … 1840 1840 if(A[row, j]!=0){ 1841 1841 transform = unitMatrix(cc); 1842 transform[column, j] = (-A[row,j]+A[row, j]%A[row, column]) /A[row, column];1842 transform[column, j] = (-A[row,j]+A[row, j]%A[row, column]) div A[row, column]; 1843 1843 if(A[row,j]<0){ 1844 1844 transform[column,j]=transform[column,j]+1;} … … 2001 2001 { 2002 2002 v = H[1..r,i]; 2003 mdeg = mdeg-(mdeg[row]-mdeg[row]%v[row]) /v[row]*v;2003 mdeg = mdeg-(mdeg[row]-mdeg[row]%v[row]) div v[row]*v; 2004 2004 } 2005 2005 }
Note: See TracChangeset
for help on using the changeset viewer.