       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[]^x3*t[]^x4*t[]^x5*t[]^x6*
t[]^x7*t[]^x8*t[]^x9*t[]^x10*
t[]^x11*t[]^x12*t[]^x13*
t[]^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