Factor out a common coefficient?

User login

Collaborative Books

Syndicate

Posted on 2006-12-10 02:01 By malt_master (

21)

Categories:

Sorry for the poorly formated post of the same name. I'm still trying to figure out how to cut and paste from Maple to this forum. Is it possible?

Also the main question is: I have the results of a Fourier series and I wish to factor out a common coefficient:

(4/Pi)*Sin(x)+4/Pi*sin(3*x)....+)

Is there a command(s) to get the results:

(4/Pi)*(sin(x) + sin(3*x).....+ )

Thank You
Larry Ciak

Factor

Comment on 2006-12-10 17:51 from Mariner ( Maple Rating 4

562)

You could do something like this:

S := collect(a0+sum(an*cos(n*x*Pi/L),n=1..8),1/Pi);

It is not exactly what you wanted , but I hope it helps.

Later edit.

On reflection, one can improve on the above thus:

Sn := sum(an*cos(n*x*Pi/L),n=1..8):
Sn := algsubs(4/Pi=a,Sn):
Sn := collect(Sn,a):
Sn := subs(a=(Pi/4),Sn):
S := a0 + Sn;

This is what you asked for, though not in quite the same order. Hope it will be adequate for your purpose.

J. Tarr

}