test_error.m

TPC的Chase迭代译码时测试图样的程序

%-----------------用于寻找最不可靠位元----------
%----------------形成错误样本E---------------
function [E,co]=test_error(p,r_s)
% p=3;
% r=[-0.0566   -0.3645    0.2821   -0.2638    0.5733    0.2754   -0.5290   -0.2169    0.5880 0.4983    0.5108    0.6327    0.5647   -0.3677    0.6083];
len=length(r_s);
r_p=r_s;
for i=1:p
    [a,co(i)]=min(abs(r_p));
    r_p(co(i))=1000;
end
%-------------找到3个最小数的标号---------------
%------------先将这组数排序,只排前3个------------

%---------------------------------------------
E=zeros(1,len);
for i=1:p
    E(co(i))=1;
end