数字信号处理的比较全面的程序代码

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