Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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