function y=dist_hor_cal(XA,YA,XB,YB)
%calculo da distancia horizontal entre dois pontos
y=sqrt((XB-XA)^2+(YB-YA)^2);
end

