1 files changed, 8 insertions, 0 deletions
diff --git a/40/CH8/EX8.17/Exa_8_17.sce b/40/CH8/EX8.17/Exa_8_17.sce
new file mode 100755
index 000000000..10f457b52
--- /dev/null
+++ b/40/CH8/EX8.17/Exa_8_17.sce
@@ -0,0 +1,8 @@
+//concept of periodogram
+xn=[0 1 0 -1];
+N=4;
+XDFT=dft(xn,-1);
+for i=1:length(XDFT)
+    p(i)=(1/N)*abs(XDFT(i)^2);
+end
+p//periodogram
+\ No newline at end of file