www.pudn.com > ldpc802.16.rar > dearrang_mcwill.m, change:2005-11-03,size:302b


function [d,p]=dearrang(in) 
 
in=reshape(in,size(in,1)*size(in,2)/8,8); 
tmp2=[in(:,2),in(:,7)]; 
tmp2=tmp2(:); 
in=[in(:,1),in(:,3:6),in(:,8)]; 
tmp1=zeros(1,size(in,1)*size(in,2)); 
for i=1:size(in,1)/8 
    temp=in((i-1)*8+1:i*8,:); 
    tmp1((i-1)*8*6+1:i*8*6)=temp(:); 
end 
 
d=tmp1(:); 
p=tmp2;