circshift.sci

toolbox median filter You need to download the general purpose toolbox and the signal toolbox.

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