How To Plot Two Graphs In Mathematica