clear;clc;

tic
logEbNo=0:2:30;??%信噪比0-30dB??????????????????
EbNolin=10.^（logEbNo./10）;??%轉換為數值???
M=2;??%BPSK調制誤碼率公式：P=Q（sqrt（1./（2*k*EbNolin）））??????????????????????????
k=log2（M）;
Fd=1;
Fs=1;%?一個采樣率為Fd的信號映射為采樣率為Fs的信號Fs>Fc>Fd，使用這些最小取值獲得的（仿真）性能結果是在仿真信道為一個AWGN信道時其信噪比與理論數據差別在0.1dB之內。
Nit=10;???????????????	
Ns=100000;
Kdb=-inf;???????????????????????
Mi=1;??????????????????????????
nstd=sqrt（1./（2*k*EbNolin））;???%Q函數的自變量?

r=rice_fading（KdbNsMi）;???%產生萊斯衰落因子????????
noise=randn（1Ns）+j*randn（1Ns）;??%產生復高斯噪聲
????????
for?it_snr=1:length（EbNolin）
????bit_err=0;
????for?it=1:Nit
????????a=randint（1NsM）;?%產生1*100000的隨機整數，0、1等概率，即產生基帶傳輸數據?????????????
????????s=dmodce（aFdFs‘psk‘M）;??%BPSK基帶調制????
????????v_r（1:）=s.*r;?%產生萊斯衰落信號
????????n=nstd（it_snr）*noise;?%經過萊斯衰落的噪聲

????????v1=v_r+n;??%信號加噪聲，萊斯信道
????????v2=s+n;?%信號加噪聲，高白信道
????????%萊斯信道
????????z1=?ddemodce（v1FdFs‘psk‘M）;?%?BPSK基帶解調
????????errors1（it_snrit）=biterr（az1）;?%誤比特數
????????%高白信道
????????z2=?ddemodce（v2FdFs‘psk‘M）;?%?BPSK基帶解調
????????errors2（it_snrit）=biterr（az2）;?%誤比特數
????end???
end
ber1=sum（errors12）./（Nit*Ns*k）;?%萊斯信道誤比特率
ber2=sum（errors22）./（Nit*Ns*k）;?%高白信道誤比特率
BER?=?[ber1?ber2];

semilogy（logEbNoBER（:1）‘r^‘logEbNoBER（:2）‘b^‘‘LineWidth‘1.5）;
grid?on;
title（‘Average?BER?of?Gaussian?and?Rayleigh‘）;
xlabel（‘SNR‘）;
ylabel（‘BER‘）;
legend（‘Rayleigh‘‘Guassian‘1）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1647??2010-06-18?11:00??實驗\5-ber.asv

?????文件???????1633??2010-06-18?11:00??實驗\ber5.m

?????文件???????1039??2010-06-18?11:54??實驗\character2.m

?????文件????????771??2010-06-18?10:23??實驗\clack4.m

?????文件????????770??2010-06-21?20:27??實驗\jakes3.m

?????文件???????1019??2010-06-18?11:59??實驗\mrc6.m

?????文件????????899??2010-06-20?12:34??實驗\op6.m

?????文件???????3793??2010-06-18?11:13??實驗\pf1.m

?????文件????????680??2010-06-18?11:58??實驗\psc6.m

?????文件????????229??2010-06-18?11:00??實驗\rice_fading.m

?????文件???????3793??2010-06-18?11:18??實驗\shiyan1.m

?????文件????????929??2010-06-17?20:36??實驗\Untitle.asv

?????文件????????929??2010-06-17?20:38??實驗\Untitle.m

?????文件???????3796??2010-06-18?11:40??實驗\Untitle1.asv

?????文件????????538??2010-06-17?20:57??實驗\Untitle2.m

?????目錄??????????0??2010-06-20?12:34??實驗

-----------?---------??----------?-----??----

????????????????22465????????????????????16