MathGroup Archive 2011

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

Search the Archive

Re: Formatting Question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118981] Re: Formatting Question
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Wed, 18 May 2011 07:18:04 -0400 (EDT)

Of course such output is possible. But that kind of output is very 
"retrograde". The sort of thing one saw while using a teletype machine 
for input.

On 5/17/2011 7:46 AM, Dean Rosenthal wrote:
> Hello Mathgroup:
>
> Quick formatting question for my little program:
>
> Table[Print["Number of combinations of ", n, " choose ", k, " = ",
>    Binomial[n, k]], {n, 4}, {k, n}]; Table[
>   Print["Combinations of ", n, " choose ", k, " = ",
>    Subsets[Range[n], {k}]], {n, 4}, {k, n}];
> Table[Print["Permutations of combinations of ", n, " choose ", k, " = ",
>     Permutations[Range[n], {k}]], {n, 4}, {k, n}];
>
> --
>
> Is it possible to give the output like this, in this order:
>
>
> Number of combinations of 1 choose 1 = 1
>
> Combinations of 1 choose 1 = {{1}}
>
> Permutations of combinations of 1 choose 1 = {{1}}
>
>
> Number of combinations of 2 choose 1 = 2
>
> Combinations of 2 choose 1 = {{1}, {2}}
>
> Permutations of combinations of 2 choose 1 = {{1}, {2}}
>
>
> etc.
>
>
> Also, how is it possible to count the number of permutations, for example?
>   As the counts of combinations grow, the number of permutations and
> resulting combinations grow.
>
>
> Thanks!
>
>
> Dean
>

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305


  • Prev by Date: Re: How do you read Mathematica?
  • Next by Date: while loop - numerics
  • Previous by thread: Formatting Question
  • Next by thread: NotebookGetExpression