Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

DiscreteDelta Evaluation Question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49770] DiscreteDelta Evaluation Question
  • From: Ben <serpent11 at hotmail.com>
  • Date: Fri, 30 Jul 2004 06:02:22 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hi:

In evaluating Poisson brackets, I've gotten Mathematica to simplify
the brackets down to an infinite sum of deltafunctions, but though the
sum should be very easy to evaluate, I can't convince it to simplify
it.  Here's a typical case that it won't simplify:

Sum[(-Sqrt[-2] indx DiscreteDelta[2 - indx] - 
          0.5 Sqrt[-1] DiscreteDelta[indx] DiscreteDelta[
              2 - indx])((1 - Sqrt[2]) DiscreteDelta[indx]
DiscreteDelta[
              2 - indx] + 
          Sqrt[2] DiscreteDelta[2 - indx]) - (Sqrt[-2] indx
DiscreteDelta[
              2 - indx] + 
          0.5 Sqrt[-1] DiscreteDelta[indx] DiscreteDelta[
              2 - indx])((1 - Sqrt[2]) DiscreteDelta[indx]
DiscreteDelta[
              2 - indx] + Sqrt[2] DiscreteDelta[2 - indx]), {indx, 1, 
    Infinity}]

You can cut and paste it into a notebook.

I've tried 

Unprotect[DiscreteDelta, Times];

DiscreteDelta[i_] * DiscreteDelta[i_] := DiscreteDelta[i];

Protect[DiscreteDelta, Times];

but it still won't evaluate this seemingly simple expression.

Any advice would be greatly appreciated.

Thanks,
~Ben


  • Prev by Date: Re: pattern matching and droping elements from list of lists.
  • Next by Date: Re: pattern matching and droping elements from list of lists.
  • Previous by thread: Re: uniquely change curve colors and make them darker
  • Next by thread: Question on Compile[]