• To: mathgroup at smc.vnet.net
• From: albert <awnl at arcor.de>
• Date: Fri, 6 Oct 2006 01:58:00 -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.

This gives all coefficients:

In[7]:= coeffs = Map[CoefficientList[#,x]&,K]
Out[7]=
{{a1, b1, c1}, {a2, b2, c2}, {a3, b3, c3}}

Transpose the resulting matrix to get the coefficients in the form you
indicated:

In[8]:= Transpose[coeffs]
Out[8]=
{{a1, a2, a3}, {b1, b2, b3}, {c1, c2, c3}}

> I need to use all those coefficients in a Sum Command. How to do that

I don't understand what you want to do, if you want to add all coefficients
for the same power of x you could do:

In[9]:= Map[Total,Transpose[coeffs]]
Out[9]=
{a1 + a2 + a3, b1 + b2 + b3, c1 + c2 + c3}

hth,

albert

```

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