Nonlinear Physics with Mathematica for Scientists and Engineers