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