www.pudn.com > ldpc802.16.rar > dearrang.m, change:2005-11-04,size:306b


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