hamming.window.r

来自「支持向量机完整版（SVM）可以用来进行设别训练」· R 代码 · 共 12 行

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