RE: using FindRoot to find multiple answers in a domain?
- To: mathgroup at smc.vnet.net
- Subject: [mg69108] RE: [mg69059] using FindRoot to find multiple answers in a domain?
- From: "David Park" <djmp at earthlink.net>
- Date: Wed, 30 Aug 2006 06:33:18 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Akil,
Download and install the Ted Ersek RootSearch package from MathSource.
Although it works only on 1D cases, in those cases it is much better and
more convenient than FindRoot.
Needs["Ersek`RootSearch`"]
RootSearch[Cos[antwoord] == Sin[antwoord], {antwoord, 0, 10Pi}]
{{antwoord -> 0.785398}, {antwoord -> 3.92699}, {antwoord ->
7.06858}, {antwoord -> 10.2102}, {antwoord -> 13.3518}, {antwoord ->
16.4934}, {antwoord -> 19.635}, {antwoord -> 22.7765}, {antwoord ->
25.9181}, {antwoord -> 29.0597}}
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: akil [mailto:akomur at wanadoo.nl]
To: mathgroup at smc.vnet.net
I want to find all answers that exist in a certain domain, but FindRoot
gives only the first answer it finds (Using other methods like Solve,Reduce
etc takes too long, so Im stuck with using FindRoot). I give the problem I
have by example, the functions I use are really complex, but by solving the
problem for the example, I could solve t for the complex part.
Example:
Finding all intersections of Cos[x] and Sin[x] in the domain [0,10Pi]
Doing:
FindRoot[Cos[antwoord] == Sin[antwoord], {antwoord, 0, 0, 10Pi}]
FindRoot[Cos[antwoord] == Sin[antwoord], {antwoord, %, %, 10Pi}]
does not work the second FindRoot gives the exact same answer back. So using
this in a loop to find all intersections does not work.
Doing FindRoot[Cos[antwoord] == Sin[antwoord], {antwoord, %+0.01, %+0.01,
10Pi}] instead, also does not work.
Any way to find all intersections in a specified domain?
Akil