Changeset 0bcebab in git for Singular/LIB/primdec.lib
- Timestamp:
- Jun 5, 2000, 1:22:47 PM (24 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 4a0a5d596d166bd7225fe54833032e8b60423bba
- Parents:
- c11796f1aee403c4330add082f13676a92e9b2bb
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/primdec.lib
rc11796f r0bcebab 1 // $Id: primdec.lib,v 1.7 5 2000-05-30 12:31:44pfister Exp $1 // $Id: primdec.lib,v 1.76 2000-06-05 11:22:47 pfister Exp $ 2 2 /////////////////////////////////////////////////////////////////////////////// 3 3 // primdec.lib // … … 11 11 /////////////////////////////////////////////////////////////////////////////// 12 12 13 version="$Id: primdec.lib,v 1.7 5 2000-05-30 12:31:44pfister Exp $";13 version="$Id: primdec.lib,v 1.76 2000-06-05 11:22:47 pfister Exp $"; 14 14 info=" 15 15 LIBRARY: primdec.lib PROCEDURES FOR PRIMARY DECOMPOSITION … … 31 31 equidimMaxEHV(I); equidimensional locus of I (Algorithm of Eisenbud, 32 32 Huneke and Vasconcelos) 33 zerodec(I); zerodimensional decomposition for characteristic zero 33 34 REMARK: 34 35 These procedures are implemented to be used in characteristic 0. … … 823 824 return(primary); 824 825 } 825 826 826 j=interred(j); 827 827 828 attrib(j,"isSB",1); 828 829 if(vdim(j)==deg(j[1])) … … 2202 2203 for(@n=1;@n<=size(fried);@n++) 2203 2204 { 2204 if(lead (fried[@n])==var(@k))2205 if(leadmonom(fried[@n])==var(@k)) 2205 2206 { 2206 2207 @n1=1;
Note: See TracChangeset
for help on using the changeset viewer.