1 files changed, 20 insertions, 0 deletions
diff --git a/67/CH3/EX3.15/example315.sce b/67/CH3/EX3.15/example315.sce
new file mode 100755
index 000000000..094c51ecf
--- /dev/null
+++ b/67/CH3/EX3.15/example315.sce
@@ -0,0 +1,20 @@
+//Example 3.15
+clc;
+clear;
+T1=2;
+T=4*T1;
+Wo=2*%pi/T;
+W=[-Wo,0,Wo];
+ak=(2*%pi*Wo*T1/%pi)/sqrt(-1);
+XW=[-ak,0,ak];
+ak1=(2*%pi*Wo*T1/%pi);
+XW1=[ak1,0,ak1];
+figure
+a=gca();
+a.y_location="origin";
+a.x_location="origin";
+plot2d3('gnn',W,XW1,2);
+poly1=a.children(1).children(1);
+poly1.thickness=3;
+xlabel('W');
+title('CTFT of cos(Wot)');
+\ No newline at end of file