Re: Implementierung der Schiessmethode in MMA5.2

[Peter Pein <petsie@XXXXXXX.de>]

Liebe DEMUG,


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.

Alles Gute,
Peter

Robert Nowak schrieb:
> Lieber Kollege,
>
> folgendes hilft:
>
> In[154]:= Clear[x, y, nn, nu, te]
> xe = 5;
>
> te[nu_] =
>   Hold[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[166]:= sev = FindRoot[te[nn], {nn, 1.5, 2.5}]
>
> Out[166]= {nn -> 2.}
>
> In[169]:= te[nn /. sev] // Release
>
> Out[169]= {1.24106*10^-11}
>
>
> -- 
> Robert Nowak
> IMS Nanofabrication AG
> Phone: +43/12144894/32
> Fax: +43/12144894/99