%% visualizacion sonido

clearvars;
clear all;
close all;
clc;

%% modelo de propagacion sonora en una dimension
%la presion sonora sera una funcion del tiempo y del espacio
%es decir p = p(x,t) modelo de onda plana
%sin embargo para que este modelo tenga sentido debemos hacerlo
%en camara lenta

%variables principales
c = 1.0;        %velocidad del sonido 
f = 2.0;        %frecuencia de 2 (Hz)
w = 2*pi*f;     %frecuencia angular
T = 1/f;        %periodo
l = c/f;        %longitud de onda
k = 2*pi/l;     %numero de onda
A = 1.0;

%espacio radial
r = 0.1:0.01:5;     %espacio entre 0 a 5 metros

for t = 0:0.01:5
    %presion sonora
    prt = A*cos(w*t - k*r)./r;


    figure(2)
    plot(r,prt,'b');
    title('presion sonora en el espacio');
    xlabel('espacio r(m)');
    ylabel('presion sonora p(Pa)');
    legend('p(r,t)');
    axis([0.1,5,-11,11]);
    grid on;
    box on;

    pause(0.01);    %pausa por 0.01

end;