Procesamiento de Señales en Matlab

Señal Sinodal de 400Hz con una amplitud de 2

clear all
clc
%señal Sinoidal de 400 Hz amplitud de 2

F0=400;
A=-1;%K
Fs=8000;
Ts=1/Fs;
t=[-0.003:Ts:0.003];
xt=A*sinc(2*F0*t);

h=stem(t,xt);
grid on
%set(h,'EraseMode','Xor');

while A<1
    for i=1:length(t)
     A=A +0.01;%mov de incremento
     xt=A*sinc(2*F0*t); %Funsion Original
    
     set(h,'XData',t,'YData',xt);
     drawnow % grafiq en el mismo punto
             % comando mas avanzado que hold on/ off
    
     Image = getframe;
     P = frame2im(Image);
     numero = num2str(i);
     extension = '.bmp';
     filename = [numero,extension];
     imwrite(P,eval('filename'), 'bmp');
    end
    
end

la animación quedaría de la siguiente forma.