Advertisement
Guest User

Untitled

a guest
Mar 29th, 2015
368
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. Needs["NDSolve`FEM`"]
  2. NDSolve[{2 f[x, y] + I*D[f[x, y], y, y] - I*D[f[x, y], x, x] -
  3. 2 x*D[f[x, y], y] + 2 x*D[f[x, y], x] + 2 y*D[f[x, y], y] -
  4. 2 y*D[f[x, y], x] + 2*f[x, y]*x^2 - 4 f[x, y]*x*y +
  5. 2*f[x, y]*y^2 - 2 I*x*D[f[x, y], y] - 2 I*x*D[f[x, y], x] +
  6. 2 I*y*D[f[x, y], y] + 2 I*y*D[f[x, y], x] == 0,
  7. f[x, 0] == Exp[-x], f[x, 1] == 1}, f, {x, 0, 1}, {y, 0, 1}]
  8.  
  9. NDSolve::femdpop: The FEMStiffnessElements operator failed.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement