Mathematica plotting
More testing