powered by
scal2freqs(octs, dt, plot = FALSE)
noctave <- 6 nvoice <- 20 dt <- 0.004 i1 <- sort(rep(c(1:noctave), times=nvoice)) jj <- rep(c(0:(nvoice-1)), times=noctave) sa <- 2^(i1+jj/nvoice) efs <- scal2freqs(sa, dt)
Run the code above in your browser using DataLab