THESE/codes/wave/allcode/cshift.m

   1 function y = cshift(x, m)
   2
   3 % Circular Shift
   4 %
   5 % USAGE:
   6 %    y = cshift(x, m)
   7 % INPUT:
   8 %    x - N-point vector
   9 %    m - amount of shift
  10 % OUTPUT:
  11 %    y - vector x will be shifed by m samples to the left
  12 %
  13 % WAVELET SOFTWARE AT POLYTECHNIC UNIVERSITY, BROOKLYN, NY
  14 % http://taco.poly.edu/WaveletSoftware/
  15
  16 N = length(x);
  17 n = 0:N-1;
  18 n = mod(n-m, N);
  19 y = x(n+1);
  20