Plot Command In Mathematica