• To: mathgroup at smc.vnet.net
• 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

```

• Prev by Date: Re: Google Mathematica code search
• Next by Date: Re: Evaluation of 1/(1/a + 1/b + 1/r)