%sounddemo: 
%Hvordan høres korte lydpulser ut?
%Slå på høyttaleren, og trykk "F5"
% 30.09.04 Hans Torp

f0=440;%frekvens lyd, 440=kammertone

fs=8e3;
f=(0:1023)*fs/1024;
for Ncycles=[1,2,4,8,16,32,64],
    figure(1);
    T=Ncycles/f0;
    t=0:1/fs:T;
    s=sin(2*pi*f0*t);
    S=fft(s,1024);
    S=S/max(S);
    subplot(2,1,1);plot(t,s);xlabel('tid [s]');
    subplot(2,1,2);plot(f,abs(S));axis([0,2000,0,1]);
    xlabel('frekvens [Hz]');
    sound(s,fs);
    pause(0.5);
end;