Mechanics and Dynamical Systems with Mathematica®