%ECOMMS Spring 99
%S. Mandayam, Rowan University

%Fourier Transform of an Exponentially
%Decaying Pulse

clear; close all;

%Time Domain
t=[0:0.1:10];
w=exp(-t);
subplot(2,1,1);
plot(t,w);
xlabel('t');title('w(t)');

%Frequency Domain
f=-10:0.1:10;
Wf =(1./(1+j*2*pi*f));
Wfmag=abs(Wf);
subplot(2,1,2);
plot(f,Wfmag);
xlabel('f');title('Amplitude Spectrum');