（74）线性分组码matlab程序

%%%产生随机信源信号
m=randint（110000）;
x=reshape（mlength（m）/44）;
%%%分组编码
G=[1 0 1 1 0 0 0;1 1 1 0 1 0 0;1 1 0 0 0 1 0;0 1 1 0 0 0 1];%设置编码矩阵
X=mod（x*G2）;%进行编码，生成编码后的码组
X=X‘;
n=length（m）/4*7;
X=reshape（X1n）;
X=bi2de（（reshape（X2n/2））‘‘left-msb‘）;%二进制数组转十进制
%%%产生QPSK信号
h=modem.pskmod（4）;% 产生调制句柄 相位偏移默认为0
y=modulate（hX）;%对信号进行调制
P=[];
%%%%加入高斯白噪声
for SNR=0:10
z=aw