R/hamming.R

hamming <- function (n) 
{
    if (n == 1) 
        c <- 1
    else {
        n <- n - 1
        c <- 0.54 - 0.46 * cos(2 * pi * (0:n)/n)
    }
    return(c)
}
richardbeare/emuExt documentation built on May 27, 2019, 7:58 a.m.