Plotting Multiple Functions In Mathematica