%-----------------編碼程序---------------------------
clear?all
clc
[hgnk]=hammgen（3）;???%產生H和G矩陣
for?i=1:2^k
????for?j=k:-1:1
????????if?rem（i-12^（-j+k+1））>=2^（-j+k）
????????????u（ij）=1;
????????else
????????????u（ij）=0;
????????end
????end
end????????????????????????
c=rem（u*g2）?????????%生成（74）漢明碼碼本
d=min（sum（（c（2:2^k:））‘））?????%計算最小碼距
h????????????????