summaryrefslogtreecommitdiff
path: root/2279/CH5/EX5.20/Ex5_20.sce
blob: fc26d738c91c59c57f764045fa0fb79c1941d071 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
// Inverse Continuous Time Fourier Transform
// X(jW)= 2*pi, at W=0
clear;
clc;
close;
// CTFT
A =1;    
Dw = 0.005;
W1 = 4;  
w = -W1/2:Dw:W1/2;
for i = 1:length(w)
    if w(i)==0 then
  XW(i) = 2*%pi;
else
    XW(i)=0;
end
end
XW = XW';
subplot(2,1,1)
plot(w,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);
subplot(2,1,2)
plot(t,xt);
xlabel('            t Sec');
title('Time domain signal x(t)')