Re: How to select all polynomials which have degree greater than a give number out of a list of polynomials!

• To: mathgroup at smc.vnet.net
• Subject: [mg35538] Re: [mg35479] How to select all polynomials which have degree greater than a give number out of a list of polynomials!
• From: Rolf Mertig <rolf at mertig.com>
• Date: Thu, 18 Jul 2002 03:06:30 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```One possibility is to use Select:

a = FactorList[Factor[x^63 - 1, Modulus -> 2]];
t = Table[a[[i,1]], {i, Length[a]}];
s = Union[Flatten[Table[PolynomialMod[
(x + 1)*t[[3]]^x3*t[[4]]^x4*t[[5]]^x5*t[[6]]^x6*
t[[7]]^x7*t[[8]]^x8*t[[9]]^x9*t[[10]]^x10*
t[[11]]^x11*t[[12]]^x12*t[[13]]^x13*
t[[14]]^x14, 2], {x3, 0, 1}, {x4, 0, 1},
{x5, 0, 1}, {x6, 0, 1}, {x7, 0, 1}, {x8, 0, 1},
{x9, 0, 1}, {x10, 0, 1}, {x11, 0, 1},
{x12, 0, 1}, {x13, 0, 1}, {x14, 0, 1}]]];
large = Select[s, Exponent[#1, x] > 31 & ];

Also, don't use := if you don't have to.

Rolf Mertig

----
Mertig Consulting
Efficient Software
Programming, Training, Consulting

```

• Prev by Date: Re: Output of left-hand side of expression
• Next by Date: RE: Energy Consumption model in Poultry farming
• Previous by thread: Re: How to select all polynomials which have degree greater than a give number out of a list of polynomials!
• Next by thread: Functionality and Reliability II