Re[4]: Implementierung der Schiessmethode in MMA5.2

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

Hallo Peter,

> Etwas einfacher erscheint mir die Standardlösung dieses Problems zu sein:

> Man definiere die Funktion te nur für numerische Argumente:

>    te[nu_?NumericQ]:= ... (Rest wie im Original).

> Wie sich dies in Version 6 verhält, ist mir nicht bekannt.

Funzt

In[1]:= Clear[x, y, nn, nu, te]
xe = 5;

te[nu_?NumericQ] :=
 y[xe] /. NDSolve[{y''[x] + (2 nu + 1 - x^2) y[x] == 0,
    y[-5] == 4 10^-6, y'[-5] == 5 10^-5}, y, {x, -5, xe}]

In[4]:= sev = FindRoot[te[nn], {nn, 1.9, 2.1}]

Out[4]= {nn -> 2.}

In[5]:= te[nn /. sev]

Out[5]= {-1.01711*10^-12}

In[6]:= $Version

Out[6]= 6.0 for Microsoft Windows (32-bit) (February 7, 2008)

das ist Mma 6.0.2

Gruss
Udo.

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/