Re: Iterator problem.
- To: mathgroup at smc.vnet.net
- Subject: [mg52353] Re: Iterator problem.
- From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
- Date: Wed, 24 Nov 2004 02:32:25 -0500 (EST)
- References: <cnuoj6$squ$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
This does what you want (I assume you want to suppress cases that are symmetrically related, so I use 1<=i<=j<=k<=3): Table[a[i] + a[j] + a[k], {k,1,3},{j,1,k},{i,1,j}]//Flatten In Mathematica the outermost iterator is the one on the LEFT. Steve Luttrell "Robert G. Wilson v" <rgwv at rgwv.com> wrote in message news:cnuoj6$squ$1 at smc.vnet.net... > Hello, > > I am having a problem with iterators in Mathematica. > > I have a sequence of integers defined by a[n]. I wish to build a table > of integers out of the above such that this table only contains integers > of > the form a(i)+a(j)+a(k). > > I tried Table[a[i] + a[j] + a[k], {k, 1, 3}, {j, i, k}, {i, 1, j}] but > the iterators do not have appropriate bounds. > > Any help would be greatly appreciated. > > Sincerely, > > Bob. >