Compute the degree of the homogeneous monomial algebra K[B].
As the result is independent of K it is possible to specify just B.
i1 : B={{2, 2, 1}, {1, 1, 3}, {1, 2, 2}, {2, 0, 3}, {1, 4, 0}, {2, 3, 0}, {1, 3, 1}} o1 = {{2, 2, 1}, {1, 1, 3}, {1, 2, 2}, {2, 0, 3}, {1, 4, 0}, {2, 3, 0}, {1, ------------------------------------------------------------------------ 3, 1}} o1 : List |
i2 : R=QQ[x_1..x_(#B),Degrees=>B] o2 = R o2 : PolynomialRing |
i3 : degreeMA R o3 = 6 |