Re: Table to find lower and upper estimate
- To: mathgroup at smc.vnet.net
- Subject: [mg68165] Re: [mg68153] Table to find lower and upper estimate
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Thu, 27 Jul 2006 05:29:44 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
data=Thread[{Range[0,25,5],{-42,-37,-25,-6,15,36}}]; f[x_]=Fit[data, {1,x,x^2}, x] 0.0828571*x^2 + 1.15714*x - 43.2857 Plot[f[x],{x,0,25}, Epilog->{Red,AbsolutePointSize[4],Point/@data}]; Integrate[f[x],{x,0,25}] -288.988 Bob Hanlon ---- T Harris <tdh1967 at bellsouth.net> wrote: > Hello, > > > > I hope someone could tell me where to look to or if easy enough, to advise > me on how to use Mathemetica for the type of problem I have below. I > already have worked it and have the lower estimate to be -475 and the upper > estimate to be -85. I was hoping to put Mathematica to a practical use here > and I really don't know how to do this. I have typed the problem in > exactly as shown in James Stewart's, Calculus 5th Edition. > > > > Here it is: > > A table of values of an increasing function f is shown. Use the table to > find lower and upper estimates for f(x) dx. > > x > 0 > 5 > 10 > 15 > 20 > 25 > > f(x) > -42 > -37 > -25 > -6 > 15 > 36 > > > > > Thanks to anyone with advice. > > > T Harris > > > -- Bob Hanlon hanlonr at cox.net