Numerical Solutions for Partial Differential Equations: Problem Solving Using Mathematica