function myspecgram (s,Fs) 
% function myspecgram (s,Fs) 
%
% nice spectrogram 
% s - signal 
% Fs - vzork. frekvence [Hz]

[ysg,fsg,tsg,psg] = spectrogram (s,floor(length(s) / 2000),0,1024,Fs); 
surf(tsg,fsg,10*log10(abs(psg)),'EdgeColor','none');   
axis xy; axis tight; colormap(jet); view(0,90);
