Discrete Dynamical Systems and Difference Equations with Mathematica