[Date Index] [Thread Index] [Author Index]
Advanced nonlinear integro-differential equation
Dear Mathematica experts! :-) At the moment I'm dealing with the following nonlinear integro-differential equation arising from a quantum mechanic problem y''[x] + 2 y'[x]/x + 2 y[x] = A (1 + B/x) y[x] f[x] where f'[x] = x^2 y[x] . If the right sight of the equation is small, e.g., A = 0, then the solution (linearized theory) is y[x] = (C1 Sin[Sqrt x] + C2 Cos[Sqrt x])/x . However, the problem is that in my case is A=1E-36, B=7.3E-3, and y = 1E26 (!) and therefore the nonlinear term is not negligible. :-( In this conjunction I have the following two questions: 1. Three boundary conditions are necessary. It is easy to introduce y = 1E26 and y' = 0 as boundary conditions in NDSolve but how can I use the additional condition f[Infinity] = A? 2. It seems that the large y-value cause some serious numerical problems. Has anyone some tips, links, etc. how to the rid of these problems? Thanks! Kindly regards, Robert.