Mathematica bump function