function?g=hammingdecod（R）
H=[1?1?1?0?1?0?0?;0?1?1?1?0?1?0;1?1?0?1?0?0?1];
R=input（‘輸入接收序列R=‘）;
S=mod（R*H‘2）;??%計算R的伴隨式
m=0;
for?i=1:1:7
if?S==H（:i）‘
???m=1;
???E=dec2bin（2^（7-i）7）;??%計算R的錯誤圖樣
???fprintf（‘錯誤出現在第%1.0f位\n‘i）;
???break;
end
end
if?m==0
????disp（‘接收到的碼字無錯誤。‘）;
????E=dec2bin（07）;
end
????a=mod（R-E2）;?%計算原發送碼序列
???disp（‘原發送碼字為:‘）;
???disp（a）
??

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????433??2009-05-11?09:55??漢明碼\hammingdecod.m

?????文件????????482??2009-05-10?20:14??漢明碼\hammingencod.m

?????文件?????????38??2009-05-16?19:43??漢明碼\說明.txt

?????目錄??????????0??2009-05-16?19:42??漢明碼

-----------?---------??----------?-----??----

??????????????????953????????????????????4