Cedric Roux
56c66c09aa
Pre-ci test passed git-svn-id: http://svn.eurecom.fr/openair4G/trunk@4000 818b1a75-f10b-46b9-bf7c-635c3b92a50f
111 lines
2.7 KiB
Matlab
Executable File
111 lines
2.7 KiB
Matlab
Executable File
clear all
|
|
|
|
size_data = 20480; % in ech
|
|
band = 7*10^6; %in Hz
|
|
|
|
Samples = zeros(size_data,1);
|
|
prefixe_in = '/tmp/'; % c'estle repertoire des fichiers .dat
|
|
|
|
signal_1 = [prefixe_in '953_4.dat'];
|
|
fid_1 = fopen(signal_1,'rb');
|
|
signal = fread(fid_1, size_data);
|
|
fclose(fid_1);
|
|
Samples(:,1) = signal;
|
|
|
|
data = (fft(Samples))';
|
|
|
|
mes_norm = sqrt(real(data).^2+imag(data).^2);
|
|
|
|
[n,m]= size(mes_norm);
|
|
|
|
decal_freq = 180*10^3; % in Hz
|
|
decal = ceil((decal_freq*size_data)/band); % in ech
|
|
|
|
|
|
for q = 1:(m - decal);
|
|
% Parameters
|
|
mu_norm = sum(mes_norm(q:q+decal))/(decal+1);
|
|
sigma2_norm = sum((mes_norm(q:q+decal)-mu_norm).^2)./(decal+1);
|
|
sigma_ray = sqrt((1/(2*(decal+1)))*sum(mes_norm(q:q+decal).^2));
|
|
|
|
% Distributions %%%%%%%%%
|
|
rayleigh = mes_norm(q:q+decal)./(sigma_ray^2).*exp(-(mes_norm(q:q+decal).^2)./(2*(sigma_ray^2)));
|
|
aic_matrix (1,q) = sum(log10(rayleigh))+2;
|
|
nr = exp(-(1/2)*(mes_norm(q:q+decal)-mu_norm).^2./(sigma2_norm))./(sqrt(sigma2_norm*2*pi));
|
|
aic_matrix (2,q) = sum(log10(nr))+8;
|
|
end
|
|
|
|
|
|
min_vect = min(aic_matrix(:,:));
|
|
|
|
for i=1:m-decal,
|
|
D(1,i) = aic_matrix(1,i) - min_vect(i);
|
|
D(2,i) = aic_matrix(2,i) - min_vect(i);
|
|
|
|
den = sum(exp(-0.5*D(:,i)));
|
|
w_ray(i) = exp(-0.5*D(1,i))/den;
|
|
w_nr(i) = exp(-0.5*D(2,i))/den;
|
|
end
|
|
|
|
for i= 1:ceil(decal/2),
|
|
bande(i) = 0;
|
|
end
|
|
|
|
for i=ceil(decal/2) + 1:length(w_ray)+ceil(decal/2),
|
|
if w_ray(i-ceil(decal/2)) < 0.009,
|
|
bande(i) = 1;
|
|
else
|
|
bande(i) = 0;
|
|
end
|
|
end
|
|
|
|
for i= length(w_ray)+ceil(decal/2)+1:length(w_ray)+decal,
|
|
bande(i) = 0;
|
|
end
|
|
|
|
bande_1 = zeros(1,length(bande));
|
|
|
|
for i=1:decal:length(bande)-decal,
|
|
nb_zeros = 0;
|
|
for k = 1:decal,
|
|
if (bande(i+k-1)==0),
|
|
nb_zeros = nb_zeros+1;
|
|
end
|
|
end
|
|
if (nb_zeros > decal/2),
|
|
for k = 1:decal,
|
|
bande_1(i+k-1)=0;
|
|
end
|
|
else
|
|
for k = 1:decal,
|
|
bande_1(i+k-1)=1;
|
|
end
|
|
end
|
|
end
|
|
|
|
for i=1:length(bande)/2-72,
|
|
bande_1(length(bande) - i - 1) = bande_1(i + 72);
|
|
end
|
|
|
|
for i=1:length(bande),
|
|
ban(i) = 0;
|
|
end
|
|
|
|
for i=1:decal:length(bande),
|
|
ban(i) = 1;
|
|
end
|
|
|
|
if 1,
|
|
size_data = size_data - decal;
|
|
fr = -band/2:band/size_data:band/2-band/size_data;
|
|
figure(1),
|
|
subplot(2,1,1),plot(fr,w_ray,'k.'), axis([-band/2, band/2, 0, 1])
|
|
title('')
|
|
size_data = 20480;
|
|
band = 7*10^6; %in kHz
|
|
fr = -band/2:band/size_data:band/2-band/size_data;
|
|
subplot(2,1,2),plot(fr, real(data(1,:)), 'k-'), axis([-band/2, band/2, -150000, 150000])
|
|
subplot(2,1,2),hold on, plot(fr, 10^5.*ban,'k--'), plot(fr, 10^5.*bande_1,'r')
|
|
subplot(2,1,1),hold on, plot(fr, ban,'k--'),
|
|
title('')
|
|
end |