Mathematica in Action: Problem Solving Through Visualization and Computation