www.pudn.com > ldpc802.16.rar > ldpc_genH_3gpp.m, change:2005-10-13,size:279b


function [out]=ldpc_generate_3gpp(H,z) 
 
[m1,n1]=size(H); 
H1=zeros(size(H)*z); 
 
for i=1:n1 
    loc=find(H(:,i)~=-1); 
    p=H(loc,i); 
    for j=1:length(p) 
        h=circshift(eye(z),[0,p(j)]); 
        H1((loc(j)-1)*z+1:loc(j)*z,(i-1)*z+1:i*z)=h; 
    end 
end 
 
out=H1;