z=[0 50 100 300 600.5 1000 1800 100000];
 for i=1:8
    ad(i)= 6+20*log10(abs((z(i)+600)/(z(i)-600)));
    end