FFT komutu kullanarak matlabda basit DFT

clear all;
for n =1:20,
    sign1(n)=0.5*cos(2*pi*n/10); % transfer edilecek sinyal
end

XK(1:20)=0;
for k =1:20
    for n=1:20
    XK(k)=XK(k)+sign1(n)*exp(-j*2*pi*n*k/20); %matrisle transfer et
    end
end

%using fft command
XK2=fft(sign1,20); %fft komutu kullanarak transfer et
XK2(1)=[];
stem(XK); %cizdir
plot();
stem(XK2) %cizdir