M=textread（‘M1.txt‘）???%從文件中讀取信息元序列M
H=textread（‘H1.txt‘）???%從文件中讀取一致校驗矩陣H
m=length（H（:1））???????%求解校驗位m
k=length（M）??????%求解信息位數(shù)k
n=k+m????????????%求解碼長n

%生成發(fā)送碼字C
G=[eye（k）H（:[1:k]）‘]???%計算生成矩陣G
C=M*G;???????????%產(chǎn)生碼字，該碼字為發(fā)送碼字C
C=mod（C2）??????????%求模2運算，即變成二進制數(shù)

%生成接收碼字R
E=randint（1n）??%產(chǎn)生只錯一位的隨機錯誤圖樣E
sum=0;
for?i=1:n
??????sum=sum+E（i）
end
R=xor（CE）;??????%由發(fā)送碼字C和錯誤圖樣E進行異或運算?
R=mod（R2）??????????%求模2運算，即變成二進制數(shù)

%計算伴隨式S
S=R*H‘;????%計算伴隨式S，H‘為H的轉置
S