powered by
solve heat equation via forward-time central-space method
heat(u, alpha, xdelta, tdelta, n)
the initial values of u
the thermal diffusivity coefficient
the change in x at each step in u
x
u
the time step
the number of steps to take
a matrix of u values at each time step
The heat solves the heat equation using the forward-time central-space method in one-dimension.
heat
# NOT RUN { alpha <- 1 x0 <- 0 xdelta <- .05 x <- seq(x0, 1, xdelta) u <- sin(x^4 * pi) tdelta <- .001 n <- 25 z <- heat(u, alpha, xdelta, tdelta, n) # }
Run the code above in your browser using DataLab