examp_doppler.m

linear time－frequency toolbox

if isoctave
  dop=loadaudio('doppler','au');
else
  dop=auread('doppler.au');
end;

gf=tfr_create('dgt',80,100,'pgauss','candual');

c=tfr_ar(gf,dop);

imagesc(abs(c));

tfr_clear(gf);