function [ E ] = difrakceavoda( f,h_l,h_s,h_hm,vzd,vzd_m,E0,R_v )


if vzd<=vzd_m
    E=0;
else
vln=((3*10^(8))/(f*10^(6)));
k=((2*pi())/(vln));

[vzd_odr,d1,d2,d4,d3]=vzdalenosti_pro_odrazadifrakci(h_l,h_s,h_hm,vzd,vzd_m);
alfa=acos((((double(d2))^2)+((double(d4))^2)-((double(d3))^2))/(2*double(d2)*double(d4)));
h=(double(d2))*sin(alfa);
v2=h*sqrt((2/vln)*((1/double(d2))+(1/double(d3))));


%v=vypocek_koef_v(vzd_odr+vzd_m,0,h_s,f,h_hm);
Ep=pouze_primy(d3,E0,f); %intenzita v bode odrazu od primeho paprsku
Ed=intenzita_od_difrakce(vzd_odr+vzd_m,vzd_m,0,h_s,f,h_hm,v2);
Eo=Ep*Ed;  %intenzita difrakci v bode odrazu od vody
E=((Eo/double(d1))*exp(-1i*k*double(d1)))*(R_v*exp(-1i*pi()));
end


end

