function f=mimo_corr(anglespread,angle,d,M)
% 功能：通過波束到達角、角度擴展、天線之間的間隔和天線的個數，計算出發送端或接收端的相關矩陣
% 輸入參數說明：
% （1）anglespread散射體的角度擴展，表示接收端和發送端散射體的分布情況。這里假設角度分布服從拉普拉斯分布
% （2）angle平均到達角，每個入射波和離去波的到達角的均值
% （3）d天線間隔與波長之比，表示接收端和發送端兩個天線之間的間隔與波長之比，本程序假設天線是均勻線陣
% （4）M天線陣元數，表示接收端和發送端天線陣元個數
% 輸出參數說明：mimo_corr 發送端或接收端任意兩個天線之間的相關系數矩陣

function f=mimo_corr(anglespread,angle,d,M)
L=1000;
anglespread1=720;
c=0;
% clear i;
p=zeros(1,L);
fai=zeros(1,L);
fai1=zeros(1,L);
FAI=zeros(1,L);
matrix1=zeros(M,1);
matrix2=zeros(1,M);
correlation1=zeros(M,M);
correlation2=zeros(M,M);
correlation=zeros(M,M);

for m=1:L
    fai1(1,m)=angle-anglespread1+2*anglespread1*m/L;
    fai(1,m)=2*pi*(angle-anglespread1+2*anglespread1*m/L)/360;
    FAI(1,m)=d*sin(fai(1,m));
end
for m=1:L
    p(1,m)=1/(anglespread*sqrt(2))*exp(-sqrt(2)*abs(fai1(1,m)-angle)/anglespread)*2*anglespread1/L;
end
for m=1:L
    c=p(1,m)+c;
end
c;
for m=1:L
    for n=1:M
        matrix1(n,1)=exp(i*FAI(m)*2*pi*(n-1));
    end
    matrix2=matrix1';
    correlation1=matrix1*matrix2*p(1,m);
    correlation2=correlation1+correlation2;
end
for m=1:M
    for n=1:M
        correlation(m,n)=abs(correlation2(m,n))/c;
    end
end
f=correlation;