Combinations
- To: mathgroup at smc.vnet.net
- Subject: [mg3191] Combinations
- From: TTCJ34A at prodigy.com (DR JOHN C ERB)
- Date: Tue, 13 Feb 1996 02:31:33 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Greetings All;
I have six pieces of plastic of thickness:
thick={0.48,0.71,1.41,3.45,5.61,13.49};
By using these in various combinations
(i.e., 1 piece, 2 pieces,... 6 pieces),
I can have:
numberthick={1,2,3,4,5,6};
total = Apply[Plus,Map[Binomial[6,#]&,numbthick]];
total = 63
63 different thickness.
How can I use Mathematica to get an array, ordered by
increasing thicknesses of plastic, giving the
63 different thicknesses, and combination of pieces
needed to give each thickness?
Thank you for any help
==== [MESSAGE SEPARATOR] ====