MathGroup Archive 1992

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

Search the Archive

Mma Fit function

  • To: mathgroup at yoda.physics.unc.edu
  • Subject: Mma Fit function
  • From: herrmann at siam.math.tamu.edu (joe herrmann)
  • Date: Fri, 20 Nov 1992 15:36:18 -0600

Hello Math Group,
	Why does the fit function lose accuracy as I go from a polynomial of degree 8 to a  
polynomial of degree 9 in the following:

Mathematica 2.0 for NeXT
Copyright 1988-91 Wolfram Research, Inc.
 -- NeXT graphics initialized -- 


In[1]:= D1={{0, 19.6}, {0.92, 16.87}, {1.84, 15.06}, {2.94, 11.15}, 

  {3.87, 16.31}, {4.97, 12.65}, {5.90, 13.80}, {7.00, 12.95}, 

  {7.92, 14.70}, {10.95, 27.04}, {12.03, 28.63}, {12.95, 27.13}, 

  {13.87, 23.34}, {14.98, 24.11}, {15.90, 22.59},{16.82, 21.35}, 

  {17.93, 21.35}, {19.03, 22.59}, {19.95, 22.10},{23.88, 19.57},
  {24.98, 17.18}}                                        


Out[1]= {{0, 19.6}, {0.92, 16.87}, {1.84, 15.06}, {2.94, 11.15}, 

 

>    {3.87, 16.31}, {4.97, 12.65}, {5.9, 13.8}, {7., 12.95}, {7.92, 14.7}, 

 

>    {10.95, 27.04}, {12.03, 28.63}, {12.95, 27.13}, {13.87, 23.34}, 

 

>    {14.98, 24.11}, {15.9, 22.59}, {16.82, 21.35}, {17.93, 21.35}, 

 

>    {19.03, 22.59}, {19.95, 22.1}, {23.88, 19.57}, {24.98, 17.18}}

In[2]:= Fit[D1,Table[x^i,{i,0,8}],x] 

                                       2            3             4
Out[2]= 19.8808 - 7.54938 x + 4.91733 x  - 1.68623 x  + 0.297257 x  - 

 

                5               6                 7             -7  8
>    0.0276971 x  + 0.00138897 x  - 0.0000355021 x  + 3.63124 10   x

In[4]:= Fit[D1,Table[x^i,{i,0,9}],x]

                                          2             3             4
Out[4]= 0.101922 + 0.275108 x + 0.641608 x  + 0.885697 x  - 0.415304 x  + 

 

                5              6                7             -6  8
>    0.0721119 x  - 0.0063344 x  + 0.000300326 x  - 7.33029 10   x  + 

 

               -8  9
>    7.22822 10   x

Thanks for your help.  I encountered this problem while teaching a mathematics modeling  
class.

Joe Herrmann  

herrmann at math.tamu.edu





  • Prev by Date: Integrate[z (1-z^2)^(-1/4),{z,-1,1}]
  • Next by Date: ListShadowPlot3D
  • Previous by thread: Integrate[z (1-z^2)^(-1/4),{z,-1,1}]
  • Next by thread: ListShadowPlot3D