
% Deinterleaver
%
% Recompone el orden de transmisión de los bits, alterado
% por el proceso de Interleaver.
%
function [sd] = deinterleaver(isd,n_max_sim,N,n_cod_tipo)
y=n_max_sim;
p=n_max_sim*N*n_cod_tipo;
x=p/y;
na=length(isd)/p;
a=1;
for k = 0:na-1,
% Escritura
for j = 1:y,
for i = 1:x,
RM(j,i)=isd(a);
a=a+1;
end
end
% Lectura
b=1;
for i = 1:x,
for j = 1:y,
sd(k*p+b)=RM(j,i);
b=b+1;
end
end
end
%
