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: [mg35518] Re: [mg35498] How to select all polynomials which have degree greater than a give number out of a list of polynomials!
- From: Andrzej Kozlowski <andrzej at yhc.att.ne.jp>
- Date: Wed, 17 Jul 2002 02:09:12 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In Mathematica you do not use loops or recursion for such tasks because you have purpose designed functions like Select or Cases. In this case: In[15]:= Length[Select[s,Exponent[#,x]â?¥31&]] Out[15]= 2300 you see that there are 2300 polynomials of degree >=31. (If you want a list of them just run the above code without Length). Andrzej Kozlowski Toyama International University JAPAN http://platon.c.u-tokyo.ac.jp/andrzej/ On Tuesday, July 16, 2002, at 04:50 AM, Chekad Sarami wrote: > Sorry,,I was not sure if the last one went through or not!!:) > > > 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 --- > > > > **************************************************************** > > > > > > > > >