DasarPembentukan DFT
%dft1
%oleh :Syarial
n=0:199;
T=0.01;
x_t=3cos(2pinT);
plot(n,x_t)
grid;
Output Program
%File Name: dft_2.m
%oleh :Syahrial
clearall;
N=200;
nn=N-1;
for k=1:200;
x_n=0.0;
for n=1:nn
x_n = (3cos(0.02pin)).(exp(-jk2pin/200)) + x_n;
end
yR(k)=real(x_n);
yI(k)=imag(x_n);
magni_k(k)=sqrt(real(x_n).real(x_n) +imag(x_n).imag(x_n));
end
figure(1)
stem(yR)
axis([0 200 0 800])
xlabel('indekfekuensi')
title('Bagian Real')
grid;
figure(2)
stem(yI)
axis([0 200 0 800])
xlabel('indekfrekuensi')
title('BagianImajiner')
grid;
Output Program