function?[yout]=bch155（x）%定義函數?
k=5;%信息碼位，BCH（15，5）
if?rem（length（x）k）==0;
????n=length（x）/k;
????x2=[];%判斷msg是否為K的整數倍，并把輸入碼員分組???
for?i=0:n-1
????x2=[x2;x（i*k+1）?x（i*k+2）?x（i*k+3）?x（i*k+4）?x（i*k+5）];?
end?
if?rem（length（x）k）>0%把輸入碼員補零并分組
????x=[xzeros（size（1:k-rem（length（x）k）））];
????n=length（x）