Mathematica for Theoretical Physics: Electrodynamics, Quantum Mechanics, General Relativity, and Fractals