k1.asv

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

function out1=K1(r,va3)
xx=2*r/sqrt(va3);
sum1=0;
for t=0;0.1:100
    b=cos((xx*sinh(t))*cosh(t))*0.1;
    sum1=sum1+b;  
end   
out1=sec(0.5*pi)*sum1;