Mathematica heat equation boundary condition