view general/arrutils/shiftl.m @ 8:f0a3d7d7a0e3

Renamed cat_sep function to catsep

function y=shiftl(x)
% shiftl - shift a column vector up one
% maintaining original length
% eg [ 1 2 3 4 ] --> [ 2 3 4 0]
if isvector(x)
	y = [ x(2:length(x)); 0];
else
	y = [ x(:,2:size(x,2)), zeros(size(x,1),1) ];
end