%擴(kuò)展（8，4）漢明碼，實(shí)現(xiàn)一位糾錯(cuò)，兩位檢錯(cuò)    --向賽輝
clear
  H = [1,1,0,1,1,0,0,0; %擴(kuò)展?jié)h明碼的一致校驗(yàn)矩證
      1,0,1,1,0,1,0,0;
      0,1,1,1,0,0,1,0;
      1,1,1,1,1,1,1,1];
disp('請輸入信息序列');
for i = 1:8;
   R(i) = input('');
end;
if(( mod((H*R'),2)) == [0,0,0,0]')
    disp('碼字正確！');
else
    S=mod(H*R',2); %接收矢量R的伴隨式的轉(zhuǎn)置
   E=eye(8);
    for i=1:8
       if S==H(:,i)  % 如果等于H的某列，則某位發(fā)生錯(cuò)誤
          e=E(i,:);   %錯(cuò)誤位
          W=mod(R+e,2);
           disp('碼字錯(cuò)誤！');
         disp('正確碼字是');
         disp(W);
       end    
    end  
    for i=1:8
        if S~=H(:,i)  %因?yàn)镠每列不同，若兩位錯(cuò)誤，則不等于H中任何一列
             disp('碼字有兩位錯(cuò)誤');
        end
    end
  end