summaryrefslogtreecommitdiff
path: root/40/CH8/EX8.4/Exa_8_4.sce
blob: 64026fb34571e16a00ece908cddf8db2b6cb17d3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
x=[1 2 1 0];
XDFT=fft(x,-1)
//(a)time shift property
y=x;
for i=1:2
    a=y(1);
    for j=1:length(y)-1
        y(j)=y(j+1);
     end
     y(length(y))=a;
end
YDFT=fft(y,-1)
disp(YDFT,'By Time-Shift property DFT of x[n-2] is');  
//(b)flipping property
g=[x(1) x(length(x):-1:2)]
GDFT=fft(g,-1)
disp(GDFT,'By Time reversal property DFT of x[-n] is');  
//(c)conjugation property
p=XDFT;
PDFT=[p(1) p(4:-1:2)];
disp(YDFT,'BY conjugation property DFT of x*[n] is');