Changeset 2fad8f in git
- Timestamp:
- Jan 20, 2023, 3:02:11 PM (16 months ago)
- Branches:
- (u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
- Children:
- 593673ae958ceeda0bbaa65e1eff4091eeff7760
- Parents:
- 86bee1ff8da4bba6e2fbca2c65db204d0ae10144
- Location:
- Singular/LIB
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/deform.lib
r86bee1 r2fad8f 674 674 { 675 675 poly p = product(maxideal(1)); 676 M = std(M); 677 matrix A; 676 M = std(M); 678 677 if (size(#)>0) { p=#[2]; module kbaseM=#[1];} 679 678 else … … 682 681 } 683 682 N = reduce(N,M); 683 matrix A; 684 684 if (simplify(N,10)[1]==[0]) {return(A);} 685 685 A = coeffs(N,kbaseM,p); -
Singular/LIB/homolog.lib
r86bee1 r2fad8f 1102 1102 {"EXAMPLE"; echo=2; 1103 1103 ring r; 1104 ideal id=maxideal(4); 1105 qring qr= std(id);1104 ideal id=maxideal(4); // GB 1105 qring qr=id; 1106 1106 module N=maxideal(3)*freemodule(2); 1107 1107 module M=maxideal(2)*freemodule(2);
Note: See TracChangeset
for help on using the changeset viewer.