Re: NumberForm question
- To: mathgroup at smc.vnet.net
- Subject: [mg82036] Re: NumberForm question
- From: Yaroslav Bulatov <yaroslavvb at gmail.com>
- Date: Wed, 10 Oct 2007 04:24:29 -0400 (EDT)
- References: <fefip7$jpm$1@smc.vnet.net>
The problem is not the font size, but rather that it's rounded to the
nearest 10^-15, even though there's enough digits to round to round at
much finer scale.
You can see this rounding behavior here
l1 = ToExpression[
ToString[NumberForm[1 + # $MachineEpsilon, {20, 20}]]] & /@
Range[20] - 1;
l2 = ToExpression[ToString[InputForm[1 + # $MachineEpsilon]]] & /@
Range[20] - 1;
ListPlot[{l1, l2}, Joined -> {False, True}]
On Oct 9, 2:48 am, Bill Rowe <readnews... at sbcglobal.net> wrote:
> On 10/8/07 at 2:03 AM, yarosla... at gmail.com (Yaroslav Bulatov) wrote:
>
> >x=1+$MachineEpsilon; InputForm[x] NumberForm[x,{16,16}]
> >Why does the result printed by NumberForm seem smaller?
>
> They use different fonts. I would expect InputForm to use
> whatever font format you have set in your preferences for input
> while NumberForm will use what ever font defaults you set up for output.
>
> In my case, I have input set to StandardForm while output set to
> TraditionalForm and see two different fonts when I copy your
> code into a new cell. But if I do:
>
> x=1+$MachineEpsilon;
> InputForm[x]
> NumberForm[x,{16,16}]//StandardForm
>
> both lines appear to be the same size on my system.
> --
> To reply via email subtract one hundred and four