c52.m

%c52.m
N=32;k=0:N-1;
f=[ones(1,4) 0.5 zeros(1,23) 0.5 ones(1,3)];
Fr=fft(f);
subplot(2,1,1),stem(k,f)
xlabel('k');ylabel('fk');
subplot(2,1,2),stem(k,Fr)
xlabel('r');ylabel('Fr');