Heaviside Theta Function Mathematica