Changeset e5c565 in git

Ignore:
Timestamp:
Feb 11, 2019, 9:06:22 PM (5 years ago)
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '3720ae8bfcff4a4649ee98a15552089151d2d59b')
Children:
454d97aea770ad9d50a041631f167ad5f0b12c49
Parents:
46d94586f06df81108732d65afa3776e30c19355
Message:
`Update freegb.lib`
File:
1 edited

Unmodified
Added
Removed
• Singular/LIB/freegb.lib

 r46d945 lpVarBlockSize(R);               returns the size of the letterplace blocks letplaceGBasis(I);               (deprecated, use twostd) two-sided Groebner basis of a letterplace ideal I lpDivision(f,I);                 two-sided division with remainder lpGBPres2Poly(L,I);              reconstructs a polynomial from the output of lpDivision lieBracket(a,b[, N]);            Lie bracket ab-ba of two letterplace polynomials isOrderingShiftInvariant(i);     tests shift-invariance of the monomial ordering isVar(p);                        check whether p is a power of a single variable makeLetterplaceRing(d);          (deprecated, use freeAlgebra) creates a Letterplace ring out of given data letplaceGBasis(I);               (deprecated, use twostd) two-sided Groebner basis of a letterplace ideal I lieBracket(a,b[, N]);            (deprecated, use bracket) Lie bracket ab-ba of two letterplace polynomials setLetterplaceAttributes(R,d,b); (for testing purposes) supplies ring R with the letterplace structure " { if (lpAssumeViolation()) { //    ERROR("Either 'uptodeg' or 'lV' global variables are not set!"); ERROR("Incomplete Letterplace structure on the basering!"); } // alias ppLiebr; //if int N is given compute [a,[...[a,b]]]] left normed bracket int N=1; if (size(#)>0) } } if (N<=0) { return(q); } poly q = a*b - b*a; if (N >1) { for(int i=1; i<=N-1; i++) { q = lieBracket(a,q); } } return(q); return (bracket(a,b,N)); /* if (lpAssumeViolation()) */ /* { */ /*   //    ERROR("Either 'uptodeg' or 'lV' global variables are not set!"); */ /*   ERROR("Incomplete Letterplace structure on the basering!"); */ /* } */ /* // alias ppLiebr; */ /* //if int N is given compute [a,[...[a,b]]]] left normed bracket */ /* int N=1; */ /* if (size(#)>0) */ /* { */ /*   if (typeof(#[1])=="int") */ /*   { */ /*     N = int(#[1]); */ /*   } */ /* } */ /* if (N<=0) { return(q); } */ /* poly q = a*b - b*a; */ /* if (N >1) */ /* { */ /*   for(int i=1; i<=N-1; i++) */ /*   { */ /*     q = lieBracket(a,q); */ /*   } */ /* } */ /* return(q); */ } example
Note: See TracChangeset for help on using the changeset viewer.