Re: How to create such a list
- To: mathgroup at smc.vnet.net
- Subject: [mg118494] Re: How to create such a list
- From: David Skulsky <edskulsky at gmail.com>
- Date: Fri, 29 Apr 2011 07:35:38 -0400 (EDT)
- Reply-to: comp.soft-sys.math.mathematica at googlegroups.com
I'm not exactly sure what you're asking, but does this solve your problem?
n = 3;
(Total[#] &) /@ Subsets[Table[w[k], {k, n}]]
{0, w[1], w[2], w[3], w[1] + w[2], w[1] + w[3], w[2] + w[3],
w[1] + w[2] + w[3]}
David