MathGroup Archive 2005

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

Search the Archive

Re: Multiple Sums in Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53702] Re: Multiple Sums in Mathematica
  • From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
  • Date: Mon, 24 Jan 2005 03:37:23 -0500 (EST)
  • References: <csvir2$avi$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Here is an example of what you could do:

With[{m=2,n=4},
  Apply[
    Sum,
    Prepend[
      Table[{i[k],m},{k,n}],
      Apply[f,Table[i[k],{k,n}]]
      ]
    ]
  ]

f[1,1,1,1]+f[1,1,1,2]+f[1,1,2,1]+f[1,1,2,2]+f[1,2,1,1]+f[1,2,1,2]+f[1,2,2,1]+
  f[1,2,2,2]+f[2,1,1,1]+f[2,1,1,2]+f[2,1,2,1]+f[2,1,2,2]+f[2,2,1,1]+
  f[2,2,1,2]+f[2,2,2,1]+f[2,2,2,2]

Steve Luttrell

"Sebastian Brandt" <sbrandt at physics.wustl.edu> wrote in message 
news:csvir2$avi$1 at smc.vnet.net...
> Hello,
>
> I want to perform a nested sum, where the number of summations is not
> specified. I.e., I am looking for a way to implement the sum
>
> sum[ f, {i1, 1, M}, {i2, 1, M}, ..., {in, 1, M} ]
>
> Does anbody know how to do this for arbitrary n?
>
> Regards,
>
> Sebastian Brandt
> 



  • Prev by Date: Re: Re: Saving the kernel state.
  • Next by Date: Why IntervalBisection can't operate on InterpolatingFunction
  • Previous by thread: Re: Multiple Sums in Mathematica
  • Next by thread: Re: Multiple Sums in Mathematica