tchfs_tufa_gaosi.m

9.6kbit/s 全速率数据业务信道(TCH/F9.6)仿真

echo off
clear all
close all
snr_in_DB=-2:1:6;
%桢个数
N=100;
%信息序列
signal=round(rand(1,N*260));
for i=1:length(snr_in_DB),
   s_e_r(i)=PrimePe(snr_in_DB(i),signal),
   [c1_e_r(i),c2_e_r(i)]=tchfs_2_Pe(snr_in_DB(i),signal),
end;
semilogy(snr_in_DB,s_e_r,'-',snr_in_DB,c1_e_r,'r*-',snr_in_DB,c2_e_r,'go-');
legend('原始','class I','class II');