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

```

• Prev by Date: Re: How to select all polynomials which have degree greater than a give number out of a list of polynomials!
• Next by Date: RE: Re: Changing delayed formula
• 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: Re: How to select all polynomials which have degree greater than a give number out of a list of polynomials!