function Home
clear;
unew=((rand*80-40)+(rand*80-40)*i)
r=zeros(19,1);
L=zeros(19,1);
a=4;
Y=C;
for j=1:19;
    r(j)=abs(unew-Y(j));
    shadow=normrnd(0,8);
    L(j)=shadow-10*a*log10(r(j));
end
Lh=max(L);
[h,j]=find(L==Lh);
H=h
unew