Changeset 558209 in git
- Timestamp:
- Jan 8, 2007, 10:33:55 AM (16 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'cdfcdb8287f66bc6070028082cbbc6eff10e609b')
- Children:
- f183dd53eec7359ae570b06c0f66b28fb8a64b3b
- Parents:
- e42f2e9ff3d178a0dfecf8191a5c1d867e925637
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/general.lib
re42f2e r558209 3 3 //eric, added absValue 11.04.2002 4 4 /////////////////////////////////////////////////////////////////////////////// 5 version="$Id: general.lib,v 1.5 3 2006-12-11 13:11:05 Singular Exp $";5 version="$Id: general.lib,v 1.54 2007-01-08 09:33:55 Singular Exp $"; 6 6 category="General purpose"; 7 7 info=" … … 868 868 { 869 869 id = simplify(id,2); 870 for ( ii=1; ii< size(id); ii++ )870 for ( ii=1; ii<ncols(id); ii++ ) 871 871 { 872 872 if ( id[ii]!=id[ii+1] ) { break;} 873 873 } 874 if ( ii != size(id) ) { v = sortvec(id); }875 else { v = size(id)..1; }874 if ( ii != ncols(id) ) { v = sortvec(id); } 875 else { v = ncols(id)..1; } 876 876 } 877 877 if ( size(#)>=1 and (typeof(id)=="ideal" or typeof(id)=="module" … … 932 932 if ( size(m) != 0 ) 933 933 { 934 for ( jj=1; jj<=s; jj =jj+1)934 for ( jj=1; jj<=s; jj++) 935 935 { 936 936 if ( v[jj]<=0 ) { v[jj]=jj; }
Note: See TracChangeset
for help on using the changeset viewer.