Something really wrong with FindRoot or NDSolve in Mathematica 5.0

*To*: mathgroup at smc.vnet.net*Subject*: [mg43961] Something really wrong with FindRoot or NDSolve in Mathematica 5.0*From*: Artūras Acus <acus at itpa.lt>*Date*: Thu, 16 Oct 2003 04:15:57 -0400 (EDT)*Organization*: Institute of Theoretical Physics and Astronomy*Sender*: owner-wri-mathgroup at wolfram.com

Dear Group, Here is the example which worked really fine with 4.1 and completely refuses to work with 5.0: teisingasKampas = FindRoot[ (u[\[Xi]] /. First[sprendinys1 = NDSolve[{Derivative[2][\[Psi]][\[Xi]] == (\[Xi]^2 - energija)* \[Psi][\[Xi]], Derivative[1][u][\[Xi]] == \[Psi][\[Xi]]^2, \[Psi][\[Xi]min] == 0, Derivative[1][\[Psi]][\[Xi]min] == kampas, u[\[Xi]min] == 0}, {\[Psi][\[Xi]], u[\[Xi]]}, {\[Xi], \[Xi]min, \[Xi]max}]] /. \[Xi] -> \[Xi]max) == 1, {kampas, -0.04, 0.04}, MaxIterations -> 30] It uses FindRoot to find shooting angle for derivative. In 5.0 Mathematica complains about undefined symbol value of kampas. I need to modify modify this code as little as possible to make it work. Sincerely. Arturas Acus