Changeset 09e196 in git
- Timestamp:
- May 4, 2011, 8:02:13 PM (12 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
- Children:
- fd742b4e9b29ae49a6f472483557a32923a3fc21
- Parents:
- 62c2b035a539149974daf79c638bf771a66e7ada
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/ncalg.lib
r62c2b0 r09e196 113 113 int @p = defInt(#); 114 114 115 ring @@@rr=@p,(x(1..n*(n-1) /2),y(1..n*(n-1)/2 ),h(1..n-1)),dp;115 ring @@@rr=@p,(x(1..n*(n-1) div 2),y(1..n*(n-1) div 2 ),h(1..n-1)),dp; 116 116 matrix TMP[n][n]=0; 117 117 int k,l=1,1; … … 122 122 for(l=k+1; l<=n; l++) 123 123 { 124 buf = (l-k-1)*(2*n-l+k) /2 + k;124 buf = (l-k-1)*(2*n-l+k) div 2 + k; 125 125 TMP[k,l] = -1; // for conformance with GAP 126 126 X[buf] = TMP; … … 157 157 for(j=i+1; j<=n; j++) 158 158 { 159 buf=(j-i-1)*(2*n-j+i) /2+i;159 buf=(j-i-1)*(2*n-j+i) div 2+i; 160 160 if (TMP[i,j]!=0) 161 161 { … … 400 400 if (n<1) { return(0); } 401 401 number Q = par(1); 402 int N=(n-1) /2;402 int N=(n-1) div 2; 403 403 int NV=nvars(basering); 404 404 number k1,k2;
Note: See TracChangeset
for help on using the changeset viewer.