Use this function to recover the cyclic abelian factors of a diagonal action on a polynomial ring.
The following example defines an action of a product of two cyclic groups of order 3 acting on a three-dimensional vector space.
i1 : R = QQ[x_1..x_3] o1 = R o1 : PolynomialRing |
i2 : d = {3,3}
o2 = {3, 3}
o2 : List
|
i3 : W = matrix{{1,0,1},{0,1,1}}
o3 = | 1 0 1 |
| 0 1 1 |
2 3
o3 : Matrix ZZ <--- ZZ
|
i4 : A = diagonalAction(W, d, R)
o4 = R <- ZZ/3 x ZZ/3 via
| 1 0 1 |
| 0 1 1 |
o4 : DiagonalAction
|
i5 : cyclicFactors A
o5 = {3, 3}
o5 : List
|
The object cyclicFactors is a method function.