% File: E2_055N.M

clear;
global f1 T;

f = -10:0.2:10;
T = 1;
H = zeros(length(f),1);

for (i = 1:1:length(f))
  fprintf('.');
  f1 = f(i);
  H(i) = quad8('E2_055I',-T/2,T/2);
end;
fprintf('\n');

plot_pr(1);
plot(f,H);
xlabel('f');
ylabel('W(f)');
title('Fourier Transform by Numerical Integration')
grid;
clear global;



