Guest User

Untitled

a guest
Dec 19th, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.45 KB | None | 0 0
  1. qx = 0; b = 2; ycutoff = 15.0; Nless = 50;
  2. lhs = (b^2 (-2 + qx) y (3 + (-2 + qx) y) - 2 b (-2 + qx) (1 + 2 qx y) + 4 qx^2) f[y]
  3. - (-2 + 3 b y) (3 b D[f[y], y] + (-2 + 3 b y) D[f[y], {y, 2}]);
  4. bc = DirichletCondition[f[y] == 0, True];
  5. {vals, funcs} =
  6. NDEigensystem[{lhs, bc}, f[y], {y, -ycutoff, ycutoff}, Nless,
  7. Method -> {"PDEDiscretization" -> {"FiniteElement", {"MeshOptions"
  8. -> {"MaxCellMeasure" -> 0.01, "MeshOrder" -> 2}}}}];
  9. vals
Add Comment
Please, Sign In to add comment