powered by
Calculate values of the heat kernel on a one-dimensional rod. The ends of the rod may be assumed to be insulated, or absorbing.
hotrod(len, xsource, xquery, sigma, ends=c("insulated", "absorbing"), nmax=20)
Number or numeric vector.
Length of the rod. A single number or numeric vector.
Positions of the source points, from the left end of the rod (in the same distance units as len). A single number or numeric vector.
len
Positions of the query points, from the left end of the rod (in the same distance units as len). A single number or numeric vector.
Bandwidth for kernel. A single number or a numeric vector.
Character string (partially matched) specifying whether the ends of the rod are assumed to be insulated or absorbing.
Number of terms in the infinite sum to use. A single integer or an integer vector.
Greg McSwiggan and Adrian Baddeley Adrian.Baddeley@curtin.edu.au.
Computes the heat kernel as an infinite sum.
curve(hotrod(1, 0.1, x, 0.7)) # check it's a probability density f <- function(x) hotrod(1, 0.1, x, 0.7) integrate(f, 0, 1) ## absorbing ends curve(hotrod(1, 0.1, x, 0.7, ends="a"))
Run the code above in your browser using DataLab