k0.m

来自「基于调和平均数方法分析瑞利信道多点两跳中继合作分集性能」· M 代码 · 共 12 行

function out2=K0(r,va3)
sum2=linspace(0,0,21);
yy=2*r/sqrt(va3);
for j=1:21
sum2(j)=0;
for u=0;0.1:100
    c(j)=cos(yy(j)*sinh(u))*0.1;
    sum2(j)=sum2(j)+c(j);
end
end
out2=sum2;