cyclespinc.m

来自「包内提供了Contourlet和Wavelet变换进行图像增强、去噪的各种算法和」· M 代码 · 共 8 行

function s = cyclespinc(x,k)
[xrow,xcol]=size(x);
 if k > 0
    s = [x(((xrow+1-k):xrow),:);x((1:(xrow-k)),:)];
 else
    s = [x(((-k+1):xrow),:);x((1:(-k)),:)];
 end
% k>0 means up,else means down