1 files changed, 10 insertions, 0 deletions
diff --git a/40/CH8/EX8.19/Exa_8_19.sce b/40/CH8/EX8.19/Exa_8_19.sce
new file mode 100755
index 000000000..77fcc0e9e
--- /dev/null
+++ b/40/CH8/EX8.19/Exa_8_19.sce
@@ -0,0 +1,10 @@
+//using DFT to find IDFT
+XDFT=[4;-2*%i;0;2*%i];
+XDFTc=[4;2*%i;0;-2*%i];
+w=exp(-%i*%pi/2);
+for i=1:4
+    for j=1:4
+        WN(i,j)=w^((i-1)*(j-1));
+    end
+end
+xn=1/4*(WN*XDFTc)
+\ No newline at end of file