Re: Integration
- To: mathgroup at smc.vnet.net
- Subject: [mg5980] Re: [mg5865] Integration
- From: Allan Hayes <hay at haystack.demon.co.uk>
- Date: Sat, 8 Feb 1997 22:37:54 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Mark Dowell <mark.dowell at jrc.it>
[mg5865] Integration
writes
> I have a question involving the definite INTEGRATE function.
> With integration you give Mathematica; the function of x, and the
values of
> x between which you want it integrated. My problem is that I
KNOW the area
> I want (and know that I am using the origin as xmin) but I need
Mathematica
> to calculate xmax for me.
Mark:
You may find the following idea useful when your integral has to be
solved numerically.
Suppose we want to find for which X
Integrate[Sqrt[Cosh[x] -1],{x,0,X}] = 4.
(!) Solve the corresponding differential equation to get a
"Numerical Indefinite integral" over a suitable range:
NDSolve[{y'[x] == Sqrt[Cosh[x]-1], y[0]==0}, y, {x,0, 4}]
{{y -> InterpolatingFunction[{0., 4.}, <>]}}
yf = y/.%[[1]];
Plot[{yf[x],4},{x,0,4}]
-Graphics-
FindRoot[yf[x] == 4, {x, {2,2.5}}]
{x -> 3.05714}
Or
FindRoot[yf[x] == 4, {x, 2}, Jacobian -> Sqrt[Cosh[x]-1]]
{x -> 3.05714}
NB. I got a value 3.071294 simply by clicking on the graph to
select it then holding the Command key down and moving the pointer
onto the intersection. The cordinates of the pointer are shown at
the bottom of the window and if you click and copy they can be
pasted.
Allan Hayes
hay at haystack.demon.co.uk
http://www.haystack.demon.co,uk