Changeset 3f4e52 in git for Singular/LIB/general.lib
- Timestamp:
- Jul 28, 2009, 12:34:56 PM (14 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- 663baa085095bc4743611bd73380eb8c5d952985
- Parents:
- ae9fd9360b24aab77a82322cff14a56f1ba835fa
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/general.lib
rae9fd9 r3f4e52 3 3 //eric, added absValue 11.04.2002 4 4 /////////////////////////////////////////////////////////////////////////////// 5 version="$Id: general.lib,v 1.6 4 2009-07-15 14:43:52 motsakExp $";5 version="$Id: general.lib,v 1.65 2009-07-28 10:34:55 Singular Exp $"; 6 6 category="General purpose"; 7 7 info=" … … 846 846 // Note that in general: lead(sort(M)) != sort(lead(M)), e.g: 847 847 module M = [0, 1, 1, 0], [1, 0, 0, 1]; M; 848 sort(lead(M), "c, dp")[1]; 849 lead(sort(M, "c, dp")[1]); 848 sort(lead(M), "c, dp")[1]; 849 lead(sort(M, "c, dp")[1]); 850 850 851 851 // In order to sort M wrt a NEW ordering by considering OLD leading 852 852 // terms use one of the following equivalent commands: 853 module( M[ sort(lead(M), "c,dp")[2] ] ); 854 sort( M, sort(lead(M), "c,dp")[2] )[1]; 853 module( M[ sort(lead(M), "c,dp")[2] ] ); 854 sort( M, sort(lead(M), "c,dp")[2] )[1]; 855 855 } 856 856 ///////////////////////////////////////////////////////////////////////////////
Note: See TracChangeset
for help on using the changeset viewer.