Re: FindRoot for an oscillating function

*To*: mathgroup at smc.vnet.net*Subject*: [mg50937] Re: FindRoot for an oscillating function*From*: Bill Rowe <readnewsciv at earthlink.net>*Date*: Tue, 28 Sep 2004 00:59:07 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

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