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.