Re: finding the weighted degree of a polynomial

*To*: mathgroup at smc.vnet.net*Subject*: [mg79690] Re: [mg79677] finding the weighted degree of a polynomial*From*: "Arnaud Dagnelies" <arnaud.dagnelies at gmail.com>*Date*: Thu, 2 Aug 2007 03:43:33 -0400 (EDT)*References*: <200708010913.FAA02044@smc.vnet.net>

thanks to both, the proposal of jean-luc isn't exactly what is asked since we never need to instanciate x or y but just need to know about their degrees. The solution of Ssezi works fine, with the following minor fix: Max[MapIndexed[If[#==0,0,a (#2[[1]]-1)+b (#2[[2]]]-1)&,CoefficientList[p, {x,y}],{2}]] thanks

**References**:**finding the weighted degree of a polynomial***From:*Arnaud Dagnelies <arnaud.dagnelies@gmail.com>