Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Re: silly question on formatting tables

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129137] Re: silly question on formatting tables
  • From: Ray Koopman <koopman at sfu.ca>
  • Date: Tue, 18 Dec 2012 02:33:41 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <kamj30$qra$1@smc.vnet.net>

On Dec 16, 11:54 pm, Themis Matsoukas <tmatsou... at me.com> wrote:
> The question is not silly and I have not found a satisfactory answer yet. A problem is that NumberForm does not force the specified digits to all numbers. It seems to stop working past 10^-5, as the example shows.
>
> m = {{0., 1.}, {1., 0.1}, {2., 0.01}, {3., 0.001}, {4., 0.0001}, {5.,
>     0.00001}, {6., 0.000001}, {7., 0.000001}, {8., 0.000001}, {9.,
>     0.000001}, {10., 0.000001}};
>
> m /. a_Real :> NumberForm[a, {3, 2}] // TableForm
>
> 0.00    1.00
> 1.00    0.10
> 2.00    0.01
> 3.00    0.00
> 4.00    0.00
> 5.00    0.00
> 6.00    1.00*10^(-6)
> 7.00    1.00*10^(-6)
> 8.00    1.00*10^(-6)
> 9.00    1.00*10^(-6)
> 10.00   1.00*10^(-6)

m = {#,N[10^-#]}& /@ Range[0,10];

m /. a_Real :> PaddedForm[a,{3,2},
ExponentFunction->(Null&)] //TableForm

0       1.00
1       0.10
2       0.01
3       0.00
4       0.00
5       0.00
6       0.00
7       0.00
8       0.00
9       0.00
10      0.00



  • Prev by Date: Re: Working with indefinite number of variables
  • Next by Date: How does Solve determine which variables to solve for?
  • Previous by thread: Re: silly question on formatting tables
  • Next by thread: Working with indefinite number of variables