MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

Something really wrong with FindRoot or NDSolve in Mathematica 5.0


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


  • Prev by Date: RE: Mathematica 5 : strange Plot
  • Next by Date: Re: what's the largest system solvable in mathematica?
  • Previous by thread: Re: LinkConnect::"linkc":...Linux-dyn/XML.exe
  • Next by thread: Re: Something really wrong with FindRoot or NDSolve in Mathematica 5.0