Wolfram mathematica plot multiple functions