Mathematical Simulation of a Heat Transfer Process in Phase Change Materials