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 >