SetDirectory[$HomeDirectory<>"/Documents/handouts/math467/SchrodingerEquation"]

Nonlinear Schrodinger Equation

Clear[k,ω,x]

ψ[x_,t_]:=Exp[I t]Sech[x]

u[x_,t_]:=Exp[I(-x/2+3t/4)]Sech[x+t]

Plot3D[{ψ[x,t]Conjugate[ψ[x,t]],u[x,t]Conjugate[u[x,t]]},{x,-5,5},{t,-5,5},AxesLabel->{"x","t"},PlotStyle->FaceForm[Opacity[1/2]],BaseStyle->FontSize->12]

Export["schrodingersolns.pdf",%,"PDF"]

Export["schrodingersolns.eps",%%,"EPS"]