Numerical and Analytical Methods for Scientists and Engineers, Using Mathematica