MathGroup Archive 2004

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

Search the Archive

Re: FindRoot for an oscillating function


On 9/27/04 at 12:42 AM, mathma18 at hotmail.com (Narasimham G.L.)
wrote:

>How to find all real/complex roots by sweeping through the domain
>{x,0,25} using Mathematica capability?   p = 1.234; q = .7654; gr =
>Sin[p x]/p + Sin[q x]/q ; Plot[gr,{x, 0, 25}]; FindRoot[gr == 0,
>{x, 0, 25}]

Try the package RootSearch written by Ted Ersek available on the Wolfram web site

<< "Enhancements`RootSearch`"
RootSearch[gr == 0, {x, 0, 25}]

{{x -> 0.}, 
 {x -> 3.375240761520732}, 
 {x -> 9.064643612216745}, 
 {x -> 12.52070474282438}, 
 {x -> 15.863528460444453}, 
 {x -> 21.318232880791662}}
--
To reply via email subtract one hundred and four


  • Prev by Date: Re: Export to file
  • Next by Date: 3D Graphics Developer
  • Previous by thread: FindRoot for an oscillating function
  • Next by thread: Re: FindRoot for an oscillating function