Re: Odd answer from Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg63622] Re: Odd answer from Mathematica
- From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
- Date: Sat, 7 Jan 2006 04:59:30 -0500 (EST)
- References: <dpnrbc$6u1$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
There is a neater way of doing this:
<<NumericalMath`BesselZeros`
BesselJZeros[0,15]
{2.40483,5.52008,8.65373,11.7915,14.9309,18.0711,21.2116,24.3525,27.4935,30.\
6346,33.7758,36.9171,40.0584,43.1998,46.3412}
Steve Luttrell
"Steeve Brechmann (schumi)" <steevebrechmann at yahoo.ca> wrote in message
news:dpnrbc$6u1$1 at smc.vnet.net...
>
> Hi everyone,
>
> I was trying to obtain the first five positive roots of the BesselJ[0,x],
> when something comes out...
>
> I type :
>
> Table[{i,FindRoot[BesselJ[0,x]==0,{x,i}]},{i,1,15,2}]//TableForm
>
> and Mathematica answer that for x=7, it obtains x->-52,6241 !
>
> Is this a bug ?
>
> Thanks for your help.
>
> Steeve Brechmann "Addict to Mathematica"
>
>