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: [mg35522] Re: How to select all polynomials which have degree greater than a give number out of a list of polynomials!
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Wed, 17 Jul 2002 02:09:18 -0400 (EDT)
- References: <ah23p3$r0n$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Chekad, ss=Cases[s, p_ /; Exponent[p, x] > 31]; -- Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 "Chekad Sarami" <csarami at mtu.edu> wrote in message news:ah23p3$r0n$1 at smc.vnet.net... > > > Hi, > > I want to choose from the following list of polynomials ( list s ), > > a: =FactorList[Factor[x^63-1, Modulus\[Rule]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}]] > ] > polynomials of degree greater than 31. > > > I wrote these these 2 functions but none of these work. > > -------------------------------------------------------------------------- -- > ---------- > > 1. Using Recursion on list > > > v={};w=1; > If[Exponent[s[[w]],x]>31,Append[v, {}],Append[v, s[[w]]]]; > v > > ------------------------------------------------------------------------- -- > ------------------------ > > 2. Using While > > v={};w=1; > While[Exponent[s[[w]],x]>31,v=Append[v, s[[w]]]; i++ ]; > v > > -------------------------------------------------------------------------- -- > --------------------- > > Does anybody have an idea to do this? > > Thanks a lot for your help > > Best regards > > CHEKAD SARAMI > Department of Mathematical Sciences > Michigan Technological University > Houghton, MI 49931 > Phone: 906-487-1990 > Office: Widmair Bld. CRI > email: csarami at mtu.edu > Fax: 906-487-3313 > > **************************************************************** > Sometimes out light goes out but is blown into flame by > another human being. Each of us owes our deepest thanks > to those who have rekindled this light, > --- Albert Schweitzer --- > **************************************************************** > > > > > > >