function original=fta_compacto(func,a,b);
close all;
funcion = str2func(func); 
%funcion2 = str2func(func2);
figure;
hold on; 
 h=a:0.01:b;f=funcion(h);
 %h2=(-b-a):0.01:(b-a);f2=funcion2(h2);
 plot(h,f,'b','LineWidth',2);axis('square');xlabel('x(t)');
 %plot(h2,f2,'r','LineWidth',2);axis('square');xlabel('x(t) y h(t)');
hold off;
pause;
t=(a-10.5):0.01:(b+10.5); 
original = repmat(double(0), [1 length(t)]);
for k=1:1:length(t);
     integrando = @(x) funcion(x).* exp(complex(0,-1).*t(k).*x);  
        original(k) = quadl(integrando, a, b);     
end
figure;
hold on;
plot(t,funcion(t).*chi(a,b,t),'b','LineWidth',2);axis('square');
plot(t,real(original),'r','LineWidth',2);;axis('square');
plot(t,imag(original),'g','LineWidth',2);axis('square');xlabel('x(t) Re(X(s)) e Im(X(s))');
hold off;