i1 : R=QQ[x,y,z,w]; |
i2 : T=matrix({{-1,-1,2,0},{1,1,-2,-1}});
2 4
o2 : Matrix ZZ <--- ZZ
|
i3 : U=matrix{{1,1,1,1,5},{1,0,2,0,7}}
o3 = | 1 1 1 1 5 |
| 1 0 2 0 7 |
2 5
o3 : Matrix ZZ <--- ZZ
|
i4 : diagInvariants(T,U,R)
70 35 19 10 70 35 59 30 48 2 25 37 3 20 26 4 15 15 5 10 4 6 5
o4 = QQ[y z , x*y z , x z , x y*z , x y z , x y z , x y z , x y z , x y z ]
o4 : monomial subalgebra of R
|