1 files changed, 9 insertions, 0 deletions
diff --git a/40/CH8/EX8.22/Exa_8_22.sce b/40/CH8/EX8.22/Exa_8_22.sce
new file mode 100755
index 000000000..3cc472315
--- /dev/null
+++ b/40/CH8/EX8.22/Exa_8_22.sce
@@ -0,0 +1,9 @@
+//A 4-point DFT from a 3-point sequence
+xn=[1;2;1];
+w=exp(-%i*%pi/2);
+for i=1:4
+    for j=1:3
+        WN(i,j)=w^((i-1)*(j-1));
+    end
+end
+XDFT=WN*xn
+\ No newline at end of file