MathGroup Archive 2004

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

Search the Archive

Re: table format question


Almost: I added a PaddedForm[#, 2]& /@ for the pcts column so its 
entries, too, would be right-justified.

Thanks.

Bob Hanlon wrote:
> 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[{
>       StyleForm[#, FontFamily -> "Courier"] & /@ grades,
>       counts,
>       PaddedForm[#, {3, 1}] & /@ pcts}],
>   TableHeadings ->
>     {None, {"Grade", "Number", "Per Cent"}},
>   TableAlignments -> Right]
> 
> 
> Bob Hanlon
> 
> 
>>From: Murray Eisenberg <murray at math.umass.edu>
To: mathgroup at smc.vnet.net
>>Date: 2004/10/17 Sun AM 03:05:27 EDT
>>To: mathgroup at smc.vnet.net
>>Subject: [mg51463] [mg51433] table format question
>>
>>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
>>
>>
> 
> 
> 
> 

-- 
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: Re: Question about derivatives
  • Previous by thread: Re: table format question
  • Next by thread: RE: table format question