BCH（15，5）编码

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）