1 files changed, 9 insertions, 0 deletions
diff --git a/40/CH8/EX8.18/Exa_8_18.sce b/40/CH8/EX8.18/Exa_8_18.sce
new file mode 100755
index 000000000..c05785204
--- /dev/null
+++ b/40/CH8/EX8.18/Exa_8_18.sce
@@ -0,0 +1,9 @@
+//The DFT from the matrix formulation
+xn=[1;2;1;0];
+w=exp(-%i*%pi/2);
+for i=1:4
+    for j=1:4
+        WN(i,j)=w^((i-1)*(j-1));
+    end
+end
+XDFT=WN*xn