//clear//
//Example 4.8
// Continuous Time Fourier Transforms of 
// Periodic Impulse Train
clear;
clc;
close;
// CTFT
T = -4:4;;
T1 = 1; //Sampling Interval
xt = ones(1,length(T));
ak = 1/T1;
XW = 2*%pi*ak*ones(1,length(T));
Wo = 2*%pi/T1;
W = Wo*T;
figure
subplot(2,1,1)
a = gca();
a.y_location ="origin";
a.x_location ="origin";
plot2d3('gnn',T,xt,2);
poly1 = a.children(1).children(1);
poly1.thickness = 3; 
xlabel('                                                         t');
title('Periodic Impulse Train')
subplot(2,1,2)
a = gca();
a.y_location ="origin";
a.x_location ="origin";
plot2d3('gnn',W,XW,2);
poly1 = a.children(1).children(1);
poly1.thickness = 3; 
xlabel('                                                         t');
title('CTFT of Periodic Impulse Train')