Nothing
#' Generate eigenvalues of discrete Laplace matrix.
#'
#' The eigenvalues of a discrete Laplace matrix with dimension (\code{mm}, \code{nn}) are
#' calculated.
#'
#' @param mm Number of rows of the discrete Laplace matrix.
#' @param nn Number of columns of the discrete Laplace matrix.
#' @return A row vector containing the eigenvalues of the discrete
#' laplace matrix.
#' @examples
#' eigval <- eigenLaplace(5, 5)
#'
eigenLaplace <- function(mm, nn) {
In <- seq(0, mm - 1, 1)
Im <- seq(0, nn - 1, 1)
In <- t(In)
Im <- t(Im)
mu <- 2 - 2 * cos(pi * Im / nn)
lambda <- 2 - 2 * cos(pi * In / mm)
return(.Call(`_mrbsizeR_for_eigenLaplace`, mu, lambda, mm, nn))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.