Plot3D[JacobiAmplitude[u,m],{u,-10,10},{m,0,5}, Mesh->{40,40},MeshStyle->Opacity[0.2],Boxed->False,AxesStyle->White,Background->Black, AxesLabel->{u,k^2}]