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