| LIB "ncfactor.lib";
// first, an example with PLURAL
def R = makeUsl2();
setring(R);
poly p = e^3*f+e^2*f^2-e^3+e^2*f+2*e*f^2-3*e^2*h-2*e*f*h-8*e^2
+e*f+f^2-4*e*h-2*f*h-7*e+f-h;
ncfactor(p);
==> [1]:
==> [1]:
==> 1
==> [2]:
==> e+1
==> [3]:
==> ef-e+f-2h-3
==> [4]:
==> e+f
==> [2]:
==> [1]:
==> 1
==> [2]:
==> e2f+ef2-e2+f2-2eh-3e-f-2h
==> [3]:
==> e+1
kill R;
// an example with LETTERPLACE
LIB "freegb.lib";
==> // ** redefining tstfreegb (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining tstfreegb (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining setLetterplaceAttributes (LIB "freegb.lib";) ./examples/\
ncfactor.sing:10
==> // ** redefining setLetterplaceAttributes (LIB "freegb.lib";) ./examples/\
ncfactor.sing:10
==> // ** redefining lst2str (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining mod2str (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining vct2str (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining isVar (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining letplaceGBasis (LIB "freegb.lib";) ./examples/ncfactor.s\
ing:10
==> // ** redefining letplaceGBasis (LIB "freegb.lib";) ./examples/ncfactor.s\
ing:10
==> // ** redefining lieBracket (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining lieBracket (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining lpPrint (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lpPrint (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining freeGBasis (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining freeGBasis (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining crs (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining polylen (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lpDegBound (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining lpDegBound (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining lpVarBlockSize (LIB "freegb.lib";) ./examples/ncfactor.s\
ing:10
==> // ** redefining lpVarBlockSize (LIB "freegb.lib";) ./examples/ncfactor.s\
ing:10
==> // ** redefining isFreeAlgebra (LIB "freegb.lib";) ./examples/ncfactor.si\
ng:10
==> // ** redefining isFreeAlgebra (LIB "freegb.lib";) ./examples/ncfactor.si\
ng:10
==> // ** redefining lpNcgenCount (LIB "freegb.lib";) ./examples/ncfactor.sin\
g:10
==> // ** redefining lpNcgenCount (LIB "freegb.lib";) ./examples/ncfactor.sin\
g:10
==> // ** redefining makeLetterplaceRing (LIB "freegb.lib";) ./examples/ncfac\
tor.sing:10
==> // ** redefining makeLetterplaceRing (LIB "freegb.lib";) ./examples/ncfac\
tor.sing:10
==> // ** redefining makeLetterplaceRing1 (LIB "freegb.lib";) ./examples/ncfa\
ctor.sing:10
==> // ** redefining makeLetterplaceRing2 (LIB "freegb.lib";) ./examples/ncfa\
ctor.sing:10
==> // ** redefining makeLetterplaceRing4 (LIB "freegb.lib";) ./examples/ncfa\
ctor.sing:10
==> // ** redefining makeLetterplaceRing3 (LIB "freegb.lib";) ./examples/ncfa\
ctor.sing:10
==> // ** redefining freegbold (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining stringpoly2lplace (LIB "freegb.lib";) ./examples/ncfacto\
r.sing:10
==> // ** redefining addplaces (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining sent2lplace (LIB "freegb.lib";) ./examples/ncfactor.sing\
:10
==> // ** redefining testnumber (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining str2lplace (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining strpower2rep (LIB "freegb.lib";) ./examples/ncfactor.sin\
g:10
==> // ** redefining shiftPoly (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining lastBlock (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining test_shift (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining lp2lstr (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lp2lstr (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining strList2poly (LIB "freegb.lib";) ./examples/ncfactor.sin\
g:10
==> // ** redefining file2lplace (LIB "freegb.lib";) ./examples/ncfactor.sing\
:10
==> // ** redefining lpPower (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lpNF (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lpNF (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lpDivision (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining lpDivision (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining lpGBPres2Poly (LIB "freegb.lib";) ./examples/ncfactor.si\
ng:10
==> // ** redefining lpGBPres2Poly (LIB "freegb.lib";) ./examples/ncfactor.si\
ng:10
==> // ** redefining getExpVecs (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining delSupZero (LIB "freegb.lib";) ./examples/ncfactor.sing:\
10
==> // ** redefining delSupZeroList (LIB "freegb.lib";) ./examples/ncfactor.s\
ing:10
==> // ** redefining makeDVec (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining makeDVecL (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining makeDVecI (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining dShiftDiv (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining lpNormalForm1 (LIB "freegb.lib";) ./examples/ncfactor.si\
ng:10
==> // ** redefining lpNormalForm2 (LIB "freegb.lib";) ./examples/ncfactor.si\
ng:10
==> // ** redefining isOrderingShiftInvariant (LIB "freegb.lib";) ./examples/\
ncfactor.sing:10
==> // ** redefining isOrderingShiftInvariant (LIB "freegb.lib";) ./examples/\
ncfactor.sing:10
==> // ** redefining lpMonomialsWithHoles (LIB "freegb.lib";) ./examples/ncfa\
ctor.sing:10
==> // ** redefining getlpCoeffs (LIB "freegb.lib";) ./examples/ncfactor.sing\
:10
==> // ** redefining lpReduce (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining entryViolation (LIB "freegb.lib";) ./examples/ncfactor.s\
ing:10
==> // ** redefining checkAssumptionsLPIV (LIB "freegb.lib";) ./examples/ncfa\
ctor.sing:10
==> // ** redefining checkAssumptions (LIB "freegb.lib";) ./examples/ncfactor\
.sing:10
==> // ** redefining checkLPRing (LIB "freegb.lib";) ./examples/ncfactor.sing\
:10
==> // ** redefining checkAssumptionIdeal (LIB "freegb.lib";) ./examples/ncfa\
ctor.sing:10
==> // ** redefining checkAssumptionPoly (LIB "freegb.lib";) ./examples/ncfac\
tor.sing:10
==> // ** redefining isContainedInVp (LIB "freegb.lib";) ./examples/ncfactor.\
sing:10
==> // ** redefining extractLinearPart (LIB "freegb.lib";) ./examples/ncfacto\
r.sing:10
==> // ** redefining isLinearVector (LIB "freegb.lib";) ./examples/ncfactor.s\
ing:10
==> // ** redefining lpAssumeViolation (LIB "freegb.lib";) ./examples/ncfacto\
r.sing:10
==> // ** redefining skip0 (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining ivL2lpI (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining ivL2lpI (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining iv2lp (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining iv2lp (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining iv2lpList (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining iv2lpList (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining iv2lpMat (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining iv2lpMat (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lpId2ivLi (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining lpId2ivLi (LIB "freegb.lib";) ./examples/ncfactor.sing:1\
0
==> // ** redefining lp2iv (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lp2iv (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lp2ivId (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining lp2ivId (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining testLift (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining testLift (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining testSyz (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining testSyz (LIB "freegb.lib";) ./examples/ncfactor.sing:10
==> // ** redefining mod_init (LIB "freegb.lib";) ./examples/ncfactor.sing:10
ring r = 0,(x,y),Dp;
def R = freeAlgebra(r,5); setring(R);
poly p = x*y*x - x;
ncfactor(p);
==> [1]:
==> [1]:
==> 1
==> [2]:
==> x*y-1
==> [3]:
==> x
==> [2]:
==> [1]:
==> 1
==> [2]:
==> x
==> [3]:
==> y*x-1
|