MathGroup Archive 2004

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

Search the Archive

Re: table format question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg51464] Re: [mg51433] table format question
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Sun, 17 Oct 2004 21:50:02 -0400 (EDT)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <200410170705.DAA07117@smc.vnet.net> <F218EA27-2050-11D9-AFCF-000A95BDC9C2@acm.org>
  • Reply-to: murray at math.umass.edu
  • Sender: owner-wri-mathgroup at wolfram.com

Yes, thank you.  Bob Hanlon's posting, similar to yours, accomplishes 
what I need, too.

Ben Kovitz wrote:
> On Oct 17, 2004, at 12:05 AM, Murray Eisenberg wrote:
>> ...
>> 1. How can I get a 0 to display after the decimal point in the last
>> column's first and last rows?  (I tried to wrap the entire thing with an
>> obvious PaddedForm expression, but that had the unfortunate effect of
>> giving me decimals in the 2nd column, which should be integers without
>> any decimal point or trailing decimal places whatsoever.)
>>
>> 2. How can I get the numbers in columns 2 and three to be
>> right-justified?  (I tried TableAlignments but that didn't seem to do 
>> it.)
> 
> 
> Does this work?
> 
> counts = {25, 10, 14, 10, 13, 12, 3, 6, 10, 8, 68};
> papers = Plus @@ counts;
> pcts = 100. counts/papers;
> grades = {"A ", "A-", "B+", "B ", "B-", "C+", "C ", "C-", "D+", "D ", "F 
> "};
> TableForm[Transpose[
>       {grades, NumberForm[#, 3, NumberPadding -> {" ", ""}] & /@ counts,
>       NumberForm[#, {4, 1}, NumberPadding -> {" ", "0"}] & /@ pcts}],
>       TableHeadings -> {None, {"Grade", "Number", "Per Cent"}}]
> 
> I think the non-obvious tricks are the space as the first argument to 
> NumberPadding to produce right-alignment, and the "0" as the second 
> argument to pad with zeros on the right.

-- 
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: table format question
  • Next by Date: Re: table format question
  • Previous by thread: Re: table format question
  • Next by thread: Re: table format question