Advertisement
Guest User

Untitled

a guest
Jun 25th, 2019
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. PRE75.056602
  2.  
  3. Clear["Global`*"]
  4. Lx=[Pi];
  5. k0x=2 [Pi]/Lx;
  6. V=6 Sin[x]^2;
  7. kx=0;
  8. {eig0,funs}=NDEigensystem[{-D[u[x],{x,2}]-2I kx D[u[x],x]+(kx^2+V)u[x],u[0]== u[[Pi]]},u[x],{x,0,[Pi]},3,Method->{"VectorNormalization"->True,"PDEDiscretization"->{"FiniteElement",{"MeshOptions"->{"MaxCellMeasure"->0.01}}}}]
  9.  
  10. {2.06318, 6.81429, 7.74678},
  11.  
  12.  
  13. kx=1;{eig2,fun2}=NDEigensystem[{-D[u[x],{x,2}]-2I kx D[u[x],x]+(kx^2+V)u[x],u[0]== u[[Pi]]},u[x],{x,0,[Pi]},3,Method->{"PDEDiscretization"->{"FiniteElement",{"MeshOptions"->{"MaxCellMeasure"->0.01}}}}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement