Re: Another Simplify Idiosyncrasy

• To: mathgroup at smc.vnet.net
• Subject: [mg26470] Re: [mg26458] Another Simplify Idiosyncrasy
• From: BobHanlon at aol.com
• Date: Fri, 22 Dec 2000 22:46:09 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```uc[M_] := (1/M) Sum[
a[n] * b[m] Exp[I (n * k - m * k + k) 2 *Pi/M ], {n, 0, M - 1}, {m, 0,
M - 1}, {k, 0, M - 1}] ;

If you have lots of time to wait, you can use FullSimplify

FullSimplify[uc[5]]

a[4]*b[0] + a[0]*b[1] + a[1]*b[2] + a[2]*b[3] + a[3]*b[4]

FullSimplify[uc[7]]

a[6]*b[0] + a[0]*b[1] + a[1]*b[2] + a[2]*b[3] + a[3]*b[4] +
a[4]*b[5] + a[5]*b[6]

a[M - 1] b[0] + a[0] b[1] + a[1] b[2] + ...+a[M - 2] b[M - 1]

Bob Hanlon

In a message dated 12/21/00 2:46:24 AM, siegman at stanford.edu writes:

>The following sum (which arises in working with Discrete Fourier
>Transforms)
>
>   uc[M_] := (1/M) Sum[  a[n] b[m] Exp[I (n k - m k + k) 2 Pi/M ],
>                    {n, 0, M - 1}, {m, 0,  M - 1}, {k, 0, M - 1}]
>
>should Simplify to the general form
>
>   a[M] b[0] + a[0] b[1] + a[1] b[2] + . . .  + a[M-1] b[M]
>
>That's what happens with M = 1, 2, 3, 4, 6, 8, 9 and 12 --
>--but with M = 5, 7, 10 and 11 the factors that are equally spaced
>around the unit circle in the complex plane don't simplify out and one
>gets pages of terms with factors of (-1)^(n/m).  Apparently Mathematica
>can find these roots for some rational fractions n/m but not others.
>
>(Not a complaint, just noting the point; I understand that Simplify'ing
>is a complex and not always universally successful process.)
>

```

• Prev by Date: Re: Rotated Label Bad With Ratios
• Next by Date: Can I make this shape?
• Previous by thread: Another Simplify Idiosyncrasy
• Next by thread: Help me