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);
Mu:=Len(OO);
Nu:=Len(BO);
Use XX::=QQ[c[1..Mu,1..Nu],t[1..N,1..N,1..Mu,1..Mu]];
BBSGen.TraceSyzFull(OO,BO,N);
[c[1,2]t[1,2,3,1] + c[2,2]t[1,2,3,2] + c[3,2]t[1,2,3,3] + c[4,2]t[1,2,3,4] +
c[1,4]t[1,2,4,1] + c[2,4]t[1,2,4,2] + c[3,4]t[1,2,4,3] + c[4,4]t[1,2,4,4] +
t[1,2,1,3] + t[1,2,2,4],
2c[1,1]t[1,2,2,1] + 2c[2,1]t[1,2,2,2] + 2c[3,1]t[1,2,2,3] + 2c[4,1]t[1,2,2,4]+
2c[1,3]t[1,2,4,1] + 2c[2,3]t[1,2,4,2] + 2c[3,3]t[1,2,4,3] + 2c[4,3]t[1,2,4,4]
+ 2t[1,2,1,2] + 2t[1,2,3,4],
c[1,2]t[1,2,3,1] + c[2,2]t[1,2,3,2] + c[3,2]t[1,2,3,3] + c[4,2]t[1,2,3,4] +
c[1,4]t[1,2,4,1] + c[2,4]t[1,2,4,2] + c[3,4]t[1,2,4,3] + c[4,4]t[1,2,4,4] +
t[1,2,1,3] + t[1,2,2,4],
2c[1,2]c[3,1]t[1,2,2,1] + 2c[1,4]c[4,1]t[1,2,2,1] + 2c[2,2]c[3,1]t[1,2,2,2] +
2c[2,4]c[4,1]t[1,2,2,2] + 2c[3,1]c[3,2]t[1,2,2,3] + 2c[3,4]c[4,1]t[1,2,2,3] +
2c[3,1]c[4,2]t[1,2,2,4] + 2c[4,1]c[4,4]t[1,2,2,4] + 2c[1,2]c[3,3]t[1,2,4,1] +
2c[1,4]c[4,3]t[1,2,4,1] + 2c[2,2]c[3,3]t[1,2,4,2] + 2c[2,4]c[4,3]t[1,2,4,2] +
2c[3,2]c[3,3]t[1,2,4,3] + 2c[3,4]c[4,3]t[1,2,4,3] + 2c[3,3]c[4,2]t[1,2,4,4] +
2c[4,3]c[4,4]t[1,2,4,4] + 2c[1,1]t[1,2,2,3] + 2c[2,1]t[1,2,2,4] + 2c[1,4]t[1,2,3,1] +
2c[2,4]t[1,2,3,2] + 2c[3,4]t[1,2,3,3] + 2c[4,4]t[1,2,3,4] + 2c[1,3]t[1,2,4,3] +
2c[2,3]t[1,2,4,4] + 2t[1,2,1,4]]
|