Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.soft-sys.math.mathematica > #1803
| From | Gary Wardall <gwardall@gmail.com> |
|---|---|
| Newsgroups | comp.soft-sys.math.mathematica |
| Subject | Re: solution |
| Date | 2011-04-20 08:29 +0000 |
| Organization | Steven M. Christensen and Associates, Inc and MathTensor, Inc. |
| Message-ID | <iom5hg$1q$1@smc.vnet.net> (permalink) |
| References | <iojpp7$i52$1@smc.vnet.net> |
On Apr 19, 5:56 am, amelia Jackson <meli.jac...@gmail.com> wrote:
> Dear MathGroup,
>
> I have a problem. I want to find solution:
> r := Table[
> k /. FindRoot[BesselJ[0, k] + k BesselJ[1, k] == 0, {k, n}], {n, 1, 100}]
>
> but I get about 30 roots. I need about 100 or more.
> I think that "step" "n" tend to Pi
>
> Please for help...
Ameia,
I have no problem creating that table. I don't know how accurate the
table is but my version of Mathematica does produce the table. I am
using 8.0.1.0 on a mac powerbook.
Good Luck
Gary
Back to comp.soft-sys.math.mathematica | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
solution amelia Jackson <meli.jacson@gmail.com> - 2011-04-19 10:56 +0000 Re: solution "Sjoerd C. de Vries" <sjoerd.c.devries@gmail.com> - 2011-04-20 08:27 +0000 Re: solution Gary Wardall <gwardall@gmail.com> - 2011-04-20 08:29 +0000 Re: solution Peter <petsie@dordos.net> - 2011-04-22 09:40 +0000
csiph-web