hanning.window.r

来自「一般的支持向量机算法比较单一」· R 代码 · 共 12 行

hanning.window <- function (n)
  {
    if (n == 1)
      c <- 1
    else
      {
	n <- n-1
	c <- 0.5 - 0.5*cos(2*pi*(0:n)/n)
      }
    return(c)
  }