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}