Wolfram mathematica plot piecewise functions