cirshftt.m

西交大刘树棠写的《数字信号处理》那本书的所有源代码

function y=cirshftt(x,m,N)
%[y]=cirshftt(x,m,N)
%-----------------------
%
if length(x)>N
   error('N<length(x)')
end
x=[x,zeros(1,N-length(x))];
n=0:1:N-1;
n=mod(n-m,N);
y=x(n+1);