zl=[0 100 200 500 600.3 1000 1800 1000000];
for i= 1:8 
   ad(i)= 6+20*log10(abs((600+zl(i))/(600-zl(i))));
   end