circshift.sci

来自「toolbox median filter You need to down」· SCI 代码 · 共 24 行

function A = circshift(A,s)

if length(s)==2
    A = circshift(A,s(1));
    A = circshift(A',s(2))';
    return;
end

sel = 1:size(A,1);
sel = mod(sel+s-1,size(A,1))+1;
d = nb_dims(A);
if d==1
    A = A(sel);
elseif d==1
    A = A(sel,:);
elseif d==2
    A = A(sel,:,:);
elseif d==3
    A = A(sel,:,:);
elseif d==4
    A = A(sel,:,:,:);
end

endfunction