Wolfram mathematica plot explicit function