summaryrefslogtreecommitdiff
path: root/2279/CH7/EX7.24/Ex7_24.sce
blob: c01faa4e787128fd44aa664a79add2c3278467bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//Discrete Time Fourier Transform of 
// Periodic Impulse Train
clear;
clc;
close;
N = 5;
N1 = -3*N:3*N;
xn = [zeros(1,N-1),1];
x = [1 xn xn xn xn xn xn];
ak = 1/N;
XW = 2*%pi*ak*ones(1,2*N);
Wo = 2*%pi/N;
n  = -N:N-1;
W = Wo*n;
figure
subplot(2,1,1)
plot2d3('gnn',N1,x,2);
xtitle('Periodic Impulse Train','n','x[n]')
subplot(2,1,2)
plot2d3('gnn',W,XW,2);
xtitle('DTFT of Periodic Impulse Train','w','|X(exp(jw))|')
disp(Wo)