Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Using Fit to interpolate data
Replies: 11   Last Post: Jul 27, 2012 4:57 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Kevin J. McCann

Posts: 120
Registered: 12/7/04
Re: Using Fit to interpolate data
Posted: Jul 25, 2012 2:35 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

A couple of comments:

1) Fit performs a linear least squares fit; so, you initially did a
straight line fit. Do you have any reason/theory to suggest that it
should be so? Your data appear to suggest an exponential relationship.

2) The goodness of the fit depends on the goodness of the data set. Do
you have error bounds on the data points?

Also, you might comment on why you want to do the fit in the first
place. For example, are you going to do subsequent calculations with the
fit? Are the fit parameters relevant? ...

Kevin

On 7/24/2012 4:16 AM, Kris Carlson wrote:
> Hi,
>
> Can someone enlighten me about how to fit a curve to data? These data are
> of the density of axons of given diameters in the spinal cord. The density
> of smaller fibers is dramatically larger than that of larger fibers. There
> cannot be density < 0 of any diameter, so heuristically to prevent a fit
> yielding an equation that dips below 0 I added an end point with fiber
> diameter = 16 that is 0. Then using Fit I try to increase the exponent of x
> until the curve doesn't yield negative values. The fit looks good in large
> scale but when I plot the region of greatest interest, 8 < x < 14, it no
> longer looks so good. Maybe I am simply ignorant about fitting a curve to
> somewhat irregular data? Or can it be done?
>
> Thank you.
>
> Kris
>
> fiberDataDensitiesFeierabend = {{16, 0}, {10.7, 0.11}, {10.4,
> 0.19}, {9.77, 0.41}, {8.29, 3.05}, {7.14, 19.86}};
>
> fbddPlot =
> ListPlot[fiberDataDensitiesFeierabend,
> PlotMarkers -> {Automatic, Medium}]
>
> fbddFit = Fit[fiberDataDensitiesFeierabend, {1, x, x^-13}, x]
>
> Show[Plot[fbddFit, {x, 4, 20},
> PlotRange -> {{4.5, 20}, {-0.5, 25}}], fbddPlot]
>
> Show[Plot[fbddFit, {x, 4, 28},
> PlotRange -> {{8, 16}, {-0.5, 1}}], fbddPlot]
>
>






Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2013. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.