MathGroup Archive 1997

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Integration

  • To: mathgroup at
  • Subject: [mg5980] Re: [mg5865] Integration
  • From: Allan Hayes <hay at>
  • Date: Sat, 8 Feb 1997 22:37:54 -0500
  • Sender: owner-wri-mathgroup at

Mark Dowell <mark.dowell at>
[mg5865] Integration

> 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  
> to calculate xmax for me.


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]];



FindRoot[yf[x] == 4, {x, {2,2.5}}]
	{x -> 3.05714}

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  

Allan Hayes
hay at,uk

  • Prev by Date: special ColorFunction
  • Next by Date: Re: pattern test and default value
  • Previous by thread: Re: Integration
  • Next by thread: Re: html