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}}