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

["WOYSCH, Gunter" <Gunter.Woysch@XXXXXXX.com>]

Stuttgart, den 12. August 2001

Hallo an alle miteinander !

Vielen Dank für alle Hinweise - ich bin einen echten Schritt weiter.

Im Grunde tut es in diesem Fall ein Newton-Raphson-Algorithmus. Nur weiss ich nicht, in welcher der Mma-Funktionen er 
drin steckt !

Mit freundlichen Grüssen,

Gunter Woysch

-----Ursprüngliche Nachricht-----
Von: owner-demug@XXXXXXX.ch [mailto:owner-demug@XXXXXXX.ch] Im Auftrag von Udo und Susanne Krause
Gesendet: Mittwoch, 11. August 2010 20:49
An: Oliver Ruebenkoenig; Robert Nowak
Cc: WOYSCH, Gunter; demug@XXXXXXX.ch
Betreff: Re: NSolve[ -w * NBesselK[ 0 , w ] == -0.895452 * BesselK[ 1, w ] , w ]

Hallo miteinander,

> 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

Nein, nicht witzig wenn man aus der Singularität bei 0 geht:

In[9]:= FindRoot[0.895452 BesselK[w, 1] - w BesselK[w, 1/2], {w, 1, 5}] Out[9]= {w -> 0.392851}

++Gruss
Udo.