Solving Problems in Applied Mathematics with Mathematica