Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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


  • 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