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 4 6 5 15 5 10 26 4 15 37 3 20 48 2 25 59 30 70 35
o4 = QQ[y z , x*y z , x y z , x y z , x y z , x y z , x y z , x y*z , x z ]
o4 : monomial subalgebra of R
|
The object diagInvariants is a method function with options.