Subversion Repositories reed_solomon_decoder

clc,clear

n=100;

data=randint(n,188,[0 255]);

%reed-solomom encoding

K = 188;

N = 204;

field = gf(data,8);

coded_bytes = rsenc(field,N,K);

code = double(coded_bytes.x);

code_e=code;

%%%%%%%%% put errors %%%%%%%%%%

e_num=randint(1,n,[0 8]);

for k=1:n

   d=randperm(204);

   e_loc=d(1:e_num(k));

   code_e(k,e_loc)=255-code_e(k,e_loc);

end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

data=reshape(data',1,[]);

code_e=reshape(code_e',1,[]);

fdi = fopen('input_RS_blocks','w');

fdo = fopen('output_RS_blocks','w');

for k =1:length(code_e)

    fprintf(fdi,'%s\n',dec2bin(code_e(k),8));

end

for k =1: length(data)

    fprintf(fdo,'%s\n',dec2bin(data(k),8));

end

fclose('all')

save Rs_test_data