GSM TCH全速话音信道仿真（基带）

				%绘制不同信噪比下的误码率曲线
				echo on
				clear all
				close all
				snr_in_DB=-4:2:6;
				SNR_in_DB=-4:0.1:6;
				for i=1:length(snr_in_DB)          %仿真值
				   s_e_r(i)=PrimePe(snr_in_DB(i));
				end
				for i=1:length(SNR_in_DB)          %理论值
				   SNR=10^(SNR_in_DB(i)/10);
				   t_e_r(i)=Qfunct(sqrt(2*SNR));
				end   
				semilogy(snr_in_DB,s_e_r,'r*');
				hold
				semilogy(SNR_in_DB,t_e_r);