cor_h.m

来自「MIMO多天线收发 各种性能比较（BER曲线） 包括MMRC EGC SC Al」· M 代码 · 共 31 行

%M files for Generating Channel

%Correlated Rayleigh Channel

function H=Cor_rey(Nr,Nt,p)
% Nr=2;
% Nt=3;
% p=0.5;
p=p;
H=zeros(Nr,Nt);
R=eye(Nr*Nt);
for n=1:Nr*Nt-1
    for m=1:Nr*Nt-1
        R(n,m+1)=R(n,m)*p;
        R(n+1,m)=R(n,m)/p;
    end
end
for n=1:Nr*Nt
    for m=1:Nr*Nt
        if (R(n,m)>1)
        R(n,m)=1/R(n,m);
        else
        R(n,m)=R(n,m);
        end
    end
end
   
X=randn(Nr*Nt,1)/sqrt(2)+j*randn(Nr*Nt,1)/sqrt(2);
H=reshape(sqrtm(R')*X,Nr,Nt);