Plotting Piecewise Functions In Mathematica How To Fill