Quantum Mechanics with Mathematica