MathGroup Archive 1996

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

Search the Archive

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] ====


  • Prev by Date: thickness
  • Next by Date: Combinations
  • Previous by thread: thickness
  • Next by thread: Combinations