Plot[-x^-4,{x,-3,3}]