Some Mathematica code added