H[ζ_,n_]:= (-1)^n (2^n n! √π)^(-1/2) E^(ζ^2) D[E^(-ζ^2),{ζ,n}];
ψ[x_,n_]:=(E^(-(1/2)(x^2)))H[x,n];
ψ[x,n];
Manipulate[Plot[%,{x,-6,6},AxesLabel->{"x","ψ"}],Style["ψ",16,Bold],{{n,1,"Energy"},0,10}]

ψ[x,n];
Manipulate[Plot[((Abs[%])^2),{x,-6,6},AxesLabel->{"x","|ψ((|)^2)"}],Style["|ψ((|)^2)",16,Bold],{{n,2,"Energy"},0,10}]

ψ[x,n]×ψ[y,n];
Manipulate[Plot3D[Abs[%]^2,{x,-6,6},{y,-6,6},AxesLabel->{"x","y","|ψ((|)^2)"},PlotRange->All,PlotPoints->50],{{n,10,"Energy"},0,10}]