tcm.m

8状态8PSK TCM系统（频带＋噪声）

close all
clear all
SNR_in_dB=10;%0:1:10;

N=20;
		%下面产生一个N长的0、1等概的信源
for cycle=1:N,
    temp=rand;
    if(temp<0.5),
	    Source(cycle)=0;
    else
	    Source(cycle)=1;
    end
end
[Source];	%%%待发送信源
for i=1:length(SNR_in_dB),
	Pb(i)=Send(N,Source,SNR_in_dB(i));
end;


SNR_in_dB2=0:0.1:10;
for i=1:length (SNR_in_dB2),
   SNR=exp(SNR_in_dB2(i)*log(10)/10); %信噪比
   theo_err_prb(i)=2*Qfunct(sqrt(6*SNR)*sin(pi/8))/3;%理论比特误码率
end;
%figure(4)
%title('8PSK理论误码率与实际TCM误码率：')
%hold
%semilogy (SNR_in_dB,Pb,'^');
%semilogy (SNR_in_dB2,theo_err_prb,':');
%grid on