Mathematica for Theoretical Physics: Classical Mechanics and