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

[Oliver Ruebenkoenig <ruebenko@XXXXXXX.com>]

On Wed, 11 Aug 2010, WOYSCH, Gunter wrote:

> Stuttgart, den 11. August 2010
>
> An die Mathematica-Kundigen der DMUG !
>
> Wie, bitte, sucht man den Lösungswert von w beim unten folgenden Gleichungstyp ?
>
> Ich weiss, dass er existiert und positiv reell ist.
>
> Vielen Dank für jeden Hinweis !
>
> Ich war leider schon lange nicht mehr richtig Mma-aktiv ..
>
> Mit freundlichen Grüssen,
>
> Gunter Woysch
>
> ------
>
> NSolve[ -w * BesselK[ 0 , w ]  == -0.895452 * BesselK[ 1, w ] , w ]
>
> Solve::tdep: The equations appear to involve the variables to be solved for in an essentially non-algebraic way >>

Hallo,

hift das?

FindInstance[-w*BesselK[0, w] == -Rationalize[0.895452]*BesselK[1, w],
  w]

Mit freundlichen Gruessen,
Oliver Ruebenkoenig