MathGroup Archive 2004

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

Search the Archive

Re: table format question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg51459] Re: [mg51433] table format question
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 17 Oct 2004 21:49:52 -0400 (EDT)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

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: [mg51459] [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
> 
> 


  • 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