Mathematica plots added