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