www.pudn.com > mentos_fs.rar > INTER_WEAVE_8.m

%交织度为8的交织 
function u=INTER_WEAVE_8(d) 
N=length(d)/456;%桢数 
C=reshape(d,456,N); 
C=C'; 
u=zeros(4*N+4,114); 
for n=1:N 
	for k=0:455 
   	b=mod(k,8)+4*(n-1); 
   	j=2*mod(49*k,57)+floor(mod(k,8)/4); 
      u(b+1,j+1)=C(n,k+1); 
   end 
end 
u=reshape(u',1,4*114*(N+1));