Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: formatting table with integers and floats in a column

  • To: mathgroup at smc.vnet.net
  • Subject: [mg61409] Re: formatting table with integers and floats in a column
  • From: "Ray Koopman" <koopman at sfu.ca>
  • Date: Tue, 18 Oct 2005 02:45:01 -0400 (EDT)
  • References: <20051016121525.UUOK13165.eastrmmtao01.cox.net@[172.18.52.8]> <divhbs$g8t$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

I should have used PaddedForm instead of NumberForm.

myForm[x_Integer,{n_,f_}] := ToString@PaddedForm[x, n-f ];
myForm[x_,       {n_,f_}] := ToString@PaddedForm[x,{n,f}]

StyleForm[TableForm[Transpose[{statNames,
          myForm[#,{4,1}]&/@statNumbers}]],
          FontFamily->"Courier"]

StyleForm[TableForm[Transpose[{statNames, StringReplace[
          myForm[#,{4,1}]," "->"  "]&/@statNumbers}]],
          FontFamily->"Times"]

Murray Eisenberg wrote:
> Yes, terrific.  Now, if I want the FontFamily to be "Times", there's
> still trouble!
>
> Bob Hanlon wrote:
> > This does it by brute force.
> >
> > statNames={"N","Max","Min","Mean","Std.dev.","Median"};
> >
> > statNumbers={40,103,2,56.8,22.5,59};
> >
> > StyleForm[
> >   TableForm[
> >     Transpose[{statNames,
> >         If[IntegerQ[#],
> >               StringReplace[
> >                 ToString[
> >                   NumberForm[#,{4,1},
> >                     NumberPadding->{" ","0"}]],
> >                 ".0"->"  "],
> >               NumberForm[#,{4,1},
> >                 NumberPadding->{" ","0"}]]&/@
> >           statNumbers}]],
> >   FontFamily->"Courier"]
> >
> >
> > Bob Hanlon
> >
> >
> >>From: Murray Eisenberg <murray at math.umass.edu>
To: mathgroup at smc.vnet.net
> >>Date: 2005/10/16 Sun AM 12:18:11 EDT
> >>Subject: [mg61409]  formatting table with integers and floats in a column
> >>
> >>I have a 2-column table whose first column consists of strings --
> >>
> >>  statNames = {"N", "Max", "Min", "Mean", "Std.dev.", "Median"};
> >>
> >>-- and a column of corresponding numbers:
> >>
> >>  statNumbers = {40, 103, 2, 56.8, 22.5, 59};
> >>
> >>If I use
> >>
> >>   TableForm[Transpose[{statNames, statNumbers}]]
> >>
> >>then of course all the numbers will be left-aligned on their leftmost
> >>digits.
> >>
> >>I want to format the numbers in the table so that they will appear as
> >>follows:
> >>
> >>N         40
> >>Max      103
> >>Min        2
> >>Mean      56.8
> >>Std.dev.  22.5
> >>Median    59
> >>
> >>Notice that I want the integers to appear as integers -- WITHOUT any
> >>trailing decimal point; but the alignment is to be as if the numbers
> >>were aligned on the decimal points including the implicit, but
> >>unprinted, decimal points in the integers.
> >>
> >>How??
> >>
> >>I've tried various things with mapping NumberForm onto the individual
> >>numbers but cannot quite get the correct effect.
> >>
> >>--
> >>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: How smooth graphs?
  • Next by Date: Re: How smooth graphs?
  • Previous by thread: Re: formatting table with integers and floats in a column
  • Next by thread: Function, Command, Operator, Object...etc.