Numerical Solutions for Partial Differential Equations (Problem Solving Using Mathematica)