fs=10000;
samples=180;
reply= input('Ready to refrence record? ','s');
w1=0;
if reply=='y'
    wav1=wavrecord(samples,fs);
w1=norm(wav1);
n = length(wav1);
w1=norm(wav1)/sqrt(n);
while 1
   

    w2=0;
    wav2=wavrecord(samples,fs);
    w2=norm(wav2);
    n = length(wav2);
    w2=norm(wav2)/sqrt(n);

    for i=0:1000
        clc; 
        SLP=20*log(w2/w1);  
        disp(SLP); 
        disp(' ');
        disp(w1);
        disp(' ');
        disp(w2);
    end
end
end