Mathematica Simulation