yi_ma_biao.m

TPC的Chase迭代译码时测试图样的程序

%--------------硬判决译码-------------
%------------产生译码表，e与s之间的关系---------------
 function e=yi_ma_biao(H,r)
% H=[  1     0     0     1     1     0     1     0     1     1     1     1     0     0   0
%      1     1     0     1     0     1     1     1     1     0     0     0     1     0   0
%      0     1     1     0     1     0     1     1     1     1     0     0     0     1   0
%      0     0     1     1     0     1     0     1     1     1     1     0     0     0   1];
% r=[0     0     1     0     1     1     0     0     1     1     1     1     1     0 1];
s=mod(r*H',2);
len=length(r);
[M,N]=size(H);
e1(1,:)=zeros(1,len);
e1(2:N+1,:)=eye(N,len);
for i=1:N+1
    s1(i,:)=mod(e1(i,:)*H',2);
end
e=zeros(1,len);
for i=1:N+1
    if s==s1(i,:) 
        e=e1(i,:);
    end 
end