Numerical and analytical methods for scientists and engineers using mathematica (Hoboken, N.J. : Wiley-Interscience, 2003)