function odfm_wifi()

ndly = 16;
nmav1 = 48;
nmav2 = 64;

hdly = [zeros(1,ndly) 1];
hmav1 = ones(1,nmav1);
hmav2 = ones(1,nmav2);

x = 0.1*load_iq('/home/jens/mnt/cifs/Media/Raw/wifi_burst_5579999999_20000000_fc.wav');

xdly = filter(hdly, 1, x);
xc = x .* conj(xdly);
xc = filter(hmav1, 1, xc);
k = filter(hmav2, 1, abs(x).^2) + 1e-6;
N = length(xc);

plot(0:N-1, abs(xc)/nmav1*16, 0:N-1, abs(xc)./k); grid

function x = load_iq(name)
	xw = audioread(name);
	x = xw(:,1) + j*xw(:,2);
#	x = randn(1,400) + j*randn(1,400);
endfunction

endfunction