MathGroup Archive 2008

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

Search the Archive

Re: Align decmal points

  • To: mathgroup at smc.vnet.net
  • Subject: [mg85003] Re: Align decmal points
  • From: Helen Read <hpr at together.net>
  • Date: Tue, 22 Jan 2008 01:59:10 -0500 (EST)
  • References: <fn1nn1$9eh$1@smc.vnet.net>
  • Reply-to: HPR <read at math.uvm.edu>

Steve Gray wrote:
> (Best viewed with a fixed-spacing font such as Courier New.)
> 
> I have lists, spheres, of <100 lists {x,y,z,radius}, typically as
> follows:
> N[spheres]
> {{1060.05, 423.413, -171.449, 1102.85}, {33.5541, 16.2535, 14.0345, 
>   83.8389}, {67.8212, 29.8456, 7.84258, 83.2877}, {55.7474, -6.90536, 
>   13.6956, 97.1971}, {84.5821, 5.44961, 8.37983, 
>   99.2468}, {187.597, -144.491, 11.6819, 
>   257.383}, {62.9557, -6.33653, -5.45155, 
>   111.918}, {59.9433, -7.63485, -4.95006, 
>   112.004}, {60.5971, -4.5244, -3.88841, 
>   109.34}, {62.2891, -6.38914, -3.68097, 110.48}, {54.918, 10.2798, 
>   22.727, 97.2316}, {72.0123, 17.306, 19.4247, 98.0057}, {76.3649, 
>   4.28294, 31.4533, 114.151}, {53.7474, 34.5342, 35.4736, 
>   103.675}, {61.7639, -3.8727, -1.2733, 109.211}}
> 
> I want to print this in MatrixForm but with the decimal points of
> successive rows aligned, like this: (1060.0, etc., would be ok too)
> (here the matrix brackets are missing)
> 
> 1060.	423.4  -171.4  1102.9
>   33.6   16.3    14.	 83.8
>   67.8   29.8	  7.8	 83.3
>   55.7   -6.9    13.7	 97.2
>   84.6    5.4     8.4	 99.2
>  187.6 -144.5    11.7	257.4
>   63.    -6.3    -5.5	111.9
>   59.9	 -7.6    -5.	112.
>   60.6	 -4.5    -3.9	109.3
>   62.3	 -6.4    -3.7	110.5
>   54.9	 10.3    22.7	 97.2
>   72.	 17.3    19.4	 98.
>   76.4	  4.3    31.5	114.2
>   53.7	 34.5    35.5	103.7
>   61.8	 -3.9    -1.3	109.2
> 
> Print[MatrixForm[Round[spheres, .1]]] does it except the decimal
> points are not aligned. I will appreciate any tips. Thank you.

mm = {{1060.05, 423.413, -171.449, 1102.85}, {33.5541, 16.2535,
     14.0345, 83.8389}, {67.8212, 29.8456, 7.84258,
     83.2877}, {55.7474, -6.90536, 13.6956, 97.1971}, {84.5821,
     5.44961, 8.37983, 99.2468}, {187.597, -144.491, 11.6819,
     257.383}, {62.9557, -6.33653, -5.45155,
     111.918}, {59.9433, -7.63485, -4.95006,
     112.004}, {60.5971, -4.5244, -3.88841,
     109.34}, {62.2891, -6.38914, -3.68097, 110.48}, {54.918, 10.2798,
     22.727, 97.2316}, {72.0123, 17.306, 19.4247, 98.0057}, {76.3649,
     4.28294, 31.4533, 114.151}, {53.7474, 34.5342, 35.4736,
     103.675}, {61.7639, -3.8727, -1.2733, 109.211}};

Grid[mm, Alignment -> "."]


(Grid is pretty good with this regardless of font.)

-- 
Helen Read
University of Vermont


  • Prev by Date: Re: How remove CellChangeTimes values?
  • Next by Date: RE: Re: Don't understand behavior of ClearAttributes[Plus,
  • Previous by thread: Re: Align decmal points
  • Next by thread: Two bugs in Mathematica 6.01 ".m" packaging.