flattenVarDegrees -- turns a multigraded ring into a singly graded ring

• Usage:

  S = flattenVarDegrees(R)

• Inputs:
  • R, a ring,
• Outputs:
  • S, a ring,

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