Decymacja

function y=decymacja(x,r)
y=[];
for k=1:r:length(x)
    y=[y x(k)]
end