Message Boards Message Boards

Difficulty to solve PDE with NDEigensystem command

I am trying to solve the following problem with the command NDEigensystem and DEigensystem on the interval $[-L,L]$ where $L=30$enter image description here Precisely, for k = 2 and k = 100, calculate the first 10 eigenvalues, plot the first 5 eigenvalues of the problem, and search if there is any relationship between the eigenvalues.

I have tried the following code but it does not work. Any suggestions?

Hi Athanasios,
Check that there a only numbers inside the NDEigenvalues call

sol = NDEigensystem[{-u''[x] + ( x^2 + Sin[6 \[Pi] x]) u[x], 
   u[-1] == 0, u[1] == 0}, u[x], {x , -1, 1}, 5 ]

The Interpolation of the eigenvalues gives a parabola

egv = Interpolation[sol[[1]]]

Plot[egv[x], {x, 1, 5}]

In[39]:= Array[Differences[sol[[1]], #] &, {4}]  

Out[40]= {{7.55424, 12.3676, 17.288, 22.2322}, {4.81333, 4.92039, 
4.94427}, {0.107064, 0.0238753}, {-0.0831883}}

Plot[ sol[[2]], {x, -1, 1}]

Regards Roland

POSTED BY: Roland Franzius
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract