summaryrefslogtreecommitdiff
path: root/62/CH6/EX6.17/ex_6_17.sce
blob: 7e1dc069bd652daca160a616c93957acec565059 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
clear;
close;
clc;
w=-5:0.01:5;
W0=2;
for i=1:length(w)
    if w(i)==W0 then
        delta(i)=2*%pi;
    else 
        delta(i)=0;
    end
end
figure
subplot(2,1,1)
plot(w,delta);
title('2*%pi*delta(w-w0)')
//by shifting property
n=-10:10;
x=%e^-%i*W0*n;
subplot(2,1,2)
plot2d3(n,abs(x))
plot(n,abs(x),'r.')
title('x[n]')