Use R::=QQ[x[1..2]];
OO:=$apcocoa/borderbasis.Box([1,1]);
BO:=$apcocoa/borderbasis.Border(OO);
N:=Len(Indets());
W:=BBSGen.Wmat(OO,BO,N);
XX::=QQ[c[1..Mu,1..Nu],t[1..N,1..N,1..Mu,1..Mu]];
Use XX;
BBSGen.NonStandPoly(OO,BO,W,N);
[ c[1,2]c[3,1] + c[1,4]c[4,1] - c[1,3],
R :: Vector(1, 2)],
[ c[1,1]c[2,2] + c[1,3]c[4,2] - c[1,4],
R :: Vector(2, 1)],
[ c[1,1]c[2,4] - c[1,2]c[3,3] - c[1,4]c[4,3] + c[1,3]c[4,4],
R :: Vector(2, 2)],
[c[2,2]c[3,1] + c[2,4]c[4,1] - c[2,3],
R :: Vector(1, 1)],
[c[2,1]c[2,4] - c[2,2]c[3,3] - c[2,4]c[4,3] + c[2,3]c[4,4] + c[1,4],
R :: Vector(2, 1)],
[c[2,2]c[3,1] + c[3,3]c[4,2] - c[3,4],
R :: Vector(1, 1)],
[c[2,4]c[3,1] - c[3,2]c[3,3] - c[3,4]c[4,3] + c[3,3]c[4,4] - c[1,3],
R :: Vector(1, 2)],
[c[2,4]c[4,1] - c[3,3]c[4,2] - c[2,3] + c[3,4],
R :: Vector(1, 1)]]
|