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
|