1 files changed, 26 insertions, 0 deletions
diff --git a/2279/CH5/EX5.22/Ex5_22.sce b/2279/CH5/EX5.22/Ex5_22.sce
new file mode 100644
index 000000000..af89d94f6
--- /dev/null
+++ b/2279/CH5/EX5.22/Ex5_22.sce
@@ -0,0 +1,26 @@
+// Inverse Continuous Time Fourier Transform
+// X(jW)= 2*pi, at W=-Wo
+clear;
+clc;
+close;
+// CTFT
+A =1;    
+Dw = 0.005;
+W1 = 4;  
+Wo=2//Assume Wo=2
+w = -W1/2:Dw:W1/2;
+for i = 1:length(w)
+    if w(i)==-Wo then
+  XW(i) = 2*%pi;
+else
+    XW(i)=0;
+end
+end
+XW = XW';
+//Inverse Continuous-time Fourier Transform
+t = -3*%pi:%pi/length(w):3*%pi;
+xt =(1/(2*%pi))*XW *exp(sqrt(-1)*w'*t)*Dw;
+xt = real(1+xt);
+plot(t,xt);
+xlabel('            t Sec');
+title('Time domain signal x(t)')