This turns a multigraded ring into a singly graded ring, summing the individual degrees.
i1 : R = QQ[x,y, Degrees=>{{1,2},{2,5}}]; |
i2 : S = flattenVarDegrees(R); |
i3 : vars S o3 = | x y | 1 2 o3 : Matrix S <--- S |
i4 : degrees S o4 = {{3}, {7}} o4 : List |
The object flattenVarDegrees is a method function.