Partial Differential Equations and Mathematica