Numerical and Analytical Methods for Scientists and Engineers Using Mathematica