examp_doppler.m

来自「linear time－frequency toolbox」· M 代码 · 共 14 行

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);