www.pudn.com > ldpc802.16.rar > interleaver.m, change:2005-10-25,size:239b


function [out]=interleaver(in,n) 
 
tmp=zeros(size(in)); 
len=length(in)/n; 
in=reshape(in,len,n).'; 
for i=1:size(in,2)/48 
    for j=1:n 
        tmp((i-1)*n*48+(j-1)*48+1:(i-1)*n*48+j*48)=in(j,(i-1)*48+1:i*48); 
    end 
end 
 
out=tmp;