rsdecode.m

rs编解码

function y=rsdecode(input)
%rs译码程序 
m=5;       
n=2^m-1;    
t=3;         
k=n-2*t;   

w=size(input);
l=w(1)*w(2)/(n*m);%输入与编码输出的序列应该是对应的

%把二进制转换到gf域上用于译码
y1=reshape(input,m,l*n)';
y2=bin2dec(char(y1+48));
y3=reshape(y2,n,l)';
y4=gf(y3,m);

y5=rsdec(y4,n,k);%译码

%转换输出为二进制
y6=double(y5.x)';
y7=dec2bin(y6,m)';
b=zeros(1,l*k);
b1=dec2bin(b,m)';
y8=y7-b1;

y=reshape(y8,1,m*l*k);%并串变换