A program simulating heat diffusion on a 1-D wire