1 files changed, 41 insertions, 0 deletions
diff --git a/2279/CH6/EX6.4/Ex6_4.sce b/2279/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..b049ab9ef
--- /dev/null
+++ b/2279/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,41 @@
+// Continuous Time Fourier Transforms of 
+// Sinusoidal waveforms 3cos(2*pi*t)
+clear;
+clc;
+close;
+// CTFT
+t=-10:0.01:10;
+x=3*cos(2*%pi*t);
+subplot(2,1,1)
+plot(t,x);
+xtitle("CT signal x(t)","t","x(t)");
+T1 = 2;
+T = 4*T1;
+Wo = 6*%pi/T;
+W = [-Wo,0,Wo];
+ak = (2*%pi*Wo*T1/%pi);
+XW =[ak,0,ak];
+subplot(2,1,2)
+plot2d3('gnn',W,real(XW));
+xlabel('                        W');
+xtitle('CTFT of cos(Wot)','W','X(jW)')
+n=-10:10;
+W1=4*%pi;
+W2=8*%pi;
+W3=3*%pi;
+T1=(2*%pi)/W1;
+T2=(2*%pi)/W2;
+T3=(2*%pi)/W3;
+x1=3*cos(2*%pi*n*T1);
+x2=3*cos(2*%pi*n*T2);
+x3=3*cos(2*%pi*n*T3);
+figure(1)
+subplot(3,1,1)
+plot2d3('gnn',n,x1);
+xtitle("X(t) sampled at Ws=4*pi","n","x1[n]");
+subplot(3,1,2)
+plot2d3('gnn',n,x2);
+xtitle("X(t) sampled at Ws=8*pi","n","x2[n]");
+subplot(3,1,3)
+plot2d3('gnn',n,x3);
+xtitle("X(t) sampled at Ws=3*pi","n","x3[n]");