tchfs_gaosi.m

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

echo off
clear all
close all
snr_in_DB=-4:1:6;
for i=1:length(snr_in_DB),
   SNR=10^(snr_in_DB(i)/10);
   t_e_r(i)=Qfunct(sqrt(2*SNR)),
   [c1_e_r(i),c2_e_r(i)]=tchfs_1_Pe(snr_in_DB(i)),
end;
semilogy(snr_in_DB,t_e_r,'-',snr_in_DB,c1_e_r,'r*-',snr_in_DB,c2_e_r,'go-');
legend('ԭʼ','class I','class II');