%--------------------------------------------------------------------------
%Simulate?a?QPSK?system?（without?coding）?write?a?summary?report?
%in?MS?Word?file?containing?the?fo?llowing?items?together?with?the?
%necessary?analysis?&?discussions?
%1.?system?diagram;
%2.?error?performance?（BER-EbNo?curve）?under?
%????（1）?AWGN?channel??
%????（2）?Rayleigh?fading?channel?and?
%????（3）?Ricean?fading?channel.?
%????All?BER-EbNo?curves?should?be?drawn?in?one?figure?with?the?
%same?scaling?together?with?the?theoretical?AWGN?performance.?
%--------------------------------------------------------------------------
function?main
clear;
SNR?=?0:1:10;?????????????????????????????????%?Range?of?SNR?values?in?dB.

for?n?=?1:length（SNR）
pbawgn（n）?=?QPSK_AWGN_Simu（SNR（n））;
pbrayleigh（n）?=?QPSK_Rayleigh_Simu（SNR（n））;
pbricean（n）?=?QPSK_Ricean_Simu（SNR（n））;
end

%?Compute?theoretical?performance?results?for?comparison.
BERtheoryAWGN?=?berawgn（SNR‘psk‘4‘nondiff‘）;
BERtheoryRayleigh?=?berfading（SNR‘psk‘41）;
BERtheoryRice?=?berfading（SNR‘PSK‘414）;

%?Plot?BER?results.
semilogy（SNRBERtheoryAWGN‘k-‘SNRpbawgn‘k*‘SNRBERtheoryRayleigh‘b-‘SNRpbrayleigh‘b*‘SNRBERtheoryRice‘m-‘SNRpbricean‘m*‘）;
legend（‘Theoretical?AWGNBER‘‘Simulated?AWGNBER‘‘Theoretical?rayleighBER‘‘Simulated?rayleighBER‘‘Theoretical?riceanBER‘‘Simulated?riceanBER‘）;

xlabel（‘SNR?（dB）‘）;?
ylabel（‘BER‘）;
title（‘BER?of?awgnrayleighricean‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件????????1671??2012-11-28?15:56??程序\QPSK_AWGN_Simu.m
?????文件????????1721??2012-11-28?15:56??程序\QPSK_Rayleigh_Simu.m
?????文件????????1796??2012-11-28?15:56??程序\QPSK_Ricean_Simu.m
?????文件????????1473??2012-11-28?15:59??程序\main.m
?????目錄???????????0??2012-11-28?16:04??程序\