tchfs_2_pe.m

matlab信道编码程序

function[class1_err_rate,class2_err_rate]=tchfs_2_Pe(snr_in_dB,signal)
%噪声功率
E=1;
snr=10^(snr_in_dB/10);
sgma=sqrt((E/snr)/2);
%桢个数
N=100;
%突发间隔
N_Interval=80;
%突发长度
N_Length=5;
%编码
for n=0:(N-1)
	%外编码
	ex_en_sig(1:267)=T_FS_EX_EN(signal([1:260]+n*260));
	%内编码
   neibian_sig(1:456)=nei_bianma(ex_en_sig);
   %交织前合成
   C([1:456]+n*456)=neibian_sig;
end;
%交织
u=jiaozhi(C);
%%%%%%%%%%%%%%%%%%%%%
%经信道加高斯燥声
u=2*u-1;
u=sign(u+sgma*randn(size(u))+eps);
u=(u+1)/2;
%加突发噪声
Noise=BurstNoise(N_Interval,N_Length,length(u));
u=mod(u+Noise,2);
%%%%%%%%%%%%%%%%%%%%%
%反交织
D=fanjiaozhi(u);
%解码
for n=0:(N-1)
	%分离桢
   temp_sig=D([1:456]+n*456);
   %内编码解码
	neiyi_sig=nei_yima(temp_sig);
	%外编码解码
   [ex_de_sig,flag]=T_FS_EX_DE(neiyi_sig);
   %桢合成
   new_sig([1:260]+n*260)=ex_de_sig;
end;

class1_err_num=0;
class2_err_num=0;
for n=0:(N-1)
   class1_err_num=class1_err_num+length(find(signal([1:182]+n*260)~=new_sig([1:182]+n*260)));
end
for n=0:(N-1)
   class2_err_num=class2_err_num+length(find(signal([183:260]+n*260)~=new_sig([183:260]+n*260)));
end
class1_err_rate=class1_err_num/(N*182);
class2_err_rate=class2_err_num/(N*78);