summaryrefslogtreecommitdiff
path: root/62/CH6/EX6.18/ex_6_18.sce
blob: 8831521871dcd36d0313794ab29393c6c1216b78 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clear;
close;
clc;
n=-10:10;
x=ones(1,length(n));
figure
subplot(2,1,1)
plot2d3(n,x)
plot(n,x,'r.')
xtitle('x[n]','n')
w=-5:0.01:5;
for i=1:length(w)
    if w(i)==0 then
        delta(i)=1;
    else 
        delta(i)=0;
    end
end
Xw=2*%pi*delta';
subplot(2,1,2)
plot(w,Xw);
xtitle('X(w)','w')