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




  • 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!