Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

thickness

  • Subject: [mg3172] thickness
  • From: TTCJ34A at prodigy.com (DR JOHN C ERB)
  • Date: 14 Feb 1996 01:15:01 -0600
  • Approved: usenet@wri.com
  • Distribution: local
  • Newsgroups: wri.mathgroup
  • Organization: Wolfram Research, Inc.
  • Sender: daemon at wri.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




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