cyclespin.m

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

function s = cyclespin(x,k)
[xrow,xcol]=size(x);
 if k > 0
    s = [x(:,((xcol+1-k):xcol)) x(:,(1:(xcol-k)))];
 else
    s = [x(:,((-k+1):xcol)) x(:,(1:(-k)))];
 end

    
% k>0 means left,else means right  
% Part of WaveLab Version 802
% Built Sunday, October 3, 1999 8:52:27 AM
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%