clear all
x=zeros(1,401);



    for i=290:310
   x(i)=1;
end
 plot(x)

 figure
y=fft(x);

% Non Central
%y_mag=abs(y);
%plot(y_mag)
% figure

% Central

y_shift=fftshift(y);
y_mag=abs(y_shift);

plot(y_mag)

% Inverse Fourier Transform
x2=ifft(y)

figure
plot(x2)