Re: finding the (v,w) weighted degree of a polynomial

*To*: mathgroup at smc.vnet.net*Subject*: [mg71310] Re: [mg71266] finding the (v,w) weighted degree of a polynomial*From*: danl at wolfram.com*Date*: Tue, 14 Nov 2006 05:06:32 -0500 (EST)*References*: <200611121148.GAA18658@smc.vnet.net>

> > Let P(x,y) be a bivariate polynomial in x,y. > > for example: > P(x,y) = y^4 + x^5 + x^3 y^2 > > For any monomial M(x,y) = x^i y^j, the (v,w) weighted degree of M(x,y) > is defined as vi + wj. > And we consider that the (v,w)-degree of P will be the (v,w)-degree of > its highest monomial. > > in the example above: > (4,5)-deg (P) = 4*3 + 2*5 = 22 > > ...the question is: how to formulate this in mathematica?! > The aim is to write a function like: > WDeg[P_, v_, w_] := .... > > thanks for help! For this to be workable in any reasonable way you will need to specify the variables; as Mathematica stubbornly refuses to do mind reading, you cannot expect that internal ordering of variables will correspond to the one you may have in mind. One way to do this is to use replace each variable by a common variable raised to the weight corresponding to that variable. Then find the exponent of the resulting polynomial in that new variable. weightedDegree[poly_, vars_, wts_] := Module[{t}, Exponent[poly /. Thread[vars -> t^wts], t]] In[5]:=weightedDegree[y^4+x^5+x^3*y^2,{x,y},{4,5}] Out[5]=22 Daniel Lichtblau Wolfram Research

**References**:**finding the (v,w) weighted degree of a polynomial***From:*"xarnaudx@gmail.com" <xarnaudx@gmail.com>