1 files changed, 15 insertions, 0 deletions
diff --git a/40/CH8/EX8.9d/Exa_8_9d.sce b/40/CH8/EX8.9d/Exa_8_9d.sce
new file mode 100755
index 000000000..2d5d4b294
--- /dev/null
+++ b/40/CH8/EX8.9d/Exa_8_9d.sce
@@ -0,0 +1,15 @@
+//DFT and DFS of sinusoids
+n2=0:1/2400:23/240;
+xt=1+4*sin(120*%pi*n2')+4*sin(40*%pi*n2');
+n=0:1/240:23/240;//F=9/32 hence N=32
+xn=1+4*sin(120*%pi*n')+4*sin(40*%pi*n');
+XDFT=abs(dft(xn,-1));
+n1=0:23;
+a=gca();
+a.x_location="origin";
+plot2d(n2,xt);
+plot2d3('gnn',n,xn);
+xset('window',1);
+b=gca();
+b.x_location="origin";
+plot2d3('gnn',n1,XDFT);
+\ No newline at end of file