function?[G]=BCH（kg）
%clear?all;
row=k;
n=length（g）;
%row=11;
col=row-1+n;
A=zeros（rowcol）;
%A（endrow:end）=[1?0?0?1?1];
A（endrow:end）=g;

for?i=1:row-1
???A（end-irow-i:end-i）=A（endrow:end）;?
end
%A（end-12:end-1）=A（end3:end）;

%A（end-21:end-2）=A（end-12:end-1）;
for?j=row:-1:2
for?i=j-1:-1:1
????if（A（ij）>0）
????????C1=A（i:）
????????C2=A（j:）
????????C=C1+C2
????????B=mod（C2）;
????????A（i:）=B;
????end
????clear?C1?C2?C?B
end
end

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

?????文件????????469??2005-11-11?16:42??bch\BCH.m

?????文件????????320??2005-11-11?17:08??bch\codeBCH.m

?????文件???????1107??2005-08-17?10:45??bch\correctcode.m

?????文件????????478??2005-11-11?16:45??bch\creatG.m

?????文件?????????78??2005-11-11?17:20??bch\creatH.m

?????文件????????544??2005-08-17?10:37??bch\debchcode.m

?????文件????????276??2005-11-11?17:24??bch\decodeBCH.asv

?????文件????????276??2005-11-11?17:28??bch\decodeBCH.m

?????文件????????485??2005-11-11?17:08??bch\getbchcode.m

?????文件????????399??2005-08-15?16:45??bch\getcode.m

?????文件?????????23??2005-11-11?17:08??bch\mdata.txt

?????文件?????????30??2008-05-31?14:56??bch\out.txt

?????目錄??????????0??2005-11-11?17:44??bch

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

?????????????????4485????????????????????13