Re: Debug of FindRoot
- To: mathgroup at smc.vnet.net
- Subject: [mg78909] Re: Debug of FindRoot
- From: Costa Bravo <laguna at aol.com>
- Date: Thu, 12 Jul 2007 05:25:17 -0400 (EDT)
- References: <f72c9h$d75$1@smc.vnet.net>
Miguel wrote:
> 2.- FindRoot[BesselJ[0,z]/BesselJ[1,z]==z/Bi,{z,#}]&/@{1,4,7,10}
> {{z->0.940771},{z->3.95937},{z->0.940771},{z->3.95937}}
>
> I dont understand the reason. With others differents intervals it
> works fine.
dat = Table[0.78 + k*Pi, {k, 0, 20}];
Bi = 0.5 ;
w = z/.FindRoot[BesselJ[0,z]/BesselJ[1,z]==z/Bi,{z,#}]&/@ dat
Drop[w, 1] - Drop[w, -1]
OK ?!
Costa