Re: NSolve[ -w * NBesselK[ 0 , w ] == -0.895452 * BesselK[ 1, w ] , w ]

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo miteinander,

In[6]:= FindRoot[ 0.895452 BesselK[1, w] - w BesselK[0, w], {w, 1/2, 5}]
Out[6]= {w -> 1.21754}

Gruss
Udo.

P.S.: Witzig wäre die Aufgabe, wenn die Veränderliche w im Index zu fixen  
Argumenten stünde:

0.895452 BesselK[w, 1] - w BesselK[w, 0] == 0

> FindInstance[-w*BesselK[0, w] == -0.895452*BesselK[1, w], w] // N
>
> leistet auch das hoffentlich gewünschte, Rationalize braucht man hier
> wohl nicht.
>
> Grüße Robert
>
> Oliver Ruebenkoenig schrieb:
> > On Wed, 11 Aug 2010, WOYSCH, Gunter wrote:
> > > --snip----
> > >
> > > NSolve[ -w * BesselK[ 0 , w ]  == -0.895452 * BesselK[ 1, w ] , w ]