How To Make A Plot In Mathematica