Re: Find many Roots
- To: mathgroup at smc.vnet.net
- Subject: [mg32323] Re: Find many Roots
- From: liwen liwen <gzgear at yahoo.com>
- Date: Tue, 15 Jan 2002 02:29:59 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
There is another good routine for such problem--RootSearch function, we can find it in Mathsource.
Here is the running result of using RootSearch function:
In[1]:=
Needs["Enhancements`RootSearch`"]
In[28]:=
f[x_]:=x*Sin[x]-Cos[x];
Plot[f[x],{x,0,10}];
soln=RootSearch[f[x]\[Equal]0,{x,0,10}];
x/.soln
Out[31]=
{0.860334,3.42562,6.4373,9.52933}