莱斯信道产生的模拟，选择分集合并，最大比值增益合并等，高斯白信道的仿真

信道模型仿真，选择分集合并，最大比值增益合并等，高斯白信道的仿真，Ｍａｔｌａｂ

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