%% prog animacion

clearvars;
close all;
clc;

%% variables basicas usando prelocalización

f = 1;          %frecuencia
w = 2*pi*f;     %frecuencia angular
c = 1;          %velocidad del sonido
l = c/f;        %longitud de onda
k = w/c;        %numero de onda
A = 1;          %amplitud

%% espacio
%para animar primero necesitamos el espacio
x = 0:0.01:10;  %distancia con prelocalizacion

%esto es lo mimo que si hubiramos hecho un arrelo usando los comandos
%for n = 1:1001
%  x(n) =(n-1)*0.01;
%end;

%% animacion
%para animar necesitamos que transcurra el tiempo
%que el grafico sea el mismo pero que vaya cambiando
for t = 0:0.01:2
    
    p = A*sin(w*t - k*x);   %onda sonora
    
    x0 = x(200);
    px0 = A*sin(w*t - k*x0);
    
    figure(1)
    plot(x,p);
    title('animacion onda sonora');
    xlabel('x (m)');
    ylabel('p(x,t) (Pa)');
    legend('p(x,t)');
    axis([0, 10, -1.1*A, 1.1*A]);
    grid on;
    box on;
    
    pause(0.01);    %pausa el proceso por un tiempo t = 0.01
    
end;