again.m

[wave,fs]=wavread('road.wav')             
                                                            
t=0:1/fs:(length(wave)-1)/fs                                 
subplot(2,1,1)
plot(t,wave)                                   
n=length(wave)-1                                            
f=0:fs/n:fs
wavefft=abs(fft(wave)) 
subplot(2,1,2)
plot(f,wavefft)