R/DFTMatrixPlain.R

Defines functions DFTMatrixPlain

Documented in DFTMatrixPlain

DFTMatrixPlain <- function(N) {
  # Part of R1Magic by mehmet.suzen@physics.org
  omega <- exp(-2*pi*1i/N)
  sq <- rep(0:(N-1),N)*rep(0:(N-1),each=N)
  AA <- sapply(sq,oo,omega) 
  A <- matrix(AA,N,N)
 return(A);
}

Try the R1magic package in your browser

Any scripts or data that you put into this service are public.

R1magic documentation built on Aug. 27, 2023, 5:07 p.m.