Added the mathematica plot