Re: How to simplify an expression in version 5

• To: mathgroup at smc.vnet.net
• Subject: [mg59069] Re: [mg59022] How to simplify an expression in version 5
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Thu, 28 Jul 2005 02:26:19 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Simplify works on my system to get rid of the radicals

\$Version

5.2 for Mac OS X (June 20, 2005)

Needs["Calculus`FourierTransform`"];

FourierTrigSeries[Cos[t],t,5,FourierParameters->{0,1/Pi}]//Simplify

(2*(2310*Cos[2*t] - 462*Cos[4*t] + 198*Cos[6*t] - 110*Cos[8*t] + 70*Cos
[10*t] + 3465))/(3465*Pi)

Bob Hanlon

>
> From: "passwd9" <david at carter-hitchin.clara.co.uk>
To: mathgroup at smc.vnet.net
> Date: 2005/07/27 Wed AM 01:24:43 EDT
> Subject: [mg59069] [mg59022] How to simplify an expression in version 5
>
> Hi,
>
> I'm trying to simplify the expression that comes out of the
> FourierTrigSeries function, and I've tried 'Simplify', 'Collect' and
> 'Factor' but no luck.  My input is as follows:
>
> << Calculus`FourierTransform`
> FourierTrigSeries[Cos[t], t, 5, FourierParameters -> {0, 1/Pi}]
>
> And the output is:
>
> \!\(\(2\/\@\[Pi] + \(4\ Cos[2\ t]\)\/\(3\ \@\[Pi]\) - \(4\ Cos[4\
> t]\)\/\(15\ \
> \@\[Pi]\) + \(4\ Cos[6\ t]\)\/\(35\ \@\[Pi]\) - \(4\ Cos[8\ t]\)\/\(63\
> \@\
> \[Pi]\) + \(4\ Cos[10\ t]\)\/\(99\ \@\[Pi]\)\)\/\@\[Pi]\)
>
> That's rather horrid looking in ascii, so I'll try to make something
>
> (2/Sqrt(Pi) + 4Cos(2t)/3Sqrt(Pi) - 4Cos(4t)/15Sqrt(Pi) + ... )
> ---------------------------------------------------------------
>                             Sqrt(Pi)
>
>
> Now the Sqrt(Pi) in the denominator could be 'brought up' into the
> terms in the numerator to give:
>
>
> (2/Pi + 4Cos(2t)/3Pi - 4Cos(4t)/15Pi + ... )
>
> Much more elegant!  Anyone know if MM can do this?
>
> Thanks.
>
>

```

• Prev by Date: Re: How to simplify an expression in version 5
• Next by Date: Re: Operating with binary numbers
• Previous by thread: Re: How to simplify an expression in version 5
• Next by thread: Re: Why won't Hornerwork?