Re: table format question
- To: mathgroup at smc.vnet.net
- Subject: [mg51452] Re: table format question
- From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
- Date: Sun, 17 Oct 2004 21:49:42 -0400 (EDT)
- References: <ckt6qs$79a$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Use NumberPadding thus
NumberForm[#, {4, 1}, NumberPadding -> {"", "0"}]
Steve Luttrell
"Murray Eisenberg" <murray at math.umass.edu> wrote in message
news:ckt6qs$79a$1 at smc.vnet.net...
>I have a table created by the following input:
>
> 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, counts, NumberForm[#, {4, 1}] & /@ pcts}],
> TableHeadings -> {None, {"Grade", "Number", "Per Cent"}}]
>
> 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.)
>
>
> --
> 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
>