psi.m

来自「fading 在无线中的应用」· M 代码 · 共 10 行

function y=psi(a,b);
[l,n]=size(a);
res=zeros(1,n);
step=0.02;
for i=1:n
   for x=step:step:1
      res(i)=res(i)+step*(1-Qfunc((40*log10(x)-a(i))/b))*2*x;
   end;
end;
y=res;