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.
Please read the Mathematica book or follow a course.
Rolf Mertig
----
Mertig Consulting
Efficient Software
Programming, Training, Consulting