Re: Beginner--[Please Help]How to get coefficient list issued from a Series Command

*To*: mathgroup at smc.vnet.net*Subject*: [mg70164] Re: Beginner--[Please Help]How to get coefficient list issued from a Series Command*From*: Roger Bagula <rlbagula at sbcglobal.net>*Date*: Fri, 6 Oct 2006 01:58:19 -0400 (EDT)*References*: <eg2e8k$73m$1@smc.vnet.net>

abdou.oumaima at hotmail.com wrote: >Greeting, > >I've a list issued from power series like : K={a1+b1 x +c1 x^2 , a2+b2 x +c2 x^2, a3+b3 x +c3 x^2} >I need te have a1, a2 and a3. >Then b1,b2 and b3. >And c1,c2 and c3. >I need to use all those coefficients in a Sum Command. How to do that please? > >Cheers > > >Link to the forum page for this post: >http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=14153#p14153 >Posted through http://www.mathematica-users.org [[postId=14153]] > > > > abdou.oumaima at hotmail.com, I've doing some work on recursive polynomials and my program might help here: This gives a list of polynomials: p[0, x] = 1; p[1, x] = x - 1; p[k_, x_] := p[k, x] = (1 - x)*p[k - 1, x] + x*p[k - 2, x] Table[Expand[p[n, x]], {n, 0, 10}] This sums their coefficients: Table[Sum[CoefficientList[p[n, x], x][[m]], {m, 1, n + 1}], {n, 0, 12}] This gives a triangular list of the coefficients: w = Table[CoefficientList[p[n, x], x], {n, 0, 10}] This solves the roots of the polynomials: Table[Table[x /. NSolve[p[n, x] == 0, x][[m]], {m, 1, n}], {n, 1, 10}] Roger Bagula