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*: [mg35479] How to select all polynomials which have degree greater than a give number out of a list of polynomials!*From*: "Chekad Sarami" <csarami at mtu.edu>*Date*: Tue, 16 Jul 2002 04:49:35 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

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 --- ****************************************************************