medfreq with delta-F threshold ?
6 views (last 30 days)
I am using the medfreq function to extract fast freq changes (few ms) in a sinewave signal. The function seems to work pretty well and better than "tfridge" (less artifacts), "sst" (faster) and instfreq (less artifacts).
however, when the source causes the signal to change in amplitude and no freq changes are present, it is when my problem starts. If one would imagine a spectrogram rapresentation of this: the signal would be a constant line, with some fast peaks occurring here and there (chirps). Using the medfreq function these are nicely detected.
Changes in amplitude are caused by movements in the signal source and cause the spectrogram trace to have gaps. In absence of freq modulations (chirps), the medfreq function detects a lot of noise - in correspondence of those gaps.
This suggests me that the medfreq function works "point to point", otherwise the gaps would be detected as "sinks" in the medfreq trace (but I could be wrong). Is there a way to impose a fixed range of freq in which the median is searched ? or somehow make it so that gaps in the main freq component are not creating artifacts which would be confused for chirps ?
Greg Dionne on 14 May 2019
Edited: Greg Dionne on 14 May 2019
From what I can tell your sinusoid is around ~895 Hz and has fairly clean second and third harmonics. So I took that as the starting point. The approach is to bandpass about each of the harmonics, mix down, filter and reconstruct the instantaneous frequency; if you divide each of the harmonics by its order, the overlaid results have reasonable agreement.
Anyways, this should hopefully get you started.
Fs = 20e3;
Fc = 895;
% choose 100 Hz (one-sided) bandwidth about carrier
bw = 100;
% attempt FM demodulation about carrier
[Finst1, Tinst] = instfreq_bb(seg1, Fs, Fc, bw);
[Finst2, Tinst] = instfreq_bb(seg1, Fs, 2*Fc, bw);
[Finst3, Tinst] = instfreq_bb(seg1, Fs, 3*Fc, bw);
plot(Tinst,[Finst1(:) Finst2(:)/2 Finst3(:)/3 (Finst1(:)+Finst2(:)/2+Finst3(:)/3)/3])
legend('1st','2nd / 2','3rd / 3','average')
function [Finst, Tinst] = instfreq_bb(xx, Fs, Fc, bw)
% pre-filter about carrier
x = bandpass(xx, Fc+[-bw bw], Fs, 'Steepness',.5);
t = (0:numel(x)-1)./Fs;
% mix down
z = complex(x .* cos(-2*pi*Fc*t), ...
x .* sin(-2*pi*Fc*t));
bb = lowpass(z,bw,Fs,'Steepness',0.99);
% fetch instantaneous frequency from angular component.
Finst = angle(bb(2:end).*conj(bb(1:end-1))).*Fs/(2*pi)+Fc;
% fetch weighted time.
Tinst = t(1:end-1)+t(2)/2;