accuracy

• To: mathgroup at yoda.physics.unc.edu
• Subject: accuracy
• From: fateman at peoplesparc.berkeley.edu (Richard Fateman)
• Date: Thu, 3 Oct 91 14:40:07 PDT

```perhaps mathgroupers would be amused by this (in 2.0beta).
For

In[6]:= f[n_] := Module[{x = N[10, n]^50, s},
s = Sin[x];
{s, Accuracy[s], Precision[s]}]

....
In[24]:= Table[f[n],{n,16,60}]

Out[24]= {{-0.4805, 16, 16}, {0., 0, 0}, {0., 0, 0}, {-1., 0, 1},

>    {-1., 0, 1}, {-1., 0, 1}, {-1., 0, 1}, {0., 0, 0}, {0., 0, 0},

>    {0., 0, 0}, {0., 0, 0}, {0., 0, 0}, {0., 0, 0}, {0., 0, 0}, {0., 0, 0},

>    {0., 0, 0}, {0., 0, 0}, {0., 0, 0}, {0., 0, 0}, {0., 0, 0}, {0., 0, 0},

>    {0., 0, 0}, {1., 0, 1}, {1., 0, 1}, {1., 0, 1}, {1., 0, 1}, {1., 0, 1},

>    {-1., 0, 1}, {-1., 0, 1}, {-1., 0, 1}, {-1., 0, 1}, {-1., 0, 1},

>    {-1., 0, 1}, {-1., 0, 1}, {-1., 0, 1}, {-1., 0, 1}, {-1., 1, 1},

>    {-0.8, 2, 2}, {-0.79, 2, 2}, {-0.79, 3, 3}, {-0.7897, 5, 5},

>    {-0.78967, 5, 5}, {-0.789672, 6, 6}, {-0.7896725, 7, 7},

>    {-0.78967249, 8, 8}}

```

• Prev by Date: Switch and List: How to combine?
• Next by Date: Mathematica Workshop
• Previous by thread: Re: Switch and List: How to combine?
• Next by thread: Mathematica Workshop