The Math Forum

Search All of the Math Forum:

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

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

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: exponential regression
Replies: 1   Last Post: Feb 3, 2013 8:19 PM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View

Posts: 9
Registered: 12/27/12
Re: exponential regression
Posted: Feb 3, 2013 8:19 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

> I entered Clear[a, b, x]; FindFit[{{1, 4.5}, {3, 14.0}, {5, 28.6}, {7, 54.1}, >{8, 78.6}}, a*b^x, {a, b}, x] as a text of exponential regression. The input >returned {a->4.66625, b->1.42272}
> Fine. However, a student of mine entered the same data in a TI-84 calculator >and it returned 3.947506 (x^1.334589).

One problem is that you and your student fitted different curves. You fitted the data to a*b^x and your student fitted the data to a*x^b.

This fits the data to the same curve as your student:

Clear[a, b, x]; FindFit[{{1, 4.5}, {3, 14.0}, {5, 28.6}, {7,
54.1}, {8, 78.6}}, a x^b, {a, b}, x]

The result will be different:


Your student's calculator probably did a modified linear regression; Mathematica did a more sophisticated fit. If you plot your student's 3.9475*x^1.3346 and Mathematica's 1.17537*x^2.00353 along with the origional data, you'll see that the Mathematica version gives a much better fit. The Mathematica answer for your first try, 4.66625*1.42272^x, also gives a better fit.

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

[Privacy Policy] [Terms of Use]

© The Math Forum at NCTM 1994-2018. All Rights Reserved.