mathematica assignment