Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.soft-sys.math.mathematica > #2005 > unrolled thread
| Started by | David Skulsky <edskulsky@gmail.com> |
|---|---|
| First post | 2011-04-29 11:35 +0000 |
| Last post | 2011-04-29 11:35 +0000 |
| Articles | 1 — 1 participant |
Back to article view | Back to comp.soft-sys.math.mathematica
Re: How to create such a list David Skulsky <edskulsky@gmail.com> - 2011-04-29 11:35 +0000
| From | David Skulsky <edskulsky@gmail.com> |
|---|---|
| Date | 2011-04-29 11:35 +0000 |
| Subject | Re: How to create such a list |
| Message-ID | <ipe7pv$r4f$1@smc.vnet.net> |
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
Back to top | Article view | comp.soft-sys.math.mathematica
csiph-web