Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1991
*January
*February
*March
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1991

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

Search the Archive

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