diff options
Diffstat (limited to '40/CH8/EX8.4/Exa_8_4.sce')
-rwxr-xr-x | 40/CH8/EX8.4/Exa_8_4.sce | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/40/CH8/EX8.4/Exa_8_4.sce b/40/CH8/EX8.4/Exa_8_4.sce index 847b1bfa2..64026fb34 100755 --- a/40/CH8/EX8.4/Exa_8_4.sce +++ b/40/CH8/EX8.4/Exa_8_4.sce @@ -1,21 +1,21 @@ -x=[1 2 1 0];
-XDFT=dft(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=dft(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=dft(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');
+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');
\ No newline at end of file |