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

MathGroup Archive 2002

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

Search the Archive

Accuracy and Precision

  • To: mathgroup at smc.vnet.net
  • Subject: [mg36853] Accuracy and Precision
  • From: pkosta2002 at yahoo.com (Peter Kosta)
  • Date: Sun, 29 Sep 2002 02:55:19 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Could someone explain what is going on here, please?

In[1]:= 
a = 77617.; b = 33096.; 

In[2]:=
SetAccuracy[a, Infinity]; SetAccuracy[b, Infinity]; 
SetPrecision[a, Infinity]; SetPrecision[b, Infinity]; 

In[4]:=
f := 333.75*b^6 + a^2*(11*a^2*b^2 - b^6 - 121*b^4 - 2) + 5.5*b^8 + a/(2*b)

In[5]:=
SetAccuracy[f, Infinity]; SetPrecision[f, Infinity]; 

In[6]:=
f

Out[6]=
-1.1805916207174113*^21

In[7]:=
a = 77617; b = 33096; 

In[8]:=
g := (33375/100)*b^6 + a^2*(11*a^2*b^2 - b^6 - 121*b^4 - 2) + (55/10)*b^8 + a/(2*b)

In[9]:=
g

Out[9]=
-(54767/66192)

In[10]:=
N[%]

Out[10]=
-0.8273960599468214

Thanks,

PK


  • Prev by Date: Need to evaluate functions of the form y=5e+5 x1+2e-1x2, etc., were e means 10^
  • Next by Date: RE: How to get a listing of currently defined symbols
  • Previous by thread: RE: Need to evaluate functions of the form y=5e+5 x1+2e-1x2, etc., were e means 10^
  • Next by thread: Re: Accuracy and Precision