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