Prev: integral of exponential
Next: kernel crash with integrating the derivative of an
From: BenT on 10 Nov 2009 06:08
Please consider these Mathematica 7 code Input lines:

n1 = RandomReal[100, 10]

n2 = NumberForm[n1, {3, 3}]

Column[n2, Right]

What I expected to get was "ignored", namely right aligned "arbitrary"
numeric data with 3 digits to the right, and 3 digits to the left of
the decimal point) formatted in a single column. How can this be
achieved with any numeric list of data?

--- Benjamin Tubb

From: DrMajorBob on 11 Nov 2009 04:25
This works:

n1 = RandomReal[100, 10];
NumberForm[Column[n1, Right], {3, 3}]

46.700
87.700
93.300
6.080
64.100
97.500
97.100
66.100
24.800
86.500

And so does this:

Column[NumberForm[#, {3, 3}] & /@ n1, Right]

46.700
87.700
93.300
6.080
64.100
97.500
97.100
66.100
24.800
86.500

Your post is just one more indication that NumberForm is not a "wrapper",
as the documentation claims.

Here's more proof, if such is needed:

n2 = NumberForm[n1, {3, 3}];

n2 + n2

2 {46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500}

n2 + n1

{46.7002+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},87.6606+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},93.313+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},6.0828+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},64.1356+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},97.4756+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},97.1373+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},66.0927+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},24.753+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500},86.5165+{46.700,87.700,93.300,6.080,64.100,97.500,97.100,66.100,24.800,86.500}}

That's apparently what it means to say, "NumberForm acts as a 'wrapper',
which affects printing, but not evaluation."

Bobby

On Tue, 10 Nov 2009 04:57:09 -0600, BenT <brtubb(a)pdmusic.org> wrote:

> Please consider these Mathematica 7 code Input lines:
>
> n1 = RandomReal[100, 10]
>
> n2 = NumberForm[n1, {3, 3}]
>
> Column[n2, Right]
>
> What I expected to get was "ignored", namely right aligned "arbitrary"
> numeric data with 3 digits to the right, and 3 digits to the left of
> the decimal point) formatted in a single column. How can this be
> achieved with any numeric list of data?
>
> --- Benjamin Tubb
>


--
DrMajorBob(a)yahoo.com

From: Peter Breitfeld on 11 Nov 2009 04:28
BenT wrote:

> Please consider these Mathematica 7 code Input lines:
>
> n1 = RandomReal[100, 10]
>
> n2 = NumberForm[n1, {3, 3}]
>
> Column[n2, Right]
>
> What I expected to get was "ignored", namely right aligned "arbitrary"
> numeric data with 3 digits to the right, and 3 digits to the left of
> the decimal point) formatted in a single column. How can this be
> achieved with any numeric list of data?
>
> --- Benjamin Tubb
>

If you look at the FullForm of n2, you see:

NumberForm[List[66.34054656810791`,...],List[3,3]]

Column is for displaying Lists, so you have to feed Column not with
NumberForm[List[...], List[...]] but List[NumberForm[...]].
This is done like this:

n3=NumberForm[#,{3,3}]&/@n1

Column[n3]

<prints ok>

--
_________________________________________________________________
Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de

From: Tomas Garza on 11 Nov 2009 04:29
Perhaps this is what you want:

In[5]:= Column[PaddedForm[#,{6,3}]&/@n1]
Out[5]=
47.517
15.307
13.930
70.045
30.902
7.979
86.600
22.895
57.105
65.637

Tomas



> Date: Tue, 10 Nov 2009 05:57:09 -0500
> From: brtubb(a)pdmusic.org
> Subject: Formatting Numeric Outpuit
> To: mathgroup(a)smc.vnet.net
>
> Please consider these Mathematica 7 code Input lines:
>
> n1 = RandomReal[100, 10]
>
> n2 = NumberForm[n1, {3, 3}]
>
> Column[n2, Right]
>
> What I expected to get was "ignored", namely right aligned "arbitrary"
> numeric data with 3 digits to the right, and 3 digits to the left of
> the decimal point) formatted in a single column. How can this be
> achieved with any numeric list of data?
>
> --- Benjamin Tubb
>

From: Bill Rowe on 11 Nov 2009 04:29
On 11/10/09 at 5:57 AM, brtubb(a)pdmusic.org (BenT) wrote:

>Please consider these Mathematica 7 code Input lines:

>n1 = RandomReal[100, 10]

>n2 = NumberForm[n1, {3, 3}]

>Column[n2, Right]

>What I expected to get was "ignored", namely right aligned
>"arbitrary" numeric data with 3 digits to the right, and 3 digits to
>the left of the decimal point) formatted in a single column. How can
>this be achieved with any numeric list of data?

The problem with the above code is NumberForm puts a wrapper
around the list of numbers, making the head of n2 NumberForm
rather than List as Column expects. You can achieve what you
want with

Column[NumberForm[#, {3,3}]&/@n1, Right]


 |  Next  |  Last
Pages: 1 2 3
Prev: integral of exponential
Next: kernel crash with integrating the derivative of an