i1 : R = ZZ/101[x,y] o1 = R o1 : PolynomialRing |
i2 : A = matrix{{x,y,x,y},{y,x,y,x},{x,y,x,y},{y,y,y,y},{x,x,y,y}} o2 = | x y x y | | y x y x | | x y x y | | y y y y | | x x y y | 5 4 o2 : Matrix R <--- R |
i3 : kroneckerNormalForm(A, ChangeMatrix => {false,false}) o3 = | 0 0 0 0 | | 0 x 0 0 | | 0 y 0 0 | | 0 0 -x+y 0 | | 0 0 0 -x+y | 5 4 o3 : Matrix R <--- R |
i4 : kroneckerIndices(A,x,y) o4 = ({0}, {0, 1}, {- x + y, -1, - x + y, -1}) o4 : Sequence |