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}