How To Plot Two Functions In Mathematica