Add Mathematica code