Mathematica for Theoretical Physics: Classical mechanics and nonlinear dynamics