function [a0,a,b,c]=fta(func,T,M,num)


close all;
  
for k=1:1:M;
  c=coeffourieradaptado(func,(-k*T),k*T,k*num);
 
 subplot(1,2,1); stem(((-k*num):1:(k*num)).*(pi./(k*T)),(2*k*T).*real(c));xlabel('dominio transformado: parte real');
subplot(1,2,2); stem(((-k*num):1:(k*num)).*(pi./(k*T)),(2*k*T).*imag(c));xlabel('dominio transformado:parte imaginaria');
    pause(0.3);
end