Mathematica for Theoretical Physics