samer@13: % shiftl - shift a column vector up one
samer@13: %
samer@13: % shift :: [[N,M]] -> [[N,M]].
samer@13: %
samer@13: % Shift array elements back one, padding end with zeros.
samer@13: % eg [ 1 2 3 4 ] --> [ 2 3 4 0]
samer@4: function y=shiftl(x)
samer@13: 	if isvector(x)
samer@13: 		y = [ x(2:end); 0];
samer@13: 	else
samer@13: 		y = [ x(:,2:size(x,2)), zeros(size(x,1),1) ];
samer@13: 	end
samer@4: end