|
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. |