Create 1D_Heat.R