close all

x=sin(linspace(0,2*pi*5,slen));
pas=zeros(size(x));
for i=1:length(x)
  if (i>1) 
    xx=[x(i:end),x(1:i-1)];
  else
    xx=x;
  end
  y=fft(xx);
  pas(i)=y(6);
end
subplot(211)
plot(abs(pas))
xlabel('magnitude of shifted signal')
subplot(212)
plot(angle(pas))
xlabel('angle of shifted signal')
