c16_cisqpsk.m

对于QPSK调制的仿真系统

% File: c16_CISQPSK.m
% Software given here is to accompany the textbook: W.H. Tranter, 
% K.S. Shanmugan, T.S. Rappaport, and K.S. Kosbar, Principles of 
% Communication Systems Simulation with Wireless Applications, 
% Prentice Hall PTR, 2004.
%
Eb = 20:2:32; No = -50;						% Eb and Noin dBm
ChannelAttenuation = 70;					% channel attenuation in dB
EbNodB = (Eb-ChannelAttenuation)-No;	    % Eb/No in dB 
EbNo = 10.^(EbNodB./10);					% Eb/No in linear units
BER_T = 0.5*erfc(sqrt(EbNo));       	    % BER (theoretical)
N = ones(size(BER_T))*2000;				    % set =2000 for all runs
CISBias = 1+(EbNo/20);						% set CIS bias
BER_CIS = zeros(size(Eb)); 				    % initialize BER vector
for k=1:length(Eb)        					% main loop starts here
  BER_CIS(k) = c16_CISQPSKrun(N(k),Eb(k),...
  No,ChannelAttenuation,0,0,0,0,CISBias(k));
  disp(['Simulation ',num2str(k*100/length(Eb)),'% Complete']);
end
semilogy(EbNodB,BER_CIS,'o',EbNodB,2*BER_T,'-')
xlabel('Eb/No (dB)'); ylabel('BER'); grid;
% End of script file.