function snr=cp001(d)
d=(0:0.1:60);
p=-10.3
c=3*10^8;
r=110*10^6;
fu=4.8*10^9;
fl=3.1*10^9;
fg=sqrt(fu*fl);
snr=p-20*log10(4*pi*fg*d/(c))-(-174+10*log10(r))-6.6-2.5+10*log10(1.269);

% plot(snr),axis([0 60 -10 20]);grid
plot(d,snr),axis([0 60 -10 20]);grid