numgens D
Writing the diagonal group acting on the polynomial ring $k[x_1,\dots,x_n]$ as $(k^*)^r \times \mathbb{Z}/d_1 \times \cdots \times \mathbb{Z}/d_g$, this function returns g.
Here is an example of a product of two cyclic groups of order 3 acting on a polynomial ring in 3 variables.
|
|
|
|
|
The source of this document is in InvariantRing/AbelianGroupsDoc.m2:219:0.