function y=dist_hor_lin(XA,YA,XB,YB)
%Calculo da distancia inclinada linearizada entre dois pontos
X(1,1)=(XA-XB)/dist_hor_cal(XA,YA,XB,YB); %dXA
X(2,1)=(YA-YB)/dist_hor_cal(XA,YA,XB,YB); %dYA
X(3,1)=(XB-XA)/dist_hor_cal(XA,YA,XB,YB); %dXB
X(4,1)=(YB-YA)/dist_hor_cal(XA,YA,XB,YB); %dYB
y=X;
end

